Discussion :

[maxime350]

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 :

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

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 :

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

[Invité]

Bonjour

Il faut sortir ta liste de ta chaine SQL.

Essayes

Code :

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

sql = "SELECT * FROM [Modèle V13] Where nclient =" &  Me.liste & ";"

Si ton nclient est de type texte essayes

Code :

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

sql = "SELECT * FROM [Modèle V13] Where nclient ='" &  Me.liste & "';"

Starec

[maxime350]

Merci starec,

s'agissant d'une zone de texte j'ai donc essayé avec ta 2ème solution, et cela fonctionne

par contre, et c'est embettant, lorsque un champ que je veux copier est vide dans la table, il me met une erreur:

Erreur d'exécution 94:
Utilisation incorrecte de Null

et je ne sais pas résoudre ce problème.
Merci de votre aide,

Maxime

[micniv]

lorsque un champ que je veux copier est vide dans la table, il me met une erreur:

alors il faut utiliser la fonction NZ(). voir l'aide

[maxime350]

merci Micniv,

effectivement en consultant l'aide c'est cela que je dois utiliser.
par contre comment l'insérer dans ma syntaxe?

Code :

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

Client_Activite = rs("activite").Value

Merci,
Maxime

[micniv]

Simplement comme ceci :

Code :

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

Client_Activite = NZ(rs("activite").Value)

[maxime350]

merci,

c'est parfaitement ce que je souhaitais

Problème résolu