Little help with code

[eholtman]

I have this below code working but I need to add a "IF" statement and it does not work/

CURRENT CODE
Private Sub Order_Request_Click()

[Current Status] = "Ordered"

If [Order_Request] = True Then
[Order_Date] = Date
[Guaranteed Date] = [Order_Date] + 56

Else
[Order_Date] = Null
[Current Status] = "Pending-confirm site contact"

End If
End Sub
_____________________________________________________________

Need to add "If [Kiosk meet request] = yes then [Guaranteed Date] = 1/1/1111 if not [Guaranteed Date] = [Order_Date] + 56

Thanks

 

[RuralGuy]

Private Sub Order_Request_Click()

[Current Status] = "Ordered"
If [Order_Request] = True Then
   [Order_Date] = Date
   [B]If [Kiosk meet request] = yes Then
      [Guaranteed Date] = #1/1/1111#
   Else
      [Guaranteed Date] = [Order_Date] + 56
   End If[/B]
Else
   [Order_Date] = Null
   [Current Status] = "Pending-confirm site contact"
End If

End Sub

It is not going to work exactly like that but that should give you the idea as to where to put the clause.