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 26 27 28
| Private Sub F_Supp_vehicule_Click()
On Error GoTo Err_F_Supp_vehicule_Click
If (Forms![F_accident_consult]![F_accident_consult_véhicule]![F_accident_consult_usager]![Id_usager] <> "") And (Forms![F_accident_consult]![F_accident_consult_véhicule]![F_accident_consult_usager]![Id_usager] = Forms![F_accident_consult]![F_accident_consult_véhicule]![Id_véhicule]) Then
MsgBox "Attention, vous n'avez pas supprimé" & Chr(13) & "tous les usagers de ce véhicule"
Else
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "F_Supp_Véhicule"
stLinkCriteria = "[Id_véhicule]=" & "'" & Me![Id] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_F_Supp_vehicule_Click:
Exit Sub
Err_F_Supp_vehicule_Click:
MsgBox Err.Description
Resume Exit_F_Supp_vehicule_Click
End If
End Sub |
Partager