Discussion :

[totojordi]

Bonjour, j'ai une erreur de syntaxe dans ce code, sa doit etre tout con mais je vois pas.


Code :

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
 
Private Sub lst_champ_AfterUpdate()
Dim strSQL As String
Dim strTable As String, strField As String
 
strTable = "[" & Me.lst_table & "]" ' recupère le nom de la table
strField = "[" & Me.lst_champ & "]" ' recupère le nom du champ
 
 
strSQL = "SELECT DISTINCTROW " & strTable & ".*"
strSQL = strSQL + " FROM " & strTable ;"  '<==  Dans cette ligne
 
Me.lst_champ.RowSource = Me.lst_table.Value
Me.lst_champ.Requery
End Sub

En fait j'essaye de faire un formulaire d'ajout de données (sans tutoriel pour une fois )

Le contexte :

Le but est que quand l'utilisateur à choisit le nom du champ, ce dernier s'affiche dans une zone de liste histoire de pouvoir visualiser les données de ce champ.

Voilà, merci !

[Jean-Philippe André]

bonjour,
il te manque effectivement un guillemet :

Code :

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

strSQL = strSQL + " FROM " & strTable & ";"  '<==  Dans cette ligne

[totojordi]

Ah bah ok merci, je me suis basé sur une autre requête SQl qui marche et bno c'était pas pareil, merci !