Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Flex Vba Lose Focus 1

Status
Not open for further replies.

vanessa03

Technical User
May 13, 2003
110
US
Macola 7.7.200 SQL2000- Since upgrading from 7.6.300 the lose focus event doesn't seem to be firing consisently. I have a message box in the lose focus event of the Collect\Prepaid drop down box on the Order Entry screen if the freight code is P. If I tab through all the fields it fires the message box; however, if I use the mouse and click the dropdown it doesn't fire the lose focus. And there is not a click event for the dropdown box. Anyone else have this problem? Thanks.
 
I ran across a similar issue when I was trying to upgrade to 7.7.200. I submitted a bug report and it was supposed to be fixed in 7.7.300 but I have not had a chance to test it.

29.220.272 Lose Focus Code
does not Run if
Enter is Pressed to
Save
Flexibility
(VBA &
ERS5)
screenw.dll v
77.300.0.109
 
I guess I will just have to upgrade. Thanks for answering.
 
I just tested this in 7.7.200 and I cannot get the lose focus to fire when you select the value via mouse click. I would report this as a bug.

As a workaround you should be able to put the same code on the TaxSched or TaxCode (whichever is applicable) GotFocus() event.

Software Sales, Training, Implementation and Support for Macola, Synergy, and Crystal Reports. Check out our Macola tools:
 
Thanks Don, Yes I did report as a bug. And I can't put it in the GotFocus of any other field after that because half the time we don't fill any of that out. But is there a way that when the user clicks on the save icon that I could display a message based on the collect\prepaid code?
 
Something like this:

Code:
Private Sub macForm_Save(AllowSave As Boolean)
    Select Case Left(ColPpd.Text, 1)
    
    Case Is = "P"
        MsgBox "Prepaid"
    Case Is = "C"
        MsgBox "collect"
    End Select
End Sub

Software Sales, Training, Implementation and Support for Macola, Synergy, and Crystal Reports. Check out our Macola tools:
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top