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
