Discussion :

[Hydex]

J'ai une incompatibilité de type ici, je me demande pourquoi?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim mySQL As String
mySQL = "INSERT INTO A_D ( ID_A ) VALUES ('" + Suivant + "')"
DoCmd.RunSQL mySQL

Suivant est un Long, ID_A est un champs de type Numérique.

Je ne peux pas mettre de valeurs numériques dans une String?

[Oleff]

Bonjour,
Non tu ne peux pas si dans ta table le champ doit contenir un numérique.
Enlève tes quotes, ça devrait aller beaucoup mieux

[Hydex]

Merci, mais...j'ai enlevé mes quotes (j'ai essayé plusieurs combinaisons), mais ça a pas changé grand chose
Pour résumer, je veux insérer le contenu de la variable Suivant (qui est un type Long) dans le champs de type numérique ID_A de la table A_D.
Je m'y prends mal?

[samuelsiffert]

Bonjour

"Suivant est un Long, ID_A est un champs de type Numérique."
Il faudrait vérifier que ID_A ait comme taille du champ "entier long" dans les propriétés générales du champ.

"Je ne peux pas mettre de valeurs numériques dans une String?"
Bien sûr que si.
Et inversement, si ta string est en fait un entier, access la castera avant de l'affecter à la valeur du champ
Logiquement il faut mettre les cotes uniquement pour affecter une string.

@+

Sam

[Hydex]

J'ai bien enlevé les single quotes...Et mon ID_A est bien typé entier long.
Je suis assez débutant en Access donc j'ai peut-être fait une erreur plus haut, je vous mets le code de la fonction complète, si ça peut aider...
Ca peut sembler bizarre mais je travaille sur des tables en liaison 1à1 (prolongement, trop de champs sinon). Donc quand je crée un nouvel enregistrement j'ajoute une ID_A dans ma table principale A, mais je dois aussi ajouter un enregistrement ID_A dans les tables liées (A_D ici). J'ai pas trouvé d'autres méthodes...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub Numerotation()
 
    Set Db = CurrentDb
    Set Rs = Db.OpenRecordset("SELECT Last(ID_A) AS DernierId from R_ID_INF30K_Only", dbOpenSnapshot)
    Dim Suivant As Long
    Suivant = Rs!DernierId + 1
    Me.DateCreation = Date
    Me.ID_A = Suivant
    Dim mySQL As String
        mySQL = "INSERT INTO A_D ( ID_A ) VALUES (" + Suivant + ")"
     DoCmd.RunSQL mySQL
     End Sub

Les variables locales au moment du problème sont Suivant := 2 (bonne valeur), mySQL := "" (null, plantage...)

Doit manquer quelque chose quelque part...

[cbleas]

bonjour,

essai peut etre

mySQL = "INSERT INTO A_D ( ID_A ) VALUES (" & Suivant & ")"

Bonne journée

[Hydex]

Ah ben c'était ça, merci !
Pourquoi le & alors?

[cbleas]

sur access en VBA la concatenation se fait avec & c'est d'ailleurs la meme chose avec le langage SQL d'ACCESS alors qu'en SQL cela serait +.

Bon WE

[Hydex]

Je vois... merci
Ca vient du fait que j'ai plutôt travaillé en SQL avant :p