Bonjour
Voici le code tout simple que j'utilise ..
Private Sub Txt_codecole_LostFocus()
Dim bdenquete As Database
Dim reqecole As String
Dim rsecole As Recordset
Set bdenquete = DBEngine.Workspaces(0).OpenDatabase(App.Path & "/enquete.mdb")
reqecole = "select commune from ecoles where numecole = '" & txt_codecole.Text & "' "
Set rsecole = bdenquete.OpenRecordset(reqecole, dbOpenSnapshot)
rsecole.MoveFirst
Lb_Nomecole.Caption = rsecole("nomecole")
Lb_Commune.Caption = rsecole("commune")
End Sub
A l'exécution il me met le message d'erreru :
erreur d'exécution 13'
Type incompatible
Il s'arrête sur set rsecole=bdenquete.dbopenrecordset(reqecole,dbopendynaset)
J'ai besoin d'aide !!
Aidez-moi
Merci
