Bonjour,
 
Svp j'ai besoin de votre aide, pour une application VB6 de gestion de maintenance rien que le titre me fait peur ,
 
j'ai deja créer ma bd  
 
mnt j'essaie d'y accéder , voila mn code par exmple pour l'ajout d'un site qui q 2 champs code et libellé
 
 
Private Sub CmdAdd_Click()
If cod_a.Text = "" Then
MsgBox "Veuillez introduire le code de l'armoire", 16, "Gestion de la bibliothèque"
cod_a.SetFocus
Exit Sub
End If
 
If lb_a.Text = "" Then
MsgBox "Veuillez introduire le libellé d'armoire", 16, "Gestion de la bibliothèque"
lb_a.SetFocus
Exit Sub
End If
 
rs.Index = "Primarykey"
rs.Seek "=", cod_a.Text
If rs.NoMatch Then
rs.AddNew
rs(0) = UCase(cod_a.Text)
rs(1) = UCase(lb_a.Text)
rs.Update
cod_a.Text = ""
lb_a.Text = ""
cod_a.SetFocus
Else
MsgBox "Armoire déja existant", 16, "Gestion de la bibliothèque"
cod_a.SetFocus
End If
End Sub
 
 
Private Sub Form_Load()
Set rs = db.OpenRecordset("Armoire", dbOpenTable)   "l'erreur est la "variable objet ou variable bloc with non definie""  C'est koi ce message !!!!!!!!!!!!!!!!!!!
 
End Sub
 
[img]C:\Documents and Settings\betty\Bureau\erreur[/img]
 
 
j'espére que que j'ai bien expliqué mon pb,  
 
merci bcp pour votre aide.
 
Bonne journée tt le monde

C'est bon je suis forte
 
il fallait ajouter
 
Set db = DAO.OpenDatabase(App.Path & "\AGM6.mdb" )
 
et ca marche au cas ou kelk'1 tombe sur le meme cas  
 
bon courage