'© Serg Gribanow E-mail prbasic@lcpi.lipetsk.ru
'Îáíîâëåíèå ñâåäåíèé î ïîäêëþ÷åíèè òàáëèö.
Function RefreshLinksToTable(ByVal FileName As String) As Boolean
    
    Const MAXTABLES =  5 
    Const NONEXISTENT_TABLE =  3011 
    Const NWIND_NOT_FOUND =  3024 
    Const ACCESS_DENIED =  3051 
    Const READ_ONLY_DATABASE =  3027 
    
    Dim CountTable As Integer
    Dim i As Integer
    Dim MyTable As TableDef
    Dim MyDB As Database
 
    If Len(FileName) =  0  Then
        RefreshLinksToTable = False
        Exit Function
    End If
    
    Set MyDB = CurrentDb
    RefreshLinksToTable = True

    On Error Resume Next   '  Ïðîäîëæèòü, åñëè ïîäêëþ÷åíèå íåâåðíî.
       
    DoEvents
    DoCmd.OpenForm "dlgConnect"
    DoEvents
    DoCmd.HourGlass (True) 'Óñòàíàâëèâàåì ïåñî÷íûå ÷àñû
    Call SysCmd(SYSCMD_INITMETER,  "Ïîäêëþ÷åíèå òàáëèö..." , MAXTABLES)
             
    ' Ïðîâåðèòü âñå ïîäêëþ÷åíèÿ.
    CountTable = 1
    For i = 0 To MyDB.TableDefs.Count - 1 Step 1
        Set MyTable = MyDB.TableDefs(i)
        
        If MyTable.Connect <> "" Then
            MyTable.Connect = ";DATABASE=" & FileName
            Err = 0
            MyTable.RefreshLink
            If Err <> 0 Then
               Select Case Err
               
                Case NONEXISTENT_TABLE
                  MsgBox "Ôàéë ' " & FileName & " ' íå ñîäåðæèò íåîáõîäèìîé òàáëèöû ' " & MyTable.SourceTableName & " '", 16, "Îøèáêà çàïóñêà ïðèëîæåíèÿ."
                Case NWIND_NOT_FOUND
                  MsgBox "Íåíàéäåí ôàéë áàçû äàííûõ", 16, "Îøèáêà çàïóñêà ïðèëîæåíèÿ."
                Case ACCESS_DENIED
                  MsgBox "Îøèáêà îòêðûòèÿ " & FileName & ".", 16, "Îøèáêà çàïóñêà ïðèëîæåíèÿ."
                Case READ_ONLY_DATABASE
                  MsgBox "Ôàéë ïðèëîæåíèÿ èìååò àòðèáóò 'Òîëüêî äëÿ ÷òåíèÿ'", 16, "Îøèáêà çàïóñêà ïðèëîæåíèÿ."
                Case Else
                  MsgBox Error, 16, "Îøèáêà çàïóñêà ïðèëîæåíèÿ"
                End Select
                          
             RefreshLinksToTable = False
             GoTo errRefreshLinksToTable
                       
            End If
            
            CountTable = CountTable + 1
            Call SysCmd(SYSCMD_UPDATEMETER, CountTable)
          End If
    Next i


errRefreshLinksToTable: 'Ìåòêà ñáðîñà ïåðåìåííûõ è çàêðûòèÿ ôîðì
  
 Call SysCmd(SYSCMD_REMOVEMETER)
 DoCmd.HourGlass (False)
 DoCmd.Close acForm,  "dlgConnect" 
 DoEvents
 Set MyDB = Nothing
 
 If RefreshLinksToTable Then Call MsgBox( "Ïîäêëþ÷åíèå ê ÁÄ âûïîëíåíî@@Ïîñëå íàõàòèÿ êíîïêè <ÎÊ> ìîæíî ïðèñòóïàòü ê ðàáîòå" ,  "Âíèìàíèå !" )
End Function
'**********************************