Date

  • Thread starter Thread starter Darla
  • Start date Start date
D

Darla

I tried this and it didn't work. It showed a dialog box
asking for a date.

I've tried writing this in vba..can someone debug it for
me please.

Private Sub ifthenelse()
If IsNull(Me.Release_Date.Date) Then
(Me.Days_in_Hold.Date) = Date()-
(Me.Date_On_Hold.Date) Else
(Me.Days_in_Hold.Date) = (Me.Release_Date.Date)-
(Me.Date_On_Hold.Date)
End If
End Sub
 
Darla:

Please do not post multiple instances of the same question. Your posting
from 12:53 should suffice.


I tried this and it didn't work. It showed a dialog box
asking for a date.

I've tried writing this in vba..can someone debug it for
me please.

Private Sub ifthenelse()
If IsNull(Me.Release_Date.Date) Then
(Me.Days_in_Hold.Date) = Date()-
(Me.Date_On_Hold.Date) Else
(Me.Days_in_Hold.Date) = (Me.Release_Date.Date)-
(Me.Date_On_Hold.Date)
End If
End Sub
 
FYI....

What is Me.Release_Date.Date?

The ".date" part is what's giving you the error.

You can use Me.Release_Date.visible, or Me.Release_Date.Value, etc. ".Date"
is not a valid field property.

Rick B


I tried this and it didn't work. It showed a dialog box
asking for a date.

I've tried writing this in vba..can someone debug it for
me please.

Private Sub ifthenelse()
If IsNull(Me.Release_Date.Date) Then
(Me.Days_in_Hold.Date) = Date()-
(Me.Date_On_Hold.Date) Else
(Me.Days_in_Hold.Date) = (Me.Release_Date.Date)-
(Me.Date_On_Hold.Date)
End If
End Sub
 
Back
Top