Tester l’ouverture d’un formulaire à l’aide de la propriété OpenArgs 

wpe2.gif (1107 octets)exemple.mdb

Créer deux formulaires FrmTest1 et FrmTest2

Private Sub Form_Open(Cancel As Integer)
Select Case Me.OpenArgs
Case "BOUTON 1"
MsgBox "Vous avez appuyé sur le premier bouton"
Case "BOUTON 2"
MsgBox "Vous avez appuyé sur le deuxième bouton"
Case Else
MsgBox "Autre méthode d'ouverture"
End Select
End Sub