[es] - Arhiviranje podataka iz tabela

Srbin do jaja

Član broj: 219428
Poruke: 80
*.ptt.rs.

+2 Profil

^{01.12.2009. u 18:16 - pre 175 meseci}

zelim preko makroa da arhiviram podatke iz jedne u drugu tabelu.
napravio sam append i delete query i ubacio u makro. kad se pokrene makro prvo ide append pa onda delete. e sad kako da napisem condition da kad pokrenem makro i na append query kliknem "No" da prekine ceo makro.
a ako kliknem "yes" da pokrene delete query al da ne izadje onaj message box gde me obavestava o brisanju.

Nemam pojma šta da stavim u potpis!

Odgovor na temu

mita.j
Mita Jovanović
zidar
Požarevac

Član broj: 236159
Poruke: 28
*.evizo.net.

Profil

Re: Arhiviranje podataka iz tabela

^{01.12.2009. u 20:58 - pre 175 meseci}

Mozda ovako
ili ovako

_{[Ovu poruku je menjao mita.j dana 01.12.2009. u 23:16 GMT+1]}

Prikačeni fajlovi

mita-da-ne.rar - 13.72k

mita-da-ne-2.rar - 9.97k

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831

+45 Profil

Re: Arhiviranje podataka iz tabela

^{02.12.2009. u 05:34 - pre 175 meseci}

Makroi u Access-u 2000-2003 postoje radi očuvanja kontinuiteta sa ranijim verzijama Acccess-a. Iza njih se u stvari krije programski kod. Možeš da napišeš VBA proceduru u kojoj ćeš izvršavati Append i Delete query-je naredbom:
CurrentDb().Execute "NazivAkcionogQuery-ja"
U proceduri pišeš i strukturu odluke sa MsgBox-ovima, uz postavljanje opcije na pošetku: DoCmd.SetWarnings False. Na kraju procedure ponovo uključiš Access poruke sa DoCmd.SetWarnings True. VBA procedure su zahvalnije zbog preglednosti i mogućnosti presretanja grešaka. Ovim nikako ne želim da umanjim Mitino rešenje.

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Odgovor na temu

Srbin do jaja

Član broj: 219428
Poruke: 80
*.ptt.rs.

+2 Profil

Re: Arhiviranje podataka iz tabela

^{08.12.2009. u 13:31 - pre 175 meseci}

hvala na odgovorima. izvinjavam se, nisam stigao da se javim ranije.

ne znam da pisem vba kod, iz tog razloga pribegavam makroima. cini mi se da makro mogu da se kovertuju u vba kod.

Update:
uspeo sam da napisem vba kod. on glasi ovako:

Code:
DoCmd.SetWarnings False
    Dim Msg, Style, Title, Response
    Msg = "Želite li da arhivirate podatke?"
    Style = vbYesNo + vbQuestion + vbDefaultButton2
    Title = "Arhiviranje"    ' Define title.
    Response = MsgBox(Msg, Style, Title)

    If Response = vbYes Then
        CurrentDb().Execute "append"
        CurrentDb().Execute "delete"

        MsgBox "Arhiviranje uspešno zavrešeno."
    Else
        DoCmd.CancelEvent
        MsgBox "Arhiviranje je otkazano!"
    End If

    DoCmd.SetWarnings True

_{[Ovu poruku je menjao Srbin do jaja dana 08.12.2009. u 17:02 GMT+1]}

Nemam pojma šta da stavim u potpis!

Odgovor na temu