G
Guest
I have 3 forms. There is a button on form A to call form B. But form B has no button. Form B will display something like "The system is in progress. Please wait". I have code on form B On_load to perform tables update. After the the update complete, the code will call form C to display "Progress is completed." and has a close button. So far it seems ok but at form C when the close button is click, I got a error message says :
The expression On Click you entered as the event property setting produced the following error: A problem occured while ERP System was communicating with the OLE server or ActiveX Control.
* The expression may not result in the name of a macro, the name of a user-defined function, or a [EventProcedure]
* There may have been an error evaluting the function, event or macro
Here are my codes:
form A:
Private Sub Proceed_Click()
<lines of codes>
DoCmd.Close acForm, Me.name
DoCmd.OpenForm FormName:="frmStockTakeInitialization1", WindowMode:=acDialog
End Sub
form B:
Private Sub Form_Load()
<lines for table update>
DoCmd.Close acForm, Me.name
DoCmd.OpenForm FormName:="frmStockTakeInitialization2", WindowMode:=acDialog
End Sub
from C:
Private Sub Close_Click()
DoCmd.Close acForm, Me.name
DoCmd.OpenForm FormName:="frmInventoryMenu", WindowMode:=acDialog
End Sub
Very much appreciated for advise. Thanks
The expression On Click you entered as the event property setting produced the following error: A problem occured while ERP System was communicating with the OLE server or ActiveX Control.
* The expression may not result in the name of a macro, the name of a user-defined function, or a [EventProcedure]
* There may have been an error evaluting the function, event or macro
Here are my codes:
form A:
Private Sub Proceed_Click()
<lines of codes>
DoCmd.Close acForm, Me.name
DoCmd.OpenForm FormName:="frmStockTakeInitialization1", WindowMode:=acDialog
End Sub
form B:
Private Sub Form_Load()
<lines for table update>
DoCmd.Close acForm, Me.name
DoCmd.OpenForm FormName:="frmStockTakeInitialization2", WindowMode:=acDialog
End Sub
from C:
Private Sub Close_Click()
DoCmd.Close acForm, Me.name
DoCmd.OpenForm FormName:="frmInventoryMenu", WindowMode:=acDialog
End Sub
Very much appreciated for advise. Thanks