Kod:
Private Sub Komut2_Click()
On Error GoTo Err_Komut2_Click
If MsgBox("Seçilen satır silinecektir. Emin misiniz?", _
vbYesNo) = vbYes Then
Cancel = True
DoCmd.RunSQL "Delete Tablo1.sno FROM Tablo1 WHERE (((Tablo1.sno)=[Formlar]![Form1]![Metin3]));", -1
End If
Me.Tablo1_alt_formu.Requery
Exit_Komut2_Click:
Exit Sub
Err_Komut2_Click:
MsgBox Err.Description
Resume Exit_Komut2_Click
End Sub