1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Sub Tester()
Const OUI = True
Const NON = False
OuvrirEtatSelon "Formulaire01", "Etat01", NON
End Sub
Sub OuvrirEtatSelon(ByVal MonForm As String, ByVal EtatAOuvrir As String, ByVal Imprimer As Boolean)
Dim intReponse As Integer
If CurrentProject.AllForms(MonForm).IsLoaded = True Then
If CurrentProject.AllForms(MonForm).CurrentView <> 0 Then
DoCmd.OpenReport EtatAOuvrir, IIf(Imprimer, acViewNormal, acViewPreview), "", "", acNormal
End If
Else
intReponse = MsgBox("Le formulaire " & MonForm & " n'est pas ouvert..." & vbCrLf & vbCrLf & "Voulez-vous l'ouvrir ?", vbQuestion + vbYesNo, "Qu'est ce qu'on fait ?")
If intReponse = vbYes Then
DoCmd.OpenForm MonForm, acNormal, , , acFormEdit, acWindowNormal
Else
MsgBox "Bon, eh bien on ne fait rien alors...", , "Tanpis"
End If
End If
End Sub |
Partager