Loosing Cursor on Form after Set Me.Recordset = Rs

[msange]

I am facing a unique problem with Recordset, struggling to resolve since a couple of days and requesting assistance, please.
Dim Rs as DAO.Recordset
Dim db as DAO.Database
Dim Path_ as String
Path= “C:\Test.accdb”

Set db = OpenDatabase(Path_, False, False)
Sql = “Select * From tbl_Users”
Set Rs = db.OpenRecordset(Sql)
Set Me.Recordset = Rs
txtTextBox.SetFocus

Record displays but the cursor is lost, except CTRL + TAB no other key on keyboard works unless anywhere on the form mouse is clicked. This is strange this only happens when Set Me.Recordset = Rs is applied. Tried on multiple PC with the same result.

Alternative below work
Sql = “Select * From [“ & Path_ & “].tbl_Users”


Me.Recordsource = Sql
Me.Requery
txtTextBox.SetFocus

This works perfect and not facing any issues.

[davegri]

This works perfect and not facing any issues.

So, what is the problem?

[msange]

Set db = OpenDatabase(Path_, False, False)
Sql = “Select * From tbl_Users”
Set Rs = db.OpenRecordset(Sql)
Set Me.Recordset = Rs
txtTextBox.SetFocus
Record displays but the cursor is lost, except CTRL + TAB no other key on keyboard works unless anywhere on the form mouse is clicked.

[davegri]

Fix thse problams and try again...

Dim Sql as string              'missing
Dim Rs as DAO.Recordset
Dim db as DAO.Database
Dim Path_ as String
Path= “C:\Test.accdb”        'should be Path_

Set db = OpenDatabase(Path_, False, False)
Sql = “Select * From tbl_Users”
Set Rs = db.OpenRecordset(Sql)
Set Me.Recordset = Rs
txtTextBox.SetFocus

[msange]

Same Record displays but the cursor is lost, except CTRL + TAB no other key on keyboard works unless anywhere on the form mouse is clicked.

[davegri]

You're not telling us something. Your original code COULD NOT have run without syntax errors. What event is the code behind and what is the complete procedure code? Do you have 'Option Explicit' at the top of the module?
Are you using ODBC connections?
Furthermore, if the alternate code works OK, why not use that, and abandon code that doesn't?

[msange]

I am trying the first option because it is faster accessing external MS Access file over a network drive. For time being I found a HACK

SendKeys "%"
SendKeys "{ESC}"

cursor return back to form and rest works normal. Strange behaviour.