I wrote this script in VBA in an Access form below:
Private Sub lblHuaweiReporting_DblClick(Cancel As Integer)
'This code created in part by Command Button Wizard.
On Error GoTo Err_lblHuaweiReporting_DblClick
DoCmd.OpenForm "Huawei Reporting", acNormal, , , acFormAdd, acWindowNormal, "Open_" & Me.Name
DoCmd.Close acForm, Me.Name, acSaveNo
Exit_lblHuaweiReporting_DblClick:
MsgBox Err.Description
Resume Exit_lblHuaweiReporting_DblClick
End Sub
I got a error at the beginning "Private Sub lblHuaweiReporting_DblClick(Cancel As Integer)" when I clicked on the command button. I am not sure what the error is. Do you have an idea?
Private Sub lblHuaweiReporting_DblClick(Cancel As Integer)
'This code created in part by Command Button Wizard.
On Error GoTo Err_lblHuaweiReporting_DblClick
DoCmd.OpenForm "Huawei Reporting", acNormal, , , acFormAdd, acWindowNormal, "Open_" & Me.Name
DoCmd.Close acForm, Me.Name, acSaveNo
Exit_lblHuaweiReporting_DblClick:
MsgBox Err.Description
Resume Exit_lblHuaweiReporting_DblClick
End Sub
I got a error at the beginning "Private Sub lblHuaweiReporting_DblClick(Cancel As Integer)" when I clicked on the command button. I am not sure what the error is. Do you have an idea?