Formulier Einddatum moet altijd > Begindatum zijn

[jeffrey159]

Ik heb in een formulier een invoervak voor begindatum en einddatum.

Een query gebruikt die begindatum en einddatum om artikelen die vrij zijn tussen de begin en einddatum weer te geven.

Nu mag mijn Einddatum die ik invoer nooit gelijk zijn aan de begindatum of kleiner dan de begindatum.

Hoe los ik dat op?:shocked:

 

[jeffrey159]

HELP

 

[Bartuls]

Controleren op het before update event.
Daar kun je dan een foutmelding geven en zorgen dat de gegevens niet opgeslagen worden.
In de Access help kun je meer lezen over de voorbijwerken gebeurtenis. Even in het vakje gaan staan bij de eigenschappen en dan op F1 drukken.

 

[jeffrey159]

Dankjewel ik ga het even uizoeken :thumb:

 

[jeffrey159]

Kun je misschien een passend voorbeeld geven van wat ik invoer om zo'n melding te genereren?

Als Einddatum = of < is dan begindatum dan Kan niet opslaan en Melding

 

[vanzwam]

Als je een apart formuliertje hiervoor hebt kan je het zo doen.

Private Sub Form_Open(Cancel As Integer)
Me.Caption = Me.OpenArgs
End Sub

Private Sub Afdrukvoorbeeld_Click()
If IsNull([Begindatum]) Or IsNull([Einddat]) Then
MsgBox "U moet zowel begin- als einddatums opgeven."
DoCmd.GoToControl "Begindatum"
Else
If [Begindatum] > [Einddat] Then
MsgBox "De Einddatum moet na de Begindatum vallen."
DoCmd.GoToControl "Begindatum"
Else
Me.Visible = False
End If
End If
End Sub

 

[jeffrey159]

Hartstikke bedankt, ik denk dat het wel gaat lukken :thumb:

 

[vanzwam]

Nog iets vergeten. In het rapport zet je nog :

Private Sub Report_Open(Cancel As Integer)

Dim rst As Recordset
DoCmd.OpenForm "Datumbereik rapport", , , , , acDialog, "Facoverzicht"

End Sub