Discussion :

[beegees]

Bonjour tout le monde,

J'ai du code dans mon form_load :

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
Private Sub Form_Load()
Dim n As Integer
 
    If Not BDConnecter("Contenu.mdb") Then
        MsgBox "Erreur d'ouverture de la base de données !", vbExclamation, Me.Caption
        Unload Me
        Exit Sub
    End If
    RemplirMonnaie
    RemplirBoisson
    For n = textInfo.LBound To textInfo.UBound
        textInfo(n).Text = ""
    Next n
    ActiverBouton
End Sub

Je vais dans la fonction BDConnecter() en lui passant le nom de ma bd :

If Not BDConnecter("Contenu.mdb") Then

et j'obtiens directement ce message d'erreur :

Erreur de compilation :

Type défini par l'utilisateur non défini

Voici le code de BDConnecter :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Function BDConnecter(ByVal NomFichier As String) As Boolean
    If Not (NomFichier Like "?:\*") Then
        NomFichier = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & NomFichier
    End If
    On Error GoTo ErreurOuverture
    Set BD = DBEngine.Workspaces(0).OpenDatabase(NomFichier)
    On Error GoTo 0
    BDConnecter = True
    Exit Function
ErreurOuverture:
    BDConnecter = False
End Function

Ce qui est surligné par l'erreur est :

Code :

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

Private BD As Database

Se trouvant juste après Option Explicit

Sauriez-vous me dire comment résoudre ce problème SVP ?

Merci d'avance

beegees

[OhMonBato]

Il manque visiblement une référence à ton projet (ADO, DAO ?)

[beegees]

Il manque visiblement une référence à ton projet (ADO, DAO ?)

Bonjour,

Oui bien vu.

Bon Dimanche et un super grand merci pour ta réponse.

beegees