1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Private Sub ouvrir_formulaire_parc_machine_mode_modification_Click()
On Error GoTo Err_ouvrir_formulaire_parc_machine_mode_modification_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Parc Machine : mode modification"
stLinkCriteria = "[PMIndex]=" & Me![PMIndex]
DoCmd.OpenForm stDocName, , , stLinkCriteria
MsgBox "ATTENTION : vous passez en mode modification !"
Exit_ouvrir_formulaire_parc_machine_mode_modification_Click:
Exit Sub
Err_ouvrir_formulaire_parc_machine_mode_modification_Click:
MsgBox Err.Description
Resume Exit_ouvrir_formulaire_parc_machine_mode_modification_Click
End Sub |
Partager