connection between checkbox and combo box

  • Thread starter Thread starter LJB
  • Start date Start date
L

LJB

I have a drop down box with a selection for each state. If PA is selected,
there is a corresponding check box that is to appear. I have the code as
follows:

If STATE = "PA" Then Checkbox1.Visible = True

However, if the user then changes the selection to another state, the
checkbox stays visible. I know that I need an additional line to my code
that makes the checkbox not visible (visible = false) if PA is not selected-
I'm having trouble coming up with the code.

Thank you for any assistance.
 
I have a drop down box with a selection for each state. If PA is selected,
there is a corresponding check box that is to appear. I have the code as
follows:

If STATE = "PA" Then Checkbox1.Visible = True

However, if the user then changes the selection to another state, the
checkbox stays visible. I know that I need an additional line to my code
that makes the checkbox not visible (visible = false) if PA is not selected-
I'm having trouble coming up with the code.

Thank you for any assistance.
Click to expand...
If STATE = "PA" Then
Checkbox1.Visible = True
else
Checkbox1.Visible = False
endif
 
If STATE = "PA" Then
Checkbox1.Visible = True
ELSE
Checkbox1.Visible = False
End If
 
Try
If me.STATE = "PA" Then Me.Checkbox1.Visible = True
else
Me.Checkbox1.Visible = False


Chris
 
You should get what you need with code something like the following in the
After Update event for the combo box (which I will call cboState):

If Me.cboState = "PA" Then
Me.Checkbox1.Visible = True
Else: Me.Checkbox1.Visible = False
End If

You will need the same code in the form's On Current event.

I think the code will also work if you use the name of the field (e.g.
Me.State) instead of the name of the combo box. I'm not clear on whether one
has an advantage over the other.
 
If Me.cboState = "PA" Then
Me.Checkbox1.Visible = True
Else: Me.Checkbox1.Visible = False
End If
Click to expand...

Bruce,
You will likely get an error with this code because of the colon following
the word "Else".
I think the code will also work if you use the name of the field (e.g.
Me.State) instead of the name of the combo box. I'm not clear on whether one
has an advantage over the other.
Click to expand...

"Me" is a reference to the currently active form object. Therefore, if
[State] is not an object on the currently active form, then it will generate
an error. When objects are placed on a form using the field list they are
given the same name as the field in the record source and, thus, it may well
be that he could use Me.State.
 
Lynn, thanks for taking the time to comment. The colon puts itself in there
when I type in the VBA window. If I delete it, it comes back. So far it has
worked as written in all of the various situations in which I have used it.

Lynn Trapp said:
If Me.cboState = "PA" Then
Me.Checkbox1.Visible = True
Else: Me.Checkbox1.Visible = False
End If
Click to expand...

Bruce,
You will likely get an error with this code because of the colon following
the word "Else".
I think the code will also work if you use the name of the field (e.g.
Me.State) instead of the name of the combo box. I'm not clear on whether one
has an advantage over the other.
Click to expand...

"Me" is a reference to the currently active form object. Therefore, if
[State] is not an object on the currently active form, then it will generate
an error. When objects are placed on a form using the field list they are
given the same name as the field in the record source and, thus, it may well
be that he could use Me.State.

--
Lynn Trapp
MS Access MVP
www.ltcomputerdesigns.com
Access Security: www.ltcomputerdesigns.com/Security.htm
Click to expand...
 
Lynn, thanks for taking the time to comment. The colon puts itself in there
when I type in the VBA window. If I delete it, it comes back. So far it has
worked as written in all of the various situations in which I have used it.
Click to expand...
this is normal, because the else should be on a single line, the :
tells you:
it's a new command on the same line like

rs.movefirst:debug.print rs.recordcount:rs.movelast

but if you write on a single line
If Me.cboState = "PA" Then Me.Checkbox1.Visible = True Else
Me.Checkbox1.Visible = False

it doesnt give you the :
 
Interesting. I've never seen that happen before but, then, my experience
isn't universal. The colon marks that as a Label and, apparently, is not
interfering with the execution of the code.

--
Lynn Trapp
MS Access MVP
www.ltcomputerdesigns.com
Access Security: www.ltcomputerdesigns.com/Security.htm


BruceM said:
Lynn, thanks for taking the time to comment. The colon puts itself in there
when I type in the VBA window. If I delete it, it comes back. So far it has
worked as written in all of the various situations in which I have used it.

Lynn Trapp said:
If Me.cboState = "PA" Then
Me.Checkbox1.Visible = True
Else: Me.Checkbox1.Visible = False
End If
Click to expand...

Bruce,
You will likely get an error with this code because of the colon following
the word "Else".
I think the code will also work if you use the name of the field (e.g.
Me.State) instead of the name of the combo box. I'm not clear on
Click to expand...
whether
one
has an advantage over the other.
Click to expand...

"Me" is a reference to the currently active form object. Therefore, if
[State] is not an object on the currently active form, then it will generate
an error. When objects are placed on a form using the field list they are
given the same name as the field in the record source and, thus, it may well
be that he could use Me.State.

--
Lynn Trapp
MS Access MVP
www.ltcomputerdesigns.com
Access Security: www.ltcomputerdesigns.com/Security.htm
Click to expand...
Click to expand...
 
Interesting. I've never seen that happen before but, then, my experience
isn't universal. The colon marks that as a Label and, apparently, is not
interfering with the execution of the code.
Click to expand...

this has nothing to do with a label, it's only a lineSaver

for a label it has to be last character on this line
 
this has nothing to do with a label, it's only a lineSaver
for a label it has to be last character on this line
Click to expand...


I have no doubt you are right there. I have just never seen VBA
automatically add a colon after the word Else in an If statement.
 
Bruce,
I've used every version of Access, since version 2 and haven't seen that in
any of them. Like I said, though, my experience isn't necessarily universal,
so perhaps someone else has seen that.
 
Bruce,
It turns out it is all my coding style that has prevented me from seeing
that. I NEVER put the statement to be executed on the same line as the word
"Else."
 
Back
Top