Set rs = Me.Recordset.Clone shuts Access 2013 down!

[Amras]

Good afternoon and thank you for taking a moment to read my thread.

I've got a multitude of legacy databases that were all created as Access 2003-2007 .mdb files. After having upgraded to Office 2010 a few years ago, the company is now upgrading to Office 2013, so now all of these applications are being dragged, kicking and screaming, into the modern world.

One application, in particular, is giving me grey(er) hair. The user has a form where they'll enter an employee's LAN ID or name to access their record. The code below will populate the form:

Sub LoadEmployee(Senario As Integer)

On Error GoTo errorone
Dim Seach_Emp As Object
Dim rsRecord As Object


Select Case Senario
Case 1
    Set Seach_Emp = CurrentDb.OpenRecordset("SELECT [Candidate Unique ID], Name, [LAN ID], [No call center experience], [Long commute], [Recently moved to community], [College commitments], [Other (please specify)], [Other explaination] FROM [Hire profile] WHERE [Candidate Unique ID]=" & [LAN ID lookup] & ";")
    [Name lookup] = Seach_Emp![Candidate Unique ID]
    Set rsRecord = Me.Recordset.Clone
    rsRecord.findfirst "[Candidate Unique ID] = " & [LAN ID lookup]
    If Not rsRecord.EOF Then Me.Bookmark = rsRecord.Bookmark
Case 2
    Set Seach_Emp = CurrentDb.OpenRecordset("SELECT [Candidate Unique ID], Name, [LAN ID], [No call center experience], [Long commute], [Recently moved to community], [College commitments], [Other (please specify)], [Other explaination] FROM [Hire profile] WHERE [Candidate Unique ID]=" & [Name lookup] & ";")
    [LAN ID lookup] = Seach_Emp![Candidate Unique ID]
    Set rsRecord = Me.Recordset.Clone   'error here in Access 2013
    rsRecord.findfirst "[Candidate Unique ID] = " & [Name lookup]
    If Not rsRecord.EOF Then Me.Bookmark = rsRecord.Bookmark
End Select


Seach_Emp.Close


errorone:


Exit Sub


End Sub

The error occurs on line "Set rsRecord = Me. Recordset.Clone" in either Case 1 or Case 2; the error actually causes A2013 to crash.

This code works flawlessly in A2010. This is only a problem with the few people who have A2013 instead. Eventually, everyone will be migrated to 2013, so remaining in the A2010 environment isn't possible.

I have little experience with recordset clones and bookmarks, so hope that someone could shed some light on this issue. I hope I've explained my issue clearly enough. Thanks again for your time.

Amras

[Bulzie]

If you compile the code (Debug, Compile) does it give an error? Maybe try changing rsRecord As Object to rsRecord As Recordset and see what happens.

[Amras]

Thanks for the suggestion, Bulzie, but I'm still getting the same crash message "Microsoft Access has stopped working..." The database still works perfectly in 2010, but crashes in 2013.

[Missinglinq]

I agree that the

Dim rsRecord As Object

may need to be changed to

Dim rsRecord As Recordset

and may even need to be changed to

Dim rsRecord As DAO.Recordset

I seem to remember that the need to be more explicit has evolved as the post-2003 versions have increased.

Linq ;0)>

[Amras]

Thank you for chiming in, Missinglinq, but your suggestion didn't correct the error. The database still works in A2010, but still crashes in A2013.

[Bulzie]

Can you get to the code screen to run a compile(Debug, Compile)? If so does it give an error or no? Might be a missing Reference file?

[Amras]

I apologize for missing your question, Bulzie. I decompiled/recompiled. No errors there.

[Bulzie]

Can you change that part to a select statement or a query instead of RecordsetClone method?

Set rsRecord = "Select * from Table..."

[John_G]

Are you sure this is correct : Set rsRecord = Me.Recordset.Clone ?

In Access 2010 this should be Set rsRecord = Me.RecordsetClone - no period between Recordset and Clone

Try that and see if it works.

[Amras]

John_G, you nailed it! Thanks so very much for your direction. This is a legacy database that worked perfectly in prior versions of Access, but didn't play well with 2013! Such a minor matter to make a huge difference, but that was it. 'preciate your help, all.