mise à jour d'un champ par enregistrement

Le
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

"Opium" a écrit :

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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Fabien
Le #6301041
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




Opium
Le #6300881
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







Fabien
Le #6300531
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,


Serait-il possible d'avoir un extrait de ta base ?






jerome crevecoeur
Le #6300481
Bonjour,

A mon avis c'est l'évènement choisi qui n'est pas bon, tu devrais pla cer
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 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









Opium
Le #6300281
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













Fabien
Le #6300201
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


Tu vas te faire engeulerrrrr. ;-)
Nouveau sujet = Nouveau fil








Publicité
Poster une réponse
Anonyme