Validar a data prevista de entrega

Event BeforeInsert da Form

Private Sub Form_BeforeInsert(Cancel As Integer)

Dim xx As Single

xx = DMax("[numencom]", "encomenda")

Me.numencom = xx + 1

Me.dataencom = Date

End Sub

Event on exit do campo dataentr

Private Sub dataentr_Exit(Cancel As Integer)

If Me.dataencom > Me.dataentr Then

MsgBox " Data prevista inferior a data encomenda"

Cancel = True

End If

End Sub