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
| Sub cmdSupp_Click()
On Error GoTo Supp_Err
Dim connec As New helicopter.Connection
Dim rs As New helicopter.Recordset
Dim reqSQL1 As String
Set connec = CurrentProject.Connection
reqSQL1 = "SQL"
rs.Open reqSQL1, connec, adOpenDynamic, adLockOptimistic
Dim msg As Integer, SQL As String
msg = MsgBox("Souhaitez-vous supprimer l'enregistrement ?", vbYesNo)
If (msg = vbYes) Then
SQL = "DELETE HELICOPTER.Aircraft_Register, HELICOPTER.Helicopter_Model, HELICOPTER.SN, HELICOPTER.Registration_History, HELICOPTER.Flotation_Status, HELICOPTER.Helicopter_Family, HELICOPTER.Country_Helicopter, HELICOPTER.Last_Update_Date, HELICOPTER.Last_Update_Person, HELICOPTER.Photo, HELICOPTER.Float_Manufacturer, [HELI OPERA].Operator_Name FROM HELICOPTER INNER JOIN [HELI OPERA] ON HELICOPTER.Aircraft_Register = [HELI OPERA].Aircraft_Register WHERE HELICOPTER.Aircraft_Register = Me.Aircraft_Register ;"
DoCmd.RunSQL SQL
End If
Supp_Exit:
Exit Sub
Supp_Err:
MsgBox Err.Description
Resume Supp_Exit
End Sub |
Partager