Demande d'aide pour correction de mon code Fermé

Question

Bonjour,
VBA Access 2007 
Mon code derrière le bouton ajouter est le suivant:


Private Sub Ajouter_Click()
Set BD = CurrentDb()
Set rs = BD.OpenRecordset("select * from Document ")

If IsNull(Me.Codoc.Value) Then
     MsgBox "le code du document doit être renseigné"
     Me.Codoc.SetFocus
     Else
            
                                    rs.AddNew
                                    rs!Codoc = Me.Codoc.Value
                                    rs.Update
                                    
                                    Me.Codoc.Value = Null
                                    Me.Codoc.SetFocus
                                    rs.Close
                                    BD.Close
                                    
      End If
End Sub

Malheureusement il ne marche pas et la flèche de correction est sur rs.Update
Merci pour votre aide.

lermite222 · Answer

Bonjour,
Je ne connais pas access mais une piste, tu doit assigner tes variables (dimentionner)
Dim rs AS ...
Dim BD AS ...
A+

Demande d'aide pour correction de mon code

1 réponse

Discussions similaires