Bonjour membres du forum !
Voici la procédure qui me permet de d'ouvrir deux formulaires selon deux conditions "Oui" ou "Non" d'une boite à message:
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
24
25
 Sub Appel2Formulaires()
'On Error Resume Next
    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim rep As Integer
 
    stDocName = "Tbl_EleveServiceScolaire"
 
    rep = MsgBox("Voulez-vous avoir accès au formulaire des élèves [OUI]" & vbCrLf & _
    "oubien insérer des images d'élèves de: " & NomEtablissement(Me.ID_EcoleDeSuivi) & "_" & " [NON] ?", vbQuestion + vbYesNoCancel, "Option d'Ouverture du Formulaire")
    Select Case rep
        Case vbYes
 
            DoCmd.OpenForm stDocName
 
        Case vbNo
            stDocName = "Tbl_EleveSuivi_InsererPhoto"
 
            If IsNull(Me.ID_EcoleDeSuivi) Then Exit Sub
               stLinkCriteria = "[ID_EcoleDeSuivi]='" & Me.ID_EcoleDeSuivi & "'"
               DoCmd.OpenForm stDocName, , , stLinkCriteria
        Case vbCancel
    End Select
'DoCmd.Close acForm, "SCOLARISATION"
End Sub
.

Question: comment la convertir en macro ?

Cordialement.