[VBA]Type incompatible Résolu

Question

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

enzito · Answer

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.

Lupin · Answer

Slt,reqecole = "Select commune from [ecoles] where [numecole] = " &  """" &  txt_codecole.Text & """"Lupin

nanoufontaine · Answer

Le numecole n'est pas de type numérique mais est bien de type alphanumérique.Merci

blux · Answer

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...

Gardzfield · Answer

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)

[VBA]Type incompatible

5 réponses

Discussions similaires

Newsletters