[Help] Button Visible

[Jon1092]

Hi there,

I am trying to do a script with a admin page. For example if I want to stop my team adding new customers I'm going to remove the new customer button on my form by using a table in another form. So if I want to hide button1 I will go into table3 and click the buttonvisable yes/no and it will hide on my other form. Im having problems with linking the button to the table.



Here is a copy of the code.

Dim SeeButton As String
SeeButton = DLookup("ButtonVisible", "HomeScreenButtons", "ButtonVisible =", Me.GuestBut1)
If SeeButton = Yes Then
MsgBox "It can be seen"
Else
MsgBox "It cannot be seen"


End If

in the table is ID, Button Name, ButtonVisible, buttonenabled

Im loosing my mind

thank you in advance

Jon

[pbaldy]

Well, you're passing the "value" of the button, not the name. Perhaps

Me.GuestBut1.Name

or just pass a string.

[Jon1092]

I tried me.guestbut1.name i got a compile error with dlookup highlighted and a message of compile error: Wrong number of arguments or invalid propertu assignment.

[isladogs]

The filter criteria for your DLookup is incorrect. Replace the comma with an ampersand &.

Also the following line looks wrong.
As SeeButton is a string then you need to enclose Yes in quotes: "Yes"

[Jon1092]

Fixed the & and now getting run-time error '438': Object doesnt support this property or method

[pbaldy]

I'll get out of the way.

[isladogs]

Did you also modify the following line as suggested?

[Jon1092]

Yes I reread the comments again and I have got it working to a ok level just needs tweeking thank you for all your help guys

[accesstos]

Presuming that the data type of ButtonVisible is Yes/No, your original code could be:

Dim SeeButton As Boolean
SeeButton = DLookup("ButtonVisible", "HomeScreenButtons", "[Button Name] ='" & Me.GuestBut1.Name & "'")
If SeeButton Then
    MsgBox "It can be seen"
Else
    MsgBox "It cannot be seen"
End If

and in actual script:

With Me.GuestBut1
    .Visible = DLookup("ButtonVisible", "HomeScreenButtons", "[Button Name] ='" & .Name & "'")
End With