1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
Private Sub Commande53_Click()
Dim stDocName As String
stDocName = Me.TypeForm.Column(1)
DoCmd.OpenForm stDocName, acNormal, , , acFormAdd, , "Ajout"
End Sub
Private Sub Commande60_Click()
Dim stDocName As String
stDocName = Me.TypeForm.Column(1)
DoCmd.OpenForm stDocName, acNormal, , , acFormReadOnly, , "Consultation"
Dim Ctl As Control
End Sub
Private Sub Commande70_Click()
Dim stDocName As String
stDocName = Me.TypeForm.Column(1)
DoCmd.OpenForm stDocName, acNormal, , , acFormEdit, , "Modification"
Dim Ctl As Control
End Sub |
Partager