qu est ce que ca veut dire ca svp ?
"the application requested an operation on an object with a reference to a closed or invalid Connection object"
c est contenu dans
Public Const Fournisseur = "Microsoft.Jet.OLEDB.3.51 "
Public Maconnexion As Connection
Public Sub Connexion()
Set Maconnexion = New Connection
Maconnexion.Provider = Fournisseur
Maconnexion.Open App.Path & "\dvd.mdb "
End Sub
MERCI
Private Sub RadTitre_Click()
Dim reponse As String
reponse = InputBox("Saisir le titre du DVD recherché", "recherche" )
Dim rsTitre As Recordset
Set rsTitre = New Recordset
rsTitre.ActiveConnection = Maconnexion
rsTitre.Open "select NumDVD, Titre from DVD where NumDVD = '" & reponse & "';"
Do While rsTitre.EOF = False
List3.AddItem rsTitre.Fields("Titre" )
rsTitre.MoveNext
Loop
End Sub