standaardwaarde terug in veld + focus

[scw]

Goedenavond,

Ik heb de volgende code neergezet in mijn database en deze werkt op zich goed. Echter, het gaat wel mis na de messagebox. Graag zou ik willen dat Access weer de datum van vandaag neerplaatst in het veld en een SetFocus op dat veld, wanneer er een datum in de toekomst is ingevoerd.

Ik heb e.e.a. geprobeerd maar Access blijft een foutmelding geven: dat de code in een before update gebeurtenis staat en daardoor niet kan opslaan. Hebben jullie een oplossing?

Alvast bedankt,
:thumb: scw

Private Sub Datum_BeforeUpdate(Cancel As Integer)

If Me.Datum > Date Then
MsgBox "De ingevoerde datum ligt in de toekomst.", vbInformation, "Voorbeeld"
Me.Datum = Date
Me.Datum.SetFocus

End If

End Sub

 

[OctaFish]

Lijkt mij logisch dat je een waarde niet kunt evalueren als die nog niet bestaat (Before Update....) Zet 'm in de AfterUpdate en hij doet het. En waarom een SetFocus er achter aan?

 

[Harry46]

De gebeurtenis BeforeUpdate is gemaakt om ingevoerde gegevens te valideren, vandaar ook het argument Cancel.
Je moet alleen de code iets aanpassen.

Private Sub Datum_BeforeUpdate(Cancel As Integer)
    If Me.datum > Date Then
        MsgBox "De ingevoerde datum ligt in de toekomst.", vbInformation, "Voorbeeld"
        Cancel = True
        Me.datum.Undo
    End If
End Sub

 

[scw]

Bedankt!

Bedankt voor de twee antwoorden.

@ Octafish: Ik had gekozen voor de BeforeUpdate gebeurtenis vanwege deze pagina:
http://www.access-programmers.co.uk/forums/showthread.php?t=161415

@ Harry46: Geweldig bedankt! Ik heb jou oplossing toegepast, het werkt nu precies zoals ik het voor ogen had.

Ook weer opgelost... :thumb:

scw