[MSG ERROR] vba object module needs implements for interface
bonjour,
j ai cree 2 class module vba excel : ConnectDAO DisconnectDAO
j appelle ces modules dans un userform vba excel voila le code de mon userform:
Code:
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 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68
|
Implements ConnectDAO
Implements DisconnectDAO
Private Sub UserForm_Initialize()
'Dim db As DAO.Database
Dim rscode As Recordset
ConnectDAO
'Set db = DBEngine.OpenDatabase("d:\invoice.mdb", True)
Set rscode = db.OpenRecordset("code", dbOpenTable, dbFailOnError)
With rscode
While Not .EOF
code_nom = !code_nom
Combocode.AddItem code_nom
.MoveNext
Wend
End With
rscode.Close
'db.Close
DisconnectDAO
Set rscode = Nothing
'Set db = Nothing
End Sub
Private Sub ButtonAjoutCode_Click()
Dim db As DAO.Database
Dim rsaddcode As Recordset
Set db = DBEngine.OpenDatabase("d:\invoice.mdb", True)
Set rsaddcode = db.OpenRecordset("code", dbOpenTable, dbFailOnError)
rsaddcode.AddNew
rsaddcode.Fields("code_nom").Value = TxtboxCode.Value
rsaddcode.Update
rsaddcode.Close
db.Close
Set rsaddcode = Nothing
Set db = Nothing
End Sub |
et voila le code des class module
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
Public Sub ConnectDAO()
Dim db As DAO.Database
Set db = DBEngine.OpenDatabase("d:\invoice.mdb", True)
End Sub
Public Sub DisconnectDAO()
db.Close
Set db = Nothing
End Sub |
et lorsque je lance le userform message error suivant :
object module needs to implement 'connectDAO' for interface 'connectDAO'
car en fait je veux centraliser la connection a un seul fichier et appeler des que j en ai besoin
merci pour votre aide ;) :oops: :oops: