Discussion :

[cedill23]

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 :

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

me.cc

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

Code :

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

Me.cc.Column(1)

il me dit valeur = NULL ..

????

Code :

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

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.

[Jean-Philippe André]

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

Code :

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

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

[cedill23]

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 :

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

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 :

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

1
2
 
DoCmd.RunSQL req

Merci d'avance

[Jean-Philippe André]

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

[cedill23]

Mon contenu est :

Lors d'un passage sur

Code :

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

Me.cc

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

Code :

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

DoCmd.RunSQL req

j'ai l'affichage de la req.

Code :

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

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

[cedill23]

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.

[Jean-Philippe André]

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

Code :

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

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

[Access Newbie]

Bonjour,

Attention avec cette synthaxe

Code :

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

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 :

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

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