[ bobiris @ 05.03.2005. 22:50 ] @
Treba da izbrisem neke tabele, a potrebna mi je i potvrda za to. 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?
[ vbraca @ 06.03.2005. 21:45 ] @
Upotrebi MsgBox() za potvrdu i CASE za ne/brisanje
[ bobiris @ 07.03.2005. 09:44 ] @
Pa pokusao sam, kao u datom kodu, ali to se odnosi na "BeforeDelConfirm" dogadjaj, a na "DoubleClick" to ne radi. Treba to nekako dopisati u kod sa SQL naredbama koji sam prilozio, a ja ne znam kako...
[ vbraca @ 07.03.2005. 10:07 ] @
nešto kao:


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


Jel' ti ovako nešto odgovara ?
[ bobiris @ 07.03.2005. 18:30 ] @
Da, da, da, "response"!

Sve je OK! Hvala!
[ vbraca @ 07.03.2005. 22:54 ] @
Tako to biva kad "grešni" programeri rade u duhovnoj sferi !
[ bobiris @ 09.03.2005. 11:16 ] @
Nisam razumeo poruku? Zasto "gresni"?
[ vbraca @ 09.03.2005. 11:59 ] @
Pa čini mi se da radiš aplikaciju za nekog sveštenika ili eparhiju, a programeri kao ljudi od nauke su po definiciji, jeli, "grešni" ...
[ bobiris @ 09.03.2005. 13:44 ] @
Da, da, da!

SVI ljudi su gresni, jer da nisu, bili bi istovetni sa Gospodom, a to je nemoguce.
Jeste, radim za jednu Crkvenu Opstinu, za mog prijatelja-svestenika.

Mislio sam da me nazivas "gresnim" zbog broja dece koju imam...

Pozdrav!
[ vbraca @ 09.03.2005. 14:06 ] @
E kad smo kod dece onda menjaj ili potpis ili Profil !