Opdatere etiket på formular hvert sekund

http://www.nyholm.dk/makeiteasy/Home.asp?ContentID=30&MenuItemID=25


prøv lige her det er thomasjepsen side så han skal nok have point for det

helt nede i bunden er der en status bar

tak for referencen juks - det er rart, at folk er begyndt at bruge mine eksempler :o)

Puppetmaster, du skal lige være opmærksom på, at det afhænger af hvad systeet laver imens. Hvis du f.eks. står og laver en tung opdateringsforespørgsel, så er systemet låst indtil forespørgseln er afsluttet. Dvs at al kode også bliver standset!

har allerede rippet hele siden :-)

juks: :)
thomas: Det drejer sig om overførslen af de 4 tabeller, som jeg omtalte tidligere i dag i et andet spørgsmål, men det tager ca. 15-20 sekunder at overføre, og når man har en del utålmodige brugere, må man hellere sikre sig as good as one can!

du kan jo også lave en formular og åbne den når du starter og sætte egenskaber til modul så kan intet køre før denne er lukket så tilsidst i koden lukker du formen

du kan lave en loop der sætter en .  ad gangen og når den når til fx 20 .'er starter den forfra og tømmer feltet

Juks har ret, så. Denne funktion ville kunne vise en processbar, som rykker sig mellem hver af de 4 forespørgsler:
http://www.makeiteasy.dk/eksempler/Statusbar.zip

Men ellers kan du jo bare lave din kode således:

docmd.Setwarnings false
Me!Etiket.caption = "Datatransfer in progress"
Me.repaint
docmd.Openquery "query 1"
Me!Etiket.caption = "Datatransfer in progress."
Me.repaint
docmd.Openquery "query 2"
Me!Etiket.caption = "Datatransfer in progress.."
Me.repaint
docmd.Openquery "query 3"
Me!Etiket.caption = "Datatransfer in progress..."
Me.repaint
docmd.Openquery "query 4"
Me!Etiket.caption = "Datatransfer complete"
Docmd.Setwarnings true

Eksemplet fra din hjemmeside ser jo kanon ud grafisk, Thomas, men jeg kan ikke lige se hvordan jeg skal ændre det så det kan bruges "mellem de 4 forespørgsler".

ok, du importere formularen og modulet i din db.

Herefter kan du lave koden således:
Public Sub test()
    DoCmd.SetWarnings False
    Status "Running query 1", , 4, "Datatransfer in progress"
    DoCmd.OpenQuery "query 1"
    Status "Running query 2"
    DoCmd.OpenQuery "query 2"
    Status "Running query 3"
    DoCmd.OpenQuery "query 3"
    Status "Running query 4"
    DoCmd.OpenQuery "query 4"
    Status "Datatransfer complete", True
    DoCmd.SetWarnings True
End Sub

Vær dog opmærksom på at evt at skulle justere tallet 4 (i 3. linie) til 3, da dette tal er beregnet til ikke at tælle det første kald med.

SÅ var der bingo! :)
Takker mange gange, nu ser det jo også GODT ud, samtidig med det er funktionelt (til mit brug).

Jeg havde jo afsat 30 point og prøvede at give thomas 20, juks 10, men 10+20 var, i følge Eksperten, MERE end hvad jeg havde afsat! :(
10+20 er da 30, ikke også?

hmm....er du sikker? Hvis eksperten siger noget andet, såå...

Men lad os prøve at lave en database, som kan regne det ud for os :o)

men pyt med point :o)