Besoin de vérification de code VBA

bonjour à tous

Pouvez-vous verifier si le code est juste ..je voudrais insérer dans ma table nommée table la section de ma liste deroulante qui est appelée par me.cc
Mais dans mon formulaire lorsque je clique sur ma liste deroulante il ne m'affecte pas directement la valeur dans la table il m'ouvre une fenetre me disant d'entrer un paramètre ce que je ne veux pas je veux qu'il prennent directement la valeur selectionée.

Par ailleurs lors de l'execution de ce programme il me dit

Code:

---

me.cc

---

( il recupere bien une valeur par exemple toto qui est un champ de ma liste deroulante) mais pour

Code:

---

Me.cc.Column(1)

---

il me dit valeur = NULL ..

????

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Private Sub cc_Change()   Call Rt End Sub   Public Sub Rt()   Dim oRst As DAO.Recordset Dim oDb As DAO.database Set oDb = CurrentDb Set oRst = oDb.OpenRecordset("table", dbOpenTable)   Dim req As String Me.cc = Me.cc.Column(1) req = "INSERT INTO table (E,E1,E2) VALUES(Me.cc,Me.cc,Me.cc) " DoCmd.RunSQL req   'Libération des objets oRst.Close oDb.Close Set oRst = Nothing Set oDb = Nothing End Sub

---

merci de m'aider.

salut,
access ne connait pas d'objet Me
essaie plutôt avec :

Code:

---

1 2	req = "INSERT INTO table (E,E1,E2) VALUES(" & Me.cc & "," & Me.cc & ", " & Me.cc") " DoCmd.RunSQL req

---

attention au cas où les champs sont de type texte (nécessitent des quotes) ou de type date (format #MM/DD/YYYY#)

Re bonjour,

Je viens d'essayer ce que vous m'avez écrit donc je recupère bien la valeur par exemple toto dans ma requete :

Code:

---

1 2	VALUES( " & Me.cc& "," & Me.cc & ", " & Me.cc& " )"

---

Mais j'ai une erreur lorque je lance mon formulaire lors de la selection de ma liste deroulante il écrit :

Erreur D'execution 3075

Erreur de syntaxe(opérateur absent dans l'expression 'toto'.
lors de clique sur debogague il me renvoie sur la ligne suivante :

Code:

---

1 2	DoCmd.RunSQL req

---

Merci d'avance

quel est le contenu de la variable req lorsque tu l'exécutes stp ?

Mon contenu est :

Lors d'un passage sur

Code:

---

Me.cc

---

il m'affiche Toto sur chacun des paramètres puis sur le passage de

Code:

---

DoCmd.RunSQL req

---

j'ai l'affichage de la req.

Code:

---

1 2 3

req = "INSERT INTO table (E,E1,E2) VALUES(" & Me.cc & "," & Me.cc & ", " & Me.cc") " DoCmd.RunSQL req

---

je voulais préciser qu'en faite le programme fonctionne dans le sens ou il peut rajouter une ligne, à la première selection il dit qu'il va rajouter une ligne à ma table en cliquant sur oui (je rajoute) ou non, je clique sur oui. mais je n'ai rien dans table il rahoute bien une ligne d'enregistrements mais elle est vide.

je suis vraiment desespéré je ne trouve pas ...

par contre si je clique une deuxieme fois sur ma liste deroulante il m'affiche l'erreur d'execution detaillé au dessus sur les anciens posts.

si tu veux insérer "toto", donc une chaine de caractères, il faut ajouter les quote :

Code:

---

req = "INSERT INTO table (E,E1,E2) VALUES('" & Me.cc & "','" & Me.cc & "', '" & Me.cc & "') "

---

Bonjour,

Attention avec cette synthaxe

Code:

---

req = "INSERT INTO table (E,E1,E2) VALUES('" & Me.cc & "','" & Me.cc & "', '" & Me.cc & "') "

---

Il ne faut pas qu'il y ait d'accent dans Me.cc, sinon cela ne fonctionnera pas.

Avec la synthaxe qui suit cela fonctionne avec des accents

Code:

---

req = "INSERT INTO table (E,E1,E2) VALUES(""" & Me.cc & """,""" & Me.cc & """, """ & Me.cc & """)"

---