Access Help with writting VBA code

[gheyman]

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

 

[Norie]

What, in words, is the logic behind what you want to do?

 

[gheyman]

Note: Date Received is the name of the field. I didn't name it and I cannot change it. I know its not wise to have a space in a Name.

I want to first check to see if KickOff_Applicable = No (Its a Yes;No combo box) and if the "Date Received" field is not null or void

Then I want to check and see if my KickOff_Actual field has a date in it. If is does I want to Subtract KickOff_Actual date field from the "Date Received" date field. This value would go into the field named KICKOFF_A

If KickOff_Actual field does not have a date in it, I want to check and see if the KickOff_Planned field has a Date in it. If is does have a Date then I want to subtract the KickOff_Planned date field from the "Date Received" field. This value would go into the field named KICKOFF_A

 

[Norie]

Try this.

If KickOff_Applicable = "No" Or DateReceived Is Null Or DateReceived = "" Then
    Exit Sub
End If

If IsDate(KickOff_Actual) Then
    KICKOFF_A = DateDiff("d", KickOff_Actual, DateReceived)
ElseIf IsDate(KickOff_Planned) Then
    KICKOFF_A = DateDidd("d", KickOff_Planned, DateReceived)
End If

 

[gheyman]

THANKS! I didn't think about using an IsDate. I appreciate your help, as always.

 

[apr pillai]

Variable names start with an Alphabet not a Numeral.