Email a certain report depending on the value of a field

[Gina Maylone]

Good morning all,



I have a button setup to email a Proposal Report to specific people. Works fine. I now need the ability to email the Proposal Report (without an addendum) OR email the Proposal Report with an addendum. There are additional fields on the report with an addendum. I have tried the on format event of the Proposal Report to make the addendum fields invisible using this if statement:

if Forms![CurrentJobs]![Addendums].Form![AddendumNum] Is Null Then
Me.AddendumNum.Visible = False
Me.Label324.Visible = False
Me.Label325.Visible = False
Me.AddendumDrawings.Visible = False
Me.AddendumDrawingsDate.Visible = False
Me.Label326.Visible = False
Me.AddendumFloors.Visible = False
Me.Label327.Visible = False
End If

But I keep getting an "object required" error. Any thoughts on how I can run the Proposal Report with or without addendum information depending on the job?

I thank you in advance.

[NTC]

debug by removing the if/then logic - and then 1 by 1 inactivating each line until you determine which control (not visible state) is triggering the "object required" error. Then one must determine why its visibility is required....can't say from here....

[pbaldy]

Try using the IsNull() function rather than Is Null.

[Gina Maylone]

Thanks you guys. I got this to work:

If Forms![currentjobs]![Addendums].Form![AddendumNum] < 1 Then
Me.AddendumNum.Visible = False
Me.Label324.Visible = False
Me.Label325.Visible = False
Me.AddendumDrawings.Visible = False
Me.AddendumDrawingsDate.Visible = False
Me.Label326.Visible = False
Me.AddendumFloors.Visible = False
Me.Label327.Visible = False
ElseIf Forms![currentjobs]![Addendums].Form![AddendumNum] > 0 Then
'If Len(Forms!job!ADDENDUM_NO.Value) > 0 Then
Me.AddendumNum.Visible = True
Me.Label324.Visible = True
Me.Label325.Visible = True
Me.AddendumDrawings.Visible = True
Me.AddendumDrawingsDate.Visible = True
Me.Label326.Visible = True
Me.AddendumFloors.Visible = True
Me.Label327.Visible = True
End If

[pbaldy]

Glad you got it sorted. Just for fun:

Dim booAddendum As Boolean

booAddendum = Forms![currentjobs]![Addendums].Form![AddendumNum] < 1 

Me.AddendumNum.Visible = booAddendum 
Me.Label324.Visible = booAddendum 
Me.Label325.Visible = booAddendum 
Me.AddendumDrawings.Visible = booAddendum 
Me.AddendumDrawingsDate.Visible = booAddendum 
Me.Label326.Visible = booAddendum 
Me.AddendumFloors.Visible = booAddendum 
Me.Label327.Visible = booAddendum

[Gina Maylone]

Sorry PBaldy,

I tried. It didn't work.

Glad you got it sorted. Just for fun:

Dim booAddendum As Boolean

booAddendum = Forms![currentjobs]![Addendums].Form![AddendumNum] < 1 

Me.AddendumNum.Visible = booAddendum 
Me.Label324.Visible = booAddendum 
Me.Label325.Visible = booAddendum 
Me.AddendumDrawings.Visible = booAddendum 
Me.AddendumDrawingsDate.Visible = booAddendum 
Me.Label326.Visible = booAddendum 
Me.AddendumFloors.Visible = booAddendum 
Me.Label327.Visible = booAddendum

[pbaldy]

I think I reversed it. Try

booAddendum = Forms![currentjobs]![Addendums].Form![AddendumNum] > 0