problème de paramètres

[myriame]

Bonjour,

Dans l'un de mes formulaires j'ai mis un bouton valider qui engendre un code.
Le code que j'ai écris me permet d'ajouter ou de modifier un enregistrement .
Voici le code

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Private Sub Commande90_Click()
Dim db As Database
Dim rs As Recordset
Dim rs1 As Recordset
Dim sql As String
Set db = CurrentDb
'vérification que les informations ont bien  été saisies
If IsNull(Forms!clients!Num_cli) = True Then
MsgBox ("Vous n'avez pas saisi d'informations")
Else
Set rs = db.OpenRecordset("clients")
sql = "select*from clients where Num_cli=" & Forms!clients!Num_cli & ""
Set rs1 = db.OpenRecordset(sql)
'1er cas : modification
If rs1.EOF = False Then
rs.Edit
rs!cli_NOM = Forms!clients!Nom_Cli
rs!Nom_Dir = Forms!clients!Nom_Dir
rs!Nom_mag = Forms!clients!nommag
rs!Nom_four = Forms!clients!Nom_CDC
rs.Update
MsgBox ("Modification réalisée")
DoCmd.Close
rs1.Close
Else
'2ième cas : ajouter
If rs1.EOF = True Then
rs.AddNew
rs!NUM_cli = Forms!clients!Num_cli
rs!cli_NOM = Forms!clients!Nom_Cli
rs!Nom_mag = Forms!clients!Nom_mag
rs!Nom_Dir = Forms!clients!Nom_Dir
rs.Update
rs.Close
MsgBox ("Le client a bien été ajouté.")
End If
DoCmd.Close
End If
End If
End Sub

Cependant quand j'execute le code access me dis :
Trop peu de paramètres. 1 attendu

je click sur débogage et on me surligne ne jaune :

Code :

 Set rs1 = db.OpenRecordset(sql)

Voilà je ne comprend pas!!!!!!!! Pouvez vous m'aider

[Maxence HUBICHE]

mets des espaces autour de l'étoile dan SELECT*FROM...

[myriame]

sa ne fonctionne toujours pas, access m'affiche toujours le même message ! :'(

[Maxence HUBICHE]

ok

Dans ce cas, plusieurs contrôles à faire.
1- est-ce que le champ Num_Cli existe bien dans la table ?
2- est-ce que Forms!clients!Num_cli est bien porteur de valeur ?

Normalment (sauf erreur de ma part), la réponse à l'une de ces deux questions est "non"

[Maxence HUBICHE]

pour t'aider...
entre ces deux lignes:

Code :

1
2
sql = "select*from clients where Num_cli=" & Forms!clients!Num_cli & ""
Set rs1 = db.OpenRecordset(sql)

ecris ceci :

Code :

Debug.Print sql

et regardes ce qui s'inscrit dans la fenêtre d'exécution (CTRL+G)

[myriame]

l'erreur de paramètre est parti, j'avis mis le mauvais champs de la table! Cependant j'ai toujours un probleme avec

Code :

 Set rs1 = db.OpenRecordset(sql)

acces me le souligne encore en jaune et le message d'erreur c'est : Type de données incompatible dans l'expression du critère.

[Maxence HUBICHE]

tu ne chercherais pas à mettre du texte dans un champ numérique des fois ?