Check for blank Date

Les Blair

Registered User.
Local time
Yesterday, 22:56
Joined
Sep 10, 2007
Messages
49
Is it possible to check for a blank date.

everytime I try to check if it is null it tells me an object is required.

Dim dteDate As Date

dteDate = [Forms]![frmSBDAmendments].[Received Date]
dteDate = GetBusinessDate(dteDate, 0, icFuture)
dteDate = AdjustDate(dteDate, icFuture)
Me.Received_Date.Value = dteDate
If [Pend PAS Date] Is Null Then
dteDate = [Forms]![frmSBDAmendments].[Received Date]
dteDate = GetBusinessDate(dteDate, 7, icFuture)
dteDate = AdjustDate(dteDate, icFuture)
Me.Release_Due_Date.Value = dteDate
Else
dteDate = [Forms]![frmSBDAmendments].[Pend PAS Date]
dteDate = GetBusinessDate(dteDate, 7, icFuture)
dteDate = AdjustDate(dteDate, icFuture)
Me.Release_Due_Date.Value = dteDate
End If
 
Thanks, that helped and it worked as you new it would.
 

Users who are viewing this thread

Back
Top Bottom