Marion1857
XLDnaute Nouveau
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 ?
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 ?