Make Fields on form visible only if certain field has less than a certain value

if I put in .25 as the percentage for ncsanum1percent, I want it to then make ncsanum2 and ncsanum2 percent visible, and it doesn't.  It just goes to a new record.

I have made the changes suggested and it still doesn't work.

Hi,
I don't think you should have the ELSE clause in the second subroutine -- if items 1 + 2 add up to 100% you would still want to see the second item fields.

Ken

I commented that section out, and added me.refresh and it still doesn't make num2 and percent2 visible.

Private Sub NCSANum1Percent__Exit(Cancel As Integer)

    If NCSANum1Percent < 100 Then
        NCSANum2.Visible = True
        NCSANum2Percent.Visible = True
        Me.Refresh
        NCSANum2.SetFocus
        'DoCmd.GoToControl "ncsanum2"
    End If
           
End Sub

Private Sub NCSANum2Percent_Exit(Cancel As Integer)

    If (NCSANum1Percent + NCSANum2Percent) <> 1 Then
        NCSANum3.Visible = True
        NCSANum3Percent.Visible = True
        NCSANum3.SetFocus
        'DoCmd.GoToControl "ncsanum3"
    'Else
        'NCSANum2.Visible = False
        'NCSANum2Percent.Visible = False
    End If
       
End Sub

Just a quick guess:

you are trying to hide the controls in the ON_Exit-event of NCSANum2Percent. That means, it is only run when you move the cursor out of this field.
If you want to hide the other field generally, try putting your code in the Current-Event of the form!

Another problem that might arise: if your form is a continouus form, your code will lead to ALL additional fields of all visible records being hidden/showed...

HTH,


broesi

It seems like in your first if statement, one-hundred percent is '100', but in your second if statement, one-hundred percent is '1'. Are the percentages expressed as decimals (like .54) or as whole numbers (like 54)?

Make sure you are actually entering the branch of code that sets visibilities before you do anything else. This may seem kind of basic, but try puting a

Debug.Print "Test"

in right after your if statement , open the immediate window in your VB editor (view->immediate window or Cntl+G), and try running it. If you see 'Test' displayed after you run the code, then you know you made it to the correct branch. Otherwise, check your program logic to make sure everything is working out the way you want it to.

I got it to work by changing it to an after_update event instead of an exit event.

Thanks for your help anyway.

Denise

dcphilli,

great! But please note that your fields will not be hidden/shown correctly while moving from record to record!
You would have to use the OnCurrent-event to accomplish this!

broesi

okay, give me a little more on this.  I saw that when I scrolled through the records that 2 and 3 didn't show up.

can you help me some more?  I'll give you the points if you tell me how to fix that.