Submit Button query

[gmazza76]

Good morning,

I think this is a simple one, but it is a bit early for me this morning.

I am trying to add a userform to an Access database table which I have, but how do I add a if query to give me an outcome to add in in.
I need to be able to submit an answer based on if the dates are higher/lower as per below.

.Fields("Worked By") = Worksheets("Calcs").Range("B7").Value
.Fields ("When Keyed") = (DTPicker1 = DTPicker2,"Same Day Booking",if(DTPicker1 < DTPicker2,"In Advance","After Booking")

All help appreciated
thanks

 

[Legacy 456155]

Here are at least 3 ways. The first is easier to read IMO.

With .Fields("When Keyed")
    If DTPicker1 = DTPicker2 Then
        .Value = "Same Day Booking"
    ElseIf DTPicker1 < DTPicker2 Then
        .Value = "In Advance"
    Else
        .Value = "After Booking"
    End If
End With

.Fields("When Keyed") = Choose(DTPicker1 = DTPicker2, "Same Day Booking", DTPicker1 < DTPicker2, "In Advance", True, "After Booking")
    
.Fields("When Keyed") = IIf(DTPicker1 = DTPicker2, "Same Day Booking", IIf(DTPicker1 < DTPicker2, "In Advance", "After Booking"))

 

[gmazza76]

thank you that worked