Set Focus Not working on a form
I have a form that onlost focus of txtBadgID executes the following
code: Private Sub txtBadgeID_AfterUpdate() strEmpID = DLookup("[id]", "tblEmployee", "[BadgeID] = forms!frmSave!checkedoutby") If IsNull(strEmpID) Then MsgBox "Badge Not Found, Enter Employee then Proceed!", vbCritical, "Equipment Check Out" Me.txtBadgeID.Value = "" Me.txtBadgeID.SetFocus Exit Sub End If Me.Employee_ID.Value = strEmpID Me.Equipment_ID.Value = Forms!frmScanLocation.txtEquipmentID Me.CheckedOut.Value = True DoCmd.Close Forms!frmScanLocation.Visible = True Forms!frmScanLocation.txtScanLoc.Value = "" End Sub My problem is that txtBadgID is not gaining focus if strEmpID isNull (the first if Statement. Any Ideas? It then line me.txtBadgeID.Setfocus should work... The line me.txtBadgeID.Value = "" does in face clear the text box from all text.. Any thoughts? Thanks, Dave |
Set Focus Not working on a form
I followed this instructions and it worked. the msgbox was coming up
but the set focus wasnt working found the fix at this post.. http://groups.google.com/group/micro...ab1e7b475573d3 Thanks, Dave Alok wrote: Sorry, change If isnull(strEmpID) then to If strEmpID="" then Alok " wrote: I have a form that onlost focus of txtBadgID executes the following code: Private Sub txtBadgeID_AfterUpdate() strEmpID = DLookup("[id]", "tblEmployee", "[BadgeID] = forms!frmSave!checkedoutby") If IsNull(strEmpID) Then MsgBox "Badge Not Found, Enter Employee then Proceed!", vbCritical, "Equipment Check Out" Me.txtBadgeID.Value = "" Me.txtBadgeID.SetFocus Exit Sub End If Me.Employee_ID.Value = strEmpID Me.Equipment_ID.Value = Forms!frmScanLocation.txtEquipmentID Me.CheckedOut.Value = True DoCmd.Close Forms!frmScanLocation.Visible = True Forms!frmScanLocation.txtScanLoc.Value = "" End Sub My problem is that txtBadgID is not gaining focus if strEmpID isNull (the first if Statement. Any Ideas? It then line me.txtBadgeID.Setfocus should work... The line me.txtBadgeID.Value = "" does in face clear the text box from all text.. Any thoughts? Thanks, Dave |
All times are GMT +1. The time now is 07:48 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com