[es] - Brisanje tabela sa potvrdom

bobiris
Slobodan Blagojevic
Čuvanje dece (četvoro malih) kod
kuće.
Sabac

Član broj: 2956
Poruke: 181
213.244.208.*

Profil

Brisanje tabela sa potvrdom

^{05.03.2005. u 22:50 - pre 232 meseci}

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?

Boban (otac šestoro dece).

Odgovor na temu

vbraca
Bratislav Velickovic
Administrator informacionih sistema
Kragujevac

Član broj: 4956
Poruke: 230
*.vdial.verat.net.

Sajt: velickovic.net

Profil

Re: Brisanje tabela sa potvrdom

^{06.03.2005. u 21:45 - pre 232 meseci}

Upotrebi MsgBox() za potvrdu i CASE za ne/brisanje

Bratislav Velickovic
hhtp://blog.velickovic.net

Odgovor na temu

bobiris
Slobodan Blagojevic
Čuvanje dece (četvoro malih) kod
kuće.
Sabac

Član broj: 2956
Poruke: 181
213.244.208.*

Profil

Re: Brisanje tabela sa potvrdom

^{07.03.2005. u 09:44 - pre 232 meseci}

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...

Boban (otac šestoro dece).

Odgovor na temu

vbraca
Bratislav Velickovic
Administrator informacionih sistema
Kragujevac

Član broj: 4956
Poruke: 230
*.kg.sbb.co.yu.

Sajt: velickovic.net

Profil

Re: Brisanje tabela sa potvrdom

^{07.03.2005. u 10:07 - pre 232 meseci}

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 ?

Bratislav Velickovic
hhtp://blog.velickovic.net

Odgovor na temu

bobiris
Slobodan Blagojevic
Čuvanje dece (četvoro malih) kod
kuće.
Sabac

Član broj: 2956
Poruke: 181
213.244.208.*

Profil

Re: Brisanje tabela sa potvrdom

^{07.03.2005. u 18:30 - pre 232 meseci}

Da, da, da, "response"!

Sve je OK! Hvala!

Boban (otac šestoro dece).

Odgovor na temu

vbraca
Bratislav Velickovic
Administrator informacionih sistema
Kragujevac

Član broj: 4956
Poruke: 230
*.vdial.verat.net.

Sajt: velickovic.net

Profil

Re: Brisanje tabela sa potvrdom

^{07.03.2005. u 22:54 - pre 232 meseci}

Tako to biva kad "grešni" programeri rade u duhovnoj sferi !

Bratislav Velickovic
hhtp://blog.velickovic.net

Odgovor na temu

bobiris
Slobodan Blagojevic
Čuvanje dece (četvoro malih) kod
kuće.
Sabac

Član broj: 2956
Poruke: 181
213.244.208.*

Profil

Re: Brisanje tabela sa potvrdom

^{09.03.2005. u 11:16 - pre 232 meseci}

Nisam razumeo poruku? Zasto "gresni"?

Boban (otac šestoro dece).

Odgovor na temu

vbraca
Bratislav Velickovic
Administrator informacionih sistema
Kragujevac

Član broj: 4956
Poruke: 230
*.kg.sbb.co.yu.

Sajt: velickovic.net

Profil

Re: Brisanje tabela sa potvrdom

^{09.03.2005. u 11:59 - pre 232 meseci}

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" ...

Bratislav Velickovic
hhtp://blog.velickovic.net

Odgovor na temu

bobiris
Slobodan Blagojevic
Čuvanje dece (četvoro malih) kod
kuće.
Sabac

Član broj: 2956
Poruke: 181
213.244.208.*

Profil

Re: Brisanje tabela sa potvrdom

^{09.03.2005. u 13:44 - pre 232 meseci}

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!

Boban (otac šestoro dece).

Odgovor na temu

vbraca
Bratislav Velickovic
Administrator informacionih sistema
Kragujevac

Član broj: 4956
Poruke: 230
*.kg.sbb.co.yu.

Sajt: velickovic.net

Profil

Re: Brisanje tabela sa potvrdom

^{09.03.2005. u 14:06 - pre 232 meseci}

E kad smo kod dece onda menjaj ili potpis ili Profil !

Bratislav Velickovic
hhtp://blog.velickovic.net

Odgovor na temu