[VBA]Type incompatible
Résolu
nanoufontaine
Messages postés
5
Statut
Membre
-
blux Messages postés 5032 Date d'inscription Statut Modérateur Dernière intervention -
blux Messages postés 5032 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour
Voici le code tout simple que j'utilise ..
A l'exécution il me met le message d'erreru :
erreur d'exécution 13'
Type incompatible
Il s'arrête sur
J'ai besoin d'aide !!
Aidez-moi
Merci
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
5 réponses
-
Sauf erreur dans ta BD numecole est de type numérique?!
Il me semble que tu peux supprimer les guillemet autour du num. de ecole, ce qui donne :
reqecole = "select commune from ecoles where numecole = " & txt_codecole.Text
Suis pas certain, mes dernières lignes en VB ou VBA datent d'il ya 5 ans environ... mais c'est dans cette voie. -
C'est bien un problème de référence,
j'ai résolu le problème en prenant la ref :
Microsoft ActiveX Data Objects 2.8 Library
(j'utilisai la 2.1) -
Slt,
reqecole = "Select commune from [ecoles] where [numecole] = " & """" & txt_codecole.Text & """"
Lupin -
Le numecole n'est pas de type numérique mais est bien de type alphanumérique.
Merci -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Salut,
quelle version d'access ? XP ?
C'est sans doute dû à une référence non validée pour le code, genre DAO x.xx... (dans le menu outils/référence, de la fenêtre de code)
Pour en être sûr :
déclarer la variable rsecole en variant (Dim rsecole) et relancer...
