Comment convertir une procédure VBA Access en macro ?

Version imprimable

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:

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.

21/01/2019, 13h45
Invité

Bonjour,

Je ne penses pas qu'il existe de module pour cela, l'inverse oui, mais pas de VBA vers Macro.

Quel est l'intérêt ?

Philippe
23/01/2019, 18h30
morobaboumar

Citation:

Envoyé par Philippe JOCHMANS

Quel est l'intérêt ?
Philippe

Bonsoir !
Compte tenu du fait que les macros permettent d'exécuter plusieurs actions en même temps, je souhaiterais, avec une seule commande afficher soit le premier formulaire après clique sur le "oui" de la boîte de messages, oubien sur le "non" de cette même boîte de messages pour afficher l'autre formulaire; un seul formulaire doit être affiché.
Cordialement.
23/01/2019, 18h37
Invité

Re

Tu peux aussi en VBA en lançant un ensemble de routines (sub) par un clique sur un bouton.

Philippe

1 pièce(s) jointe(s)

Citation:

Envoyé par Philippe JOCHMANS

Re
Tu peux aussi en VBA en lançant un ensemble de routines (sub) par un clique sur un bouton.
Philippe

Salut !
Effectivement, j'ai pu le faire.

Code:

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 String
 
    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

Appel:

Code:

1
2
3
Private Sub Commande47_Click()
Appel2Formulaires
End Sub

Pièce jointe 443879

Je souhaiterais l'appliquer dans une macro.

Cordialement.

15/02/2019, 16h23
morobaboumar

1 pièce(s) jointe(s)

Adapter ma fonction à une commande macro.

Salut membres du forum !
Sachant qu'on peut convertir une macro en fonction VBA Access mais pas le contraire.
Aidez-moi à adapter la fonction ci dessus à une commande macro de Microsoft Access 2013.
-Pièce jointe: Suivi_Evolution_Scolaire

Cordialement.
15/02/2019, 16h41
Jean-Philippe André

Bonjour,

tu peux toujours passer par ton code VBA et dans ta macro faire ton appel au code, avec ExecuterCode...

1 pièce(s) jointe(s)

Bonsoir !
J'ai modifié la Sub en Function afin que l'exécution soit effective:

Code:

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
 Function Appel2Formulaires()
On Error Resume Next
    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim rep As String
 
    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 Function

Pièce jointe 450464

Merci infiniment.
Cordialement.