OVH Cloud OVH Cloud

2 filtres entre 2 formulaires ???

2 réponses
Avatar
Fred Pasc
Bonjour,

Je souhaite appliquer 2 filtres lors de l'ouverture d'un formulaire.
J'ai fait ça sur le bouton :
"
Dim stDocName As String
Dim stLinkCriteria As String
Dim stLinkCriteria2 As String

stDocName = "B4_Frm_PGL"
stLinkCriteria = "[OF]=" & "'" & Me![N°OF] & "'"
stLinkCriteria2 = "[N°Indiv] =" & "'" & Me![N°Indiv] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria And stLinkCriteria2
"

Il me prétends une incompatibilité de type que je ne comprends pas. J'ai
bien vérifié et les types des deux paramètres filtres sont de même type dans
les deux tables composants les deux formulaires.
Si quelqu'un puvait m'éclairer.

Merci d'avance
A+
Fred

2 réponses

Avatar
Eric
Bonjour

Esaies avec :
stLinkCriteria = "[OF]='" & Me![N°OF] & "' And [N°Indiv] ='" &
Me![N°Indiv] & "'"
Les champs sont donc de type Texte puisque tu les entoures de '
Si c'est pas le cas, vires les '

Je pense que ce qui n'est pas bon est : stLinkCriteria And stLinkCriteria2

Tu remplaces par :
DoCmd.OpenForm stDocName, , , stLinkCriteria

--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Bonjour,

Je souhaite appliquer 2 filtres lors de l'ouverture d'un formulaire.
J'ai fait ça sur le bouton :
"
Dim stDocName As String
Dim stLinkCriteria As String
Dim stLinkCriteria2 As String

stDocName = "B4_Frm_PGL"
stLinkCriteria = "[OF]=" & "'" & Me![N°OF] & "'"
stLinkCriteria2 = "[N°Indiv] =" & "'" & Me![N°Indiv] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria And stLinkCriteria2
"

Il me prétends une incompatibilité de type que je ne comprends pas. J'ai
bien vérifié et les types des deux paramètres filtres sont de même type dans
les deux tables composants les deux formulaires.
Si quelqu'un puvait m'éclairer.

Merci d'avance
A+
Fred





Avatar
Fred Pasc
Bonjour et merci beaucoup Eric,
Comme c'est agréable de revenir le ventre plein avec une réponse qui
fonctionne!
Merci encore
A+
Fred


"Eric" a écrit dans le message de news:

Bonjour

Esaies avec :
stLinkCriteria = "[OF]='" & Me![N°OF] & "' And [N°Indiv] ='" &
Me![N°Indiv] & "'"
Les champs sont donc de type Texte puisque tu les entoures de '
Si c'est pas le cas, vires les '

Je pense que ce qui n'est pas bon est : stLinkCriteria And stLinkCriteria2

Tu remplaces par :
DoCmd.OpenForm stDocName, , , stLinkCriteria

--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Bonjour,

Je souhaite appliquer 2 filtres lors de l'ouverture d'un formulaire.
J'ai fait ça sur le bouton :
"
Dim stDocName As String
Dim stLinkCriteria As String
Dim stLinkCriteria2 As String

stDocName = "B4_Frm_PGL"
stLinkCriteria = "[OF]=" & "'" & Me![N°OF] & "'"
stLinkCriteria2 = "[N°Indiv] =" & "'" & Me![N°Indiv] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria And stLinkCriteria2
"

Il me prétends une incompatibilité de type que je ne comprends pas. J'ai
bien vérifié et les types des deux paramètres filtres sont de même type
dans


les deux tables composants les deux formulaires.
Si quelqu'un puvait m'éclairer.

Merci d'avance
A+
Fred