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
Eric
re, Il faut que tu aies un champ dans la source (ta requête) de l'état qui contienne la concaténation de Recupcmbo & "|@|" & Ide. Soit LeChamp ce champ-là. Ta commande doit être : DoCmd.OpenReport "E_contrat", acViewPreview, , , ,"LeChamp='" & Recupcmbo & "|@|" & Ide & "'"
Re bonjour
J'ai reussi a resoudre le probleme de passage de parametre mais maintenant j'ai un autre probleme dans mon module
Code:
Dim Recupcmbo As String Dim Ide As Integer
Recupcmbo = Forms![F_impression]![cmbCC] Ide = Forms![F_impression]![lstaffichage]
Quand le code execute l'openreport Access me generer une erreur 3464 "Data type mismatch in criteria expression"
Or que pourtant recupcmbo et Ide recupere bien ce qu'il faut .
L'etat E_contrat est basé sur une requete qui regroupe les contrats et leur fournisseurs
Merci de m'aider
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
re,
Il faut que tu aies un champ dans la source (ta requête) de l'état qui
contienne la concaténation de Recupcmbo & "|@|" & Ide. Soit LeChamp ce
champ-là. Ta commande doit être :
DoCmd.OpenReport "E_contrat", acViewPreview, , , ,"LeChamp='" &
Recupcmbo & "|@|" & Ide & "'"
Re bonjour
J'ai reussi a resoudre le probleme de passage de parametre mais maintenant
j'ai un autre probleme dans mon module
Code:
Dim Recupcmbo As String
Dim Ide As Integer
Recupcmbo = Forms![F_impression]![cmbCC]
Ide = Forms![F_impression]![lstaffichage]
re, Il faut que tu aies un champ dans la source (ta requête) de l'état qui contienne la concaténation de Recupcmbo & "|@|" & Ide. Soit LeChamp ce champ-là. Ta commande doit être : DoCmd.OpenReport "E_contrat", acViewPreview, , , ,"LeChamp='" & Recupcmbo & "|@|" & Ide & "'"
Re bonjour
J'ai reussi a resoudre le probleme de passage de parametre mais maintenant j'ai un autre probleme dans mon module
Code:
Dim Recupcmbo As String Dim Ide As Integer
Recupcmbo = Forms![F_impression]![cmbCC] Ide = Forms![F_impression]![lstaffichage]