Discussion :

[samlepiratepaddy]

Slt,
Je souhaite faire un jeu succéssif de msgbox avec différentes action sur Yes ou No
Voilà ce que j'ai fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Etc..
Bien sur ça marche comme ça
Mais dans l'esprit est-ce possible et comment on écrit l'instruction avec plusieurs arguments ou variables (je ne sais comment on dit )
Merci d'avance

[samlepiratepaddy]

J'ai résolu en partie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Mais msgbox s'ouvrent bien mais dans le cas d'une demande d'open form l'action open form ne s'effectue pas ?
Quelqu'un a une idée ?

[Tofalu]

Case vbYes
Case vbNo

Quel est l'intéret d'un select case si ce n'est pas pour exécuter du code derrière chaque possiblité.

Encore une fois, merci de consulter l'aide avant de poster et de consulter les tutoriels sur les bases du langage VB/VBA

Notamment les structures conditionnelles IF