Ouvre ton module en visual basic et vérifie bien que dans outils -> références tu as bien coché Microsoft DAO (3.6 je crois).
snike
A quelle endroit il te met l'erreur ?
Tu as essayer de mettre un SQL
Set Voyage = VoyageNet.OpenRecordset("SELECT * FROM Voyage" )
au lieu de
Set Voyage = VoyageNet.OpenRecordset("Voyage" )
Comment tu lance ta procédure ?
sirhf
salut,
voilà j'ai un petit pb avec mon module Access
quand j'essaye de le lancer, il me balance un msg "Erreur de compilation : Type défini par l'utilisateur non défini"
merci d'avance
_________________________________________
Option Compare Database 'Utilise l'ordre de la base pour les comparaisons de chaînes
Sub REMISES()
Rem Montant de la remise accordée à un client
Dim Remise As Integer
Dim VoyageNet As Database
Set VoyageNet = CurrentDb()
Dim Voyage As Recordset
Set Voyage = VoyageNet.OpenRecordset("Voyage" )
Voyage.MoveFirst
Do Until Voyage.EOF
If PRIX >= 1000 And PRIX <= 2000 Then
Remise = 5
Else
If PRIX >= 2001 And PRIX <= 3000 Then
Remise = 10
Else
If PRIX > 3001 Then
Remise = 20
End If
End If
Debug.Print ("Le Client" ) & Voyage![CODE_CLIENT]("aura une remise de :" ) & Remise("% sur son voyage" )
Voyage.MoveNext
