Вопрос: как _правильно_и_надежно_ проверить доступность базы?
Offtop: а какой смысл при создании темы выводить запрос с ОК и Отмена, если результат один?
[EDIT] Небольшая иллюстрация:
- Код: Выделить всё
Function gErrorHandler() As Boolean
On Error Resume Next
If Not BaseExists(mySett.sBaseDir & cMainBase) Then
Do
fmMain.sbarMain.Panels(1).Text = "Нет доступа к базе данных, пауза 5 сек..."
Sleep 5000
DoEvents
Loop Until BaseExists(mySett.sBaseDir & cMainBase)
End If
Err.Clear
End Function
Function BaseExists(sBase As String, Optional db As Database, Optional sConnect _
As String, Optional sErr As String) As Boolean
Dim bDB As Boolean
On Error GoTo er
sErr = ""
bDB = db Is Nothing
If bDB Then Set db = OpenDatabase(sBase, 0, 0, sConnect)
BaseExists = True
GoTo ok
er:
sErr = Err.Description
ok:
If bDB Then Set db = Nothing
Err.Clear
End Function
