Convert expression to code

[Kirstie Adam]

Hi All,

I have a conditional formatting expression i would like to convert to code,
and need some help!

I want the code to be in the OnOpen event of a report (called
rptAllInformation).

If the value of [DIA FORM ISSUED] is more than 6 weeks ago, and [DIA
RESPONSE RECEIVED] is null, then label (lblOverdueWarning) becomes visible

At the moment the expresson is:

[DIA RESPONSE RECEIVED] Is Null And [DIA FORM ISSUED]<DateAdd("w",-6,Date())

Can anyone help?

Kirstie

 

[Marshall Barton]

Hi All,

I have a conditional formatting expression i would like to convert to code,
and need some help!

I want the code to be in the OnOpen event of a report (called
rptAllInformation).

If the value of [DIA FORM ISSUED] is more than 6 weeks ago, and [DIA
RESPONSE RECEIVED] is null, then label (lblOverdueWarning) becomes visible

At the moment the expresson is:

[DIA RESPONSE RECEIVED] Is Null And [DIA FORM ISSUED]<DateAdd("w",-6,Date())

lblOverdueWarning.Visible = [DIA RESPONSE RECEIVED] Is Null
And [DIA FORM ISSUED]<DateAdd("w",-6,Date())

 

[Kirstie Adam]

Hi Marshall,

I can't get it to work.

I put that into code, but only get the debugger window up.

Here is what i put

Private Sub Report_Open(Cancel As Integer)
lblOverdueWarning.Visible = [DIA RESPONSE RECEIVED] Is Null And [DIA FORM
ISSUED] < DateAdd("w", -6, Date)
End Sub

Have i done something wrong? Should i make it an IF statement?

Kirstie

Hi All,

I have a conditional formatting expression i would like to convert to
code,
and need some help!

I want the code to be in the OnOpen event of a report (called
rptAllInformation).

If the value of [DIA FORM ISSUED] is more than 6 weeks ago, and [DIA
RESPONSE RECEIVED] is null, then label (lblOverdueWarning) becomes visible

At the moment the expresson is:

[DIA RESPONSE RECEIVED] Is Null And [DIA FORM
ISSUED]<DateAdd("w",-6,Date())

lblOverdueWarning.Visible = [DIA RESPONSE RECEIVED] Is Null
And [DIA FORM ISSUED]<DateAdd("w",-6,Date())

 

[Marshall Barton]

What error message did you get?

I believe that you need to put that code in an event that
occurs later than the Open event because the data fields are
loaded after the Open event. If you need to make it
visible/invisible for each record, then you need to put the
line of code in the detail section's Format event. (The
report header section's Format event could be used if you
want to make it visible for all records based on the field
values in the first record.)
--
Marsh
MVP [MS Access]

I put that into code, but only get the debugger window up.

Private Sub Report_Open(Cancel As Integer)
lblOverdueWarning.Visible = [DIA RESPONSE RECEIVED] Is Null And [DIA FORM
ISSUED] < DateAdd("w", -6, Date)
End Sub

Have i done something wrong? Should i make it an IF statement?

lblOverdueWarning.Visible = [DIA RESPONSE RECEIVED] Is Null
And [DIA FORM ISSUED]<DateAdd("w",-6,Date())

I have a conditional formatting expression i would like to convert to
code,
and need some help!

I want the code to be in the OnOpen event of a report (called
rptAllInformation).

If the value of [DIA FORM ISSUED] is more than 6 weeks ago, and [DIA
RESPONSE RECEIVED] is null, then label (lblOverdueWarning) becomes visible

At the moment the expresson is:

[DIA RESPONSE RECEIVED] Is Null And [DIA FORM
ISSUED]<DateAdd("w",-6,Date())