Kod:
Private Sub Komut8_Click()
On Error GoTo Err_Komut25_Click
If MsgBox("Ekrandaki tüm bilgiler silinecek", vbYesNo, "Onaylıyor musunuz ?") = vbYes Then
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.RunSQL "DELETE Tablo2.Kimlik, Tablo2.[No] FROM Tablo2 WHERE (((Tablo2.[No])=[Forms]![Veri]![No]));"
Else
End If
Exit_Komut25_Click:
Exit Sub
Err_Komut25_Click:
MsgBox Err.Description
Resume Exit_Komut25_Click
End Sub