Double critère sous VBA
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
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
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
3 réponses
-
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... -
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
-
OK merci à tous de m'avoir répondu
J'ai effectivement réussi (mais en créant une requête....)
