Bonjour
Encore moi, autre chose.
Comment réduit Visual Basic suivant :
Private Sub HoService_afterUpdate()
If Me.HoService="ORMES" then
Me.HoCodeService=4006
ElseIf Me.HoService="PEUPLIERS" then
Me.HoCodeService=4007
ElseIf Me.HoService="GENETS" then
Me.HoCodeService=4008
"
"
"
End IF
End Sub
Comment réduit code ! je pense que peut-être utiliser "Select Case" !
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
Thierry (ze Titi)
Re-Bonjour Marco
je pense que peut-être utiliser "Select Case" ! Certainement pas, tu perdrais en rapidité d'exécution (cf
http://officesystem.access.over-blog.com/archive-10-28-2007.html) Si tu nous décrivais un peu comment est alimentée ta liste déroulante, il y aurait peut-être possibilité d'améliorer les choses dans sa structure.
-- Cordialement, Thierry
Tout pour réussir avec Access : http://www.mpfa.info
Re-Bonjour Marco
je pense que peut-être utiliser "Select Case" !
Certainement pas, tu perdrais en rapidité d'exécution (cf
http://officesystem.access.over-blog.com/archive-10-28-2007.html)
Si tu nous décrivais un peu comment est alimentée ta liste déroulante,
il y aurait peut-être possibilité d'améliorer les choses dans sa
structure.
--
Cordialement,
Thierry
Tout pour réussir avec Access :
http://www.mpfa.info
je pense que peut-être utiliser "Select Case" ! Certainement pas, tu perdrais en rapidité d'exécution (cf
http://officesystem.access.over-blog.com/archive-10-28-2007.html) Si tu nous décrivais un peu comment est alimentée ta liste déroulante, il y aurait peut-être possibilité d'améliorer les choses dans sa structure.
-- Cordialement, Thierry
Tout pour réussir avec Access : http://www.mpfa.info
Fabien
Bonjour Encore moi, autre chose. Comment réduit Visual Basic suivant :
Private Sub HoService_afterUpdate() If Me.HoService="ORMES" then
ElseIf Me.HoService="PEUPLIERS" then
ElseIf Me.HoService="GENETS" then
" " " End IF End Sub
Comment réduit code ! je pense que peut-être utiliser "Select Case" !
Par avance merci Cordialement
Bonne idée le select case.
sinon l'autre solution serait de cree une table avec dedans le CodeService et le Service. Ainsi avec une simple liste déroulante tu reccupere ton code en fonction du service choisi dans la liste.
Bonjour
Encore moi, autre chose.
Comment réduit Visual Basic suivant :
Private Sub HoService_afterUpdate()
If Me.HoService="ORMES" then
Me.HoCodeService@06
ElseIf Me.HoService="PEUPLIERS" then
Me.HoCodeService@07
ElseIf Me.HoService="GENETS" then
Me.HoCodeService@08
"
"
"
End IF
End Sub
Comment réduit code ! je pense que peut-être utiliser "Select Case" !
Par avance merci
Cordialement
Bonne idée le select case.
sinon l'autre solution serait de cree une table avec dedans le
CodeService et le Service.
Ainsi avec une simple liste déroulante tu reccupere ton code en fonction
du service choisi dans la liste.
Bonjour Encore moi, autre chose. Comment réduit Visual Basic suivant :
Private Sub HoService_afterUpdate() If Me.HoService="ORMES" then
ElseIf Me.HoService="PEUPLIERS" then
ElseIf Me.HoService="GENETS" then
" " " End IF End Sub
Comment réduit code ! je pense que peut-être utiliser "Select Case" !
Par avance merci Cordialement
Bonne idée le select case.
sinon l'autre solution serait de cree une table avec dedans le CodeService et le Service. Ainsi avec une simple liste déroulante tu reccupere ton code en fonction du service choisi dans la liste.
Fabien
Bonjour Encore moi, autre chose. Comment réduit Visual Basic suivant :
Private Sub HoService_afterUpdate() If Me.HoService="ORMES" then
ElseIf Me.HoService="PEUPLIERS" then
ElseIf Me.HoService="GENETS" then
" " " End IF End Sub
Comment réduit code ! je pense que peut-être utiliser "Select Case" !
Par avance merci Cordialement
Bonne idée le select case.
sinon l'autre solution serait de cree une table avec dedans le CodeService et le Service. Ainsi avec une simple liste déroulante tu reccupere ton code en fonction du service choisi dans la liste. Encore loupé !!!
Bonjour
Encore moi, autre chose.
Comment réduit Visual Basic suivant :
Private Sub HoService_afterUpdate()
If Me.HoService="ORMES" then
Me.HoCodeService@06
ElseIf Me.HoService="PEUPLIERS" then
Me.HoCodeService@07
ElseIf Me.HoService="GENETS" then
Me.HoCodeService@08
"
"
"
End IF
End Sub
Comment réduit code ! je pense que peut-être utiliser "Select Case" !
Par avance merci
Cordialement
Bonne idée le select case.
sinon l'autre solution serait de cree une table avec dedans le
CodeService et le Service.
Ainsi avec une simple liste déroulante tu reccupere ton code en fonction
du service choisi dans la liste.
Encore loupé !!!
Bonjour Encore moi, autre chose. Comment réduit Visual Basic suivant :
Private Sub HoService_afterUpdate() If Me.HoService="ORMES" then
ElseIf Me.HoService="PEUPLIERS" then
ElseIf Me.HoService="GENETS" then
" " " End IF End Sub
Comment réduit code ! je pense que peut-être utiliser "Select Case" !
Par avance merci Cordialement
Bonne idée le select case.
sinon l'autre solution serait de cree une table avec dedans le CodeService et le Service. Ainsi avec une simple liste déroulante tu reccupere ton code en fonction du service choisi dans la liste. Encore loupé !!!
3stone
Bonjour Thierry,
"Thierry (ze Titi)" | > je pense que peut-être utiliser "Select Case" ! | Certainement pas, tu perdrais en rapidité d'exécution (cf | http://officesystem.access.over-blog.com/archive-10-28-2007.html)
Heureusement que le titre est : "Optimisation ludique du VBA" ;-)
A quoi peut servir le test d'une boucle vide ? et 100 millions de fois ? Ce n'est pas la boucle qui consomme, mais ce qu'il y a dedans.
Le select case pas performant... Je me souviens de tests qui avait été fait entre "if then" et le "select case". résultats: insignifiants ou nul - par contre cela apporte un gros plus au niveau de la "lecture" du code (sans parler de la maintenance).
Comme quoi, on peut faire des tests, mais aussi des tests de tests ;-)
| Si tu nous décrivais un peu comment est alimentée ta liste déroulante, | il y aurait peut-être possibilité d'améliorer les choses dans sa | structure.
"Thierry (ze Titi)"
| > je pense que peut-être utiliser "Select Case" !
| Certainement pas, tu perdrais en rapidité d'exécution (cf
| http://officesystem.access.over-blog.com/archive-10-28-2007.html)
Heureusement que le titre est :
"Optimisation ludique du VBA" ;-)
A quoi peut servir le test d'une boucle vide ? et 100 millions de fois ?
Ce n'est pas la boucle qui consomme, mais ce qu'il y a dedans.
Le select case pas performant...
Je me souviens de tests qui avait été fait entre "if then" et le "select case".
résultats: insignifiants ou nul - par contre cela apporte un gros plus au niveau
de la "lecture" du code (sans parler de la maintenance).
Comme quoi, on peut faire des tests, mais aussi des tests de tests ;-)
| Si tu nous décrivais un peu comment est alimentée ta liste déroulante,
| il y aurait peut-être possibilité d'améliorer les choses dans sa
| structure.
"Thierry (ze Titi)" | > je pense que peut-être utiliser "Select Case" ! | Certainement pas, tu perdrais en rapidité d'exécution (cf | http://officesystem.access.over-blog.com/archive-10-28-2007.html)
Heureusement que le titre est : "Optimisation ludique du VBA" ;-)
A quoi peut servir le test d'une boucle vide ? et 100 millions de fois ? Ce n'est pas la boucle qui consomme, mais ce qu'il y a dedans.
Le select case pas performant... Je me souviens de tests qui avait été fait entre "if then" et le "select case". résultats: insignifiants ou nul - par contre cela apporte un gros plus au niveau de la "lecture" du code (sans parler de la maintenance).
Comme quoi, on peut faire des tests, mais aussi des tests de tests ;-)
| Si tu nous décrivais un peu comment est alimentée ta liste déroulante, | il y aurait peut-être possibilité d'améliorer les choses dans sa | structure.
"Thierry (ze Titi)" a écrit dans le message de news:
Re-Bonjour Marco
je pense que peut-être utiliser "Select Case" ! Certainement pas, tu perdrais en rapidité d'exécution (cf
http://officesystem.access.over-blog.com/archive-10-28-2007.html) Si tu nous décrivais un peu comment est alimentée ta liste déroulante, il y aurait peut-être possibilité d'améliorer les choses dans sa structure.
-- Cordialement, Thierry
Tout pour réussir avec Access : http://www.mpfa.info
Parfait
Merci conseil
Bonne journée
"Thierry (ze Titi)" <ze_titi_enlever-ceci@tiscali.fr> a écrit dans le
message de news:mn.437f7d7be17eb8a6.64280@tiscali.fr...
Re-Bonjour Marco
je pense que peut-être utiliser "Select Case" !
Certainement pas, tu perdrais en rapidité d'exécution (cf
http://officesystem.access.over-blog.com/archive-10-28-2007.html)
Si tu nous décrivais un peu comment est alimentée ta liste déroulante, il
y aurait peut-être possibilité d'améliorer les choses dans sa structure.
--
Cordialement,
Thierry
Tout pour réussir avec Access :
http://www.mpfa.info
"Thierry (ze Titi)" a écrit dans le message de news:
Re-Bonjour Marco
je pense que peut-être utiliser "Select Case" ! Certainement pas, tu perdrais en rapidité d'exécution (cf
http://officesystem.access.over-blog.com/archive-10-28-2007.html) Si tu nous décrivais un peu comment est alimentée ta liste déroulante, il y aurait peut-être possibilité d'améliorer les choses dans sa structure.
-- Cordialement, Thierry
Tout pour réussir avec Access : http://www.mpfa.info
Marco
Quand même merci à Fabien
"Fabien" a écrit dans le message de news:473316b4$0$5100$
Bonjour Encore moi, autre chose. Comment réduit Visual Basic suivant :
Private Sub HoService_afterUpdate() If Me.HoService="ORMES" then
ElseIf Me.HoService="PEUPLIERS" then
ElseIf Me.HoService="GENETS" then
" " " End IF End Sub
Comment réduit code ! je pense que peut-être utiliser "Select Case" !
Par avance merci Cordialement
Bonne idée le select case.
sinon l'autre solution serait de cree une table avec dedans le CodeService et le Service. Ainsi avec une simple liste déroulante tu reccupere ton code en fonction du service choisi dans la liste. Encore loupé !!!
Quand même merci à Fabien
"Fabien" <UrbaniakFabienxxxxx@Neuf.fr> a écrit dans le message de
news:473316b4$0$5100$ba4acef3@news.orange.fr...
Bonjour
Encore moi, autre chose.
Comment réduit Visual Basic suivant :
Private Sub HoService_afterUpdate()
If Me.HoService="ORMES" then
Me.HoCodeService@06
ElseIf Me.HoService="PEUPLIERS" then
Me.HoCodeService@07
ElseIf Me.HoService="GENETS" then
Me.HoCodeService@08
"
"
"
End IF
End Sub
Comment réduit code ! je pense que peut-être utiliser "Select Case" !
Par avance merci
Cordialement
Bonne idée le select case.
sinon l'autre solution serait de cree une table avec dedans le
CodeService et le Service.
Ainsi avec une simple liste déroulante tu reccupere ton code en fonction
du service choisi dans la liste.
Encore loupé !!!
"Fabien" a écrit dans le message de news:473316b4$0$5100$
Bonjour Encore moi, autre chose. Comment réduit Visual Basic suivant :
Private Sub HoService_afterUpdate() If Me.HoService="ORMES" then
ElseIf Me.HoService="PEUPLIERS" then
ElseIf Me.HoService="GENETS" then
" " " End IF End Sub
Comment réduit code ! je pense que peut-être utiliser "Select Case" !
Par avance merci Cordialement
Bonne idée le select case.
sinon l'autre solution serait de cree une table avec dedans le CodeService et le Service. Ainsi avec une simple liste déroulante tu reccupere ton code en fonction du service choisi dans la liste. Encore loupé !!!