Execution de procedure : Supprimer défilement d'enregistrements

Le
jcp66
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
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
CErnst
Le #18841521
Ben montrez nous la procédure !.....
et expliquez ce qu'elle est censé faire....

"jcp66" 49b16434$0$12643$
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




jcp66
Le #18843421
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
CErnst
Le #18843681
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" 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



jcp66
Le #18844221
Oui T-Produits
jcp


"CErnst" 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" 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








CErnst
Le #18844861
Pourquoi l'ouvrez-vous ? ce n'est utilisé nulle part.....???

Y at-il un sous-formulaire dans votre Formulaire ?

"jcp66" 49b24e49$0$17772$
Oui T-Produits
jcp


"CErnst" 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" 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












jcp66
Le #18844991
Non il n'y a pas de sous-formulaire

"CErnst"
Pourquoi l'ouvrez-vous ? ce n'est utilisé nulle part.....???

Y at-il un sous-formulaire dans votre Formulaire ?

"jcp66" 49b24e49$0$17772$
Oui T-Produits
jcp


"CErnst" 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" 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


















michel chambrillon
Le #18876791
Bonjour
Dans ton code tu a des recordset.movefirst ou last
Si c'est le recordset du form les mouvement sont visualise dans le form
Si tu ne veux pas de deplacement dans le form utilise recordsetClone au lieu
de recordset
Michel
"jcp66" news:49b265a5$0$12639$
Non il n'y a pas de sous-formulaire

"CErnst" news:
Pourquoi l'ouvrez-vous ? ce n'est utilisé nulle part.....???

Y at-il un sous-formulaire dans votre Formulaire ?

"jcp66" 49b24e49$0$17772$
Oui T-Produits
jcp


"CErnst" 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" 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






















Publicité
Poster une réponse
Anonyme