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
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