Access-3stone - Forum - Problèmes Access des débutants

Forum - Problèmes Access des débutants - Sujet n°458

1 membre

Connectés : ( personne )

Forum - Forum
- Problèmes Access des débutants

Sujet n° 458	affichage d'une valeur automatiquement
le 13/01/2011 : 10:34 par Guillaume visiteur	Bonjour,j'ai trouvé ce code sur le forum,je voudrais l'adapter ,mais ça ne fonctionne pas.d'un côté j'ai une T_Conver,avec les champs Feet et Qté servie,de l'autre une T_commande qui reprend aussi ces 2 champsJe voudrais dans le form de cette table ,quand je saisi une valeur dans Feet que Qté servie se remplisse tout seulVoici ce que j'ai recopié dans le formulairePrivate Sub Form_BeforeUpdate(Cancel As Integer)Dim Db As DAO.DatabaseDim Rs As DAO.RecordsetSet Db = CurrentDbSet Rs = Db.OpenRecordset("Select * From T_Conver Where Feet=" & Feet)Qté servie = Rs!Qté servieRs.CloseDb.CloseSet Rs = NothingSet Db = NothingEnd SubLe message est "type defini par l'utilisateur non defini"Merci pour votre réponse

Réponse n° 1 -------- le 13/01/2011 : 14:20 par 3Stone Administrateur	Bonjour, Ecrit tel quel, Feet doit être une valeur numérique... Ensuite, il y a une erreur sur Qté servie qui ne peut être écrite de cette façon. Essaie plutôt : Code : `Me("Qté servie")` Un conseil, les noms de champs avec des espaces et des caractères barbares sont nettement plus difficile à traiter, qui de plus n'apportent rien à la lecture. Ce sont les étiquettes (label) sur le formulaire sont destinés aux utilisateurs et eux doivent d'être exprimé clairement. Pour les champs, préférer une écriture du style QteServie, NomClient, PrixUnitaire qui ne demande pas de précautions particulières comme les crochets et autres. Cordialement, Pierre(3stone)

Réponse n° 2
--------
le 18/01/2011 : 16:25
par Guillaume

Anonyme

visiteur

Bonjour,

Voici le code récuperé sur le forum

Private Sub Form_AfterUpdate()
    Dim Db As DAO.Database
     Dim Rs As DAO.Recordset
     Set Db = CurrentDb
     Set Rs = Db.OpenRecordset("Select * From T_Articles Where Code=" & Code)

     Catalogue = Rs!Catalogue
     Codetech = Rs!Codetech
     Métrage = Rs!Métrage
     Format = Rs!Format


     Rs.Close
     Db.Close
     Set Rs = Nothing
     Set Db = Nothing

End Sub

et voici comment je l'ai modifié

Private Sub Form_BeforeUpdate(Cancel As Integer)
     Dim Db As DAO.Database
     Dim Rs As DAO.Recordset
     Set Db = CurrentDb
     Set Rs = Db.OpenRecordset("Select*From T_Conver Where Feet=" & Feet)

     Qte = Rs!Qte

     Rs.Close
     Db.Close
     Set Rs = Nothing
     Set Db = Nothing
End Sub

et ça ne fonctionne pas ,la 1ere ligne est surbrillée en jaune et la 2éme aussi en bleu ,erreur de compilation , type defini par lutilisateur non defini

CDT

Réponse n° 3 -------- le 18/01/2011 : 16:57 par 3Stone Administrateur	Bonjour, Code : `Dim Db As DAO.Database` DAO demande la référence "Microsoft DAO 3.x Object Library" Voir Alt + F11 et ensuite "Outils, références..." Cordialement Pierre(3stone)

sujet actif clos

sujet clos

Important! Nouveau

Nouveau message -

Rectifier message

Clôturer sujet

Remonter