- 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
-
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