BE DB Connection problem

[IpeXeuS]

Hi there,

I've a bit problem with connecting to my backend database on server.

I've a form that read's backend path to hidden text field with openargs in onload event. Then I've "OpenBackEnd True" code when form opens and "OpenBackEnd False" when form closes. I use code below:

Public Sub OpenBackEnd(X)
On Error GoTo Err_Handler

    Dim dbOpen() As DAO.Database

    If X = True Then
        Set dbOpen(X) = DBEngine.Workspaces(0).OpenDatabase(strFullBE, False, False)
    Else
        dbOpen(X).Close
    End If
    
Exit_Handler:
    Exit Sub
Err_Handler:
    MsgBox Err.Description
    Resume Exit_Handler
End Sub

But when I try to connect to database, there comes this error message:

Subscript out of range.

So if you gurus have any suggestions what I should do to make this right, please I'm glad to read your replies and all are approciated a lot. Thanks for advance...

 

[DJkarl]

Hi there,

I've a bit problem with connecting to my backend database on server.

I've a form that read's backend path to hidden text field with openargs in onload event. Then I've "OpenBackEnd True" code when form opens and "OpenBackEnd False" when form closes. I use code below:

Public Sub OpenBackEnd(X)
On Error GoTo Err_Handler

    Dim dbOpen() As DAO.Database

    If X = True Then
        Set dbOpen(X) = DBEngine.Workspaces(0).OpenDatabase(strFullBE, False, False)
    Else
        dbOpen(X).Close
    End If
    
Exit_Handler:
    Exit Sub
Err_Handler:
    MsgBox Err.Description
    Resume Exit_Handler
End Sub

But when I try to connect to database, there comes this error message:

Subscript out of range.

So if you gurus have any suggestions what I should do to make this right, please I'm glad to read your replies and all are approciated a lot. Thanks for advance...

This line

Dim dbOpen() As DAO.Database

is creating an array of databases, is that what you want? If so you need to dimension the array before you try to set it.

Redim dbOpen(lowerBound to upperBound)

But I'm guessing you don't need an array so just use this

Dim dbOpen As DAO.Database

Set dbOpen = DBEngine.Workspaces(0).OpenDatabase(strFullBE, False, False)

 

[IpeXeuS]

Ok mate, I'll give it a try and report here how did it go, ok.

 

[IpeXeuS]

I tryied that solution u suggest last one and that error message what I mention earlier is gone, but now there coming this error message when I'll try to close that database connection, what I opened when form opened:

Object variable or with block variable not set