Control the cursors location via code.

[Daiuy]

I'm creating an application that controls visitor's badges to our facility.
I want to ensure that one badge can not be issued to more than one
individual at a time. I've borrowed the following code but I'd like the
cursor to remain in the BadgeNumber text box if the message box is triggered.
Eventually, I will add a button to the message box that will allow me to go
to the record called out in the message box - that's why I'd like to know
where the duplication is occuring.
Again, if a duplicate is found - I'd like the cursor to remain in
BadgeNumber text box.

Private Sub BadgeNumber_AfterUpdate()

Dim StrWhere As String
Dim varResult As Variant

With Me.BadgeNumber
If (.Value = .OldValue) Then
'do nothing
Else
StrWhere = "BadgeNumber = """ & .Value & """"
varResult = DLookup("ID", "tblAccessControl", StrWhere)
If Not IsNull(varResult) Then
MsgBox "That Badge has Already been Issued in Record " &
varResult, 16
End If
End If
End With
End Sub

 

[Bob Howard]

You need to issue Me!BadgeNumber.SetCursor after the MsgBox and before the
first End If ---

 

[Daiuy]

First off, thank you for your speedy response.
I inserted the code as stated which resulted in a run time error '438':
Object doesn't support this property or method.
I'm using MS Access 2000 if that makes a difference.
Daiuy

 

[Bob Howard]

Sorry --- your question on the "cursor" got my brain twisted --- it's not
"SetCursor" --- it's "SetFocus" !!! Bob.

 

[Klatuu]

Else
StrWhere = "BadgeNumber = """ & .Value & """"
varResult = DLookup("ID", "tblAccessControl", StrWhere)
If Not IsNull(varResult) Then
MsgBox "That Badge has Already been Issued in Record " &
varResult, 16
Cancel = True
End If

 

[Daiuy]

Nope, the "Cancel = True" didn't work

Else
StrWhere = "BadgeNumber = """ & .Value & """"
varResult = DLookup("ID", "tblAccessControl", StrWhere)
If Not IsNull(varResult) Then
MsgBox "That Badge has Already been Issued in Record " &
varResult, 16
Cancel = True
End If

 

[Mark Phillipson]

Hi,

Sorry but I think it should be Me!BadgeNumber.SetFocus not SetCursor.


Free Add-Ins at; http://mphillipson.users.btopenworld.com/

 

[Klatuu]

Bob,
Correct me if I am wrong, but I think you cannot use a SetFocus on the
active control.

 

[Daiuy]

The "Me!BadgeNumber.SetFocus" didn't work either.
My frustration from yesterday is returning

 

[Daiuy]

The SetFocus didn't work.

 

[RuralGuy]

The SetFocus didn't work.

I believe if you place all of the code (including that from Klatuu) in the
BeforeUpdate event (which has a Cancel event) rather than the AfterUpdate
event it will work as you desire.

hth

RuralGuy

 

[Daiuy]

Success!
Thank you all for your input.
Placing the code in the BeforeUpdate vice AfterUpdate seems to have done the
trick.
Thanks again.

 

[RuralGuy]

Success!
Thank you all for your input.
Placing the code in the BeforeUpdate vice AfterUpdate seems to have
done the trick.
Thanks again.

You are very welcome from all of us.

RuralGuy