Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Run-time error '13' : Type mismatch

Run-time error '13' : Type mismatch

1 réponse
Avatar
Didier MESENBOURG
Bonjour et bonne année.
J'ai créer une nouvelle base et dans un formulaire, j'ai mis une procédure
après MAJ sur une zone de liste modifiable :

Private Sub cobPoste_AfterUpdate()

Dim db As Database, rec As Recordset, str As String

str = "SELECT tblTypePoste.cptTypePoste, tblTypePoste.HeureDebutPoste,
tblTypePoste.HeureFinPoste, " & _
"tblTypePoste.HeureDebutPose, tblTypePoste.HeureFinPose " & _
"FROM tblTypePoste " & _
"WHERE tblTypePoste.cptTypePoste= " & Me.cobPoste

Set db = CurrentDb()
Set rec = db.OpenRecordset(str) <<<< la procédure bloque à ce niveau
avec le message d'erreur
"Run-time error '13' Type mismatch"

Y aurai t'il un problème de référence à cocher ou autre ?
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Bonsoir.

1ere solution à appliquer:
cocher la référence microsoft DAO 3.6 et la placer devant toute référence à
ADO.
modifier:
Dim db As DAO.Database, rec As DAO.Recordset, str As String
vérifier que cptTypePoste est numérique sinon modifier:
"WHERE tblTypePoste.cptTypePoste= '" & Me.cobPoste & "';"
y-a-t-il changement ?
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Didier MESENBOURG" a écrit dans le
message de news: %
Bonjour et bonne année.
J'ai créer une nouvelle base et dans un formulaire, j'ai mis une procédure
après MAJ sur une zone de liste modifiable :

Private Sub cobPoste_AfterUpdate()

Dim db As Database, rec As Recordset, str As String

str = "SELECT tblTypePoste.cptTypePoste, tblTypePoste.HeureDebutPoste,
tblTypePoste.HeureFinPoste, " & _
"tblTypePoste.HeureDebutPose, tblTypePoste.HeureFinPose " & _
"FROM tblTypePoste " & _
"WHERE tblTypePoste.cptTypePoste= " & Me.cobPoste

Set db = CurrentDb()
Set rec = db.OpenRecordset(str) <<<< la procédure bloque à ce niveau
avec le message d'erreur
"Run-time error '13' Type mismatch"

Y aurai t'il un problème de référence à cocher ou autre ?