Hide Command Button if Field Is Null

[alnino]

Hi,

I have a command button on a form that the user can use to browse to a file and the user can select that file and a hyperlink to that file is stored in a txtfield for that record.

I then have a command button that a user can click to open and view the associated file.

This all works fine. BUT:

I would like the command button that allows the user to view the file to be hidden if no hyperlink was added. In other words the txtfield for the hyperlink IsNull.

Here is what I have tried with no luck:

 
Private Sub txtSelectedFile_AfterUpdate()
If (Me.[txtSelectedFile]) = IsNull Then
cmdExplore.Visible = False
Else
cmdExplore.Visible = True
End If
 
End Sub
 
 

Thank you!!!

[MMcCarthy]

Try this ...

 
Private Sub txtSelectedFile_AfterUpdate() 
    If NZ(Me.[txtSelectedFile], "") = "" Then 
        cmdExplore.Visible = False 
    Else 
        cmdExplore.Visible = True 
    End If 
 
End Sub 
 
 

[alnino]

Thank you for the reply... But no luck. Command Button still visible when field is blank.

[MMcCarthy]

Add the Me! reference just in case there is a problem with the button name.

 
Private Sub txtSelectedFile_AfterUpdate() 
    If NZ(Me!txtSelectedFile, "") = "" Then 
        Me!cmdExplore.Visible = False 
    Else 
        Me!cmdExplore.Visible = True 
    End If 
 
End Sub 
 
 

You should always add it anyway and if you run the debug option it will tell you if there is a problem with the reference. Otherwise check the textbox txtSelectedFile and see if it is holding any blank spaces.

[nico5038]

I created a hyperlink table field named "x" and used in the InCurrent event:

Private Sub Form_Current()
Me.x.Visible = Not IsNull(Me.x)
Me.Repaint
End Sub
 

And my x field was invisible when Null...

Nic;o)

[alnino]

Thank you for all of the responses.

It now works with a combination of code, using the Form_Current():
Thank you!!!

 
Private Sub Form_Current()
 
    If Nz(Me!txtSelectedFile, "") = "" Then
        Me!cmdExplore.Visible = False
    Else
        Me!cmdExplore.Visible = True
    End If
 
End Sub
 
 

[alnino]

Thank you all for your help....

One last question:

The screen only refreshes if I advance a record and then come back. Is there a way to "refresh" or "repaint" when this txt field is either null or contains data?

I am not sure what event to use or which field to call for such an event.

Thank you

[MMcCarthy]

In the after update event of the txtSelectedFile textbox try ...

Form_Current
 

This will re-run any and all code in the forms current event.

[alnino]

I have tried this but no luck

Private Sub txtSelectedFile_AfterUpdate()
Form_Current
End Sub
 

[MMcCarthy]

Me.Refresh will clear out any unbound text boxes. If that is what you are trying to do. If you explain what it is you want to happen I might be able to help better.