Navigatieknoppen (hoe bepalen dat record opgeslagen is)

[mikeo]

Ik gebruik onderstaande funktie voor het in en uitschakelen van eigengemaakte navigatieknoppen. bron: http://www.pcmenu.nl

Wat mij alleen niet lukt is het volgende:
Als de gebruiker op de knop Toevoegen klikt (nieuw record) dan worden de navigatieknoppen om te bladeren tijdelijk uitgeschakeld. Nu wil ik als er op de Knop bewaren wordt geklikt deze weer actie worden.

Ik weet alleen niet met welk commando je dit kunt activeren.

Ik bedoel net als het command .NewRecord. Hiermee kun je trikkeren dat het om een nieuw record gaat. Wat is nu het command om te zien dat de gebruiker het record heeft bewaard.


-----Begin-----------
Function fNavigatieknoppen()
On Error GoTo Err_fNavigatieknoppen

With Screen.ActiveForm

Dim rstKloon As DAO.Recordset
Set rstKloon = .RecordsetClone

If .NewRecord Then
.cmdVerwijder.Enabled = False
.cmdEerste.Enabled = False
.cmdVorige.Enabled = False
.cmdVolgende.Enabled = False
.cmdLaatste.Enabled = False
.cmdToevoegen.Enabled = False
Exit Function
End If

If rstKloon.RecordCount = 0 Then
.cmdVerwijder.Enabled = False
.cmdEerste.Enabled = False
.cmdVolgende.Enabled = False
.cmdVorige.Enabled = False
.cmdLaatste.Enabled = False
.cmdToevoegen.Enabled = True
Else
.cmdVerwijder.Enabled = True
rstKloon.Bookmark = .Bookmark
rstKloon.MovePrevious
If rstKloon.BOF Then
.cmdEerste.Enabled = False
.cmdVorige.Enabled = False
.cmdToevoegen.Enabled = True
Else
.cmdEerste.Enabled = True
.cmdVorige.Enabled = True
.cmdToevoegen.Enabled = True
End If
rstKloon.Bookmark = .Bookmark
rstKloon.MoveNext
If rstKloon.EOF Then
.cmdLaatste.Enabled = False
.cmdVolgende.Enabled = False
.cmdToevoegen.Enabled = True
Else
.cmdLaatste.Enabled = True
.cmdVolgende.Enabled = True
.cmdToevoegen.Enabled = True
End If
End If

End With

Exit_fNavigatieknoppen:
Exit Function

Err_fNavigatieknoppen:
'Formulier is nog niet geopend: stoppen
If Err = 2475 Then Resume Exit_fNavigatieknoppen
'Module is nog niet geladen: stoppen
If Err = 7951 Then Resume Exit_fNavigatieknoppen
'Knop ontbreekt: doorgaan met volgende stap
If Err = 2465 Then Resume Next
MsgBox Err & ", " & Error$
Resume Exit_fNavigatieknoppen

-----Einde-----------

 

[mikeo]

Al oplossing gevonden.

Onder de knop bewaren deze code erbij gezet.

Me.cmdEerste.Enabled = True
Me.cmdVorige.Enabled = True
Me.cmdToevoegen.Enabled = True
Me.cmdOngedaan.Enabled = False​