gheyman
Well-known Member
- Joined
- Nov 14, 2005
- Messages
- 2,347
- Office Version
- 365
- Platform
- Windows
I need code that will be triggered when a date filed is changed. I want to put a value (the number of days between two dates) in an unbound field on my form "KickOff_A"
I need to "Dim" and then set the values (If that makes any sense).
I know this is wrong but I assume it would be something like:
*******************************
Dim 1a as…
Dim 2a as…..
Set 1a = [KickOff_Actual]-[Date Received]
Set 1aa = [KickOff_Planned]-[Date Received]
‘(A) = Number of days since Date Received
If KickOff_Applicable = “No” Or IsNull(Date Received) or Date Received =”” Then
If IsNull(KickOff_Actual) or KickOff_Actual = “” Then
If IsNull(KickOff_Planned) or KickOff_Planned= “” Then
End If
Else
KICKOFF_A = 1a
End If
Else
KICKOFF_A = 1AA
End If
**********************
With the exception of KickOff_Applicable, these fields are Dates.
Thanks for the Help!!
I need to "Dim" and then set the values (If that makes any sense).
I know this is wrong but I assume it would be something like:
*******************************
Dim 1a as…
Dim 2a as…..
Set 1a = [KickOff_Actual]-[Date Received]
Set 1aa = [KickOff_Planned]-[Date Received]
‘(A) = Number of days since Date Received
If KickOff_Applicable = “No” Or IsNull(Date Received) or Date Received =”” Then
If IsNull(KickOff_Actual) or KickOff_Actual = “” Then
If IsNull(KickOff_Planned) or KickOff_Planned= “” Then
End If
Else
KICKOFF_A = 1a
End If
Else
KICKOFF_A = 1AA
End If
**********************
With the exception of KickOff_Applicable, these fields are Dates.
Thanks for the Help!!