Arhiviranje podataka iz tabela

Odgovori Nova tema

3 odgovora
2.737 pregleda

Arhiviranje podataka iz tabela 01.12.2009. u 19:16 · pre 205 meseci #1

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.

Potpis

Nemam pojma šta da stavim u potpis!

Re: Arhiviranje podataka iz tabela 01.12.2009. u 21:58 · pre 205 meseci #2

Mozda ovako
ili ovako

mita-da-ne.rar13.72k mita-da-ne-2.rar9.97k

Re: Arhiviranje podataka iz tabela 02.12.2009. u 06:34 · pre 205 meseci #3

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.

Potpis

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

Re: Arhiviranje podataka iz tabela 08.12.2009. u 14:31 · pre 205 meseci #4

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

Potpis

Nemam pojma šta da stavim u potpis!

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme