Bonsoir à tous,
Est il possible avec du code de faire exécuter une requête plusieurs fois
suite tant qu'elle trouve un résultat > à 0
Merci beaucoup
mon code actuel est
Private Sub Commande18_Click()
If [Quantité] > [Vente1] Then
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
Bonsoir à tous,
Est il possible avec du code de faire exécuter une requête plusieurs fois
suite tant qu'elle trouve un résultat > à 0
Merci beaucoup
mon code actuel est
Private Sub Commande18_Click()
If [Quantité] > [Vente1] Then
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
Bonsoir à tous,
Est il possible avec du code de faire exécuter une requête plusieurs fois
suite tant qu'elle trouve un résultat > à 0
Merci beaucoup
mon code actuel est
Private Sub Commande18_Click()
If [Quantité] > [Vente1] Then
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
Bonjour,
Je ne sais pas ce que tu entends par un résultat > à 0 mais tu peux faire
quelque chose comme
Dim ResultatPositif as boolean
ResultatPositif =true 'Pour la première exécution
Do While ResultatPositif
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
ResultatPositif =??? 'Là c'est à toi de mettre la condition qui va bien
Loop
--
Cordialement,
Gilbert
"maxben" a écrit dans le message de
news:
> Bonsoir à tous,
>
> Est il possible avec du code de faire exécuter une requête plusieurs fois
de
> suite tant qu'elle trouve un résultat > à 0
> Merci beaucoup
> mon code actuel est
> Private Sub Commande18_Click()
> If [Quantité] > [Vente1] Then
>
> DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
>
> DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
>
>
>
Bonjour,
Je ne sais pas ce que tu entends par un résultat > à 0 mais tu peux faire
quelque chose comme
Dim ResultatPositif as boolean
ResultatPositif =true 'Pour la première exécution
Do While ResultatPositif
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
ResultatPositif =??? 'Là c'est à toi de mettre la condition qui va bien
Loop
--
Cordialement,
Gilbert
"maxben" <maxben@discussions.microsoft.com> a écrit dans le message de
news:F49AEB7B-FBE6-4FFF-8E94-841ED20ABAEC@microsoft.com...
> Bonsoir à tous,
>
> Est il possible avec du code de faire exécuter une requête plusieurs fois
de
> suite tant qu'elle trouve un résultat > à 0
> Merci beaucoup
> mon code actuel est
> Private Sub Commande18_Click()
> If [Quantité] > [Vente1] Then
>
> DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
>
> DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
>
>
>
Bonjour,
Je ne sais pas ce que tu entends par un résultat > à 0 mais tu peux faire
quelque chose comme
Dim ResultatPositif as boolean
ResultatPositif =true 'Pour la première exécution
Do While ResultatPositif
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
ResultatPositif =??? 'Là c'est à toi de mettre la condition qui va bien
Loop
--
Cordialement,
Gilbert
"maxben" a écrit dans le message de
news:
> Bonsoir à tous,
>
> Est il possible avec du code de faire exécuter une requête plusieurs fois
de
> suite tant qu'elle trouve un résultat > à 0
> Merci beaucoup
> mon code actuel est
> Private Sub Commande18_Click()
> If [Quantité] > [Vente1] Then
>
> DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
>
> DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
>
>
>
Merci, e, fait c'est dans la 2eme requete, elle doit s'executer tant qu'un
champ calculé est > à 0.
Je comprends pas trop ce que tu m'as dit de faire
"Gilbert" a écrit :Bonjour,
Je ne sais pas ce que tu entends par un résultat > à 0 mais tu peux faire
quelque chose comme
Dim ResultatPositif as boolean
ResultatPositif =true 'Pour la première exécution
Do While ResultatPositif
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
ResultatPositif =??? 'Là c'est à toi de mettre la condition qui va bien
Loop
--
Cordialement,
Gilbert
"maxben" a écrit dans le message de
news:Bonsoir à tous,
Est il possible avec du code de faire exécuter une requête plusieurs fois
desuite tant qu'elle trouve un résultat > à 0
Merci beaucoup
mon code actuel est
Private Sub Commande18_Click()
If [Quantité] > [Vente1] Then
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
Merci, e, fait c'est dans la 2eme requete, elle doit s'executer tant qu'un
champ calculé est > à 0.
Je comprends pas trop ce que tu m'as dit de faire
"Gilbert" a écrit :
Bonjour,
Je ne sais pas ce que tu entends par un résultat > à 0 mais tu peux faire
quelque chose comme
Dim ResultatPositif as boolean
ResultatPositif =true 'Pour la première exécution
Do While ResultatPositif
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
ResultatPositif =??? 'Là c'est à toi de mettre la condition qui va bien
Loop
--
Cordialement,
Gilbert
"maxben" <maxben@discussions.microsoft.com> a écrit dans le message de
news:F49AEB7B-FBE6-4FFF-8E94-841ED20ABAEC@microsoft.com...
Bonsoir à tous,
Est il possible avec du code de faire exécuter une requête plusieurs fois
de
suite tant qu'elle trouve un résultat > à 0
Merci beaucoup
mon code actuel est
Private Sub Commande18_Click()
If [Quantité] > [Vente1] Then
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
Merci, e, fait c'est dans la 2eme requete, elle doit s'executer tant qu'un
champ calculé est > à 0.
Je comprends pas trop ce que tu m'as dit de faire
"Gilbert" a écrit :Bonjour,
Je ne sais pas ce que tu entends par un résultat > à 0 mais tu peux faire
quelque chose comme
Dim ResultatPositif as boolean
ResultatPositif =true 'Pour la première exécution
Do While ResultatPositif
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
ResultatPositif =??? 'Là c'est à toi de mettre la condition qui va bien
Loop
--
Cordialement,
Gilbert
"maxben" a écrit dans le message de
news:Bonsoir à tous,
Est il possible avec du code de faire exécuter une requête plusieurs fois
desuite tant qu'elle trouve un résultat > à 0
Merci beaucoup
mon code actuel est
Private Sub Commande18_Click()
If [Quantité] > [Vente1] Then
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
maxben a écrit :
> Merci, e, fait c'est dans la 2eme requete, elle doit s'executer tant qu'un
> champ calculé est > à 0.
> Je comprends pas trop ce que tu m'as dit de faire
>
> "Gilbert" a écrit :
>
>> Bonjour,
>>
>> Je ne sais pas ce que tu entends par un résultat > à 0 mais tu peux faire
>> quelque chose comme
>>
>> Dim ResultatPositif as boolean
>> ResultatPositif =true 'Pour la première exécution
>> Do While ResultatPositif
>> DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
>> DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
>>
>> ResultatPositif =??? 'Là c'est à toi de mettre la condition qui va bien
>> Loop
>>
>> --
>> Cordialement,
>>
>> Gilbert
>>
>>
>> "maxben" a écrit dans le message de
>> news:
>>> Bonsoir à tous,
>>>
>>> Est il possible avec du code de faire exécuter une requête plusieurs fois
>> de
>>> suite tant qu'elle trouve un résultat > à 0
>>> Merci beaucoup
>>> mon code actuel est
>>> Private Sub Commande18_Click()
>>> If [Quantité] > [Vente1] Then
>>>
>>> DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
>>>
>>> DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
>>>
>>>
>>>
>>
>>
Salut,
si je comprend bien tu veux que la requete "Ajout ventevmp 2eme cession"
s'execute tant que le resultat d'un champ calculé (lequel?) contenu dans
cette requete est >0 ?
@+
maxben a écrit :
> Merci, e, fait c'est dans la 2eme requete, elle doit s'executer tant qu'un
> champ calculé est > à 0.
> Je comprends pas trop ce que tu m'as dit de faire
>
> "Gilbert" a écrit :
>
>> Bonjour,
>>
>> Je ne sais pas ce que tu entends par un résultat > à 0 mais tu peux faire
>> quelque chose comme
>>
>> Dim ResultatPositif as boolean
>> ResultatPositif =true 'Pour la première exécution
>> Do While ResultatPositif
>> DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
>> DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
>>
>> ResultatPositif =??? 'Là c'est à toi de mettre la condition qui va bien
>> Loop
>>
>> --
>> Cordialement,
>>
>> Gilbert
>>
>>
>> "maxben" <maxben@discussions.microsoft.com> a écrit dans le message de
>> news:F49AEB7B-FBE6-4FFF-8E94-841ED20ABAEC@microsoft.com...
>>> Bonsoir à tous,
>>>
>>> Est il possible avec du code de faire exécuter une requête plusieurs fois
>> de
>>> suite tant qu'elle trouve un résultat > à 0
>>> Merci beaucoup
>>> mon code actuel est
>>> Private Sub Commande18_Click()
>>> If [Quantité] > [Vente1] Then
>>>
>>> DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
>>>
>>> DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
>>>
>>>
>>>
>>
>>
Salut,
si je comprend bien tu veux que la requete "Ajout ventevmp 2eme cession"
s'execute tant que le resultat d'un champ calculé (lequel?) contenu dans
cette requete est >0 ?
@+
maxben a écrit :
> Merci, e, fait c'est dans la 2eme requete, elle doit s'executer tant qu'un
> champ calculé est > à 0.
> Je comprends pas trop ce que tu m'as dit de faire
>
> "Gilbert" a écrit :
>
>> Bonjour,
>>
>> Je ne sais pas ce que tu entends par un résultat > à 0 mais tu peux faire
>> quelque chose comme
>>
>> Dim ResultatPositif as boolean
>> ResultatPositif =true 'Pour la première exécution
>> Do While ResultatPositif
>> DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
>> DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
>>
>> ResultatPositif =??? 'Là c'est à toi de mettre la condition qui va bien
>> Loop
>>
>> --
>> Cordialement,
>>
>> Gilbert
>>
>>
>> "maxben" a écrit dans le message de
>> news:
>>> Bonsoir à tous,
>>>
>>> Est il possible avec du code de faire exécuter une requête plusieurs fois
>> de
>>> suite tant qu'elle trouve un résultat > à 0
>>> Merci beaucoup
>>> mon code actuel est
>>> Private Sub Commande18_Click()
>>> If [Quantité] > [Vente1] Then
>>>
>>> DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
>>>
>>> DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
>>>
>>>
>>>
>>
>>
Salut,
si je comprend bien tu veux que la requete "Ajout ventevmp 2eme cession"
s'execute tant que le resultat d'un champ calculé (lequel?) contenu dans
cette requete est >0 ?
@+
Oui c'est exactement ça
"Fabien" a écrit :maxben a écrit :Merci, e, fait c'est dans la 2eme requete, elle doit s'executer tant qu'un
champ calculé est > à 0.
Je comprends pas trop ce que tu m'as dit de faire
"Gilbert" a écrit :Bonjour,
Je ne sais pas ce que tu entends par un résultat > à 0 mais tu peux faire
quelque chose comme
Dim ResultatPositif as boolean
ResultatPositif =true 'Pour la première exécution
Do While ResultatPositif
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
ResultatPositif =??? 'Là c'est à toi de mettre la condition qui va bien
Loop
--
Cordialement,
Gilbert
"maxben" a écrit dans le message de
news:Bonsoir à tous,
Est il possible avec du code de faire exécuter une requête plusieurs fois
desuite tant qu'elle trouve un résultat > à 0
Merci beaucoup
mon code actuel est
Private Sub Commande18_Click()
If [Quantité] > [Vente1] Then
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
Salut,
si je comprend bien tu veux que la requete "Ajout ventevmp 2eme cession"
s'execute tant que le resultat d'un champ calculé (lequel?) contenu dans
cette requete est >0 ?
@+
Oui c'est exactement ça
"Fabien" a écrit :
maxben a écrit :
Merci, e, fait c'est dans la 2eme requete, elle doit s'executer tant qu'un
champ calculé est > à 0.
Je comprends pas trop ce que tu m'as dit de faire
"Gilbert" a écrit :
Bonjour,
Je ne sais pas ce que tu entends par un résultat > à 0 mais tu peux faire
quelque chose comme
Dim ResultatPositif as boolean
ResultatPositif =true 'Pour la première exécution
Do While ResultatPositif
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
ResultatPositif =??? 'Là c'est à toi de mettre la condition qui va bien
Loop
--
Cordialement,
Gilbert
"maxben" <maxben@discussions.microsoft.com> a écrit dans le message de
news:F49AEB7B-FBE6-4FFF-8E94-841ED20ABAEC@microsoft.com...
Bonsoir à tous,
Est il possible avec du code de faire exécuter une requête plusieurs fois
de
suite tant qu'elle trouve un résultat > à 0
Merci beaucoup
mon code actuel est
Private Sub Commande18_Click()
If [Quantité] > [Vente1] Then
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
Salut,
si je comprend bien tu veux que la requete "Ajout ventevmp 2eme cession"
s'execute tant que le resultat d'un champ calculé (lequel?) contenu dans
cette requete est >0 ?
@+
Oui c'est exactement ça
"Fabien" a écrit :maxben a écrit :Merci, e, fait c'est dans la 2eme requete, elle doit s'executer tant qu'un
champ calculé est > à 0.
Je comprends pas trop ce que tu m'as dit de faire
"Gilbert" a écrit :Bonjour,
Je ne sais pas ce que tu entends par un résultat > à 0 mais tu peux faire
quelque chose comme
Dim ResultatPositif as boolean
ResultatPositif =true 'Pour la première exécution
Do While ResultatPositif
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
ResultatPositif =??? 'Là c'est à toi de mettre la condition qui va bien
Loop
--
Cordialement,
Gilbert
"maxben" a écrit dans le message de
news:Bonsoir à tous,
Est il possible avec du code de faire exécuter une requête plusieurs fois
desuite tant qu'elle trouve un résultat > à 0
Merci beaucoup
mon code actuel est
Private Sub Commande18_Click()
If [Quantité] > [Vente1] Then
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
Salut,
si je comprend bien tu veux que la requete "Ajout ventevmp 2eme cession"
s'execute tant que le resultat d'un champ calculé (lequel?) contenu dans
cette requete est >0 ?
@+
maxben a écrit :
> Oui c'est exactement ça
>
> "Fabien" a écrit :
>
>> maxben a écrit :
>>> Merci, e, fait c'est dans la 2eme requete, elle doit s'executer tant qu'un
>>> champ calculé est > à 0.
>>> Je comprends pas trop ce que tu m'as dit de faire
>>>
>>> "Gilbert" a écrit :
>>>
>>>> Bonjour,
>>>>
>>>> Je ne sais pas ce que tu entends par un résultat > à 0 mais tu peux faire
>>>> quelque chose comme
>>>>
>>>> Dim ResultatPositif as boolean
>>>> ResultatPositif =true 'Pour la première exécution
>>>> Do While ResultatPositif
>>>> DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
>>>> DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
>>>>
>>>> ResultatPositif =??? 'Là c'est à toi de mettre la condition qui va bien
>>>> Loop
>>>>
>>>> --
>>>> Cordialement,
>>>>
>>>> Gilbert
>>>>
>>>>
>>>> "maxben" a écrit dans le message de
>>>> news:
>>>>> Bonsoir à tous,
>>>>>
>>>>> Est il possible avec du code de faire exécuter une requête plusieurs fois
>>>> de
>>>>> suite tant qu'elle trouve un résultat > à 0
>>>>> Merci beaucoup
>>>>> mon code actuel est
>>>>> Private Sub Commande18_Click()
>>>>> If [Quantité] > [Vente1] Then
>>>>>
>>>>> DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
>>>>>
>>>>> DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
>>>>>
>>>>>
>>>>>
>>>>
>> Salut,
>> si je comprend bien tu veux que la requete "Ajout ventevmp 2eme cession"
>> s'execute tant que le resultat d'un champ calculé (lequel?) contenu dans
>> cette requete est >0 ?
>> @+
>>
Ok:
Mais alors cette requete traite plus d'un enregistrement ?
Le resultat que tu cherche à analyser est lié a l'enregistrement ?
Que faire si pour l'un des enregistrements le resultat est <=0 ?
Que fait exactement cette requete d'ajout et quel est ce calcul ?
Peux tu nous donner le source SQL de la requete ?
@+
maxben a écrit :
> Oui c'est exactement ça
>
> "Fabien" a écrit :
>
>> maxben a écrit :
>>> Merci, e, fait c'est dans la 2eme requete, elle doit s'executer tant qu'un
>>> champ calculé est > à 0.
>>> Je comprends pas trop ce que tu m'as dit de faire
>>>
>>> "Gilbert" a écrit :
>>>
>>>> Bonjour,
>>>>
>>>> Je ne sais pas ce que tu entends par un résultat > à 0 mais tu peux faire
>>>> quelque chose comme
>>>>
>>>> Dim ResultatPositif as boolean
>>>> ResultatPositif =true 'Pour la première exécution
>>>> Do While ResultatPositif
>>>> DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
>>>> DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
>>>>
>>>> ResultatPositif =??? 'Là c'est à toi de mettre la condition qui va bien
>>>> Loop
>>>>
>>>> --
>>>> Cordialement,
>>>>
>>>> Gilbert
>>>>
>>>>
>>>> "maxben" <maxben@discussions.microsoft.com> a écrit dans le message de
>>>> news:F49AEB7B-FBE6-4FFF-8E94-841ED20ABAEC@microsoft.com...
>>>>> Bonsoir à tous,
>>>>>
>>>>> Est il possible avec du code de faire exécuter une requête plusieurs fois
>>>> de
>>>>> suite tant qu'elle trouve un résultat > à 0
>>>>> Merci beaucoup
>>>>> mon code actuel est
>>>>> Private Sub Commande18_Click()
>>>>> If [Quantité] > [Vente1] Then
>>>>>
>>>>> DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
>>>>>
>>>>> DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
>>>>>
>>>>>
>>>>>
>>>>
>> Salut,
>> si je comprend bien tu veux que la requete "Ajout ventevmp 2eme cession"
>> s'execute tant que le resultat d'un champ calculé (lequel?) contenu dans
>> cette requete est >0 ?
>> @+
>>
Ok:
Mais alors cette requete traite plus d'un enregistrement ?
Le resultat que tu cherche à analyser est lié a l'enregistrement ?
Que faire si pour l'un des enregistrements le resultat est <=0 ?
Que fait exactement cette requete d'ajout et quel est ce calcul ?
Peux tu nous donner le source SQL de la requete ?
@+
maxben a écrit :
> Oui c'est exactement ça
>
> "Fabien" a écrit :
>
>> maxben a écrit :
>>> Merci, e, fait c'est dans la 2eme requete, elle doit s'executer tant qu'un
>>> champ calculé est > à 0.
>>> Je comprends pas trop ce que tu m'as dit de faire
>>>
>>> "Gilbert" a écrit :
>>>
>>>> Bonjour,
>>>>
>>>> Je ne sais pas ce que tu entends par un résultat > à 0 mais tu peux faire
>>>> quelque chose comme
>>>>
>>>> Dim ResultatPositif as boolean
>>>> ResultatPositif =true 'Pour la première exécution
>>>> Do While ResultatPositif
>>>> DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
>>>> DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
>>>>
>>>> ResultatPositif =??? 'Là c'est à toi de mettre la condition qui va bien
>>>> Loop
>>>>
>>>> --
>>>> Cordialement,
>>>>
>>>> Gilbert
>>>>
>>>>
>>>> "maxben" a écrit dans le message de
>>>> news:
>>>>> Bonsoir à tous,
>>>>>
>>>>> Est il possible avec du code de faire exécuter une requête plusieurs fois
>>>> de
>>>>> suite tant qu'elle trouve un résultat > à 0
>>>>> Merci beaucoup
>>>>> mon code actuel est
>>>>> Private Sub Commande18_Click()
>>>>> If [Quantité] > [Vente1] Then
>>>>>
>>>>> DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
>>>>>
>>>>> DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
>>>>>
>>>>>
>>>>>
>>>>
>> Salut,
>> si je comprend bien tu veux que la requete "Ajout ventevmp 2eme cession"
>> s'execute tant que le resultat d'un champ calculé (lequel?) contenu dans
>> cette requete est >0 ?
>> @+
>>
Ok:
Mais alors cette requete traite plus d'un enregistrement ?
Le resultat que tu cherche à analyser est lié a l'enregistrement ?
Que faire si pour l'un des enregistrements le resultat est <=0 ?
Que fait exactement cette requete d'ajout et quel est ce calcul ?
Peux tu nous donner le source SQL de la requete ?
@+
Voilà la source
SELECT [Forms_Stock_Pour_Cession Requête (NV)].PremierDeN°Registre,
[Forms_Stock_Pour_Cession Requête (NV)].PremierDeDate,
[Forms_Stock_Pour_Cession Requête (NV)].Forms_Stock_Pour_Cession.N°Auto_VMP,
[Forms_Stock_Pour_Cession Requête (NV)].PremierDeStock AS Stock,
[Forms_Stock_Pour_Cession Requête (NV)].N°Opération,
[Forms_Stock_Pour_Cession Requête (NV)].Date, [Forms_Stock_Pour_Cession
Requête (NV)].Quantité, [Forms_Stock_Pour_Cession Requête
(NV)].Saisie_Vente_VMP.N°Auto_VMP, [Forms_Stock_Pour_Cession Requête
(NV)].[Montant Unitaire], [Selection_ajout_vente VMP 1ere requete (2eme
cession)].N°Opération AS N°vente, [Selection_ajout_vente VMP 1ere requete
(2eme cession)].N°Auto_VMP, [Selection_ajout_vente VMP 1ere requete (2eme
cession)].Date AS DateVente, [Selection_ajout_vente VMP 1ere requete (2eme
cession)].SommeDeQuantité_Vente, [Selection_ajout_vente VMP 1ere requete
(2eme cession)].Montant_Unitaire_Vente, [Quantité]-[SommeDeQuantité_Vente] AS
StockPartiel, IIf([StockPartiel]>[Stock],[Stock],[StockPartiel]) AS
VentePartielle
FROM [Forms_Stock_Pour_Cession Requête (NV)], [Selection_ajout_vente VMP
1ere requete (2eme cession)]
WHERE ((([Quantité]-[SommeDeQuantité_Vente])>0));
"Fabien" a écrit :maxben a écrit :Oui c'est exactement ça
"Fabien" a écrit :maxben a écrit :Merci, e, fait c'est dans la 2eme requete, elle doit s'executer tant qu'un
champ calculé est > à 0.
Je comprends pas trop ce que tu m'as dit de faire
"Gilbert" a écrit :Bonjour,
Je ne sais pas ce que tu entends par un résultat > à 0 mais tu peux faire
quelque chose comme
Dim ResultatPositif as boolean
ResultatPositif =true 'Pour la première exécution
Do While ResultatPositif
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
ResultatPositif =??? 'Là c'est à toi de mettre la condition qui va bien
Loop
--
Cordialement,
Gilbert
"maxben" a écrit dans le message de
news:Bonsoir à tous,
Est il possible avec du code de faire exécuter une requête plusieurs fois
desuite tant qu'elle trouve un résultat > à 0
Merci beaucoup
mon code actuel est
Private Sub Commande18_Click()
If [Quantité] > [Vente1] Then
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
Salut,
si je comprend bien tu veux que la requete "Ajout ventevmp 2eme cession"
s'execute tant que le resultat d'un champ calculé (lequel?) contenu dans
cette requete est >0 ?
@+
Ok:
Mais alors cette requete traite plus d'un enregistrement ?
Le resultat que tu cherche à analyser est lié a l'enregistrement ?
Que faire si pour l'un des enregistrements le resultat est <=0 ?
Que fait exactement cette requete d'ajout et quel est ce calcul ?
Peux tu nous donner le source SQL de la requete ?
@+
Voilà la source
SELECT [Forms_Stock_Pour_Cession Requête (NV)].PremierDeN°Registre,
[Forms_Stock_Pour_Cession Requête (NV)].PremierDeDate,
[Forms_Stock_Pour_Cession Requête (NV)].Forms_Stock_Pour_Cession.N°Auto_VMP,
[Forms_Stock_Pour_Cession Requête (NV)].PremierDeStock AS Stock,
[Forms_Stock_Pour_Cession Requête (NV)].N°Opération,
[Forms_Stock_Pour_Cession Requête (NV)].Date, [Forms_Stock_Pour_Cession
Requête (NV)].Quantité, [Forms_Stock_Pour_Cession Requête
(NV)].Saisie_Vente_VMP.N°Auto_VMP, [Forms_Stock_Pour_Cession Requête
(NV)].[Montant Unitaire], [Selection_ajout_vente VMP 1ere requete (2eme
cession)].N°Opération AS N°vente, [Selection_ajout_vente VMP 1ere requete
(2eme cession)].N°Auto_VMP, [Selection_ajout_vente VMP 1ere requete (2eme
cession)].Date AS DateVente, [Selection_ajout_vente VMP 1ere requete (2eme
cession)].SommeDeQuantité_Vente, [Selection_ajout_vente VMP 1ere requete
(2eme cession)].Montant_Unitaire_Vente, [Quantité]-[SommeDeQuantité_Vente] AS
StockPartiel, IIf([StockPartiel]>[Stock],[Stock],[StockPartiel]) AS
VentePartielle
FROM [Forms_Stock_Pour_Cession Requête (NV)], [Selection_ajout_vente VMP
1ere requete (2eme cession)]
WHERE ((([Quantité]-[SommeDeQuantité_Vente])>0));
"Fabien" a écrit :
maxben a écrit :
Oui c'est exactement ça
"Fabien" a écrit :
maxben a écrit :
Merci, e, fait c'est dans la 2eme requete, elle doit s'executer tant qu'un
champ calculé est > à 0.
Je comprends pas trop ce que tu m'as dit de faire
"Gilbert" a écrit :
Bonjour,
Je ne sais pas ce que tu entends par un résultat > à 0 mais tu peux faire
quelque chose comme
Dim ResultatPositif as boolean
ResultatPositif =true 'Pour la première exécution
Do While ResultatPositif
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
ResultatPositif =??? 'Là c'est à toi de mettre la condition qui va bien
Loop
--
Cordialement,
Gilbert
"maxben" <maxben@discussions.microsoft.com> a écrit dans le message de
news:F49AEB7B-FBE6-4FFF-8E94-841ED20ABAEC@microsoft.com...
Bonsoir à tous,
Est il possible avec du code de faire exécuter une requête plusieurs fois
de
suite tant qu'elle trouve un résultat > à 0
Merci beaucoup
mon code actuel est
Private Sub Commande18_Click()
If [Quantité] > [Vente1] Then
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
Salut,
si je comprend bien tu veux que la requete "Ajout ventevmp 2eme cession"
s'execute tant que le resultat d'un champ calculé (lequel?) contenu dans
cette requete est >0 ?
@+
Ok:
Mais alors cette requete traite plus d'un enregistrement ?
Le resultat que tu cherche à analyser est lié a l'enregistrement ?
Que faire si pour l'un des enregistrements le resultat est <=0 ?
Que fait exactement cette requete d'ajout et quel est ce calcul ?
Peux tu nous donner le source SQL de la requete ?
@+
Voilà la source
SELECT [Forms_Stock_Pour_Cession Requête (NV)].PremierDeN°Registre,
[Forms_Stock_Pour_Cession Requête (NV)].PremierDeDate,
[Forms_Stock_Pour_Cession Requête (NV)].Forms_Stock_Pour_Cession.N°Auto_VMP,
[Forms_Stock_Pour_Cession Requête (NV)].PremierDeStock AS Stock,
[Forms_Stock_Pour_Cession Requête (NV)].N°Opération,
[Forms_Stock_Pour_Cession Requête (NV)].Date, [Forms_Stock_Pour_Cession
Requête (NV)].Quantité, [Forms_Stock_Pour_Cession Requête
(NV)].Saisie_Vente_VMP.N°Auto_VMP, [Forms_Stock_Pour_Cession Requête
(NV)].[Montant Unitaire], [Selection_ajout_vente VMP 1ere requete (2eme
cession)].N°Opération AS N°vente, [Selection_ajout_vente VMP 1ere requete
(2eme cession)].N°Auto_VMP, [Selection_ajout_vente VMP 1ere requete (2eme
cession)].Date AS DateVente, [Selection_ajout_vente VMP 1ere requete (2eme
cession)].SommeDeQuantité_Vente, [Selection_ajout_vente VMP 1ere requete
(2eme cession)].Montant_Unitaire_Vente, [Quantité]-[SommeDeQuantité_Vente] AS
StockPartiel, IIf([StockPartiel]>[Stock],[Stock],[StockPartiel]) AS
VentePartielle
FROM [Forms_Stock_Pour_Cession Requête (NV)], [Selection_ajout_vente VMP
1ere requete (2eme cession)]
WHERE ((([Quantité]-[SommeDeQuantité_Vente])>0));
"Fabien" a écrit :maxben a écrit :Oui c'est exactement ça
"Fabien" a écrit :maxben a écrit :Merci, e, fait c'est dans la 2eme requete, elle doit s'executer tant qu'un
champ calculé est > à 0.
Je comprends pas trop ce que tu m'as dit de faire
"Gilbert" a écrit :Bonjour,
Je ne sais pas ce que tu entends par un résultat > à 0 mais tu peux faire
quelque chose comme
Dim ResultatPositif as boolean
ResultatPositif =true 'Pour la première exécution
Do While ResultatPositif
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
ResultatPositif =??? 'Là c'est à toi de mettre la condition qui va bien
Loop
--
Cordialement,
Gilbert
"maxben" a écrit dans le message de
news:Bonsoir à tous,
Est il possible avec du code de faire exécuter une requête plusieurs fois
desuite tant qu'elle trouve un résultat > à 0
Merci beaucoup
mon code actuel est
Private Sub Commande18_Click()
If [Quantité] > [Vente1] Then
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
Salut,
si je comprend bien tu veux que la requete "Ajout ventevmp 2eme cession"
s'execute tant que le resultat d'un champ calculé (lequel?) contenu dans
cette requete est >0 ?
@+
Ok:
Mais alors cette requete traite plus d'un enregistrement ?
Le resultat que tu cherche à analyser est lié a l'enregistrement ?
Que faire si pour l'un des enregistrements le resultat est <=0 ?
Que fait exactement cette requete d'ajout et quel est ce calcul ?
Peux tu nous donner le source SQL de la requete ?
@+
maxben a écrit :
> Voilà la source
> SELECT [Forms_Stock_Pour_Cession Requête (NV)].PremierDeN°Registre,
> [Forms_Stock_Pour_Cession Requête (NV)].PremierDeDate,
> [Forms_Stock_Pour_Cession Requête (NV)].Forms_Stock_Pour_Cession.N°Auto_VMP,
> [Forms_Stock_Pour_Cession Requête (NV)].PremierDeStock AS Stock,
> [Forms_Stock_Pour_Cession Requête (NV)].N°Opération,
> [Forms_Stock_Pour_Cession Requête (NV)].Date, [Forms_Stock_Pour_Cession
> Requête (NV)].Quantité, [Forms_Stock_Pour_Cession Requête
> (NV)].Saisie_Vente_VMP.N°Auto_VMP, [Forms_Stock_Pour_Cession Requête
> (NV)].[Montant Unitaire], [Selection_ajout_vente VMP 1ere requete (2eme
> cession)].N°Opération AS N°vente, [Selection_ajout_vente VMP 1ere requete
> (2eme cession)].N°Auto_VMP, [Selection_ajout_vente VMP 1ere requete (2eme
> cession)].Date AS DateVente, [Selection_ajout_vente VMP 1ere requete (2eme
> cession)].SommeDeQuantité_Vente, [Selection_ajout_vente VMP 1ere requete
> (2eme cession)].Montant_Unitaire_Vente, [Quantité]-[SommeDeQuantité_Vente] AS
> StockPartiel, IIf([StockPartiel]>[Stock],[Stock],[StockPartiel]) AS
> VentePartielle
> FROM [Forms_Stock_Pour_Cession Requête (NV)], [Selection_ajout_vente VMP
> 1ere requete (2eme cession)]
> WHERE ((([Quantité]-[SommeDeQuantité_Vente])>0));
>
> "Fabien" a écrit :
>
>> maxben a écrit :
>>> Oui c'est exactement ça
>>>
>>> "Fabien" a écrit :
>>>
>>>> maxben a écrit :
>>>>> Merci, e, fait c'est dans la 2eme requete, elle doit s'executer tant qu'un
>>>>> champ calculé est > à 0.
>>>>> Je comprends pas trop ce que tu m'as dit de faire
>>>>>
>>>>> "Gilbert" a écrit :
>>>>>
>>>>>> Bonjour,
>>>>>>
>>>>>> Je ne sais pas ce que tu entends par un résultat > à 0 mais tu peux faire
>>>>>> quelque chose comme
>>>>>>
>>>>>> Dim ResultatPositif as boolean
>>>>>> ResultatPositif =true 'Pour la première exécution
>>>>>> Do While ResultatPositif
>>>>>> DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
>>>>>> DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
>>>>>>
>>>>>> ResultatPositif =??? 'Là c'est à toi de mettre la condition qui va bien
>>>>>> Loop
>>>>>>
>>>>>> --
>>>>>> Cordialement,
>>>>>>
>>>>>> Gilbert
>>>>>>
>>>>>>
>>>>>> "maxben" a écrit dans le message de
>>>>>> news:
>>>>>>> Bonsoir à tous,
>>>>>>>
>>>>>>> Est il possible avec du code de faire exécuter une requête plusieurs fois
>>>>>> de
>>>>>>> suite tant qu'elle trouve un résultat > à 0
>>>>>>> Merci beaucoup
>>>>>>> mon code actuel est
>>>>>>> Private Sub Commande18_Click()
>>>>>>> If [Quantité] > [Vente1] Then
>>>>>>>
>>>>>>> DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
>>>>>>>
>>>>>>> DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
>>>>>>>
>>>>>>>
>>>>>>>
>>>> Salut,
>>>> si je comprend bien tu veux que la requete "Ajout ventevmp 2eme cession"
>>>> s'execute tant que le resultat d'un champ calculé (lequel?) contenu dans
>>>> cette requete est >0 ?
>>>> @+
>>>>
>> Ok:
>> Mais alors cette requete traite plus d'un enregistrement ?
>> Le resultat que tu cherche à analyser est lié a l'enregistrement ?
>> Que faire si pour l'un des enregistrements le resultat est <=0 ?
>> Que fait exactement cette requete d'ajout et quel est ce calcul ?
>> Peux tu nous donner le source SQL de la requete ?
>> @+
>>
Ok donc l'idée c'est de faire tourner cette requete jusqu'a ce qu'elle
ne retourne plus d'info?
Il faudrait donc deux versions de cette requete : une de Selection et
d'ajout.
Tu pourrais faire quelque chose comme
resultatÜount("[PremierDeN°Registre]","Selection VenteVmp 2eme cession")
While not resultat=0
Docmd.openquery "Ajout VenteVmp 2eme cession"
resultatÜount("[PremierDeN°Registre]","Selection VenteVmp 2eme cession")
Whend
maxben a écrit :
> Voilà la source
> SELECT [Forms_Stock_Pour_Cession Requête (NV)].PremierDeN°Registre,
> [Forms_Stock_Pour_Cession Requête (NV)].PremierDeDate,
> [Forms_Stock_Pour_Cession Requête (NV)].Forms_Stock_Pour_Cession.N°Auto_VMP,
> [Forms_Stock_Pour_Cession Requête (NV)].PremierDeStock AS Stock,
> [Forms_Stock_Pour_Cession Requête (NV)].N°Opération,
> [Forms_Stock_Pour_Cession Requête (NV)].Date, [Forms_Stock_Pour_Cession
> Requête (NV)].Quantité, [Forms_Stock_Pour_Cession Requête
> (NV)].Saisie_Vente_VMP.N°Auto_VMP, [Forms_Stock_Pour_Cession Requête
> (NV)].[Montant Unitaire], [Selection_ajout_vente VMP 1ere requete (2eme
> cession)].N°Opération AS N°vente, [Selection_ajout_vente VMP 1ere requete
> (2eme cession)].N°Auto_VMP, [Selection_ajout_vente VMP 1ere requete (2eme
> cession)].Date AS DateVente, [Selection_ajout_vente VMP 1ere requete (2eme
> cession)].SommeDeQuantité_Vente, [Selection_ajout_vente VMP 1ere requete
> (2eme cession)].Montant_Unitaire_Vente, [Quantité]-[SommeDeQuantité_Vente] AS
> StockPartiel, IIf([StockPartiel]>[Stock],[Stock],[StockPartiel]) AS
> VentePartielle
> FROM [Forms_Stock_Pour_Cession Requête (NV)], [Selection_ajout_vente VMP
> 1ere requete (2eme cession)]
> WHERE ((([Quantité]-[SommeDeQuantité_Vente])>0));
>
> "Fabien" a écrit :
>
>> maxben a écrit :
>>> Oui c'est exactement ça
>>>
>>> "Fabien" a écrit :
>>>
>>>> maxben a écrit :
>>>>> Merci, e, fait c'est dans la 2eme requete, elle doit s'executer tant qu'un
>>>>> champ calculé est > à 0.
>>>>> Je comprends pas trop ce que tu m'as dit de faire
>>>>>
>>>>> "Gilbert" a écrit :
>>>>>
>>>>>> Bonjour,
>>>>>>
>>>>>> Je ne sais pas ce que tu entends par un résultat > à 0 mais tu peux faire
>>>>>> quelque chose comme
>>>>>>
>>>>>> Dim ResultatPositif as boolean
>>>>>> ResultatPositif =true 'Pour la première exécution
>>>>>> Do While ResultatPositif
>>>>>> DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
>>>>>> DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
>>>>>>
>>>>>> ResultatPositif =??? 'Là c'est à toi de mettre la condition qui va bien
>>>>>> Loop
>>>>>>
>>>>>> --
>>>>>> Cordialement,
>>>>>>
>>>>>> Gilbert
>>>>>>
>>>>>>
>>>>>> "maxben" <maxben@discussions.microsoft.com> a écrit dans le message de
>>>>>> news:F49AEB7B-FBE6-4FFF-8E94-841ED20ABAEC@microsoft.com...
>>>>>>> Bonsoir à tous,
>>>>>>>
>>>>>>> Est il possible avec du code de faire exécuter une requête plusieurs fois
>>>>>> de
>>>>>>> suite tant qu'elle trouve un résultat > à 0
>>>>>>> Merci beaucoup
>>>>>>> mon code actuel est
>>>>>>> Private Sub Commande18_Click()
>>>>>>> If [Quantité] > [Vente1] Then
>>>>>>>
>>>>>>> DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
>>>>>>>
>>>>>>> DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
>>>>>>>
>>>>>>>
>>>>>>>
>>>> Salut,
>>>> si je comprend bien tu veux que la requete "Ajout ventevmp 2eme cession"
>>>> s'execute tant que le resultat d'un champ calculé (lequel?) contenu dans
>>>> cette requete est >0 ?
>>>> @+
>>>>
>> Ok:
>> Mais alors cette requete traite plus d'un enregistrement ?
>> Le resultat que tu cherche à analyser est lié a l'enregistrement ?
>> Que faire si pour l'un des enregistrements le resultat est <=0 ?
>> Que fait exactement cette requete d'ajout et quel est ce calcul ?
>> Peux tu nous donner le source SQL de la requete ?
>> @+
>>
Ok donc l'idée c'est de faire tourner cette requete jusqu'a ce qu'elle
ne retourne plus d'info?
Il faudrait donc deux versions de cette requete : une de Selection et
d'ajout.
Tu pourrais faire quelque chose comme
resultatÜount("[PremierDeN°Registre]","Selection VenteVmp 2eme cession")
While not resultat=0
Docmd.openquery "Ajout VenteVmp 2eme cession"
resultatÜount("[PremierDeN°Registre]","Selection VenteVmp 2eme cession")
Whend
maxben a écrit :
> Voilà la source
> SELECT [Forms_Stock_Pour_Cession Requête (NV)].PremierDeN°Registre,
> [Forms_Stock_Pour_Cession Requête (NV)].PremierDeDate,
> [Forms_Stock_Pour_Cession Requête (NV)].Forms_Stock_Pour_Cession.N°Auto_VMP,
> [Forms_Stock_Pour_Cession Requête (NV)].PremierDeStock AS Stock,
> [Forms_Stock_Pour_Cession Requête (NV)].N°Opération,
> [Forms_Stock_Pour_Cession Requête (NV)].Date, [Forms_Stock_Pour_Cession
> Requête (NV)].Quantité, [Forms_Stock_Pour_Cession Requête
> (NV)].Saisie_Vente_VMP.N°Auto_VMP, [Forms_Stock_Pour_Cession Requête
> (NV)].[Montant Unitaire], [Selection_ajout_vente VMP 1ere requete (2eme
> cession)].N°Opération AS N°vente, [Selection_ajout_vente VMP 1ere requete
> (2eme cession)].N°Auto_VMP, [Selection_ajout_vente VMP 1ere requete (2eme
> cession)].Date AS DateVente, [Selection_ajout_vente VMP 1ere requete (2eme
> cession)].SommeDeQuantité_Vente, [Selection_ajout_vente VMP 1ere requete
> (2eme cession)].Montant_Unitaire_Vente, [Quantité]-[SommeDeQuantité_Vente] AS
> StockPartiel, IIf([StockPartiel]>[Stock],[Stock],[StockPartiel]) AS
> VentePartielle
> FROM [Forms_Stock_Pour_Cession Requête (NV)], [Selection_ajout_vente VMP
> 1ere requete (2eme cession)]
> WHERE ((([Quantité]-[SommeDeQuantité_Vente])>0));
>
> "Fabien" a écrit :
>
>> maxben a écrit :
>>> Oui c'est exactement ça
>>>
>>> "Fabien" a écrit :
>>>
>>>> maxben a écrit :
>>>>> Merci, e, fait c'est dans la 2eme requete, elle doit s'executer tant qu'un
>>>>> champ calculé est > à 0.
>>>>> Je comprends pas trop ce que tu m'as dit de faire
>>>>>
>>>>> "Gilbert" a écrit :
>>>>>
>>>>>> Bonjour,
>>>>>>
>>>>>> Je ne sais pas ce que tu entends par un résultat > à 0 mais tu peux faire
>>>>>> quelque chose comme
>>>>>>
>>>>>> Dim ResultatPositif as boolean
>>>>>> ResultatPositif =true 'Pour la première exécution
>>>>>> Do While ResultatPositif
>>>>>> DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
>>>>>> DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
>>>>>>
>>>>>> ResultatPositif =??? 'Là c'est à toi de mettre la condition qui va bien
>>>>>> Loop
>>>>>>
>>>>>> --
>>>>>> Cordialement,
>>>>>>
>>>>>> Gilbert
>>>>>>
>>>>>>
>>>>>> "maxben" a écrit dans le message de
>>>>>> news:
>>>>>>> Bonsoir à tous,
>>>>>>>
>>>>>>> Est il possible avec du code de faire exécuter une requête plusieurs fois
>>>>>> de
>>>>>>> suite tant qu'elle trouve un résultat > à 0
>>>>>>> Merci beaucoup
>>>>>>> mon code actuel est
>>>>>>> Private Sub Commande18_Click()
>>>>>>> If [Quantité] > [Vente1] Then
>>>>>>>
>>>>>>> DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
>>>>>>>
>>>>>>> DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
>>>>>>>
>>>>>>>
>>>>>>>
>>>> Salut,
>>>> si je comprend bien tu veux que la requete "Ajout ventevmp 2eme cession"
>>>> s'execute tant que le resultat d'un champ calculé (lequel?) contenu dans
>>>> cette requete est >0 ?
>>>> @+
>>>>
>> Ok:
>> Mais alors cette requete traite plus d'un enregistrement ?
>> Le resultat que tu cherche à analyser est lié a l'enregistrement ?
>> Que faire si pour l'un des enregistrements le resultat est <=0 ?
>> Que fait exactement cette requete d'ajout et quel est ce calcul ?
>> Peux tu nous donner le source SQL de la requete ?
>> @+
>>
Ok donc l'idée c'est de faire tourner cette requete jusqu'a ce qu'elle
ne retourne plus d'info?
Il faudrait donc deux versions de cette requete : une de Selection et
d'ajout.
Tu pourrais faire quelque chose comme
resultatÜount("[PremierDeN°Registre]","Selection VenteVmp 2eme cession")
While not resultat=0
Docmd.openquery "Ajout VenteVmp 2eme cession"
resultatÜount("[PremierDeN°Registre]","Selection VenteVmp 2eme cession")
Whend
maxben a écrit :
> Voilà la source
> SELECT [Forms_Stock_Pour_Cession Requête (NV)].PremierDeN°Registre,
> [Forms_Stock_Pour_Cession Requête (NV)].PremierDeDate,
> [Forms_Stock_Pour_Cession Requête (NV)].Forms_Stock_Pour_Cession.N°Auto_VMP,
> [Forms_Stock_Pour_Cession Requête (NV)].PremierDeStock AS Stock,
> [Forms_Stock_Pour_Cession Requête (NV)].N°Opération,
> [Forms_Stock_Pour_Cession Requête (NV)].Date, [Forms_Stock_Pour_Cession
> Requête (NV)].Quantité, [Forms_Stock_Pour_Cession Requête
> (NV)].Saisie_Vente_VMP.N°Auto_VMP, [Forms_Stock_Pour_Cession Requête
> (NV)].[Montant Unitaire], [Selection_ajout_vente VMP 1ere requete (2eme
> cession)].N°Opération AS N°vente, [Selection_ajout_vente VMP 1ere requete
> (2eme cession)].N°Auto_VMP, [Selection_ajout_vente VMP 1ere requete (2eme
> cession)].Date AS DateVente, [Selection_ajout_vente VMP 1ere requete (2eme
> cession)].SommeDeQuantité_Vente, [Selection_ajout_vente VMP 1ere requete
> (2eme cession)].Montant_Unitaire_Vente, [Quantité]-[SommeDeQuantité_Vente] AS
> StockPartiel, IIf([StockPartiel]>[Stock],[Stock],[StockPartiel]) AS
> VentePartielle
> FROM [Forms_Stock_Pour_Cession Requête (NV)], [Selection_ajout_vente VMP
> 1ere requete (2eme cession)]
> WHERE ((([Quantité]-[SommeDeQuantité_Vente])>0));
>
> "Fabien" a écrit :
>
>> maxben a écrit :
>>> Oui c'est exactement ça
>>>
>>> "Fabien" a écrit :
>>>
>>>> maxben a écrit :
>>>>> Merci, e, fait c'est dans la 2eme requete, elle doit s'executer tant qu'un
>>>>> champ calculé est > à 0.
>>>>> Je comprends pas trop ce que tu m'as dit de faire
>>>>>
>>>>> "Gilbert" a écrit :
>>>>>
>>>>>> Bonjour,
>>>>>>
>>>>>> Je ne sais pas ce que tu entends par un résultat > à 0 mais tu peux faire
>>>>>> quelque chose comme
>>>>>>
>>>>>> Dim ResultatPositif as boolean
>>>>>> ResultatPositif =true 'Pour la première exécution
>>>>>> Do While ResultatPositif
>>>>>> DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
>>>>>> DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
>>>>>>
>>>>>> ResultatPositif =??? 'Là c'est à toi de mettre la condition qui va bien
>>>>>> Loop
>>>>>>
>>>>>> --
>>>>>> Cordialement,
>>>>>>
>>>>>> Gilbert
>>>>>>
>>>>>>
>>>>>> "maxben" a écrit dans le message de
>>>>>> news:
>>>>>>> Bonsoir à tous,
>>>>>>>
>>>>>>> Est il possible avec du code de faire exécuter une requête plusieurs fois
>>>>>> de
>>>>>>> suite tant qu'elle trouve un résultat > à 0
>>>>>>> Merci beaucoup
>>>>>>> mon code actuel est
>>>>>>> Private Sub Commande18_Click()
>>>>>>> If [Quantité] > [Vente1] Then
>>>>>>>
>>>>>>> DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
>>>>>>>
>>>>>>> DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
>>>>>>>
>>>>>>>
>>>>>>>
>>>> Salut,
>>>> si je comprend bien tu veux que la requete "Ajout ventevmp 2eme cession"
>>>> s'execute tant que le resultat d'un champ calculé (lequel?) contenu dans
>>>> cette requete est >0 ?
>>>> @+
>>>>
>> Ok:
>> Mais alors cette requete traite plus d'un enregistrement ?
>> Le resultat que tu cherche à analyser est lié a l'enregistrement ?
>> Que faire si pour l'un des enregistrements le resultat est <=0 ?
>> Que fait exactement cette requete d'ajout et quel est ce calcul ?
>> Peux tu nous donner le source SQL de la requete ?
>> @+
>>
Ok donc l'idée c'est de faire tourner cette requete jusqu'a ce qu'elle
ne retourne plus d'info?
Il faudrait donc deux versions de cette requete : une de Selection et
d'ajout.
Tu pourrais faire quelque chose comme
resultatÜount("[PremierDeN°Registre]","Selection VenteVmp 2eme cession")
While not resultat=0
Docmd.openquery "Ajout VenteVmp 2eme cession"
resultatÜount("[PremierDeN°Registre]","Selection VenteVmp 2eme cession")
Whend
maxben a écrit :
> Voilà la source
> SELECT [Forms_Stock_Pour_Cession Requête (NV)].PremierDeN°Registre,
> [Forms_Stock_Pour_Cession Requête (NV)].PremierDeDate,
> [Forms_Stock_Pour_Cession Requête (NV)].Forms_Stock_Pour_Cession.N°Auto_VMP,
> [Forms_Stock_Pour_Cession Requête (NV)].PremierDeStock AS Stock,
> [Forms_Stock_Pour_Cession Requête (NV)].N°Opération,
> [Forms_Stock_Pour_Cession Requête (NV)].Date, [Forms_Stock_Pour_Cession
> Requête (NV)].Quantité, [Forms_Stock_Pour_Cession Requête
> (NV)].Saisie_Vente_VMP.N°Auto_VMP, [Forms_Stock_Pour_Cession Requête
> (NV)].[Montant Unitaire], [Selection_ajout_vente VMP 1ere requete (2eme
> cession)].N°Opération AS N°vente, [Selection_ajout_vente VMP 1ere requete
> (2eme cession)].N°Auto_VMP, [Selection_ajout_vente VMP 1ere requete (2eme
> cession)].Date AS DateVente, [Selection_ajout_vente VMP 1ere requete (2eme
> cession)].SommeDeQuantité_Vente, [Selection_ajout_vente VMP 1ere requete
> (2eme cession)].Montant_Unitaire_Vente, [Quantité]-[SommeDeQuantité_Vente] AS
> StockPartiel, IIf([StockPartiel]>[Stock],[Stock],[StockPartiel]) AS
> VentePartielle
> FROM [Forms_Stock_Pour_Cession Requête (NV)], [Selection_ajout_vente VMP
> 1ere requete (2eme cession)]
> WHERE ((([Quantité]-[SommeDeQuantité_Vente])>0));
>
> "Fabien" a écrit :
>
>> maxben a écrit :
>>> Oui c'est exactement ça
>>>
>>> "Fabien" a écrit :
>>>
>>>> maxben a écrit :
>>>>> Merci, e, fait c'est dans la 2eme requete, elle doit s'executer tant qu'un
>>>>> champ calculé est > à 0.
>>>>> Je comprends pas trop ce que tu m'as dit de faire
>>>>>
>>>>> "Gilbert" a écrit :
>>>>>
>>>>>> Bonjour,
>>>>>>
>>>>>> Je ne sais pas ce que tu entends par un résultat > à 0 mais tu peux faire
>>>>>> quelque chose comme
>>>>>>
>>>>>> Dim ResultatPositif as boolean
>>>>>> ResultatPositif =true 'Pour la première exécution
>>>>>> Do While ResultatPositif
>>>>>> DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
>>>>>> DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
>>>>>>
>>>>>> ResultatPositif =??? 'Là c'est à toi de mettre la condition qui va bien
>>>>>> Loop
>>>>>>
>>>>>> --
>>>>>> Cordialement,
>>>>>>
>>>>>> Gilbert
>>>>>>
>>>>>>
>>>>>> "maxben" <maxben@discussions.microsoft.com> a écrit dans le message de
>>>>>> news:F49AEB7B-FBE6-4FFF-8E94-841ED20ABAEC@microsoft.com...
>>>>>>> Bonsoir à tous,
>>>>>>>
>>>>>>> Est il possible avec du code de faire exécuter une requête plusieurs fois
>>>>>> de
>>>>>>> suite tant qu'elle trouve un résultat > à 0
>>>>>>> Merci beaucoup
>>>>>>> mon code actuel est
>>>>>>> Private Sub Commande18_Click()
>>>>>>> If [Quantité] > [Vente1] Then
>>>>>>>
>>>>>>> DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
>>>>>>>
>>>>>>> DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
>>>>>>>
>>>>>>>
>>>>>>>
>>>> Salut,
>>>> si je comprend bien tu veux que la requete "Ajout ventevmp 2eme cession"
>>>> s'execute tant que le resultat d'un champ calculé (lequel?) contenu dans
>>>> cette requete est >0 ?
>>>> @+
>>>>
>> Ok:
>> Mais alors cette requete traite plus d'un enregistrement ?
>> Le resultat que tu cherche à analyser est lié a l'enregistrement ?
>> Que faire si pour l'un des enregistrements le resultat est <=0 ?
>> Que fait exactement cette requete d'ajout et quel est ce calcul ?
>> Peux tu nous donner le source SQL de la requete ?
>> @+
>>
Ok donc l'idée c'est de faire tourner cette requete jusqu'a ce qu'elle
ne retourne plus d'info?
Il faudrait donc deux versions de cette requete : une de Selection et
d'ajout.
Tu pourrais faire quelque chose comme
resultatÜount("[PremierDeN°Registre]","Selection VenteVmp 2eme cession")
While not resultat=0
Docmd.openquery "Ajout VenteVmp 2eme cession"
resultatÜount("[PremierDeN°Registre]","Selection VenteVmp 2eme cession")
Whend
maxben a écrit :
> Voilà la source
> SELECT [Forms_Stock_Pour_Cession Requête (NV)].PremierDeN°Registre,
> [Forms_Stock_Pour_Cession Requête (NV)].PremierDeDate,
> [Forms_Stock_Pour_Cession Requête (NV)].Forms_Stock_Pour_Cession.N°Auto_VMP,
> [Forms_Stock_Pour_Cession Requête (NV)].PremierDeStock AS Stock,
> [Forms_Stock_Pour_Cession Requête (NV)].N°Opération,
> [Forms_Stock_Pour_Cession Requête (NV)].Date, [Forms_Stock_Pour_Cession
> Requête (NV)].Quantité, [Forms_Stock_Pour_Cession Requête
> (NV)].Saisie_Vente_VMP.N°Auto_VMP, [Forms_Stock_Pour_Cession Requête
> (NV)].[Montant Unitaire], [Selection_ajout_vente VMP 1ere requete (2eme
> cession)].N°Opération AS N°vente, [Selection_ajout_vente VMP 1ere requete
> (2eme cession)].N°Auto_VMP, [Selection_ajout_vente VMP 1ere requete (2eme
> cession)].Date AS DateVente, [Selection_ajout_vente VMP 1ere requete (2eme
> cession)].SommeDeQuantité_Vente, [Selection_ajout_vente VMP 1ere requete
> (2eme cession)].Montant_Unitaire_Vente, [Quantité]-[SommeDeQuantité_Vente] AS
> StockPartiel, IIf([StockPartiel]>[Stock],[Stock],[StockPartiel]) AS
> VentePartielle
> FROM [Forms_Stock_Pour_Cession Requête (NV)], [Selection_ajout_vente VMP
> 1ere requete (2eme cession)]
> WHERE ((([Quantité]-[SommeDeQuantité_Vente])>0));
>
> "Fabien" a écrit :
>
>> maxben a écrit :
>>> Oui c'est exactement ça
>>>
>>> "Fabien" a écrit :
>>>
>>>> maxben a écrit :
>>>>> Merci, e, fait c'est dans la 2eme requete, elle doit s'executer tant qu'un
>>>>> champ calculé est > à 0.
>>>>> Je comprends pas trop ce que tu m'as dit de faire
>>>>>
>>>>> "Gilbert" a écrit :
>>>>>
>>>>>> Bonjour,
>>>>>>
>>>>>> Je ne sais pas ce que tu entends par un résultat > à 0 mais tu peux faire
>>>>>> quelque chose comme
>>>>>>
>>>>>> Dim ResultatPositif as boolean
>>>>>> ResultatPositif =true 'Pour la première exécution
>>>>>> Do While ResultatPositif
>>>>>> DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
>>>>>> DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
>>>>>>
>>>>>> ResultatPositif =??? 'Là c'est à toi de mettre la condition qui va bien
>>>>>> Loop
>>>>>>
>>>>>> --
>>>>>> Cordialement,
>>>>>>
>>>>>> Gilbert
>>>>>>
>>>>>>
>>>>>> "maxben" a écrit dans le message de
>>>>>> news:
>>>>>>> Bonsoir à tous,
>>>>>>>
>>>>>>> Est il possible avec du code de faire exécuter une requête plusieurs fois
>>>>>> de
>>>>>>> suite tant qu'elle trouve un résultat > à 0
>>>>>>> Merci beaucoup
>>>>>>> mon code actuel est
>>>>>>> Private Sub Commande18_Click()
>>>>>>> If [Quantité] > [Vente1] Then
>>>>>>>
>>>>>>> DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
>>>>>>>
>>>>>>> DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
>>>>>>>
>>>>>>>
>>>>>>>
>>>> Salut,
>>>> si je comprend bien tu veux que la requete "Ajout ventevmp 2eme cession"
>>>> s'execute tant que le resultat d'un champ calculé (lequel?) contenu dans
>>>> cette requete est >0 ?
>>>> @+
>>>>
>> Ok:
>> Mais alors cette requete traite plus d'un enregistrement ?
>> Le resultat que tu cherche à analyser est lié a l'enregistrement ?
>> Que faire si pour l'un des enregistrements le resultat est <=0 ?
>> Que fait exactement cette requete d'ajout et quel est ce calcul ?
>> Peux tu nous donner le source SQL de la requete ?
>> @+
>>
Ok donc l'idée c'est de faire tourner cette requete jusqu'a ce qu'elle
ne retourne plus d'info?
Il faudrait donc deux versions de cette requete : une de Selection et
d'ajout.
Tu pourrais faire quelque chose comme
resultatÜount("[PremierDeN°Registre]","Selection VenteVmp 2eme cession")
While not resultat=0
Docmd.openquery "Ajout VenteVmp 2eme cession"
resultatÜount("[PremierDeN°Registre]","Selection VenteVmp 2eme cession")
Whend
Mon code ressemble à cela, ça fonctionne bien,
Est ce que ça te paraît convenable?
encore merci
Private Sub Commande18_Click()
If [Quantité] > [Vente1] Then
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
resultat = DCount("[StockPartiel]", "Selection_ajout_vente VMP 2eme
requete (2eme cession)")
While resultat > 0
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
resultat = DCount("[StockPartiel]", "Selection_ajout_vente VMP 2eme
requete (2eme cession)")
Wend
DoCmd.OpenQuery "Suppression Saisie_VenteVMP(NV)"
DoCmd.Requery
Else
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Suppression Saisie_VenteVMP(NV)"
DoCmd.Requery
End If
End Sub
"Fabien" a écrit :maxben a écrit :Voilà la source
SELECT [Forms_Stock_Pour_Cession Requête (NV)].PremierDeN°Registre,
[Forms_Stock_Pour_Cession Requête (NV)].PremierDeDate,
[Forms_Stock_Pour_Cession Requête (NV)].Forms_Stock_Pour_Cession.N°Auto_VMP,
[Forms_Stock_Pour_Cession Requête (NV)].PremierDeStock AS Stock,
[Forms_Stock_Pour_Cession Requête (NV)].N°Opération,
[Forms_Stock_Pour_Cession Requête (NV)].Date, [Forms_Stock_Pour_Cession
Requête (NV)].Quantité, [Forms_Stock_Pour_Cession Requête
(NV)].Saisie_Vente_VMP.N°Auto_VMP, [Forms_Stock_Pour_Cession Requête
(NV)].[Montant Unitaire], [Selection_ajout_vente VMP 1ere requete (2eme
cession)].N°Opération AS N°vente, [Selection_ajout_vente VMP 1ere requete
(2eme cession)].N°Auto_VMP, [Selection_ajout_vente VMP 1ere requete (2eme
cession)].Date AS DateVente, [Selection_ajout_vente VMP 1ere requete (2eme
cession)].SommeDeQuantité_Vente, [Selection_ajout_vente VMP 1ere requete
(2eme cession)].Montant_Unitaire_Vente, [Quantité]-[SommeDeQuantité_Vente] AS
StockPartiel, IIf([StockPartiel]>[Stock],[Stock],[StockPartiel]) AS
VentePartielle
FROM [Forms_Stock_Pour_Cession Requête (NV)], [Selection_ajout_vente VMP
1ere requete (2eme cession)]
WHERE ((([Quantité]-[SommeDeQuantité_Vente])>0));
"Fabien" a écrit :maxben a écrit :Oui c'est exactement ça
"Fabien" a écrit :maxben a écrit :Merci, e, fait c'est dans la 2eme requete, elle doit s'executer tant qu'un
champ calculé est > à 0.
Je comprends pas trop ce que tu m'as dit de faire
"Gilbert" a écrit :Bonjour,
Je ne sais pas ce que tu entends par un résultat > à 0 mais tu peux faire
quelque chose comme
Dim ResultatPositif as boolean
ResultatPositif =true 'Pour la première exécution
Do While ResultatPositif
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
ResultatPositif =??? 'Là c'est à toi de mettre la condition qui va bien
Loop
--
Cordialement,
Gilbert
"maxben" a écrit dans le message de
news:Bonsoir à tous,
Est il possible avec du code de faire exécuter une requête plusieurs fois
desuite tant qu'elle trouve un résultat > à 0
Merci beaucoup
mon code actuel est
Private Sub Commande18_Click()
If [Quantité] > [Vente1] Then
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
Salut,
si je comprend bien tu veux que la requete "Ajout ventevmp 2eme cession"
s'execute tant que le resultat d'un champ calculé (lequel?) contenu dans
cette requete est >0 ?
@+
Ok:
Mais alors cette requete traite plus d'un enregistrement ?
Le resultat que tu cherche à analyser est lié a l'enregistrement ?
Que faire si pour l'un des enregistrements le resultat est <=0 ?
Que fait exactement cette requete d'ajout et quel est ce calcul ?
Peux tu nous donner le source SQL de la requete ?
@+
Ok donc l'idée c'est de faire tourner cette requete jusqu'a ce qu'elle
ne retourne plus d'info?
Il faudrait donc deux versions de cette requete : une de Selection et
d'ajout.
Tu pourrais faire quelque chose comme
resultatÜount("[PremierDeN°Registre]","Selection VenteVmp 2eme cession")
While not resultat=0
Docmd.openquery "Ajout VenteVmp 2eme cession"
resultatÜount("[PremierDeN°Registre]","Selection VenteVmp 2eme cession")
Whend
Mon code ressemble à cela, ça fonctionne bien,
Est ce que ça te paraît convenable?
encore merci
Private Sub Commande18_Click()
If [Quantité] > [Vente1] Then
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
resultat = DCount("[StockPartiel]", "Selection_ajout_vente VMP 2eme
requete (2eme cession)")
While resultat > 0
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
resultat = DCount("[StockPartiel]", "Selection_ajout_vente VMP 2eme
requete (2eme cession)")
Wend
DoCmd.OpenQuery "Suppression Saisie_VenteVMP(NV)"
DoCmd.Requery
Else
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Suppression Saisie_VenteVMP(NV)"
DoCmd.Requery
End If
End Sub
"Fabien" a écrit :
maxben a écrit :
Voilà la source
SELECT [Forms_Stock_Pour_Cession Requête (NV)].PremierDeN°Registre,
[Forms_Stock_Pour_Cession Requête (NV)].PremierDeDate,
[Forms_Stock_Pour_Cession Requête (NV)].Forms_Stock_Pour_Cession.N°Auto_VMP,
[Forms_Stock_Pour_Cession Requête (NV)].PremierDeStock AS Stock,
[Forms_Stock_Pour_Cession Requête (NV)].N°Opération,
[Forms_Stock_Pour_Cession Requête (NV)].Date, [Forms_Stock_Pour_Cession
Requête (NV)].Quantité, [Forms_Stock_Pour_Cession Requête
(NV)].Saisie_Vente_VMP.N°Auto_VMP, [Forms_Stock_Pour_Cession Requête
(NV)].[Montant Unitaire], [Selection_ajout_vente VMP 1ere requete (2eme
cession)].N°Opération AS N°vente, [Selection_ajout_vente VMP 1ere requete
(2eme cession)].N°Auto_VMP, [Selection_ajout_vente VMP 1ere requete (2eme
cession)].Date AS DateVente, [Selection_ajout_vente VMP 1ere requete (2eme
cession)].SommeDeQuantité_Vente, [Selection_ajout_vente VMP 1ere requete
(2eme cession)].Montant_Unitaire_Vente, [Quantité]-[SommeDeQuantité_Vente] AS
StockPartiel, IIf([StockPartiel]>[Stock],[Stock],[StockPartiel]) AS
VentePartielle
FROM [Forms_Stock_Pour_Cession Requête (NV)], [Selection_ajout_vente VMP
1ere requete (2eme cession)]
WHERE ((([Quantité]-[SommeDeQuantité_Vente])>0));
"Fabien" a écrit :
maxben a écrit :
Oui c'est exactement ça
"Fabien" a écrit :
maxben a écrit :
Merci, e, fait c'est dans la 2eme requete, elle doit s'executer tant qu'un
champ calculé est > à 0.
Je comprends pas trop ce que tu m'as dit de faire
"Gilbert" a écrit :
Bonjour,
Je ne sais pas ce que tu entends par un résultat > à 0 mais tu peux faire
quelque chose comme
Dim ResultatPositif as boolean
ResultatPositif =true 'Pour la première exécution
Do While ResultatPositif
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
ResultatPositif =??? 'Là c'est à toi de mettre la condition qui va bien
Loop
--
Cordialement,
Gilbert
"maxben" <maxben@discussions.microsoft.com> a écrit dans le message de
news:F49AEB7B-FBE6-4FFF-8E94-841ED20ABAEC@microsoft.com...
Bonsoir à tous,
Est il possible avec du code de faire exécuter une requête plusieurs fois
de
suite tant qu'elle trouve un résultat > à 0
Merci beaucoup
mon code actuel est
Private Sub Commande18_Click()
If [Quantité] > [Vente1] Then
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
Salut,
si je comprend bien tu veux que la requete "Ajout ventevmp 2eme cession"
s'execute tant que le resultat d'un champ calculé (lequel?) contenu dans
cette requete est >0 ?
@+
Ok:
Mais alors cette requete traite plus d'un enregistrement ?
Le resultat que tu cherche à analyser est lié a l'enregistrement ?
Que faire si pour l'un des enregistrements le resultat est <=0 ?
Que fait exactement cette requete d'ajout et quel est ce calcul ?
Peux tu nous donner le source SQL de la requete ?
@+
Ok donc l'idée c'est de faire tourner cette requete jusqu'a ce qu'elle
ne retourne plus d'info?
Il faudrait donc deux versions de cette requete : une de Selection et
d'ajout.
Tu pourrais faire quelque chose comme
resultatÜount("[PremierDeN°Registre]","Selection VenteVmp 2eme cession")
While not resultat=0
Docmd.openquery "Ajout VenteVmp 2eme cession"
resultatÜount("[PremierDeN°Registre]","Selection VenteVmp 2eme cession")
Whend
Mon code ressemble à cela, ça fonctionne bien,
Est ce que ça te paraît convenable?
encore merci
Private Sub Commande18_Click()
If [Quantité] > [Vente1] Then
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
resultat = DCount("[StockPartiel]", "Selection_ajout_vente VMP 2eme
requete (2eme cession)")
While resultat > 0
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
resultat = DCount("[StockPartiel]", "Selection_ajout_vente VMP 2eme
requete (2eme cession)")
Wend
DoCmd.OpenQuery "Suppression Saisie_VenteVMP(NV)"
DoCmd.Requery
Else
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Suppression Saisie_VenteVMP(NV)"
DoCmd.Requery
End If
End Sub
"Fabien" a écrit :maxben a écrit :Voilà la source
SELECT [Forms_Stock_Pour_Cession Requête (NV)].PremierDeN°Registre,
[Forms_Stock_Pour_Cession Requête (NV)].PremierDeDate,
[Forms_Stock_Pour_Cession Requête (NV)].Forms_Stock_Pour_Cession.N°Auto_VMP,
[Forms_Stock_Pour_Cession Requête (NV)].PremierDeStock AS Stock,
[Forms_Stock_Pour_Cession Requête (NV)].N°Opération,
[Forms_Stock_Pour_Cession Requête (NV)].Date, [Forms_Stock_Pour_Cession
Requête (NV)].Quantité, [Forms_Stock_Pour_Cession Requête
(NV)].Saisie_Vente_VMP.N°Auto_VMP, [Forms_Stock_Pour_Cession Requête
(NV)].[Montant Unitaire], [Selection_ajout_vente VMP 1ere requete (2eme
cession)].N°Opération AS N°vente, [Selection_ajout_vente VMP 1ere requete
(2eme cession)].N°Auto_VMP, [Selection_ajout_vente VMP 1ere requete (2eme
cession)].Date AS DateVente, [Selection_ajout_vente VMP 1ere requete (2eme
cession)].SommeDeQuantité_Vente, [Selection_ajout_vente VMP 1ere requete
(2eme cession)].Montant_Unitaire_Vente, [Quantité]-[SommeDeQuantité_Vente] AS
StockPartiel, IIf([StockPartiel]>[Stock],[Stock],[StockPartiel]) AS
VentePartielle
FROM [Forms_Stock_Pour_Cession Requête (NV)], [Selection_ajout_vente VMP
1ere requete (2eme cession)]
WHERE ((([Quantité]-[SommeDeQuantité_Vente])>0));
"Fabien" a écrit :maxben a écrit :Oui c'est exactement ça
"Fabien" a écrit :maxben a écrit :Merci, e, fait c'est dans la 2eme requete, elle doit s'executer tant qu'un
champ calculé est > à 0.
Je comprends pas trop ce que tu m'as dit de faire
"Gilbert" a écrit :Bonjour,
Je ne sais pas ce que tu entends par un résultat > à 0 mais tu peux faire
quelque chose comme
Dim ResultatPositif as boolean
ResultatPositif =true 'Pour la première exécution
Do While ResultatPositif
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
ResultatPositif =??? 'Là c'est à toi de mettre la condition qui va bien
Loop
--
Cordialement,
Gilbert
"maxben" a écrit dans le message de
news:Bonsoir à tous,
Est il possible avec du code de faire exécuter une requête plusieurs fois
desuite tant qu'elle trouve un résultat > à 0
Merci beaucoup
mon code actuel est
Private Sub Commande18_Click()
If [Quantité] > [Vente1] Then
DoCmd.OpenQuery "Ajout_VenteVMP_1ere Requete (NV)"
DoCmd.OpenQuery "Ajout_VenteVMP 2eme Cession"
Salut,
si je comprend bien tu veux que la requete "Ajout ventevmp 2eme cession"
s'execute tant que le resultat d'un champ calculé (lequel?) contenu dans
cette requete est >0 ?
@+
Ok:
Mais alors cette requete traite plus d'un enregistrement ?
Le resultat que tu cherche à analyser est lié a l'enregistrement ?
Que faire si pour l'un des enregistrements le resultat est <=0 ?
Que fait exactement cette requete d'ajout et quel est ce calcul ?
Peux tu nous donner le source SQL de la requete ?
@+
Ok donc l'idée c'est de faire tourner cette requete jusqu'a ce qu'elle
ne retourne plus d'info?
Il faudrait donc deux versions de cette requete : une de Selection et
d'ajout.
Tu pourrais faire quelque chose comme
resultatÜount("[PremierDeN°Registre]","Selection VenteVmp 2eme cession")
While not resultat=0
Docmd.openquery "Ajout VenteVmp 2eme cession"
resultatÜount("[PremierDeN°Registre]","Selection VenteVmp 2eme cession")
Whend