Bonjour
J'ai une procedure VB qui est lancée à partir d'un formulaire.
A l'execution de cette procedure je vois les enreguitrements du formulaire
défiler.
Je voudrais éviter celà et mettre à la place un message "Procédure en
cours" ou un truc de ce genre.
Merci de votre aide.
Cordialement
jcp
Bonjour
J'ai une procedure VB qui est lancée à partir d'un formulaire.
A l'execution de cette procedure je vois les enreguitrements du formulaire
défiler.
Je voudrais éviter celà et mettre à la place un message "Procédure en
cours" ou un truc de ce genre.
Merci de votre aide.
Cordialement
jcp
Bonjour
J'ai une procedure VB qui est lancée à partir d'un formulaire.
A l'execution de cette procedure je vois les enreguitrements du formulaire
défiler.
Je voudrais éviter celà et mettre à la place un message "Procédure en
cours" ou un truc de ce genre.
Merci de votre aide.
Cordialement
jcp
Voici la procédure en question.
Cordialement
jcp
Private Sub Valid_Click()
Dim Rst_Produit As DAO.Recordset
Dim Rst_Centre As DAO.Recordset
Dim MySql As String
DoCmd.SetWarnings False
Set Rst_Produit = CurrentDb.OpenRecordset("Select
reference,designation,stock from [T-Produits]")
Set Rst_Centre = CurrentDb.OpenRecordset("select LibelleCentre,NbRepas
from [T-Centres]")
Rst_Centre.MoveFirst
While Not Rst_Centre.EOF
NbRef = DCount("*", "[R-PointsStock]")
For i = 1 To NbRef
QteCentre = Me![StockDistrib] * Rst_Centre("NbRepas") / Me![NbRepasTotal]
MySql = "INSERT INTO [T-Temp01] ( semaine, centre, produit,
quantite )VALUES ('" & ChoixSem & "','" & Rst_Centre("LibelleCentre") &
"', designation, '" & QteCentre & "')"
If QteCentre > 0 Then DoCmd.RunSQL MySql
Recordset.MoveNext
Next i
Recordset.MoveFirst
Rst_Centre.MoveNext
Wend
DoCmd.SetWarnings True
Rst_Produit.Close
Rst_Centre.Close
Set Rst_Produit = Nothing
Set Rst_Centre = Nothing
End Sub
Voici la procédure en question.
Cordialement
jcp
Private Sub Valid_Click()
Dim Rst_Produit As DAO.Recordset
Dim Rst_Centre As DAO.Recordset
Dim MySql As String
DoCmd.SetWarnings False
Set Rst_Produit = CurrentDb.OpenRecordset("Select
reference,designation,stock from [T-Produits]")
Set Rst_Centre = CurrentDb.OpenRecordset("select LibelleCentre,NbRepas
from [T-Centres]")
Rst_Centre.MoveFirst
While Not Rst_Centre.EOF
NbRef = DCount("*", "[R-PointsStock]")
For i = 1 To NbRef
QteCentre = Me![StockDistrib] * Rst_Centre("NbRepas") / Me![NbRepasTotal]
MySql = "INSERT INTO [T-Temp01] ( semaine, centre, produit,
quantite )VALUES ('" & ChoixSem & "','" & Rst_Centre("LibelleCentre") &
"', designation, '" & QteCentre & "')"
If QteCentre > 0 Then DoCmd.RunSQL MySql
Recordset.MoveNext
Next i
Recordset.MoveFirst
Rst_Centre.MoveNext
Wend
DoCmd.SetWarnings True
Rst_Produit.Close
Rst_Centre.Close
Set Rst_Produit = Nothing
Set Rst_Centre = Nothing
End Sub
Voici la procédure en question.
Cordialement
jcp
Private Sub Valid_Click()
Dim Rst_Produit As DAO.Recordset
Dim Rst_Centre As DAO.Recordset
Dim MySql As String
DoCmd.SetWarnings False
Set Rst_Produit = CurrentDb.OpenRecordset("Select
reference,designation,stock from [T-Produits]")
Set Rst_Centre = CurrentDb.OpenRecordset("select LibelleCentre,NbRepas
from [T-Centres]")
Rst_Centre.MoveFirst
While Not Rst_Centre.EOF
NbRef = DCount("*", "[R-PointsStock]")
For i = 1 To NbRef
QteCentre = Me![StockDistrib] * Rst_Centre("NbRepas") / Me![NbRepasTotal]
MySql = "INSERT INTO [T-Temp01] ( semaine, centre, produit,
quantite )VALUES ('" & ChoixSem & "','" & Rst_Centre("LibelleCentre") &
"', designation, '" & QteCentre & "')"
If QteCentre > 0 Then DoCmd.RunSQL MySql
Recordset.MoveNext
Next i
Recordset.MoveFirst
Rst_Centre.MoveNext
Wend
DoCmd.SetWarnings True
Rst_Produit.Close
Rst_Centre.Close
Set Rst_Produit = Nothing
Set Rst_Centre = Nothing
End Sub
Est-ce que la procédure met en jeu une table utilisée dans le formulaire
qui appelle la procédure ? et si oui, quelle table ?
"jcp66" a écrit dans le message de news:
49b22dda$0$17755$Voici la procédure en question.
Cordialement
jcp
Private Sub Valid_Click()
Dim Rst_Produit As DAO.Recordset
Dim Rst_Centre As DAO.Recordset
Dim MySql As String
DoCmd.SetWarnings False
Set Rst_Produit = CurrentDb.OpenRecordset("Select
reference,designation,stock from [T-Produits]")
Set Rst_Centre = CurrentDb.OpenRecordset("select LibelleCentre,NbRepas
from [T-Centres]")
Rst_Centre.MoveFirst
While Not Rst_Centre.EOF
NbRef = DCount("*", "[R-PointsStock]")
For i = 1 To NbRef
QteCentre = Me![StockDistrib] * Rst_Centre("NbRepas") / Me![NbRepasTotal]
MySql = "INSERT INTO [T-Temp01] ( semaine, centre, produit,
quantite )VALUES ('" & ChoixSem & "','" & Rst_Centre("LibelleCentre") &
"', designation, '" & QteCentre & "')"
If QteCentre > 0 Then DoCmd.RunSQL MySql
Recordset.MoveNext
Next i
Recordset.MoveFirst
Rst_Centre.MoveNext
Wend
DoCmd.SetWarnings True
Rst_Produit.Close
Rst_Centre.Close
Set Rst_Produit = Nothing
Set Rst_Centre = Nothing
End Sub
Est-ce que la procédure met en jeu une table utilisée dans le formulaire
qui appelle la procédure ? et si oui, quelle table ?
"jcp66" <jcp66@wanadoo.fr> a écrit dans le message de news:
49b22dda$0$17755$ba4acef3@news.orange.fr...
Voici la procédure en question.
Cordialement
jcp
Private Sub Valid_Click()
Dim Rst_Produit As DAO.Recordset
Dim Rst_Centre As DAO.Recordset
Dim MySql As String
DoCmd.SetWarnings False
Set Rst_Produit = CurrentDb.OpenRecordset("Select
reference,designation,stock from [T-Produits]")
Set Rst_Centre = CurrentDb.OpenRecordset("select LibelleCentre,NbRepas
from [T-Centres]")
Rst_Centre.MoveFirst
While Not Rst_Centre.EOF
NbRef = DCount("*", "[R-PointsStock]")
For i = 1 To NbRef
QteCentre = Me![StockDistrib] * Rst_Centre("NbRepas") / Me![NbRepasTotal]
MySql = "INSERT INTO [T-Temp01] ( semaine, centre, produit,
quantite )VALUES ('" & ChoixSem & "','" & Rst_Centre("LibelleCentre") &
"', designation, '" & QteCentre & "')"
If QteCentre > 0 Then DoCmd.RunSQL MySql
Recordset.MoveNext
Next i
Recordset.MoveFirst
Rst_Centre.MoveNext
Wend
DoCmd.SetWarnings True
Rst_Produit.Close
Rst_Centre.Close
Set Rst_Produit = Nothing
Set Rst_Centre = Nothing
End Sub
Est-ce que la procédure met en jeu une table utilisée dans le formulaire
qui appelle la procédure ? et si oui, quelle table ?
"jcp66" a écrit dans le message de news:
49b22dda$0$17755$Voici la procédure en question.
Cordialement
jcp
Private Sub Valid_Click()
Dim Rst_Produit As DAO.Recordset
Dim Rst_Centre As DAO.Recordset
Dim MySql As String
DoCmd.SetWarnings False
Set Rst_Produit = CurrentDb.OpenRecordset("Select
reference,designation,stock from [T-Produits]")
Set Rst_Centre = CurrentDb.OpenRecordset("select LibelleCentre,NbRepas
from [T-Centres]")
Rst_Centre.MoveFirst
While Not Rst_Centre.EOF
NbRef = DCount("*", "[R-PointsStock]")
For i = 1 To NbRef
QteCentre = Me![StockDistrib] * Rst_Centre("NbRepas") / Me![NbRepasTotal]
MySql = "INSERT INTO [T-Temp01] ( semaine, centre, produit,
quantite )VALUES ('" & ChoixSem & "','" & Rst_Centre("LibelleCentre") &
"', designation, '" & QteCentre & "')"
If QteCentre > 0 Then DoCmd.RunSQL MySql
Recordset.MoveNext
Next i
Recordset.MoveFirst
Rst_Centre.MoveNext
Wend
DoCmd.SetWarnings True
Rst_Produit.Close
Rst_Centre.Close
Set Rst_Produit = Nothing
Set Rst_Centre = Nothing
End Sub
Oui T-Produits
jcp
"CErnst" a écrit dans le message de
news: Oqy3$Est-ce que la procédure met en jeu une table utilisée dans le formulaire
qui appelle la procédure ? et si oui, quelle table ?
"jcp66" a écrit dans le message de news:
49b22dda$0$17755$Voici la procédure en question.
Cordialement
jcp
Private Sub Valid_Click()
Dim Rst_Produit As DAO.Recordset
Dim Rst_Centre As DAO.Recordset
Dim MySql As String
DoCmd.SetWarnings False
Set Rst_Produit = CurrentDb.OpenRecordset("Select
reference,designation,stock from [T-Produits]")
Set Rst_Centre = CurrentDb.OpenRecordset("select LibelleCentre,NbRepas
from [T-Centres]")
Rst_Centre.MoveFirst
While Not Rst_Centre.EOF
NbRef = DCount("*", "[R-PointsStock]")
For i = 1 To NbRef
QteCentre = Me![StockDistrib] *
Rst_Centre("NbRepas") / Me![NbRepasTotal]
MySql = "INSERT INTO [T-Temp01] ( semaine, centre,
produit,quantite ) VALUES ('" & ChoixSem & "','" &
Rst_Centre("LibelleCentre") & "', designation, '" & QteCentre & "')"
If QteCentre > 0 Then DoCmd.RunSQL MySql
Recordset.MoveNext
Next i
Recordset.MoveFirst
Rst_Centre.MoveNext
Wend
DoCmd.SetWarnings True
Rst_Produit.Close
Rst_Centre.Close
Set Rst_Produit = Nothing
Set Rst_Centre = Nothing
End Sub
Oui T-Produits
jcp
"CErnst" <contact.nospam@micro-gestion.fr> a écrit dans le message de
news: Oqy3$RwnJHA.1168@TK2MSFTNGP05.phx.gbl...
Est-ce que la procédure met en jeu une table utilisée dans le formulaire
qui appelle la procédure ? et si oui, quelle table ?
"jcp66" <jcp66@wanadoo.fr> a écrit dans le message de news:
49b22dda$0$17755$ba4acef3@news.orange.fr...
Voici la procédure en question.
Cordialement
jcp
Private Sub Valid_Click()
Dim Rst_Produit As DAO.Recordset
Dim Rst_Centre As DAO.Recordset
Dim MySql As String
DoCmd.SetWarnings False
Set Rst_Produit = CurrentDb.OpenRecordset("Select
reference,designation,stock from [T-Produits]")
Set Rst_Centre = CurrentDb.OpenRecordset("select LibelleCentre,NbRepas
from [T-Centres]")
Rst_Centre.MoveFirst
While Not Rst_Centre.EOF
NbRef = DCount("*", "[R-PointsStock]")
For i = 1 To NbRef
QteCentre = Me![StockDistrib] *
Rst_Centre("NbRepas") / Me![NbRepasTotal]
MySql = "INSERT INTO [T-Temp01] ( semaine, centre,
produit,quantite ) VALUES ('" & ChoixSem & "','" &
Rst_Centre("LibelleCentre") & "', designation, '" & QteCentre & "')"
If QteCentre > 0 Then DoCmd.RunSQL MySql
Recordset.MoveNext
Next i
Recordset.MoveFirst
Rst_Centre.MoveNext
Wend
DoCmd.SetWarnings True
Rst_Produit.Close
Rst_Centre.Close
Set Rst_Produit = Nothing
Set Rst_Centre = Nothing
End Sub
Oui T-Produits
jcp
"CErnst" a écrit dans le message de
news: Oqy3$Est-ce que la procédure met en jeu une table utilisée dans le formulaire
qui appelle la procédure ? et si oui, quelle table ?
"jcp66" a écrit dans le message de news:
49b22dda$0$17755$Voici la procédure en question.
Cordialement
jcp
Private Sub Valid_Click()
Dim Rst_Produit As DAO.Recordset
Dim Rst_Centre As DAO.Recordset
Dim MySql As String
DoCmd.SetWarnings False
Set Rst_Produit = CurrentDb.OpenRecordset("Select
reference,designation,stock from [T-Produits]")
Set Rst_Centre = CurrentDb.OpenRecordset("select LibelleCentre,NbRepas
from [T-Centres]")
Rst_Centre.MoveFirst
While Not Rst_Centre.EOF
NbRef = DCount("*", "[R-PointsStock]")
For i = 1 To NbRef
QteCentre = Me![StockDistrib] *
Rst_Centre("NbRepas") / Me![NbRepasTotal]
MySql = "INSERT INTO [T-Temp01] ( semaine, centre,
produit,quantite ) VALUES ('" & ChoixSem & "','" &
Rst_Centre("LibelleCentre") & "', designation, '" & QteCentre & "')"
If QteCentre > 0 Then DoCmd.RunSQL MySql
Recordset.MoveNext
Next i
Recordset.MoveFirst
Rst_Centre.MoveNext
Wend
DoCmd.SetWarnings True
Rst_Produit.Close
Rst_Centre.Close
Set Rst_Produit = Nothing
Set Rst_Centre = Nothing
End Sub
Pourquoi l'ouvrez-vous ? ce n'est utilisé nulle part.....???
Y at-il un sous-formulaire dans votre Formulaire ?
"jcp66" a écrit dans le message de news:
49b24e49$0$17772$Oui T-Produits
jcp
"CErnst" a écrit dans le message de
news: Oqy3$Est-ce que la procédure met en jeu une table utilisée dans le formulaire
qui appelle la procédure ? et si oui, quelle table ?
"jcp66" a écrit dans le message de news:
49b22dda$0$17755$Voici la procédure en question.
Cordialement
jcp
Private Sub Valid_Click()
Dim Rst_Produit As DAO.Recordset
Dim Rst_Centre As DAO.Recordset
Dim MySql As String
DoCmd.SetWarnings False
Set Rst_Produit = CurrentDb.OpenRecordset("Select
reference,designation,stock from [T-Produits]")
Set Rst_Centre = CurrentDb.OpenRecordset("select LibelleCentre,NbRepas
from [T-Centres]")
Rst_Centre.MoveFirst
While Not Rst_Centre.EOF
NbRef = DCount("*", "[R-PointsStock]")
For i = 1 To NbRef
QteCentre = Me![StockDistrib] *
Rst_Centre("NbRepas") / Me![NbRepasTotal]
MySql = "INSERT INTO [T-Temp01] ( semaine, centre,
produit,quantite ) VALUES ('" & ChoixSem & "','" &
Rst_Centre("LibelleCentre") & "', designation, '" & QteCentre & "')"
If QteCentre > 0 Then DoCmd.RunSQL MySql
Recordset.MoveNext
Next i
Recordset.MoveFirst
Rst_Centre.MoveNext
Wend
DoCmd.SetWarnings True
Rst_Produit.Close
Rst_Centre.Close
Set Rst_Produit = Nothing
Set Rst_Centre = Nothing
End Sub
Pourquoi l'ouvrez-vous ? ce n'est utilisé nulle part.....???
Y at-il un sous-formulaire dans votre Formulaire ?
"jcp66" <jcp66@wanadoo.fr> a écrit dans le message de news:
49b24e49$0$17772$ba4acef3@news.orange.fr...
Oui T-Produits
jcp
"CErnst" <contact.nospam@micro-gestion.fr> a écrit dans le message de
news: Oqy3$RwnJHA.1168@TK2MSFTNGP05.phx.gbl...
Est-ce que la procédure met en jeu une table utilisée dans le formulaire
qui appelle la procédure ? et si oui, quelle table ?
"jcp66" <jcp66@wanadoo.fr> a écrit dans le message de news:
49b22dda$0$17755$ba4acef3@news.orange.fr...
Voici la procédure en question.
Cordialement
jcp
Private Sub Valid_Click()
Dim Rst_Produit As DAO.Recordset
Dim Rst_Centre As DAO.Recordset
Dim MySql As String
DoCmd.SetWarnings False
Set Rst_Produit = CurrentDb.OpenRecordset("Select
reference,designation,stock from [T-Produits]")
Set Rst_Centre = CurrentDb.OpenRecordset("select LibelleCentre,NbRepas
from [T-Centres]")
Rst_Centre.MoveFirst
While Not Rst_Centre.EOF
NbRef = DCount("*", "[R-PointsStock]")
For i = 1 To NbRef
QteCentre = Me![StockDistrib] *
Rst_Centre("NbRepas") / Me![NbRepasTotal]
MySql = "INSERT INTO [T-Temp01] ( semaine, centre,
produit,quantite ) VALUES ('" & ChoixSem & "','" &
Rst_Centre("LibelleCentre") & "', designation, '" & QteCentre & "')"
If QteCentre > 0 Then DoCmd.RunSQL MySql
Recordset.MoveNext
Next i
Recordset.MoveFirst
Rst_Centre.MoveNext
Wend
DoCmd.SetWarnings True
Rst_Produit.Close
Rst_Centre.Close
Set Rst_Produit = Nothing
Set Rst_Centre = Nothing
End Sub
Pourquoi l'ouvrez-vous ? ce n'est utilisé nulle part.....???
Y at-il un sous-formulaire dans votre Formulaire ?
"jcp66" a écrit dans le message de news:
49b24e49$0$17772$Oui T-Produits
jcp
"CErnst" a écrit dans le message de
news: Oqy3$Est-ce que la procédure met en jeu une table utilisée dans le formulaire
qui appelle la procédure ? et si oui, quelle table ?
"jcp66" a écrit dans le message de news:
49b22dda$0$17755$Voici la procédure en question.
Cordialement
jcp
Private Sub Valid_Click()
Dim Rst_Produit As DAO.Recordset
Dim Rst_Centre As DAO.Recordset
Dim MySql As String
DoCmd.SetWarnings False
Set Rst_Produit = CurrentDb.OpenRecordset("Select
reference,designation,stock from [T-Produits]")
Set Rst_Centre = CurrentDb.OpenRecordset("select LibelleCentre,NbRepas
from [T-Centres]")
Rst_Centre.MoveFirst
While Not Rst_Centre.EOF
NbRef = DCount("*", "[R-PointsStock]")
For i = 1 To NbRef
QteCentre = Me![StockDistrib] *
Rst_Centre("NbRepas") / Me![NbRepasTotal]
MySql = "INSERT INTO [T-Temp01] ( semaine, centre,
produit,quantite ) VALUES ('" & ChoixSem & "','" &
Rst_Centre("LibelleCentre") & "', designation, '" & QteCentre & "')"
If QteCentre > 0 Then DoCmd.RunSQL MySql
Recordset.MoveNext
Next i
Recordset.MoveFirst
Rst_Centre.MoveNext
Wend
DoCmd.SetWarnings True
Rst_Produit.Close
Rst_Centre.Close
Set Rst_Produit = Nothing
Set Rst_Centre = Nothing
End Sub
Non il n'y a pas de sous-formulaire
"CErnst" a écrit dans le message de
news:Pourquoi l'ouvrez-vous ? ce n'est utilisé nulle part.....???
Y at-il un sous-formulaire dans votre Formulaire ?
"jcp66" a écrit dans le message de news:
49b24e49$0$17772$Oui T-Produits
jcp
"CErnst" a écrit dans le message de
news: Oqy3$Est-ce que la procédure met en jeu une table utilisée dans le
formulaire
qui appelle la procédure ? et si oui, quelle table ?
"jcp66" a écrit dans le message de news:
49b22dda$0$17755$Voici la procédure en question.
Cordialement
jcp
Private Sub Valid_Click()
Dim Rst_Produit As DAO.Recordset
Dim Rst_Centre As DAO.Recordset
Dim MySql As String
DoCmd.SetWarnings False
Set Rst_Produit = CurrentDb.OpenRecordset("Select
reference,designation,stock from [T-Produits]")
Set Rst_Centre = CurrentDb.OpenRecordset("select LibelleCentre,NbRepas
from [T-Centres]")
Rst_Centre.MoveFirst
While Not Rst_Centre.EOF
NbRef = DCount("*", "[R-PointsStock]")
For i = 1 To NbRef
QteCentre = Me![StockDistrib] *
Rst_Centre("NbRepas") / Me![NbRepasTotal]
MySql = "INSERT INTO [T-Temp01] ( semaine,
centre,
produit,quantite ) VALUES ('" & ChoixSem & "','" &
Rst_Centre("LibelleCentre") & "', designation, '" & QteCentre & "')"
If QteCentre > 0 Then DoCmd.RunSQL MySql
Recordset.MoveNext
Next i
Recordset.MoveFirst
Rst_Centre.MoveNext
Wend
DoCmd.SetWarnings True
Rst_Produit.Close
Rst_Centre.Close
Set Rst_Produit = Nothing
Set Rst_Centre = Nothing
End Sub
Non il n'y a pas de sous-formulaire
"CErnst" <contact.nospam@micro-gestion.fr> a écrit dans le message de
news: ekr8GuxnJHA.4912@TK2MSFTNGP04.phx.gbl...
Pourquoi l'ouvrez-vous ? ce n'est utilisé nulle part.....???
Y at-il un sous-formulaire dans votre Formulaire ?
"jcp66" <jcp66@wanadoo.fr> a écrit dans le message de news:
49b24e49$0$17772$ba4acef3@news.orange.fr...
Oui T-Produits
jcp
"CErnst" <contact.nospam@micro-gestion.fr> a écrit dans le message de
news: Oqy3$RwnJHA.1168@TK2MSFTNGP05.phx.gbl...
Est-ce que la procédure met en jeu une table utilisée dans le
formulaire
qui appelle la procédure ? et si oui, quelle table ?
"jcp66" <jcp66@wanadoo.fr> a écrit dans le message de news:
49b22dda$0$17755$ba4acef3@news.orange.fr...
Voici la procédure en question.
Cordialement
jcp
Private Sub Valid_Click()
Dim Rst_Produit As DAO.Recordset
Dim Rst_Centre As DAO.Recordset
Dim MySql As String
DoCmd.SetWarnings False
Set Rst_Produit = CurrentDb.OpenRecordset("Select
reference,designation,stock from [T-Produits]")
Set Rst_Centre = CurrentDb.OpenRecordset("select LibelleCentre,NbRepas
from [T-Centres]")
Rst_Centre.MoveFirst
While Not Rst_Centre.EOF
NbRef = DCount("*", "[R-PointsStock]")
For i = 1 To NbRef
QteCentre = Me![StockDistrib] *
Rst_Centre("NbRepas") / Me![NbRepasTotal]
MySql = "INSERT INTO [T-Temp01] ( semaine,
centre,
produit,quantite ) VALUES ('" & ChoixSem & "','" &
Rst_Centre("LibelleCentre") & "', designation, '" & QteCentre & "')"
If QteCentre > 0 Then DoCmd.RunSQL MySql
Recordset.MoveNext
Next i
Recordset.MoveFirst
Rst_Centre.MoveNext
Wend
DoCmd.SetWarnings True
Rst_Produit.Close
Rst_Centre.Close
Set Rst_Produit = Nothing
Set Rst_Centre = Nothing
End Sub
Non il n'y a pas de sous-formulaire
"CErnst" a écrit dans le message de
news:Pourquoi l'ouvrez-vous ? ce n'est utilisé nulle part.....???
Y at-il un sous-formulaire dans votre Formulaire ?
"jcp66" a écrit dans le message de news:
49b24e49$0$17772$Oui T-Produits
jcp
"CErnst" a écrit dans le message de
news: Oqy3$Est-ce que la procédure met en jeu une table utilisée dans le
formulaire
qui appelle la procédure ? et si oui, quelle table ?
"jcp66" a écrit dans le message de news:
49b22dda$0$17755$Voici la procédure en question.
Cordialement
jcp
Private Sub Valid_Click()
Dim Rst_Produit As DAO.Recordset
Dim Rst_Centre As DAO.Recordset
Dim MySql As String
DoCmd.SetWarnings False
Set Rst_Produit = CurrentDb.OpenRecordset("Select
reference,designation,stock from [T-Produits]")
Set Rst_Centre = CurrentDb.OpenRecordset("select LibelleCentre,NbRepas
from [T-Centres]")
Rst_Centre.MoveFirst
While Not Rst_Centre.EOF
NbRef = DCount("*", "[R-PointsStock]")
For i = 1 To NbRef
QteCentre = Me![StockDistrib] *
Rst_Centre("NbRepas") / Me![NbRepasTotal]
MySql = "INSERT INTO [T-Temp01] ( semaine,
centre,
produit,quantite ) VALUES ('" & ChoixSem & "','" &
Rst_Centre("LibelleCentre") & "', designation, '" & QteCentre & "')"
If QteCentre > 0 Then DoCmd.RunSQL MySql
Recordset.MoveNext
Next i
Recordset.MoveFirst
Rst_Centre.MoveNext
Wend
DoCmd.SetWarnings True
Rst_Produit.Close
Rst_Centre.Close
Set Rst_Produit = Nothing
Set Rst_Centre = Nothing
End Sub