Double critère sous VBA

Fermé
Utilisateur anonyme - 23 mai 2005 à 13:32
 Utilisateur anonyme - 24 mai 2005 à 11:26
Bonjour,
Je voudrais savoir comment faire pour ouvrir un formulaire répondant à deux critères.
Voici mon code:

Private Sub Valider_Click()
On Error GoTo Err_Valider_Click

Dim stDocName As String
Dim stLinkCriteria As String
Dim stLinkCriteria1 As String

stDocName = "TEMPS_OF"

stLinkCriteria = "[OFDA]=" & "'" & Me![Texte6] & "'"
stLinkCriteria1 = "[SEQUENCE]=" & "'" & Me![Texte12] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, "NUM_OF", acSaveYes
Exit Sub

Exit_Valider_Click:
Exit Sub

Err_Valider_Click:
MsgBox Err.Description
Resume Exit_Valider_Click

End Sub

Je voudrais que la commande OpenForm réponde aux deux conditions (stLinkCriteria et stLinkCriteria1 ).
Merci par avance
A voir également:

3 réponses

zenon Messages postés 726 Date d'inscription jeudi 30 septembre 2004 Statut Membre Dernière intervention 13 février 2010 180
23 mai 2005 à 18:57
Pourquoi ne combines-tu pas simplement les critères dans l'expression WHERE de l'instruction OpenForm:

DoCmd.OpenForm "stDocName", , ,"[OFDA]= Me![Texte6] AND [SEQUENCE] = Me![Texte12] "

Par ailleurs, je ne pense pas que ta séquence de " ' "& ... soit correcte, mais bon...
0
mobile75 Messages postés 69 Date d'inscription lundi 3 novembre 2003 Statut Membre Dernière intervention 23 septembre 2008 17
24 mai 2005 à 11:18
bonjour,
Tout a fait d'accord avec ce que propose Xenon
Mais ce que je ferais avant d'ouvrir le forms c'est de m'assurer qu'il ya bien des données pour ces criteres ( ce qui eviterait d'avoir un forms vide )
du style
cpt=dcount(champ,table, criteres )
if cpt <>0
ouvrir le form avec les criteres
end if


0
Utilisateur anonyme
24 mai 2005 à 11:26
OK merci à tous de m'avoir répondu
J'ai effectivement réussi (mais en créant une requête....)
0