1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Private Sub Étiquette111_Click()
Dim RéponseObjection As Integer
RéponseObjection = MsgBox("BLABLA", vbYesNo)
Select Case RéponseObjection
Case vbYes
Case vbNo
MsgBox (" bliblibli", vbYesNo)
Case vbYes
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "F_RdvTéléphonique"
stLinkCriteria = "[N°Prospect]=" & Me![NumProspect]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Case vbNo
MsgBox ("a que coucou", vbYesNo)
Case vbYes
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "F_RdvTéléphonique"
stLinkCriteria = "[N°Prospect]=" & Me![NumProspect]
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Select
End Sub |
Partager