G
Guest
I have a switchboard that contains a button that opens with my inventory
field form.
This button contain is the following OnClick:
Private Sub buttonVIEWSIGNRECORDS_Click()
On Error GoTo Err_buttonVIEWSIGNRECORDS_Click
Dim stDocName As String
Dim stLinkCriteria As String
Forms!frmMainSwitchBoard.Visible = False
stDocName = "Form Sign Inventory"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Forms![Form Sign Inventory]!Command151.Visible = False
Exit_buttonVIEWSIGNRECORDS_Click:
Exit Sub
Err_buttonVIEWSIGNRECORDS_Click:
MsgBox Err.Description
Resume Exit_buttonVIEWSIGNRECORDS_Click
End Sub
The problem is that now the Command151 is not being hiden when the inventory
form opens. This worked fine for a long time, but recently I noticed it has
stopped.
My OnOpen event of the inventory form is as follows:
Private Sub Form_Open(Cancel As Integer)
DoCmd.SetWarnings False
DoCmd.OpenQuery "qryImagePathUpdate"
DoCmd.SetWarnings True
End Sub
Thanks for the help.
field form.
This button contain is the following OnClick:
Private Sub buttonVIEWSIGNRECORDS_Click()
On Error GoTo Err_buttonVIEWSIGNRECORDS_Click
Dim stDocName As String
Dim stLinkCriteria As String
Forms!frmMainSwitchBoard.Visible = False
stDocName = "Form Sign Inventory"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Forms![Form Sign Inventory]!Command151.Visible = False
Exit_buttonVIEWSIGNRECORDS_Click:
Exit Sub
Err_buttonVIEWSIGNRECORDS_Click:
MsgBox Err.Description
Resume Exit_buttonVIEWSIGNRECORDS_Click
End Sub
The problem is that now the Command151 is not being hiden when the inventory
form opens. This worked fine for a long time, but recently I noticed it has
stopped.
My OnOpen event of the inventory form is as follows:
Private Sub Form_Open(Cancel As Integer)
DoCmd.SetWarnings False
DoCmd.OpenQuery "qryImagePathUpdate"
DoCmd.SetWarnings True
End Sub
Thanks for the help.