By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
446,136 Members | 1,842 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 446,136 IT Pros & Developers. It's quick & easy.

Set Focus Not working on a form

P: n/a
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

Dec 22 '06 #1
Share this Question
Share on Google+
2 Replies


P: n/a
(1) For the record, the LostFocus and AfterUpdate events are not the same.

(2) If the Control never _gets_ the focus, you are going to have to put your
code somewhere other than one of that Control's events.

Larry Linson
Microsoft Access MVP

<st********@hotmail.comwrote in message
news:11**********************@48g2000cwx.googlegro ups.com...
>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

Dec 23 '06 #2

P: n/a
Try replacing Me.txtBadgeID.SetFocus with Cancel = True

--
There's ALWAYS more than one way to skin a cat!

Answers/posts based on Access 2000

Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...ccess/200612/1

Dec 23 '06 #3

This discussion thread is closed

Replies have been disabled for this discussion.