cs_prezz
Messages postés71Date d'inscriptionmardi 6 juillet 2004StatutMembreDernière intervention10 octobre 2008
-
15 juil. 2004 à 18:42
kantus05
Messages postés3Date d'inscriptionmardi 30 janvier 2007StatutMembreDernière intervention29 mars 2010
-
29 mars 2010 à 15:33
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.....
cs_prezz
Messages postés71Date d'inscriptionmardi 6 juillet 2004StatutMembreDernière intervention10 octobre 2008 15 juil. 2004 à 18:58
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#"));
cs_PhilippeE
Messages postés437Date d'inscriptionmercredi 18 décembre 2002StatutMembreDernière intervention10 août 20102 16 juil. 2004 à 10:21
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_PhilippeE
Messages postés437Date d'inscriptionmercredi 18 décembre 2002StatutMembreDernière intervention10 août 20102 16 juil. 2004 à 11:10
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)
makenzy84
Messages postés2Date d'inscriptionmercredi 2 août 2006StatutMembreDernière intervention 9 août 2006 10 août 2006 à 10:15
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
Messages postés3Date d'inscriptionmardi 30 janvier 2007StatutMembreDernière intervention29 mars 2010 29 mars 2010 à 15:33
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