erreur 13 : que faire???

Question

alors toujours dans le meme registre prise de tete, revoiula une erreur bien sympa : l'erreur 13 
je m'explique : pour contourner tous les pbs de mise a jour de ma listbox j'ai créé une requete avec pour condition WHERE Champ1 = "#NUMERO#". Ensuite dans mon code VBA, j'utilise une procedure replace qui doit remplacer ce #NUMERO# par mon numéro de fiche. Tout se passe merveilleusement bien jusqu'a ce que j'arrive a vouloir executer ma requete et la erreur 13 incompatibilité de type.. Je ne comprends pas Numero est bien du numerique tout comme mon champ champ1.....

Scalpweb · Answer

Pourrais-tu mettre ton code ? Ou tu moins, une partie ?

Scalpweb · Answer

Pourrais-tu mettre ton code ? Ou tu moins, une partie ?

cs_prezz · Answer

Private Sub Form_Current()
 Dim sql As String, r As Recordset
    sql = CurrentDb.QueryDefs("Requête-essai").sql
    sql = replace(sql, """#NUMERO#""", Me.num_fiche)
    MsgBox (sql)
    
    Set r = CurrentDb.OpenRecordset(sql, dbOpenDynaset)
    On Error Resume Next
    On Error GoTo 0
End Sub

avec la requete
SELECT [Liste_Chapitres].[Libellé_Chapitre]
FROM (Liaison_synthese_audit_externe INNER JOIN Liste_Domaines ON [Liaison_synthese_audit_externe].[Domaine]=[Liste_Domaines].[Numéro_Domaine]) INNER JOIN Liste_Chapitres ON [Liste_Domaines].[Numéro_Domaine]=[Liste_Chapitres].[Numéro_Domaine]
WHERE ((([Liaison_synthese_audit_externe].[Numéro de fiche])="#NUMERO#"));

Arsena · Answer

Essaye ça

#" & NUMERO & "#

A+ et bonne prog
MD

cs_prezz · Answer

je le mets ou ca??
dans la requete ou dans mon code??

cs_PhilippeE · Answer

Tu as testé ce que valait Num_Fiche au moment de l'affectation ?
Ton erreur 13 intervient où ? dans la fonction Replace ? sur l'appel de Replace ? ailleur ?

cs_prezz · Answer

en fait je mets ma requete dans un msg box et j'obtiens parfaitement le bon trux et l'erreur 13 intervient au moment de l'openrecord

cs_PhilippeE · Answer

r est bien un recordset de type DAO ? (vérification dans Projet/Références si DAO et ADO cochés alors préfixe la déclaration de r : Dim r As DAO.Recordset)

_deadstar_ · Answer

la reponse n'&#233;tait pas pour moi mais merci ca m'a bien aid&#233;e 

piou ('<>')

makenzy84 · Answer

Moi aussi j'avais une application avec  presque un code pareil qui marche et le meme code dans une autre app. qui marche pas!!!!
en essayant le truc du DAO.Recordset elle marche.
C'etait koi son problème?????

kantus05 · Answer

salut Tous ,je suis membre du forum depuis longtemps et remerci tres sincerement tous ceux qui m'ont assisté de près ou de loin dans mes differents projets .merci
amicalement a vous

Erreur 13 : que faire???

11 réponses

Discussions similaires