[VBA]Type incompatible

Résolu
nanoufontaine Messages postés 5 Statut Membre - 29 nov. 2005 à 16:45
blux Messages postés 27807 Statut Modérateur -
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

5 réponses

Réponse 1 / 5
enzito Messages postés 52 Statut Membre 13
29 nov. 2005 à 17:32
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.
1
INFOBOY
1 avril 2009 à 15:16
bonjour, Merci Beaucoup Mr enzito je chercher cette astuce depuis deux jour et maintenant je lé trouver dans votre reponse merci b1 Mr enzito j'aime b1 si vous ajouté mon email chez vs for_blue@hotmail.fr
0
Réponse 2 / 5
Gardzfield
24 juil. 2006 à 14:47
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)
1
Kikou
1 sept. 2010 à 19:07
Vous avez également résolu mon problème merci.
0
Réponse 3 / 5
Lupin
29 nov. 2005 à 17:32
Slt,

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

Lupin
0
Réponse 4 / 5
nanoufontaine Messages postés 5 Statut Membre
30 nov. 2005 à 09:01
Le numecole n'est pas de type numérique mais est bien de type alphanumérique.

Merci
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
blux Messages postés 27807 Statut Modérateur
30 nov. 2005 à 13:55
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...
0
nanoufontaine Messages postés 5 Statut Membre
30 nov. 2005 à 14:07
Slt,

J'ai access 2000 et je suis sous xp.
Sinon en référence, j'ai DAO 2.5/3.5

Merci encore
0
blux Messages postés 27807 Statut Modérateur
30 nov. 2005 à 14:15
Et il n'est pas en référence manquante (la case est bien cochée) ?

As-tu fait le test en variant ? résultat ?
0
nanoufontaine Messages postés 5 Statut Membre > blux Messages postés 27807 Statut Modérateur
30 nov. 2005 à 14:22
en variant ça marche !!

Merci beaucoup

Pkoi la référence ne marche pas, mystère !!!!

Encore merci
0
blux Messages postés 27807 Statut Modérateur > blux Messages postés 27807 Statut Modérateur
30 nov. 2005 à 14:30
Peut-être une version de DAO trop ancienne ?

J'ai 3.6 en ACCESS 2002 sous XP...
0
floyd72
13 janv. 2015 à 15:10
Pourquoi rsecole("nomecole") et where numecole =.... ?
0

Discussions similaires

Type d'argument ByRef incompatible
Robix -
yg_be -

Bonjour,

Une nouvelle question à l'intention de la communauté...
Voici le problème :
Celui-ci se divise en deux parties:

[1] Une première partie constituée d'un module dans laquelle j'ai créé une fonction spécifique :
Function Cam_2_Contacts(A0 As Double, A1 As Double, A2 As Double, levee_max As Double, l As String, t2 As Double, t3 As Double, t4 As Double, t5 As Double, t6 As Double, t7 As Double, t8 As Double)
Celle-ci devant retourner un ensemble de valeur sur une page excel.

[2] Une deuxième partie constituée d'un Userform dans lequel je rentre les valeurs souhaitées pour faire tourner ma fonction (A0,A1,....). P...

6 réponses
MyCanal problème cast "fetch hapi code"
Dodo -
Versailles -

Bonjour,
Quand je veux caster un contenu depuis my canal ça ne passe pas. Ça m’affiche le message suivant « Type fetch hapi code : 100 message : désolé, ce contenu n’est plus disponible ».

Quand je caste depuis Disney + ça charge et ensuite me met l’écran de veille de mon chromecast.
Tandis que quand j’utilise YouTube, netflix et Amazon prime ca caste sans problème

  Configuration: iPhone / Safari 14.1.1

4 réponses
XPress incompatible
Jeff -
contrariness -

Bonjour, "XPress Preferences" is incompatible with this version of Quark XPress (86).
Je modifie le fichier sittings comme expliqué sur les réseaux je lance Xpress et OK ça fonctionne, je ferme l'application. Maintenant je relance XPress et de nouveau ""XPress Preferences" is incompatible with this version of Quark XPress (86). UNE SOLUTION ??? Merci




1 réponse
Type d'argument ByRef incompatible
Inspiralex -
Inspiralex -

Bonjour,

j'ai un message d'erreur à l'exécution de mon code mais je ne comprends pas pourquoi. Est-ce que quelqu'un a une idée pour résoudre ce problème ?

Merci d'avance.

Voici l'erreur que j'ai à l'exécution de mon code :
"Erreur de compilation:
Type d'argument ByRef incompatible"

Et voici mon code qui est assez simple :

Option Explicit

Type RF
site As String
tranche As String
End Type

Type Action
equipement As RF
position As String
End Type

Sub Export(ByRef config As Action)
'Ecrit dans le fichier txt
Dim chemin As String
Dim lign...

2 réponses
Python introuvable
DeepMaze -
mamiemando -

Bonjour,

Je suis débutant dans le domaine de la programmation et j'essaye de m’entraîner en utilisant visual studio code. J'ai écrit quelques ligne de programme pour voir si ça marchait après avoir installé l'extension python. J'ai lu qu'il me fallait aussi l'extension code runner pour que mon programme fonctionne, et après l'avoir installé le terminal m'affiche "python est introuvable", alors que ça fonctionnait avant d'installer code runner.

Si quelqu'un pouvait m'aider, ce serait génial !



Merci d'avance

3 réponses