Command button will not appear when I make a selection from a drop down

[tobydobo]

Hey guys,

Having a hell of a time trying to get a very simple function to work for a button. Works fine on all my other forms except this one. I have a button set to invisible by default and need it to appear only when one selection is selected from a drop down. I have tried every known combination I know of but it just will not work. This is the way I have it in my other forms, which works fine:

If Me.SiteSelect = "Brandon, MB" Then
Me.Dispatch2.Visible = True


End If

Any suggestions on what else I can do?

[ItsMe]

You could do something like the following to see what the value of the combo is and to make sure the code is actually firing.

msgbox Me.SiteSelect
If Me.SiteSelect = "Brandon, MB" Then
Me.Dispatch2.Visible = True
End If

[tobydobo]

It is definitely firing as I even tried using an Else statement where the opposite was true (making the button visible by default), and the button disappeared when I made the selection. I just will not appear when the button is invisible by default. Crazy!

[ItsMe]

There may be some corruption with one or more of the controls then.

[tobydobo]

Not sure where the corruption can be. Its a form with 2 fields, a combo box and one button. Very simple compared to my other more complex forms. I have even tried recreating the form from scratch.

[RayMilhon]

This is what I use not sure by your description so thought I'd include it. has always worked for me.

In the on Change event of the combo box (Or the After Update Event depends on if you allow the user to add new options If not then they must select one of the options there and the Change Event will work for you. If they are able to type in the combo box the on change event fires after each keystroke so that may not be the best option.)

If combobox1.value = "Value I'm looking for"
button1.visible = True
Else
button1.visible = False
End if

[tobydobo]

No go, Ive tried that already as well too. : /

[tobydobo]

wait, I noticed you didnt include 'Me' at the front of you commands like I did. Is that not required?

[RayMilhon]

I don't believe so the Me is the default it only really matters if your referencing a control on a different page.

[tobydobo]

ah ok, well I tried it and still no go. This bites!

[RayMilhon]

There is one other possibility I can think of. It's bitten me once before. put a break point on the If Statement Then when the code window opens in the immediate window put in
?Me.siteselect = "Brandon, MB"

See what the response is. If it's true then step through the code and see where the code is going awry. If it's not then do the following in the immediate window

?me.siteselect

?"Brandon, MB"

That will give you both variables in an easy to compare format. It's possible that when you created the selection list an extra space creeped in there. Happened to me once. I typo'ed and hit the space bar by accident after putting a name in and couldn't get a match on that one name no matter how I tried. Took me forever to discover that the length of the strings I was comparing were 7 on one side and 8 on the other but looked exactly the same. Finally found the extra space on the end.

[John_G]

Does it work if you are testing for a selection other than "Brandon, MB"? If it does, that suggests that the "Brandon, MB" value in the dropdown source isn't quite what you think it is (e.g. the blank isn't Chr(32), but is some other non-displayable character).

[tobydobo]

I have also tried that with the same results. The drop down however, I must add, is tied to table/query as the row source type. The row source is as follows: SELECT [Sites].[ID], [Sites].[Site], [Sites].[Address], [Sites].[Supported By] FROM Sites ORDER BY [Site]; ...Column count is 4, and column widths are 0";1.198";0";0" (not sure if that all makes a difference or not).

The selection autopopulates the address field, and then is supposed to make the button appear.

[John_G]

Does it correctly autopopulate the address field?
What is the "bound column" set to?

The way you have it shown, when you use me!siteselect, it is going to give you the Site ID, not its text value. If you want to reference and test the text value, you need to put me!siteselect.column(1) to reference the 2nd column, i.e. the one you see in the combo box. "Column(1)" is not a typo - the column reference is zero-based.

[tobydobo]

The autopopulation portion works flawlessly:
Me![Address] = Me.SiteSelect.Column(2)
Me![AssignedTechs] = Me.SiteSelect.Column(3)

I added the button command to the end of that like this:
Private Sub SiteSelect_AfterUpdate()
Me![Address] = Me.SiteSelect.Column(2)
Me![AssignedTechs] = Me.SiteSelect.Column(3)
If Me.SiteSelect = "Brandon, MB" Then
Me.Dispatch2.Visible = True
Else
Me.Dispatch2.Visible = False
End If