Verifier l'existence d'une table avec message

**m_charmat** · 23/08/2015, 12h38

bonjour,

J'ai fait en sorte de partage une application sous réseau, cette fonction n'existe plus sous access 2013 malheureusement, alors j'ai fait en sorte de faire une liaison des tables seulement, malheureusement si les machines ne se connecte pas au modem, l'application ce bloc et le PC aussi.
Je cherche une solution pour vérifier l’existence des tables sur le réseau pendant l'ouverture d'un formulaire appeler "Verificateur" pour que l'application ne ce bloc pas, avec des messages de bienvenu, et si le réseau est déconnecté, annonce un message d'erreur comme "désoler, le réseau est déconnecté".

J'ai trouver ce code que j'ai insérer dans un module (T_Expertise = nom de ma table)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    Public Function TableExist(T_Expertises As String) As Boolean
 
        TableExist = False
        For Each tdf In CurrentDb.TableDefs
            If tdf.Name = T_Expertises Then TableExist = True: Exit For
        Next
 
    End Function

ça n'a rien donnée, alors

J'ai opter pour celui là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Function TableExiste( _
  db As DAO.Database, _
  ByVal T_Expertises As String) _
  As Boolean
 
  Dim tdf As DAO.TableDef
 
  ' Parcourir toutes les tables de la base
  For Each tdf In db.TableDefs
    If tdf.Name = T_Expertises Then
      ' La table a été trouvée...
      TableExiste = True
MsgBox "Bonjour et bienvenu"
      Exit Function
    End If
  Next
 
  ' La table n'existe pas...
  TableExiste = False
MsgBox "Désolé, la connexion n'est pas établie"
        DoCmd.Quit
End Function

Non plus.

Alors j'ai eu l'idée de ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
If DCount("ID_Expertises", "T_Expertises") = 0 Then
        MsgBox "Désolé, la connexion n'est pas établie"
        DoCmd.Quit
     Else
    MsgBox "Bonjour et bienvenu"
 
                    End If

Un désastre.

Merci d'avance de m'aider, merci

**fclus** · 24/08/2015, 09h19

Voici une fonction qui vérifie l'existence des tables :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Function fCheckLinks()
 
    Dim rst As DAO.Recordset
 
    Set dbs = CurrentDb()
 
    On Error Resume Next
 
    nbTbl = dbs.TableDefs.Count
 
        For idx = 0 To nbTbl - 1
 
        Set TblDef = dbs.TableDefs(idx)
 
            If TblDef.Attributes = dbAttachedTable Then
 
            Set rst = dbs.OpenRecordset(TblDef.Name)
 
            End If
 
        Next idx
 
    'If Err <> 0 Then
        'MsgBox "The link to the database must be updated ! Please select its location !"
 
    'End If
 
    rst.Close
 
    dbs.Close
 
    Set rst = Nothing
 
    Set dbs = Nothing
 
End Function