Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Execution de procedure : Supprimer défilement d'enregistrements

Execution de procedure : Supprimer défilement d'enregistrements

7 réponses
Avatar
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
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
CErnst
Ben montrez nous la procédure !.....
et expliquez ce qu'elle est censé faire....

"jcp66" a écrit dans le message de news:
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




Avatar
jcp66
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
Avatar
CErnst
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



Avatar
jcp66
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








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












Avatar
jcp66
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


















Avatar
michel chambrillon
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" a écrit dans le message de
news:49b265a5$0$12639$
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