Displaying/Hiding labels

[midiman69]

I have a label on a main form which I wish to display if a sub form field= zero

I am using this
Private Sub Form_Current()
If Forms!frmprojectstabbed![qrybomsubform].Form![Currcosttotal] = 0 Then
Me.warning.Visible = True
ElseIf Forms!frmprojectstabbed![qrybomsubform].Form![Currcosttotal] > 0 Then
Me.warning.Visible = False
End If
End Sub

When I view the fisrt record with zero cost the label displays, when I move to the next with zero value it is hiden.

What am I doing wrong???

Dave

 

[Remou]

Try:
Me.warning.Visible = (Forms!frmprojectstabbed![qrybomsubform].Form![Currcosttotal] = 0)

I think that EsleIf ... should simply be Else, because there are only two possibilities. However, the idea above is shorter.

 

[midiman69]

Thanks Remo,

I tried that and still have the same problem - the label is only visible on the first record with zero value??

Dave

 

[Remou]

Is it a proper zero or a null? Try:
Nz(Forms!frmprojectstabbed![qrybomsubform].Form![Currcosttotal],0) = 0

 

[midiman69]

Hi Remou,

It is a proper zero, tried the Nz function as well - still the same - Ahhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh!!

 

[adalger]

Does this work?

Private Sub Form_Current()
    Me.warning.Visible = False
    If Forms!frmprojectstabbed![qrybomsubform].Form![Currcosttotal] = 0 Then Me.warning.Visible = True
End Sub

TMTOWDI - it's not just for Perl any more

 

[SeeThru]

use debug.print to inspect the code - use it so grab the values as it runs (I usually timestamp them too) and see if that helps. Also use the pause funtions to inspect the state of things as the code runs:

debug.print "Value: " & Me.Validate()
Me.ContactsBindingSource.EndEdit()
Me.ContactsTableAdapter.Update(Me.TestDB3DataSet.Contacts)
debug.print "Visible: " & Me.warning.Visible

 

[PHV]

I think you do it in the wrong event.
You may try the subform Current event procedure:
Private Sub Form_Current()
Forms!frmprojectstabbed!warning.Visible = (Me!Currcosttotal = 0)
End Sub

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[midiman69]

Hi PHV - see what you been about using the sub form current event - tried your code - keep getting a type mismatch error??

Dave

 

[PHV]

And this ?
Forms!frmprojectstabbed!warning.Visible = (Nz(Me!Currcosttotal, 0) = 0)

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[midiman69]

Thanks again PHV - I now get and invalid use of .(Dot) or ! or invalid Parenthesis message

Bugger!

Dave

 

[PHV]

Use the expression builder to discover the REAL names of your controls ...

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[midiman69]

Hi PHV

Thanks again - I checked the "REAL" names - they are all correct now get Method Nz of Object_' Aplication error.

Think I'll give up now!!

Cheers

Dave