volgend record maar geen nw rec

Status
Niet open voor verdere reacties.

Sytse1

Gebruiker
Lid geworden
9 aug 2007
Berichten
584
Office versie
miDer
In mijn Form heb ik de knoppen ga naar vorig, volgend, 1e en laatste record.
Met naar het gaan van het volgend record kom je na het laatste record automatisch in een leeg (nieuw) record.
Maar dit wil ik niet. Er is al een knop voor een nieuw record.
Ik probeer dit op te lossen met de volgende code.
Code:
'------------------------------------------------------------------------
'Ga naar het laatste record maar toon niet een leeg record middels A_Preview terug
'------------------------------------------------------------------------
    DoCmd.GoToRecord A_FORM, Screen.ActiveForm.FormName, A_Next
    stActiveCtl$ = Screen.ActiveControl.ControlName
    If (Err) Then stActiveCtl$ = ""
    DoCmd.GoToRecord A_FORM, Screen.ActiveForm.FormName, A_Preview

Vervolgens met
Code:
If (Not IsNull(Me.IdMw.Value)) Then
DoCmd.GoToRecord , , acNext
End If
Maar ook dit werkt niet.

De volgende code geprobeerd.
Code:
With Me.RecordsetClone
Do Until Not .EOF
If Me.Dirty Then
Me.Dirty = False
End If
.MoveNext
Me.Bookmark = .Bookmark
Loop
End With

Maar hierbij krijg ik de melding.
Geen huidig record??

Wie weet een wel werkende code hiervoor?
B.v.d.
Sytse


Na veel proberen is het met de volgende code toch gelukt.
Code:
If Me.IdMw.Value = Null Then
DoCmd.GoToRecord , , acPreview
Else: DoCmd.GoToRecord , , acLast
End If
:d
 
Laatst bewerkt:
En het kan zoveel makkelijker.... Bij de knop <Ga naar volgend record> hoef je alleen maar deze regel toe te voegen:
Code:
    If Me.NewRecord Then DoCmd.GoToRecord , , acFirst
 
Alweer bedankt Octafish.
Ik zoek het toch altijd weer veel te ver en te moeilijk.
Je oplossing is weer kort en krachtig.
Bedankt, Sytse
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan