Brisanje tabela sa potvrdom

Code:


Private Sub Slika_DblClick(Cancel As Integer)
    
DoCmd.SetWarnings False
DoCmd.RunSQL "delete * from tblKrsteni"
DoCmd.RunSQL "delete * from tblUmrli"
DoCmd.RunSQL "delete * from tblVencani"
DoCmd.SetWarnings True

End Sub
 

Code:


Private Sub Form_BeforeDelConfirm(Cancel As Integer, _
        Response As Integer)
    ' Suppress default Delete Confirm dialog box.
    Response = acDataErrContinue
    ' Display custom dialog box.
    If MsgBox("BRIŠETE DATUM I SVE PRIHODE TOGA DANA?", vbOKCancel) = vbCancel Then
        Cancel = True
    End If
End Sub

Private Sub Form_AfterDelConfirm(Status As Integer)
    Select Case Status
        Case acDeleteOK
            MsgBox "DATUM I PRIHODI IZBRISANI"
        Case acDeleteCancel
            MsgBox "OTKAZALI STE BRISANJE."
        Case acDeleteUserCancel
            MsgBox "OTKAZALI STE BRISANJE"
    End Select
End Sub
 

Code:

Private Sub Slika_DblClick(Cancel As Integer)
    Dim response As Integer

DoCmd.SetWarnings False

response = msgBox("Da li te sigurni da želite da brišete (po)krštene ...", vbYesNo) 
SELECT CASE response
CASE 6 ' odgovor je Yes - brisanje
     DoCmd.RunSQL "delete * from tblKrsteni"
     response = 0
END CASE

response = msgBox("Da li te sigurni da želite da brišete (ne)umrle ...", vbYesNo) 
SELECT CASE response
CASE 6 ' odgovor je Yes - brisanje
     DoCmd.RunSQL "delete * from tblUmrli"
     response = 0
END CASE

response = msgBox("Da li te sigurni da želite da brišete (ne)venčane ...", vbYesNo) 
SELECT CASE response
CASE 6 ' odgovor je Yes - brisanje
     DoCmd.RunSQL "delete * from tblVencani"
END CASE
DoCmd.SetWarnings True

End Sub