Opdatering af tabellerne.

Me.Requery på en knap skulle kunne gøre det

Du kan også lade en timer opdatere formularen med jævne mellemrum.

Det gør du ved at sætte egenskaben Timerinterval til f.eks. 60000 (1 minut)

og derefter lægge koden på hændelsen VedTimerUdløb

Jeg kan ikke helt se om det virker, da jeg oplever et lille problem ved indsættelse af Me.Requery.

Jeg sætter den ind på hhv. "forrige post" og "næste post" knapperne, der sker så det, at man starter fra den første post igen.

//Oergaard

ja, ulempen ved Requery er at den hopper til første post.

Du kan få den til at hoppe til den aktuelle post igen med denne kode:

    Dim rs
    Dim ID As Long
    ID = Me!ID
    Me.Requery
    Set rs = Me.RecordsetClone
    rs.FindFirst "ID = " & ID
    Me.Bookmark = rs.Bookmark


Men jeg vil nok ikke lægge den på næste- og forrige-post-knapperne, da det kan give noget rod med opdateringen.

Læg koden på en anden knap eller sæt den til at opdatere f.eks. hvert minut, som jeg foreslog.

PS: Husk at erstatte ID med dit nøglefelt!

Hvis dit nøglefelt er synligt på formularen, kan koden også gøres lidt simplere:

Dim ID as Long
ID = Me!ID
Me.requery
Me!Id.Setfocus
docmd.Findrecord ID

Mit nøglefelt vises ikke, hvorfor jeg plat nok har valgt, at kalde det for ID. Jeg har brugt den første kode du skrev, men får alligevel fejlen, at den ikke kan finde feltet ID, hvilket jo er klart nok, da der ikke er noget felt der hedder ID. :-)

hmm, du skulle nu godt kunne referere til ID, når bare det er med i datagrundlaget (har lige testet på et eks.).

Prøv evt denne model:

    Dim rs
    Dim tmpID As Long
    tmpID = ID
    Me.Requery
    Set rs = Me.RecordsetClone
    rs.FindFirst "ID = " & tmpID
    Me.Bookmark = rs.Bookmark

Jeg har også Journalnr som et unikt felt, men har brug for ID'et for, at journalerne bliver sorteret efter oprettelse. Jeg har i stedet for ID brugt Journalnr og så virker det helt efter hensigten.

Jeg takker.

//Oergaard

:o)