Remplir automatiquement plusieurs champs en fonction d'un critère
Bonjour à tous,
j'ai un petit problème.
dans ma base, lorsque l'utilisateur veut créer une offre, il a le choix entre:
- une offre avec un nouveau client, où il devra remplir toutes ses coordonnées
- une offre d'un client déjà présent dans la base, auquel cas sur le choix du client toutes ses coordonnées seront pré-remplies dans l'offre.
C'est la 2ème solution qui pose problème. Pour réaliser cette procédure j'ai choisi de déclarer mes variables dans des fonctions sous la forme:
Code:
1
2
3
| Option Compare Database
Public Client_Activite As String |
Ici il s'agit de l'activité du client.
Il y a autant de fonctions que de critères communs (adresse, ville, cp, téléphone...)
Sur mon formulaire où l'utilisateur choisi le client déjà existant j'ai donc sur l'événement clic rentré ce code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Private Sub Commande2_Click()
Me.Requery
Dim sql As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM [Modèle V13] Where nclient = Me.liste ;"
Set rs = CurrentDb.OpenRecordset(sql)
Client_Activite = rs("activite").Value
Client_Adresse = rs("adresse").Value
Client_CP = rs("cp").Value
Client_Fax = rs("fax").Value
Client_Interlocuteur = rs("interlocuteur").Value
Client_Mail = rs("mail").Value
Client_Mobile = rs("mobile").Value
Client_Nom = rs("nclient").Value
Client_Siret = rs("siret").Value
Client_Telephone = rs("telephone").Value
Client_Ville = rs("ville").Value
DoCmd.OpenForm "créeroffre", acNormal
DoCmd.Close acForm, "choixclient"
End Sub |
Ma requête sql où la condition est le nom client (nclient) qui derrière identifie de manière unique le client.
Cependant, lors du clique sur le bouton voilà l'erreur affichée:
Erreur d'exécution '3061'
Trop peu de paramètres. 1 attendu.
J'en déduis donc qu'aucun paramètre n'est prit en compte, mais je ne vois pas mon erreur.
merci de votre aide,
Maxime
