Incompréhension

[Marion1857]

Sub UpdateDataAccess_DAO()

Dim Db1 As Database

TypeVariable = VarType(NumFacture)

' Ouverture de la base de données

Set Db1 = DBEngine.OpenDatabase(ThisWorkbook.Path & "\Commandes.mdb")

' Mise à jour de l'enregistrement

If TypeVariable = 2 Then ' La variable Numfacture est de type vbInteger (2)

Db1.Execute "UPDATE Factures SET Solde= 'Oui' WHERE NoFacture = " & NumFacture

Else ' La variable Numfacture est de type vbString (8)

Db1.Execute "UPDATE Factures SET Solde = 'Oui' WHERE NoFacture = ' " & NumFacture & " ' "

End If

Db1.Close

End Sub


L'ordinateur me dit pour Dim Db1 As Database Erreur de compilation : Type défini par l'utilisateur non défini
Seriez-vous pourquoi ?

 

[Pierrot93]

Re : Incompréhension

BONJOUR,

"Database" n'est pas un type de donnée de l'appli Excel.

 

[Marion1857]

Re : Incompréhension

Par quoi est-il possible de remplacer As Database pour que la macro fonctionne ?

 

[Pierrot93]

Re : Incompréhension

Re,

si question microsoft Access, préférable de poser la question ici :

Autres applications Microsoft Office