Error Converting Access 2003 db to 2007 2

[straybullet]

Since adding the following, the person I've been trying to help with a database has been getting an error when trying to convert to 2007. It's 3356, telling her she is trying to open a database which is opened exclusively... I've run a decompile, used the Compile selection on the Debug menu, made sure the default open mode is shared. I know I'm missing something... any ideas?

Function Concatenate(pstrSQL As String, _
        Optional pstrDelim As String = ", ") _
            As String

    Dim rs As New ADODB.Recordset
    rs.Open pstrSQL, CurrentProject.Connection, _
            adOpenKeyset, adLockOptimistic
    Dim strConcat As String 'build return string
    With rs
        If Not .EOF Then
            .MoveFirst
            Do While Not .EOF
                strConcat = strConcat & _
                    .Fields(0) & pstrDelim
                .MoveNext
            Loop
        End If
        .Close
    End With
    Set rs = Nothing
    
    If Len(strConcat) > 0 Then
        strConcat = Left(strConcat, _
            Len(strConcat) - Len(pstrDelim))
    End If
    Concatenate = strConcat
End Function

Let them hate - so long as they fear... Lucius Accius

 

[ck1999]

Try
dim dbs as database
Set dbs = CurrentDb
dim rs as recordset
set rs as dbs.openrecordset(pstrSQL)

if this does not work try looking up in help openrecordset


ck1999

 

[KenReay]

What makes you think the error is occuring in the function you posted?, there is no on error statement to trap error(s).

Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
UK

 

[straybullet]

Thank you CK, I'll try that.

Ken, adding that code and using the function in a query were the only changes made between the copy of the database which she had been able to successfully convert to 2007 and the next one which gave her the error. I thought perhaps there was something in the function which would need editing so that it would convert properly.

Let them hate - so long as they fear... Lucius Accius

 

[RobertT687]

My $0.02.
See if there is an .ldb file associated with the 2003 database. If the .ldb file isn't getting deleted Access 2007 may think the older db is already open. If the 2003 db is closed, there shouldn't be a problem deleting the .ldb file before trying to convert it.

 

[straybullet]

I'll check with her if she's converting from the open database or converting it closed.

Let them hate - so long as they fear... Lucius Accius