Validering af 2 felter med datoer

Well you need to check this each time you alter one of the fields

In the after update event for BOTH fields you write (in the property)

= ValidateDate()


Function ValidateDates()

If Not Isdate(field1) Or Not Isdate(field2) Then

msgbox .....

Else
If field1 > field2 THen msgbox ....


End if





End function

If Me.txtFradato >= txtTildato Then
og så noget kodeværk hvis betingelsen er opfyldt
Else:
Og så noget andet kodeværk hvis betingelsen ikke er opfyldt
End If

I'll let you alter the field names yourself :o)

An error?

Else
If field1 > field2 THen msgbox ....

Should be:

Else
If field1 >= field2 THen msgbox ....

No mugs!

field1 is can be < or = so if it is > then its NOT allowed :o)

field1 = txtFraDato

Ok Sir :o)

no need for sir, mugs, I'm no longer in the army :o)

I am :o)

sorry sir!

Takker,

Jeg fik det til at virke med koden, dog lavede jeg det om til en procedure da jeg ikke helt har styr på det der med funktioner ;o)