OK Simke, evo ovako sam uradio:
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
Ovo sam stavio na sliku hrama na formi "Main Switchboard" i to radi.
Sada bih hteo upozorenje pre brisanja sa izborom "OK" ili "Cancel", i shodno tome poruku na kraju, znaci "Podaci izbrisani" ili "Brisanje otkazano".
Slicnu stvar sam napravio za brisanje rekorda (pomocu "Beforde Del_Confirm" i "After Del_Confirm"):
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
i to radi, ali nikako da to primenim i u ovom slucaju. Valjda se ovaj "DblClick" odnosi na SQL naredbu, a ne na brisanje rekorda, pa zato ne moze.
Pitanje: Kako MOZE?
Potpis
Boban (otac šestoro dece).