Borge Hansen
pcs at azizaz.com
Tue Aug 29 21:16:06 CDT 2006
Hmmmm... I always seem to get stuck when attempting to access and run code in an afterupdate event when trying to call and execute the event from another procedure in another module than the Form module the afterupdate event code resides in.... So what are the clear cuts on this.... please See the code snippet below Regards Borge /Code snippet: If FIsLoaded("frmSystem") Then If FIsLoaded("frmControl") Then Dim strSecName As String Dim boolModuleNamePresent As Boolean strSecName = Forms("frmSystem")("SecName") boolModuleNamePresent = DLookup("Screen1", "tblSystem", "SecName = '" & strSecName & "'") If boolModuleNamePresent Then Dim frm As Form Dim ctrl As ComboBox Set frm = Forms!frmControl Set ctrl = frm!cboNav ctrl.Value = "Clients" 'just for testing - tests ok! Dim vValue0 Dim vValue1 Dim vValue2 Dim vValue3 Dim vValue4 vValue0 = ctrl vValue1 = ctrl.Column(1) vValue2 = ctrl.Column(2) vValue3 = ctrl.Column(3) vValue4 = ctrl.Column(4) 'end just for testing 'HERE: how do I call the AfterUpdate event of cboNav in the open form called frmControl ?? ' cboNav_AfterUpdate to execute here Set frm = Nothing Set ctrl = Nothing Else MyMsgBox "You do not have access to the Clients Module" & vbCrLf & "Please see the System Administrator about this!", vbInformation End If Else MyMsgBox "This Form requires frmControl to be loaded!", vbCritical End If Else MyMsgBox "This Form requires frmSystem to be loaded!", vbCritical End If