The SendKeys didn't work. Here's the current code:
I tested this and made no changes to data, so validation would have passed. I set my breakpoint on the IF statement, and found that ctlTemp and ctlTemp2 were pointing to the same control.Code:'** 'Menu Click Event Handler Private Sub MnuSave_Click() 'On Error Resume Next 'Manually fire validation for the current control 'If validation passes, call ToolAction Dim ctlTemp As Control Dim ctlTemp2 As Control Set ctlTemp = Me.ActiveControl SendKeys "{TAB}" Set ctlTemp2 = Me.ActiveControl If Not (ctlTemp Is ctlTemp2) Then Call m_objForm.ToolAction(tbrBntSAVE_REC) End If Set ctlTemp = Nothing Set ctlTemp2 = Nothing End Sub
What can I try next?




Reply With Quote