Text box value based on multiple criteria being met... 1

[straybullet]

How would I write this in Access?

=if(and([BDoor_amt]>0,[WLine_amt]>0,[GServDoor_amt]>0,[BICabsBar_amt]>0,[KitBICabs_amt]>0,[FP_amt]>0,[TwoPerWhirlTub_amt]>0,[PDAtticStair_amt]>0),"","None Selected")

This is for a report for which I have already set up the text boxes to "disappear" when there is no value. However, if no selections are made in the section, Id like to display "None Selected" in a text box rather than simply having the section title with no note.

Let them hate - so long as they fear... Lucius Accius

 

[ssecca]

One question before responding, will the report only ever display one of the mentioned fields or does the possiblity exist that more than one field would need to be displayed at any given time?

 

[straybullet]

At any given time one or all of the options could need to be displayed. What I am trying to accomplish is to have "None Selected" visible only if all option textboxes are null. If any are not null, I'd like to have the unbound textbox NoneSelectedtxt value=null and therefore "shrink" (be invisible)

Let them hate - so long as they fear... Lucius Accius

 

[straybullet]

Here's my latest try...

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

If Me.PCB_amt = Null And Me.BDoor_amt = Null And Me.WLine_amt = Null And Me.GServDoor_amt = Null And Me.BICabsBar_amt = Null And Me.KitBICabs_amt = Null And Me.FP_amt = Null And Me.TwoPerWhirlTub_amt = Null And Me.PDAtticStair_amt = Null Then

Me.NoneSelected.Visible = True
Me.NoneSelected.Value = "None Selected"

Else

Me.NoneSelected.Visible = False

End If


End Sub

Needless to say, doesn't work

Let them hate - so long as they fear... Lucius Accius

 

[ssecca]

How about something like this on the report open event...

dim bln_noVal as boolean
bln_noVal = false

if (isnull(a) or a = "") and (isnull(b) or b="") and (isnull(c) or c="") then
bln_noVal = true
end if

if bln_noval = true then
me.nonesel.visible = true
me.nonesel.value = "None Selected"
end if
'************END CODE********

I did not test this but it is simal to something I have recently done.

Good Luck

 

[straybullet]

TYVM!!

With a minor adjustment, it works perfectly!

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

If IsNull(Me.PCB_amt) And (IsNull(Me.WLine_amt)) And (IsNull(Me.GServDoor_amt)) And (IsNull(Me.BICabsBar_amt)) And (IsNull(Me.KitBICabs_amt)) And (IsNull(Me.FP_amt)) And (IsNull(Me.TwoPerWhirlTub_amt)) And (IsNull(Me.PDAtticStair_amt)) Then

Me.NoneSelected.Visible = True
Me.NoneSelected.Value = "None Selected"

Else

Me.NoneSelected.Visible = False

End If


End Sub

Let them hate - so long as they fear... Lucius Accius