Insert SQL + VBA

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

Code:

---

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?

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 ;)

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?

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

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:

---

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...

bonjour,

essai peut etre

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

Bonne journée

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

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

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