Discussion :

[fbourdon]

Bonjour à tous !

Dans un formulaire saisie factures je rentre le nom d'un client et je voudrais réafficher le formulaire en allant chercher le n° du client dans la table Clients.

L'exécution me donne "Erreur 3061 , trop peu de paramètres , 1 attendu..."

Voici le 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
16
17
 
Private Sub Nom_du_client_AfterUpdate()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String
 
Set db = CurrentDb
 
strSQL = "SELECT [Clients].[Id client] FROM [Clients] WHERE [Clients].[Nom]= Me![Nom du client]"
 
Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)
 
Me.IdClient = rst("Id client")
 
Me.Requery
 
End Sub

J'ai dû oublier quelque chose , mais quoi ?

Merci de votre aide !

Bien amicalement à tous ,

Fbourdon

[Marc_27]

Bonjour fbourdon,

Essaye

Code :

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

strSQL = "SELECT [Clients].[Id client] FROM [Clients] WHERE [Clients].[Nom]='" &  Me.[Nom du client] & "'"

En faisant reference au formulaire ouvert, le Me.[...] doit venir hors les ""

Une autre forme serait

Code :

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

strSQL = "SELECT [Clients].[Id client] FROM [Clients] WHERE [Clients].[Nom]='[Forms]![MonForm]![Nom du client]'"

[fbourdon]

Grand Merci Marc , ça marche !

La syntaxe n'est pas vraiment simple en SQL ...Enfin , on se fait à tout !

Bien amicalement !

Fbourdon