Make a Cmd button conditionally invisible 1

[MikeGeitner]

Hello,

I'm trying to make a command button on a form disappear if the user selects "CONT.TEV" from the list. The combo box list values are from this query in the combobox properties / row source:

SELECT [CUSTOMER NAME].[ID], [CUSTOMER NAME].[CUSTOMER CODE] FROM [CUSTOMER NAME];

The code I've been trying is this:

Private Sub CboCust_AfterUpdate()
If Me.CboCust = "CONT.TEV" then
Me.CmdPrintLotTag.visible = false
else
Me.CmdPrintLotTag.visible = true
End if
End Sub

This code does'nt work on this combo box, but will if I use it on a text box.
Any help for this newbie is greatly appreciated.

Thanks,
Mike

 

[ZmrAbdulla]

Try

Private Sub CboCust_AfterUpdate()
    If Me.CboCust.Column(1).Value = "CONT.TEV" Then
        Me.CmdPrintLotTag.Visible = False
    Else
        Me.CmdPrintLotTag.Visible = True
    End If
End Sub

________________________________________________________
Zameer Abdulla
Help to find Missing people
Do not cut down the tree that gives you shade.

 

[MikeGeitner]

Zameer,

Progress! Now I get a "Run time '424': Object required" Error.


Mike

 

[ZmrAbdulla]

try changing

[s]If Me.CboCust.Column(1).Value = "CONT.TEV" Then[/s]

If Me.CboCust.Column(1)= "CONT.TEV" Then

I don't know "CONT.TEV" is customer name or customer ID. if it is id then use column(0)

________________________________________________________
Zameer Abdulla
Help to find Missing people
Do not cut down the tree that gives you shade.

 

[MikeGeitner]

Yes, "CONT.TEV" is the customer name. The "bound column" in the properties is (2). So, I changed your code to .column(2). It no longer results in an error; but nothing happens at all.

Mike

 

[ZmrAbdulla]

Column count starts at 0 not 1. That means bound coulmn = 2 means Column(1). change .column(2) to .column(1) and try.

________________________________________________________
Zameer Abdulla
Help to find Missing people
Do not cut down the tree that gives you shade.

 

[MikeGeitner]

Thanks, Zameer!

The column is indeed (1). I ran the query that populates the combo box and found that the customer "Cont.Tev" had a space in it ("Cont. Tev"), so the button would never dissappear. Now it works!

Thank you very much. This forum is really helping me become "self-taught".

Mike

 

[PHV]

And the oneliner version:
Me!CmdPrintLotTag.Visible = (Me!CboCust.Column(1) <> "CONT. TEV")

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

 

[ZmrAbdulla]

As always! greate..

________________________________________________________
Zameer Abdulla
Help to find Missing people
Do not cut down the tree that gives you shade.