Re: Fix so FindFirst works with Caps Lock On.

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

I'm afaid I'm unable to reproduce your problem, so I can't offer any
suggestions.


--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no private e-mails, please)


"bw" <iamnu@xxxxxxxxxxxx> wrote in message
news:12mp7dbin02vh89@xxxxxxxxxxxxxxxxxxxxx
Yes, lblBankName is the name of the combo box.
I'm talking about typing an entry that exists in the list.

Assume the first name in the list, which has the focus, is "Bank One".
Also assume a bank name of "Finance Bank" in the list and "Fish Bank" is
also in the list.
I can type "fis" to go to the "Fish Bank" record.

But typing "FIS" (or even "FI") seems to cause the focus to go to the the
3rd character of the first name in the list which matches the typed input.
So the resulting name in the box looks like this after each character is
typed:
F>Finance Bank
FI>Finance Bank
FIS>FiSance Bank.....The focus in now after the 3rd character, not on the
whole field.


"Douglas J. Steele" <NOSPAM_djsteele@xxxxxxxxxxxxxxxxx> wrote in message
news:u5y0uZyEHHA.4464@xxxxxxxxxxxxxxxxxxxxxxx
Given that Jet (the database engine used by Access) is case-insensitive,
it doesn't make sense that case should matter.

What exactly do you mean by "enter the name"? Are you talking about
selecting an entry in the list using the mouse, typing an entry that
exists in the list, or typing an entry that doesn't exist in the list?
(I'm assuming lblBankName is the name of your combo box)

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"bw" <iamnu@xxxxxxxxxxxx> wrote in message
news:12mp1r4hlptbf30@xxxxxxxxxxxxxxxxxxxxx
Below is the event for a combo box.
If I enter the name with Caps Lock OFF, it works fine.
If I enter the name with Caps Lock ON, it doesn't work.
I'd like it to work whether Caps Lock is On or Off.

Private Sub lblBankName_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.MoveFirst
rs.FindFirst "[BankID] = " & Str(Me![lblBankName])
If rs.NoMatch Then
MsgBox "Record not found"
rs.MoveFirst
Me.lblBankName = [BankID]
Else
Me.Bookmark = rs.Bookmark
End If
End Sub


--






.

Relevant Pages