Getting a message “Library routine call out of sequence.” Not sure why Im getting there error. Here is the code I’m using.
[code]Public Function OpenTaxTable(sDatabaseName as String) as Boolean
Dim bDBOpened As Boolean = False
dbTaxTableDir = GetFolderItem(App.LocalFoxieUpdatePath).Child(“TaxTables”)
If dbTaxTableDir <> Nil Then
If dbTaxTableDir.Exists And dbTaxTableDir.directory Then
dbTaxTableFile = dbTaxTableDir.child(sDatabaseName)
If dbTaxTableDir <> Nil Then
dbTaxTable = New REALSQLdatabase
dbTaxTable.DatabaseFile = dbTaxTableFile
dbTaxTable.EncryptionKey = App.Toby
If Not dbTaxTableFile.Exists Then
If dbTaxTable.CreateDatabaseFile Then
If dbTaxTable.Connect Then bDBOpened = True
End If
Else
If dbTaxTable.Connect Then
bDBOpened = True
If dbTaxTableFile.Locked Then dbTaxTableFile.Locked = False
End If
End If
End If
End If
End If
MsgBox dbTaxTable.ErrorMessage
Return bDBOpened
'Dim bDBOpened As Boolean
'bDBOpened = False
’
’
'dbTaxTableDir = GetFolderItem(App.LocalFoxieUpdatePath).Child(“TaxTables”)
'If dbTaxTableDir <> Nil Then
'If dbTaxTableDir.Exists And Not dbTaxTableDir.directory Then
''not okay
'Elseif dbTaxTableDir.Exists And dbTaxTableDir.directory Then
’
’
'dbTaxTableFile = dbTaxTableDir.child(sDatabaseName)
'If dbTaxTableFile <> Nil Then
'If dbTaxTableFile.exists Then
’
'dbTaxTable = New REALSQLdatabase
'dbTaxTable.DatabaseFile = dbTaxTableFile
'dbTaxTable.EncryptionKey = App.Toby
’
’
'MsgBox dbTaxTableFile.absolutePath
’
'If dbTaxTable.Connect Then
'bDBOpened = True
'End If
’
’
’
'end if
'end if
’
'end if
'End If
’
'Return bDBOpened
End Function
[/code]
Anybody know why this is happening?