1 membre
Connectés : ( personne )
- La Charte du 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 : 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
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
sujet clos
Important!
Nouveau message -
Rectifier message
Clôturer sujet
Remonter
|