Soyez le premier à donner votre avis sur cette source.
Vue 10 877 fois - Téléchargée 1 424 fois
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
Je tiens aussi à te remercier pour tes réponses, rapides et claires.
Tu es fort sympathique, continue comme ca.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.