Gå til bestemt record.

Efter at have ændret på en record, kan du bruge Me.Refresh, der opdaterer den underliggende forespørgsel, uden at flytte fra Current Record, men tilføjer ikke nye poster.

Me.Requery tilføjer nye poster

Jeg har nu prøvet at bruge me.requery, men jeg skal bruge noget sortering på baggrund af ændringen - det bliver ikke opdateret.

Måske lidt flere oplysninger er nødvendige.

Det er en fortløbende formular.

Feltet der ændres på er et felt hvorpå man kan sætte en prioritet.
Når man ændre prioriteten skal rækkefølgen ændres på posterne i formularen.
Det virker fint med me.requery - med den undtagelse at focus bliver sat på den første record i formularen.

Jeg forestiller mig at man inden me.requery gemmer hvilken record man står vha. projektID feltet og henter recorden frem igen på den baggrund.

Når du bruger Me.Requery, er du jo tilbage ved dit udgangspunkt. Me.Refresh SKAL opdatere den underliggende forespørgsel.

Ikke desto mindre så er det sådan det er...

Bruger iøvrigt Access XP (2002) DK

Kigger på det når jeg kommer hjem fra arbejde, hvis ikke du har fået et brugbart svar senere.

Tak skal du ha' :)

Afprøvet og fungerer:

Dim a As Integer
a = Me.CurrentRecord
Me.Requery
DoCmd.GoToRecord acDataForm, "form1", acGoTo, a

Du skal naturligvis ændre "form1" til det aktuelle navn på din formular. Jeg kan sende dig min db, hvori koden er afprøvet. Blot læg din e-mail.

Se den havde jeg også haft fat i... :)

Det der sker er at den tager løbenummeret fra recorden (hvad nummer den er på listen) man står på - ikke projektID'et.
Det betyder at når man har ændret feltet bliver formularen indlæst igen, men nu står den post man ændrede på ikke som f.eks. nr. 10 på listen. Fokus bliver rigtig nok sat på f.eks. nr. 10 hvor posten stod før, men det kan jeg jo ikke bruge til noget når den er flyttet.

Ja - Det kan jeg godt se. Jeg har regnet med, det var den ændrede post's placering i tabellen, du vil blive ståen de på. Såfremt Prioriteten er en unik værdi, så skal denne fungere:

Dim a As Integer
a = InputBox(Prompt:="Indtast ny værdi", Title:="Ny prioritet", Default:="")
Me.prioritet = a
Me.Requery
DoCmd.GoToRecord acDataForm, "form1", acGoTo, a

Hvis prioritet ikke er unik, kan du alternative lave en tekstboks af typen dato/kl, og så "måle" på den største værdi, så jo må være den sidst rettede.
Jeg har rodet lidt med en testdb, som jeg kan sende dig. Blot læg din e-mail inden Kl 13:30, idet jeg skal på arbejde, ellers kan jeg først sende den efter 23:00

Det nåede jeg så ikke lige :)

... men jeg tror nu nok snart det er nemmere hvis jeg sender dig en kopi af den jeg sidder med så du kan se hvad det er jeg mener...

mugs@mail.dk
Jeg er også på arbejde i morgen eftermiddag.

Et autonummerfelt er jo unikt, så du kan jo måle på det istedet for prioritet, som vel ikke behøver at være unikt:

Private Sub prioritet_AfterUpdate()
Dim a As Double
DoCmd.GoToControl "id"
a = Me.id
Me.Requery
DoCmd.FindRecord a, acEntire, False, , True, acCurrent, True
End Sub

Private Sub Kommandoknap2_Click()
  Dim bookm
  bookm = Me.Bookmark
  Me.Requery
  Me.Bookmark = bookm
End Sub

Godmorgen nih
Din kode er afprøvet og fungerer perfekt.
Jeg har altså en tendens til at gøre tingene mere indviklede end nødvendigt :o)

Der var jeg vist lidt for hurtig. Nih's kode får markøren til at blive på den post i tabelen der er rettet, Og følger ikke den rettede post placering efter Requery.