modifier et ajouter dans un meme code

[myriame]

Bonjour,

J'ai créée un bouton Valider dans mon formulaire CLIENT qui engendre un code VBA.
Le code VBA me permet de modifier ou ajouter un nouveau client. Je vous explique, si le numéro de clientqui est entré par l'utilisateur existe dans la table client alors on procède à une modification, si il n'existe pas alors on ajoute un nouveau client.
LE CODE EST LE SUIVANT

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
Private Sub Commande90_Click()
Dim db As Database
Dim rs As Recordset
Dim rs1 As Recordset
Dim sql As String
sql = "select * from client where Num_CLI =" & Forms!clients!Numcli & " ;"
'1er cas : modification
Set rs1 = db.OpenRecordset(sql)
If rs1.EOF = False Then
Set db = CurrentDb
Set rs = db.OpenRecordset("client")
rs.Edit
rs!CLI_NOM = Forms!clients!Nomcli
rs!FOU = Forms!clients!fou
rs!adresse = Forms!clients!add
rs!prenom = Forms!clients!prenom
rs.Update
MsgBox ("Modification réalisée")
DoCmd.Close
Else
'2ième cas : ajouter
If rs1.EOF = True Then
rs.AddNew
rs!NUM_CLI = Forms!clients!numcli
rs!CLI_NOM = Forms!clients!Nomcli
rs!FOU = Forms!clients!fou
rs!COd = Forms!clients!COd1
rs!adrese= Forms!clients!add
rs!prenom = Forms!clients!prenom
rs.Update
rs.Close
MsgBox ("Le client a bien été ajouté.")
End If
DoCmd.Close
End If
End Sub

Cependant access me dit : Variable objet ou variable de bloc with non définie!
Je ne sais pas se que sa signifie !!! :s
merci de bien vouloir m'aider!!

[Arkham46]

bjr,

pensez à préciser la ligne en erreur

à priori c'est la variable db qui n'est pas initialisée à la ligne 8
le "set db = currentdb" devrait se situer plus haut

sinon je pense qu'un seul recordset suffit pour l'édition et l'ajout
l'édition ne fonctionnera pas en l'état, le edit doit se faire sur le rs1 pour editer le bon client, sinon il éditera le premier trouvé (rs ne filtrant pas sur le num client)

[myriame]

En effet c'est bien à la ligne 8 qu'il y a une erreur mais après avoir replacer

Code :

Set db = CurrentDb

plus c'est-à-dire

Code :

1
2
3
4
5
6
7
Private Sub Commande90_Click()
Dim db As Database
Dim rs1 As Recordset
Dim sql As String
Set db = CurrentDb
'1er cas : modification
Set rs1 = db.OpenRecordset(sql)

sa ne fonctionne toujours pas !!
access continue a me dire variable objet ou variable de bloc with non défini! :s

[Arkham46]

au cas où il y ait à la fois ADO et DAO référencés :

Code :

1
2
3
 
Dim db As DAO.Database
Dim rs1 As DAO.Recordset

cela permet de préciser que tu travailles en DAO (les objets ont le même nom avec ADO mais fonctionnent différemment)

[myriame]

J'ai fait ce que vous m'avez dis, plus de problème de variable objet ou variable de bloc with non définie mais MAINTENANT erreur de paramètre ! ACCESS me dis Trop peu de paramètre. 1 attendu.
Lorsque je regarde mon code

Code :

Set rs1 = db.OpenRecordset(sql)

est souligné en jaune

[Arkham46]

Envoyé par myriame

J'ai fait ce que vous m'avez dis, plus de problème de variable objet ou variable de bloc with non définie mais MAINTENANT erreur de paramètre ! ACCESS me dis Trop peu de paramètre. 1 attendu.
Lorsque je regarde mon code

Code :

Set rs1 = db.OpenRecordset(sql)

est souligné en jaune

ça avance

il y a un soucis dans le sql; un mot qu'il ne comprend pas et qu'il prend pour un paramètre (ou alors client est une requête paramétrée?)

il faudrait voir ce qu'il y a dans la variable sql
cf ce tuto pour l'explication du debug.print :
http://cafeine.developpez.com/access...el/debugprint/

[myriame]

ma requête est la suivante

Code :

sql = "select* from clients where NUM_CLI = Forms!clients!NUMCLI"

[loufab]

Bonjour,
Non ta variable Sql ne contient pas ce que tu indiques.

Elle doit contenir :
select * from clients where NUM_CLI = ?;

Ou ? est normalement un entier (long).

Merci de regarder le tuto comme te l'indique pertinement Arkham46. Nous somme là pour donner des infos pas pour débogger à ta place.

Cordialement,