DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub cmdDelete_Click()
On Error GoTo Err_cmdDelete_Click
Dim stDocName As String
stDocName = "SilmeSorgusuAdı"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_cmdDelete_Click:
Exit Sub
Err_cmdDelete_Click:
MsgBox Err.Description
Resume Exit_cmdDelete_Click
End Sub
DoCmd.RunSQL "delete * from [tablo adı] where [sebze]='elma'"