|
|
Подключение указанной таблицы определённого MDB файла (DAO)
Private Function AttachTableDAO(sConnectString As String, _
sSrsTableName As String, _
Optional sLocalTableName As String = "", _
Optional bMakeTableHidden As Boolean = False) As Long
Dim db As DAO.Database
Dim tdf As DAO.TableDef, sVal$
On Error GoTo AttachTableDAO_Err
If sLocalTableName = "" Then sLocalTableName = sSrsTableName
Set db = CurrentDb()
If DCount("*", "MSysObjects", "[Name]='" & sLocalTableName & "' AND Type=6") > 0 Then
DoCmd.SetWarnings False
DoCmd.DeleteObject acTable, sLocalTableName
DoCmd.SetWarnings True
End If
Set tdf = db.CreateTableDef(sLocalTableName)
tdf.Connect = sConnectString
tdf.SourceTableName = sSrsTableName
db.TableDefs.Append tdf
If bMakeTableHidden = True Then
Application.SetHiddenAttribute acTable, tdf.Name, True
End If
AttachTableDAO_End:
On Error Resume Next
Set tdf = Nothing
db.Close
Set db = Nothing
Err.Clear
Exit Function
AttachTableDAO_Err:
AttachTableDAO = Err.Number
sVal = "Error " & Err.Number & " (" & Err.Description & ") in Function" & _
"AttachTableDAO - modConnection_DAO."
Debug.Print sVal
Err.Clear
Resume AttachTableDAO_End
End Function
|
|