CLIENT/SERVEUR AVEC DBASE ACCESS 9X/2000

Private Sub Form_Load()
Dim i As Integer
Me.Show

On Error GoTo LoadError

  Set goStatusPanel = Me.Supp
  goStatusPanel.Caption = "Connection au serveur..."
   ' Set gDB = Workspaces(0).OpenDatabase(gstrDBName, , False) Insérer ce code pour la connexion vers une chaîne ODBC ou SQL
   Set gDB = OpenDatabase(gstrDBName, , False, True) ' pour Access 9x/2000
   
LoadExit:
     goStatusPanel.Caption = "Connection établie avec succès..."
  Exit Sub
  
LoadError:
  
  'Gestionnaire d'erreur avancé, si votre base de donnée est introuvable
  'renvoi l'erreur 3024 comme code.
  If Err = 3024 Then
      Me.TimerLoad.Enabled = False ' désactiver le contrôle Timer du formulaire de démarrage, s'il n'ya pas ce contrôle, "supprimer" cette ligne.
      'Applique les propriétés CommonDialog avant l'affichage.
      With CommonDialog1
        .DialogTitle = "Impossible de localiser la Base de Données"
        .Filter = "DBase CyberSite (*.mdb)|*.mdb"
        .InitDir = CurDir
        .FileName = ""
        .Flags = cdlOFNExplorer Or cdlOFNFileMustExist Or cdlOFNPathMustExist
        .ShowOpen
        'vérifier que filename n'est pas une chaîne vide
        If .FileName <> "" Then
          'Vérifier que la DBase ouverte est réellement cybersite.mdb
          If Right(UCase(.FileName), Len("cybersite.mdb")) = "CYBERSITE.MDB" Then
            gstrDBName = .FileName
          End If
          Me.TimerLoad.Enabled = True 'Réactive le contrôle Timer
          Resume
        Else
          If .FileName = "" Then
            goStatusPanel.Caption = "Connection intérompue !!"
            MsgBox "Base de Données CyberSite non définie, démarrage de l'application impossible !", vbCritical, "Erreur de chargement"
            End
          End If
          Unload Me
        End If
      End With
  ElseIf Err <> 0 Then ' Autres erreurs...
      MsgBox Error$ & " - " & Str$(Err) & vbCrLf & "Erreur non générée par l'application.", vbExclamation, "Erreur fatale"
      End
  End If
  
  Resume LoadExit
End Sub