Finde "næstsidste" post.

Hvis denne sidste post er en ny post, kan du sættte formularens egenskaber "Tillad Tilføjelser" til nej. Så kan du ikke "gå forbi" den sidst oprettede post.

You can alter the on click event for the appropriate button so that no message is displayed. You can also disable the button but then you will need to enable it again at the corect time.

Here is an example for the go to next record button, notice the line
If Err.Number = 2105 ......
this just continues with displaying an error.
You can alter the other buttons too.

Private Sub Command14_Click()
On Error GoTo Err_Command14_Click


    DoCmd.GoToRecord , , acNext

Exit_Command14_Click:
    Exit Sub

Err_Command14_Click:
    If Err.Number = 2105 Then Resume Exit_Command14_Click
    MsgBox Err.Description
    Resume Exit_Command14_Click
   
End Sub

I dette tilfælde vil jeg være hård og foreslå, at du blot benytter "On Error resume next". Der kan ikke opstå andre fejl, end at du når til enden af tabellen. Derfor er det trygt nok at bruge denne errorhandler, som man ellers skal være forsigtig med.

Private Sub cmdNæste_Click()
  on error resume next
  docmd.gotorecord,,acnext
end sub

Mugs> nej den sidste post er ikke en ny post. Der kan slet ikke oprettes poster i formularen. De kan kun vises og et enkelt felt kan rettes..

Thomas og Terry> Jeg jar prøvet begge jeres løsninger, og ganske vist får jeg ikke fejlmeddelelsen, men den er jeg allerede sluppet af med. Og jeg ønsker egentlig at opnå at brugeren kan se,

...kan se hvad?

ja, jeg fik trykket lidt hurtigt på knappen.

Kan se at han er på den sidste post/første post, ved at der ikke længere kan bladres frem/tilbage. Dette bør ske allerede når sidste/første post vises.

Okay, se her: På formens VedAktuel-hændelse lægger du følgende kode:

Private Sub Form_Current()
    Select Case Me.CurrentRecord
        Case Me.RecordsetClone.RecordCount
            Me!cmdForrige.SetFocus
            Me!cmdNæste.Enabled = False
        Case 1
            Me!cmdNæste.SetFocus
            Me!cmdForrige.Enabled = False
        Case Else
            Me!cmdNæste.Enabled = True
            Me!cmdForrige.Enabled = True
    End Select
End Sub

cmdNæste og cmdForrige er navnene på dine knapper som bladre frem og tilbage. Tilpas koden til dine egene navne.

På selve knapperne skal du så bare have: Docmd.GotoRecord ,, acnext

/Thomas

thomas> Det halter lidt i din kode. Bruger jeg den uændret er knappen disablet, når jeg åbner formularen. Ombytter jeg True and False, virker den fra start, men disables altid allerede ved 2. record, uanset hvor mange der er.

Er der noget jeg har overset?

Jeg har imidlertid nu selv fundet en løsning inspireret af Terrys, noget med at bladre en record frem og se og fejlmeddelelsen afgives, derefter bladre en record tilbage og disable knappen. Så ebler jeg den igen, når jeg fx trykker Tilbage, idet jeg ført undersøger om Frem knappen er enabled eller ej.
Og omvendt med den anden knap.
Tak for hjælpen og inspirationen til jer begge.

Når du åbner formularen, skal din cmdForrige være disabled (da du jo står på første post!)

Har du haft formularen helt lukket?

vent!

never mind

Ja, jeg har haft formularten helt lukket. Desværre var det Næste knappen der var disabled. På det tidspunkt havde hjeg slet ikek en tilbage-knap i formularen. Det skal der heller ikke være i den endelige løsning. Det er meningen at man kun skal kunne bladre posterne igennem fra en ende af, og når man er nået til enden, skal man kun kunne forlade formularen.

Jeg tror det er ved at være sengetid, så måske ser jeg klarere i morgen.

Tak for hjælpen.

Thomas ->

I nogle tilfælde er værdien af .RecordCount = 1 indtil du bladre i recordsettet.

Niels

Niels-> Ja, det er rigtigt. Det havde jeg lige glemt at tage højde for ;o)