Arhiviranje podataka iz tabela

[ Srbin do jaja @ 01.12.2009. 18:16 ] @

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.

[ mita.j @ 01.12.2009. 20:58 ] @

Mozda ovako
ili ovako

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

[ Getsbi @ 02.12.2009. 05:34 ] @

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.

[ Srbin do jaja @ 08.12.2009. 13:31 ] @

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]}