mise à jour d'un champ par enregistrement

N'ayant pas de réponse sur mon autre message, j'en ouvre un nouveau!
Merci pour le temps que vous passez pour nous aider.

Bonjour,
j'ai un formulaire facture et un sous formulaire détail facture
Dans mon sous formulaire détail facture j'ai les champs suivants
dési pu tva qté
Lorsque je click sur mon champ desi (liste déroulante liée à une table
"désignation") je met à jour le champ pu et tva automatiquement repris dans
la table "designation" ce qui me permet de récupérer des valeurs par défaut
et de pouvoir assigner un nouveau prix si besoin est. Ma procédure est la
suivante:
Private Sub Desi_Click()

On Error GoTo Err_desi_click
Dim strFiltre As String
Dim strfiltrefac As String

Forms![facture]![détail facture].Form.Requery

' Définit le filtre avant d'être utilisé dans la fonction DLookup.
strFiltre = "[desi] = " & Me!Desi

' Recherche le prix unitaire du produit et l'assigne au contrôle Prix
unitaire.
Me![Pu] = DLookup("[pu]", "désignation", strFiltre)
Me![TVA] = DLookup("[tva55 ou 196]", "désignation", strFiltre)
Forms![facture]![détail facture].Form.Requery

'deuxième filtre pour requete detail calculs
strfiltrefac = "[fac] = " & Me!fac

Me![totht] = DLookup("[totht]", "detail calculs", strFiltre)
Me![tot55] = DLookup("[tot55]", "detail calculs", strFiltre)
Me![tot196] = DLookup("[tot196]", "detail calculs", strFiltre)
Me![totttc] = DLookup("[totttc]", "detail calculs", strFiltre)
Forms![facture]![détail facture].Form.Requery
Quitte_desi_click:
Exit Sub
Err_desi_click:
MsgBox Err.Description & "desi"
Resume Quitte_desi_click
End Sub
La procédure avait l'air de fonctionner et j'étais en train de sauter de
joie sur mon fauteuil quand par acquis de conscience j'ai décidé de tester ma
procédure sur mon deuxième enregistrement de mon sous formulaire "continu"
détail facture. Et là horreur et desespoir, ca ne marche que pour le premier
enregistrement!!!!
Pourquoi? Une ame charitable pourrait elle m'aider à peaufiner ma procédure
afin qu'elle fonctionne.
Merci !!!!

Opium

Salut Opium !

Qu'est-ce qui "ne marche pas" exactement ? Le rafrachissement du prix
unitaire ?

Message du mercredi 25/07/2007


--
Cordialement,
Thierry

oui le pu et la tva qui est sur la meme ligne.
Sur le 1er enregistrement tout fonctionne mais des la 2eme ligne ca me met 0
dans le pu et rien dans ma case tva (qui est un oui/non)
qu'est ce qui va pas docteur?
Merci de ton aide

En fait je veux travailler à l'enregistrement et non au controle. Je crois
que c'est la que le bas blesse. Mais je ne connais pas les procédure vba pour
les enregistrements.
Merci de votre aide

Opium
Salut Optium

N'ayant pas de réponse sur mon autre message, j'en ouvre un nouveau!
Merci pour le temps que vous passez pour nous aider.

Bonjour,
j'ai un formulaire facture et un sous formulaire détail facture
Dans mon sous formulaire détail facture j'ai les champs suivants
dési pu tva qté
Lorsque je click sur mon champ desi (liste déroulante liée à une table
"désignation") je met à jour le champ pu et tva automatiquement repris dans
la table "designation" ce qui me permet de récupérer des valeurs par défaut
et de pouvoir assigner un nouveau prix si besoin est. Ma procédure est la
suivante:
Private Sub Desi_Click()

On Error GoTo Err_desi_click
Dim strFiltre As String
Dim strfiltrefac As String

Forms![facture]![détail facture].Form.Requery

' Définit le filtre avant d'être utilisé dans la fonction DLookup.
strFiltre = "[desi] = " & Me!Desi

' Recherche le prix unitaire du produit et l'assigne au contrôle Prix
unitaire.
Me![Pu] = DLookup("[pu]", "désignation", strFiltre)
Me![TVA] = DLookup("[tva55 ou 196]", "désignation", strFiltre)
Forms![facture]![détail facture].Form.Requery

'deuxième filtre pour requete detail calculs
strfiltrefac = "[fac] = " & Me!fac

Me![totht] = DLookup("[totht]", "detail calculs", strFiltre)
Me![tot55] = DLookup("[tot55]", "detail calculs", strFiltre)
Me![tot196] = DLookup("[tot196]", "detail calculs", strFiltre)
Me![totttc] = DLookup("[totttc]", "detail calculs", strFiltre)
Forms![facture]![détail facture].Form.Requery
Quitte_desi_click:
Exit Sub
Err_desi_click:
MsgBox Err.Description & "desi"
Resume Quitte_desi_click
End Sub
La procédure avait l'air de fonctionner et j'étais en train de sauter de
joie sur mon fauteuil quand par acquis de conscience j'ai décidé de tester ma
procédure sur mon deuxième enregistrement de mon sous formulaire "continu"
détail facture. Et là horreur et desespoir, ca ne marche que pour le premier
enregistrement!!!!
Pourquoi? Une ame charitable pourrait elle m'aider à peaufiner ma procédure
afin qu'elle fonctionne.
Merci !!!!

Opium

Salut Opium !

Qu'est-ce qui "ne marche pas" exactement ? Le rafrachissement du prix
unitaire ?

Message du mercredi 25/07/2007


--
Cordialement,
Thierry

oui le pu et la tva qui est sur la meme ligne.
Sur le 1er enregistrement tout fonctionne mais des la 2eme ligne ca me met 0
dans le pu et rien dans ma case tva (qui est un oui/non)
qu'est ce qui va pas docteur?
Merci de ton aide

En fait je veux travailler à l'enregistrement et non au controle. Je crois
que c'est la que le bas blesse. Mais je ne connais pas les procédure vba pour
les enregistrements.
Merci de votre aide

Opium
Salut Optium

Juste une question c... Il y a bien quelque chose dans ta table
désignation pour le choix que tu a fait lors du test du second enreg ?
Sinon trace ta procédure et contrôle qu'il y a bien quelque chose dans
ME!Desi et Me!Fac.

Une petite remarque en passant un requery en fin de procédure me semble
suffisant ;-)
@suivre
Fabien

Merci Fabien de te pencher sur mon cas desespéré.
Oui j'ai bien des données dans ma table désignation
Le problème vient je pense du formulaire continu et donc de la gestion des
enregistrements. Et la je ne m'y connais pas assez en vba pour m'en sortir
toute seule. Dans ma procédure je ne parle que du champ mais pas des
enregistrements sauf que la valeur du champ PU est différente selon
l'enregistrement. Je crois que là qu'il y a soucis. Qu'en penses tu?
Et surtout, peux tu m'orienter vers une solution pour prendre en compte mes
enregistrements continus.
Merci

Opium

N'ayant pas de réponse sur mon autre message, j'en ouvre un nouveau!
Merci pour le temps que vous passez pour nous aider.

Bonjour,
j'ai un formulaire facture et un sous formulaire détail facture
Dans mon sous formulaire détail facture j'ai les champs suivants
dési pu tva qté
Lorsque je click sur mon champ desi (liste déroulante liée à une table
"désignation") je met à jour le champ pu et tva automatiquement repris dans
la table "designation" ce qui me permet de récupérer des valeurs par défaut
et de pouvoir assigner un nouveau prix si besoin est. Ma procédure est la
suivante:
Private Sub Desi_Click()

On Error GoTo Err_desi_click
Dim strFiltre As String
Dim strfiltrefac As String

Forms![facture]![détail facture].Form.Requery

' Définit le filtre avant d'être utilisé dans la fonction DLookup.
strFiltre = "[desi] = " & Me!Desi

' Recherche le prix unitaire du produit et l'assigne au contrôle Prix
unitaire.
Me![Pu] = DLookup("[pu]", "désignation", strFiltre)
Me![TVA] = DLookup("[tva55 ou 196]", "désignation", strFiltre)
Forms![facture]![détail facture].Form.Requery

'deuxième filtre pour requete detail calculs
strfiltrefac = "[fac] = " & Me!fac

Me![totht] = DLookup("[totht]", "detail calculs", strFiltre)
Me![tot55] = DLookup("[tot55]", "detail calculs", strFiltre)
Me![tot196] = DLookup("[tot196]", "detail calculs", strFiltre)
Me![totttc] = DLookup("[totttc]", "detail calculs", strFiltre)
Forms![facture]![détail facture].Form.Requery
Quitte_desi_click:
Exit Sub
Err_desi_click:
MsgBox Err.Description & "desi"
Resume Quitte_desi_click
End Sub
La procédure avait l'air de fonctionner et j'étais en train de sauter de
joie sur mon fauteuil quand par acquis de conscience j'ai décidé de tester ma
procédure sur mon deuxième enregistrement de mon sous formulaire "continu"
détail facture. Et là horreur et desespoir, ca ne marche que pour le premier
enregistrement!!!!
Pourquoi? Une ame charitable pourrait elle m'aider à peaufiner ma procédure
afin qu'elle fonctionne.
Merci !!!!
Opium

Salut Opium !

Qu'est-ce qui "ne marche pas" exactement ? Le rafrachissement du prix
unitaire ?

Message du mercredi 25/07/2007


--
Cordialement,
Thierry

oui le pu et la tva qui est sur la meme ligne.
Sur le 1er enregistrement tout fonctionne mais des la 2eme ligne ca me met 0
dans le pu et rien dans ma case tva (qui est un oui/non)
qu'est ce qui va pas docteur?
Merci de ton aide

En fait je veux travailler à l'enregistrement et non au controle. Je crois
que c'est la que le bas blesse. Mais je ne connais pas les procédure vba pour
les enregistrements.
Merci de votre aide

Opium
Salut Optium

Juste une question c... Il y a bien quelque chose dans ta table
désignation pour le choix que tu a fait lors du test du second enreg ?
Sinon trace ta procédure et contrôle qu'il y a bien quelque chose dans
ME!Desi et Me!Fac.

Une petite remarque en passant un requery en fin de procédure me semble
suffisant ;-)
@suivre
Fabien

Bonjour,

Merci Fabien de te pencher sur mon cas desespéré.
Oui j'ai bien des données dans ma table désignation
Le problème vient je pense du formulaire continu et donc de la gestio n des
enregistrements. Et la je ne m'y connais pas assez en vba pour m'en sor tir
toute seule. Dans ma procédure je ne parle que du champ mais pas des
enregistrements sauf que la valeur du champ PU est différente selon
l'enregistrement. Je crois que là qu'il y a soucis. Qu'en penses tu?
Et surtout, peux tu m'orienter vers une solution pour prendre en compte mes
enregistrements continus.
Merci

Opium

N'ayant pas de réponse sur mon autre message, j'en ouvre un nouveau !
Merci pour le temps que vous passez pour nous aider.

Bonjour,
j'ai un formulaire facture et un sous formulaire détail facture
Dans mon sous formulaire détail facture j'ai les champs suivants
dési pu tva qté
Lorsque je click sur mon champ desi (liste déroulante liée à une table
"désignation") je met à jour le champ pu et tva automatiquemen t repris dans
la table "designation" ce qui me permet de récupérer des valeu rs par défaut
et de pouvoir assigner un nouveau prix si besoin est. Ma procédu re est la
suivante:
Private Sub Desi_Click()

On Error GoTo Err_desi_click
Dim strFiltre As String
Dim strfiltrefac As String

Forms![facture]![détail facture].Form.Requery

' Définit le filtre avant d'être utilisé dans la fonctio n DLookup.
strFiltre = "[desi] = " & Me!Desi

' Recherche le prix unitaire du produit et l'assigne au contrô le Prix
unitaire.
Me![Pu] = DLookup("[pu]", "désignation", strFiltre)
Me![TVA] = DLookup("[tva55 ou 196]", "désignation", strFil tre)
Forms![facture]![détail facture].Form.Requery

'deuxième filtre pour requete detail calculs
strfiltrefac = "[fac] = " & Me!fac

Me![totht] = DLookup("[totht]", "detail calculs", strFiltre)
Me![tot55] = DLookup("[tot55]", "detail calculs", strFiltre)
Me![tot196] = DLookup("[tot196]", "detail calculs", strFiltre )
Me![totttc] = DLookup("[totttc]", "detail calculs", strFiltr e)
Forms![facture]![détail facture].Form.Requery
Quitte_desi_click:
Exit Sub
Err_desi_click:
MsgBox Err.Description & "desi"
Resume Quitte_desi_click
End Sub
La procédure avait l'air de fonctionner et j'étais en train de sauter de
joie sur mon fauteuil quand par acquis de conscience j'ai décidé de tester ma
procédure sur mon deuxième enregistrement de mon sous formulai re "continu"
détail facture. Et là horreur et desespoir, ca ne marche que p our le premier
enregistrement!!!!
Pourquoi? Une ame charitable pourrait elle m'aider à peaufiner m a procédure
afin qu'elle fonctionne.
Merci !!!!
Opium

Salut Opium !

Qu'est-ce qui "ne marche pas" exactement ? Le rafrachissement du pr ix
unitaire ?

Message du mercredi 25/07/2007


--
Cordialement,
Thierry

oui le pu et la tva qui est sur la meme ligne.
Sur le 1er enregistrement tout fonctionne mais des la 2eme ligne ca me met 0
dans le pu et rien dans ma case tva (qui est un oui/non)
qu'est ce qui va pas docteur?
Merci de ton aide

En fait je veux travailler à l'enregistrement et non au controle. J e crois
que c'est la que le bas blesse. Mais je ne connais pas les procédur e vba pour
les enregistrements.
Merci de votre aide

Opium
Salut Optium

Juste une question c... Il y a bien quelque chose dans ta table
désignation pour le choix que tu a fait lors du test du second enreg ?
Sinon trace ta procédure et contrôle qu'il y a bien quelque chose dans
ME!Desi et Me!Fac.

Une petite remarque en passant un requery en fin de procédure me sem ble
suffisant ;-)
@suivre
Fabien

Bonjour,

A mon avis c'est l'évènement choisi qui n'est pas bon, tu devrais placer
ton code sur l'évènement Before Update, cela devrait fonctionner
beaucoup mieux.

cordialement

Merci Fabien de te pencher sur mon cas desespéré.
Oui j'ai bien des données dans ma table désignation
Le problème vient je pense du formulaire continu et donc de la gestion des
enregistrements. Et la je ne m'y connais pas assez en vba pour m'en sortir
toute seule. Dans ma procédure je ne parle que du champ mais pas des
enregistrements sauf que la valeur du champ PU est différente selon
l'enregistrement. Je crois que là qu'il y a soucis. Qu'en penses tu?
Et surtout, peux tu m'orienter vers une solution pour prendre en compte mes
enregistrements continus.
Merci

Opium

N'ayant pas de réponse sur mon autre message, j'en ouvre un nouveau!
Merci pour le temps que vous passez pour nous aider.

Bonjour,
j'ai un formulaire facture et un sous formulaire détail facture
Dans mon sous formulaire détail facture j'ai les champs suivants
dési pu tva qté
Lorsque je click sur mon champ desi (liste déroulante liée à une table
"désignation") je met à jour le champ pu et tva automatiquement repris dans
la table "designation" ce qui me permet de récupérer des valeurs par défaut
et de pouvoir assigner un nouveau prix si besoin est. Ma procédure est la
suivante:
Private Sub Desi_Click()

On Error GoTo Err_desi_click
Dim strFiltre As String
Dim strfiltrefac As String

Forms![facture]![détail facture].Form.Requery

' Définit le filtre avant d'être utilisé dans la fonction DLookup.
strFiltre = "[desi] = " & Me!Desi

' Recherche le prix unitaire du produit et l'assigne au contrôle Prix
unitaire.
Me![Pu] = DLookup("[pu]", "désignation", strFiltre)
Me![TVA] = DLookup("[tva55 ou 196]", "désignation", strFiltre)
Forms![facture]![détail facture].Form.Requery

'deuxième filtre pour requete detail calculs
strfiltrefac = "[fac] = " & Me!fac

Me![totht] = DLookup("[totht]", "detail calculs", strFiltre)
Me![tot55] = DLookup("[tot55]", "detail calculs", strFiltre)
Me![tot196] = DLookup("[tot196]", "detail calculs", strFiltre)
Me![totttc] = DLookup("[totttc]", "detail calculs", strFiltre)
Forms![facture]![détail facture].Form.Requery
Quitte_desi_click:
Exit Sub
Err_desi_click:
MsgBox Err.Description & "desi"
Resume Quitte_desi_click
End Sub
La procédure avait l'air de fonctionner et j'étais en train de sauter de
joie sur mon fauteuil quand par acquis de conscience j'ai décidé de tester ma
procédure sur mon deuxième enregistrement de mon sous formulaire "continu"
détail facture. Et là horreur et desespoir, ca ne marche que pour le premier
enregistrement!!!!
Pourquoi? Une ame charitable pourrait elle m'aider à peaufiner ma procédure
afin qu'elle fonctionne.
Merci !!!!
Opium

Salut Opium !

Qu'est-ce qui "ne marche pas" exactement ? Le rafrachissement du prix
unitaire ?

Message du mercredi 25/07/2007


--
Cordialement,
Thierry

oui le pu et la tva qui est sur la meme ligne.
Sur le 1er enregistrement tout fonctionne mais des la 2eme ligne ca me met 0
dans le pu et rien dans ma case tva (qui est un oui/non)
qu'est ce qui va pas docteur?
Merci de ton aide

En fait je veux travailler à l'enregistrement et non au controle. Je crois
que c'est la que le bas blesse. Mais je ne connais pas les procédure vba pour
les enregistrements.
Merci de votre aide

Opium
Salut Optium

Juste une question c... Il y a bien quelque chose dans ta table
désignation pour le choix que tu a fait lors du test du second enreg ?
Sinon trace ta procédure et contrôle qu'il y a bien quelque chose dans
ME!Desi et Me!Fac.

Une petite remarque en passant un requery en fin de procédure me semble
suffisant ;-)
@suivre
Fabien

Quelle blonde je suis!!!!
excusez moi mais ça marche parfaitement
en fait j'avais mis dans la requete source du formulaire deux champs pu de 2
tables différente ce qui embrouillait un peu access!!! Ces 2 champs
s'appelant "pu "forcement ça coincait

Excusez moi pour vous avoir pris du temps pour rien.
Surtout n'en parlez pas à mon mari il arriverait à se foutre de moi!:-)))
Savez vous comment on fait pour insérez une image différente en fonction
d'un choix sur liste déroulante?
la c'est sur je peux pas m'être trompé je ne sais pas quelle procédure
appliquer.
Merci

Opium, la blonde!!!

Bonjour,

A mon avis c'est l'évènement choisi qui n'est pas bon, tu devrais placer
ton code sur l'évènement Before Update, cela devrait fonctionner
beaucoup mieux.

cordialement

Merci Fabien de te pencher sur mon cas desespéré.
Oui j'ai bien des données dans ma table désignation
Le problème vient je pense du formulaire continu et donc de la gestion des
enregistrements. Et la je ne m'y connais pas assez en vba pour m'en sortir
toute seule. Dans ma procédure je ne parle que du champ mais pas des
enregistrements sauf que la valeur du champ PU est différente selon
l'enregistrement. Je crois que là qu'il y a soucis. Qu'en penses tu?
Et surtout, peux tu m'orienter vers une solution pour prendre en compte mes
enregistrements continus.
Merci

Opium

N'ayant pas de réponse sur mon autre message, j'en ouvre un nouveau!
Merci pour le temps que vous passez pour nous aider.

Bonjour,
j'ai un formulaire facture et un sous formulaire détail facture
Dans mon sous formulaire détail facture j'ai les champs suivants
dési pu tva qté
Lorsque je click sur mon champ desi (liste déroulante liée à une table
"désignation") je met à jour le champ pu et tva automatiquement repris dans
la table "designation" ce qui me permet de récupérer des valeurs par défaut
et de pouvoir assigner un nouveau prix si besoin est. Ma procédure est la
suivante:
Private Sub Desi_Click()

On Error GoTo Err_desi_click
Dim strFiltre As String
Dim strfiltrefac As String

Forms![facture]![détail facture].Form.Requery

' Définit le filtre avant d'être utilisé dans la fonction DLookup.
strFiltre = "[desi] = " & Me!Desi

' Recherche le prix unitaire du produit et l'assigne au contrôle Prix
unitaire.
Me![Pu] = DLookup("[pu]", "désignation", strFiltre)
Me![TVA] = DLookup("[tva55 ou 196]", "désignation", strFiltre)
Forms![facture]![détail facture].Form.Requery

'deuxième filtre pour requete detail calculs
strfiltrefac = "[fac] = " & Me!fac

Me![totht] = DLookup("[totht]", "detail calculs", strFiltre)
Me![tot55] = DLookup("[tot55]", "detail calculs", strFiltre)
Me![tot196] = DLookup("[tot196]", "detail calculs", strFiltre)
Me![totttc] = DLookup("[totttc]", "detail calculs", strFiltre)
Forms![facture]![détail facture].Form.Requery
Quitte_desi_click:
Exit Sub
Err_desi_click:
MsgBox Err.Description & "desi"
Resume Quitte_desi_click
End Sub
La procédure avait l'air de fonctionner et j'étais en train de sauter de
joie sur mon fauteuil quand par acquis de conscience j'ai décidé de tester ma
procédure sur mon deuxième enregistrement de mon sous formulaire "continu"
détail facture. Et là horreur et desespoir, ca ne marche que pour le premier
enregistrement!!!!
Pourquoi? Une ame charitable pourrait elle m'aider à peaufiner ma procédure
afin qu'elle fonctionne.
Merci !!!!
Opium

Salut Opium !

Qu'est-ce qui "ne marche pas" exactement ? Le rafrachissement du prix
unitaire ?

Message du mercredi 25/07/2007


--
Cordialement,
Thierry

oui le pu et la tva qui est sur la meme ligne.
Sur le 1er enregistrement tout fonctionne mais des la 2eme ligne ca me met 0
dans le pu et rien dans ma case tva (qui est un oui/non)
qu'est ce qui va pas docteur?
Merci de ton aide

En fait je veux travailler à l'enregistrement et non au controle. Je crois
que c'est la que le bas blesse. Mais je ne connais pas les procédure vba pour
les enregistrements.
Merci de votre aide

Opium
Salut Optium

Juste une question c... Il y a bien quelque chose dans ta table
désignation pour le choix que tu a fait lors du test du second enreg ?
Sinon trace ta procédure et contrôle qu'il y a bien quelque chose dans
ME!Desi et Me!Fac.

Une petite remarque en passant un requery en fin de procédure me semble
suffisant ;-)
@suivre
Fabien

Bonjour Opium