Appel de procédure, avec paramètre variable

**Pago283** · 17/03/2013, 13h20

Bonjour,

j'essaye d'appeller une procédure avec un test préalable, comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
ResChoixPause = MsgBox("Tenit compte des pauses", vbYesNo)

If ResChoixPause = 7 Then

StrCallHeure2 = ("Call Heure2(enregistrement![Date], enregistrement![H_Depart], enregistrement![H_Arrivee], enregistrement![No_Chauffeur], enregistrement![No_Tournee], enregistrement![Pause], [TPauseCent], enregistrement![Lavage], [lavageT], [T], [TJ], [TN], [T10Suppl], [tdeparr])")

Else

StrCallHeure2 = "Call Heure2(enregistrement![Date], enregistrement![H_Depart], enregistrement![H_Arrivee], enregistrement![No_Chauffeur], enregistrement![No_Tournee], 0, [TPauseCent], enregistrement![Lavage], [lavageT], [T], [TJ], [TN], [T10Suppl], [tdeparr])"

End If

et ensuite

je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

docmd.execute StrCallHeure2

,

maitenant j'ai une erreur de type 13

j'avais aussi essayé de construire une châine mais cela marchait pas.

qqn a-t'il une idée?

merci

Pascal

**jimbolion** · 17/03/2013, 13h36

Pago283,

Un call s'utilise de la manière suivante

call (arg1,arg2,...)

soit dans ton cas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call Heure2(enregistrement![Date], enregistrement![H_Depart], enregistrement![H_Arrivee], enregistrement![No_Chauffeur], enregistrement![No_Tournee], enregistrement![Pause], [TPauseCent], enregistrement![Lavage], [lavageT], [T], [TJ], [TN], [T10Suppl], [tdeparr])

Dans l'appel des variables entre [ je ne suis pas fan !

Pour une fonction et récupérer une valeur

RetVal = mafonction(arg1,arg2)

JimboLion

**Pago283** · 17/03/2013, 13h50

Bonjour,

merci pour ta réponse, en fait ceux qui commence par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

enregistrement![.....]

sont des champs provenant d'une table remplie, et dans ces fameux paramètres que je désire faire passant il y en a un qui tout dépend de la réponse que l'utilisateur me donne, doit soit utiliser le champ pour le calcul ou bien ne pas utiliser le champ et c'est pour cela que je le remplace par 0
en fait j'essaie de construire le Call et ensuite une chaîne crée, mais je ne sais pas comment faire...

merci

**jimbolion** · 17/03/2013, 14h48

Pago283 re-bonjour,

Pour différencier variables et valeurs issues d'une table pas de soucis tu peux t'imposer la norme que tu veux, bien qu'elle me paraisse surprenante.

Microsoft décourage d'ailleurs ce genre de pratiques

http://msdn.microsoft.com/fr-fr/libr...(v=vs.90).aspx

Pour ton autre question, je ne vois pas l'intérêt de générer une chaîne dans ton code permettant de générer un appel de fonctions. J'ai utilisé de nombreux langages de programmation dans mon univers professionnel et n'ai jamais vu cette pratique. A moins d'une raison évidente ou d'une technique récente de dev (et là j'en appelle à la réflexion d'autres membres), je crois que la meilleure façon de procéder est encore d'utiliser les syntaxes natives du langage.

Cela n'engage que moi mais le tout me semble curieux...

JimBoLion

**Pago283** · 17/03/2013, 18h25

re Jimbolion

de mon côté je ne suis pas un programmeur émérite, juste un touche code

.

et disons que je n'ai surement pas un niveau très élevé en programmation, mais j'essaie de trouver une façon...bien à moi....d'effectuer l'action que je désire faire, car peut-être il y en a une autre, mais je vois pas laquelle comme cela..

en fait au final est-il possible de construire une chaîne qui puisse me servir pour appeler une procédure genre

call string

dans ce "string" il y aurait..

Maprocédure (arg1,arg2,arg3,....)

jusqu'à maintenant je n'y arrive pas

en tout cas merci de te pencher sur ma question, c'est sympa à toi

**LedZeppII** · 17/03/2013, 19h22

Bonjour,

Et si fais comme ça ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
ResChoixPause = MsgBox("Tenir compte des pauses", vbYesNo)
 
If ResChoixPause = 7 Then
   ' Cas_1
   Call Heure2(enregistrement![Date], etc...)
Else 
   ' Cas_2
   Call Heure2(enregistrement![Date], etc...)
End If

... en ayant des arguments différents dans Cas_1 et dans Cas_2, qu'est-ce qui te gènes ?
J'ai le sentiment que ça revient à ce que tu veux faire.

est-il possible de construire une chaîne qui puisse me servir pour appeler une procédure genre

A ma connaissance, ça n'existe pas dans le language VB.
Tu as toutefois la méthode Application.Run dans Access (je ne l'ai jamais utilisée), qui s'en approche.

A+

**jimbolion** · 17/03/2013, 19h43

LedZeppII,

Un grand merci car cela confirme mes dires !

Bonne soirée

JimBoLion

**Pago283** · 17/03/2013, 20h00

Merci à vous deux,

en fait pourquoi je voulais éviter d'utiliser cette solution, c'est que ce bout de code ce retrouve dans une boucle, et qu'à chaque enregistrement qui est retravaillé, j'ai ce test qui se lacne, alors je me demandais si cela ralentissait ou non l'execution de ma procédure, alors que si j'avais réussi à mettre ce test avant la boucle et de n'avoir au final
dans la boucle uniquement

Call Maprocédure, je m'imagine que cela aurait été plus rapide d'exécution,
peut-être que je me trompe et que le fait d'avoir le test dans la boucle et s’exécutant à chaque fois, ralenti peut-être mais de façon imperceptible l'exécution du code

en fait en gros le voici actuellement et ça marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
w_it0 = 0
 
ResChoixPause = MsgBox("Tenir compte des pauses", vbYesNo)
 
Do While w_it0 = 0
 
If Not enregistrement.NoMatch And Not enregistrement.EOF Then
 
 
If ResChoixPause = 6 Then
 
 
 
        Call Heure2(enregistrement![Date], enregistrement![H_Depart], enregistrement![H_Arrivee], enregistrement![No_Chauffeur], enregistrement![No_Tournee], enregistrement![Pause], [TPauseCent], enregistrement![Lavage], [lavageT], [T], [TJ], [TN], [T10Suppl], [tdeparr])
 
    Else
 
        Call Heure2(enregistrement![Date], enregistrement![H_Depart], enregistrement![H_Arrivee], enregistrement![No_Chauffeur], enregistrement![No_Tournee], [0], [TPauseCent], enregistrement![Lavage], [lavageT], [T], [TJ], [TN], [T10Suppl], [tdeparr])
 
End If
 
enregistrement.Edit
 
enregistrement![TT].Value = T
enregistrement![TJour].Value = TJ
enregistrement![TNuit].Value = TN
enregistrement![LavageTemps].Value = lavageT
enregistrement![T10%].Value = T10Suppl
enregistrement![TCharge].Value = TCharge
enregistrement![TdepartArrivee].Value = tdeparr
enregistrement![PauseCent].Value = TPauseCent
 
Else
 
w_it0 = 1
 
End If
 
Loop

alors d'après vous , vais-je perdre bcp en temps d'exécution, j'ai environ 48000 enregistrement dans ma table à passer à la moulinette..

merci

Pascal

**LedZeppII** · 17/03/2013, 20h28

Bonsoir,

Le If ne doit pas consommer beaucoup.

Pour optimiser, il te suffit de mettre en variable le 6eme argument (relatif à enregistrement![Pause]):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
w_it0 = 0
 
ResChoixPause = MsgBox("Tenir compte des pauses", vbYesNo)
 
Dim varPause
If ResChoixPause = 6 Then
        varPause = enregistrement![Pause]
    Else
        varPause = 0
End If
 
Do While w_it0 = 0
 
If Not enregistrement.NoMatch And Not enregistrement.EOF Then
 
	Call Heure2(enregistrement![Date], enregistrement![H_Depart], enregistrement![H_Arrivee], enregistrement![No_Chauffeur], enregistrement![No_Tournee], varPause, [TPauseCent], enregistrement![Lavage], [lavageT], [T], [TJ], [TN], [T10Suppl], [tdeparr])
 
	enregistrement.Edit
 
	enregistrement![TT].Value = T
	enregistrement![TJour].Value = TJ
	enregistrement![TNuit].Value = TN
	enregistrement![LavageTemps].Value = lavageT
	enregistrement![T10%].Value = T10Suppl
	enregistrement![TCharge].Value = TCharge
	enregistrement![TdepartArrivee].Value = tdeparr
	enregistrement![PauseCent].Value = TPauseCent
 
Else
 
	w_it0 = 1
 
End If
 
Loop

J'ai déclaré la variable varPause sans type, ce qui en fait une variable de type Variant.
Si enregistrement![Pause] ne contient jamais Null, tu peux déclarer la variable dans un type compatible avec celui du champ Pause.

En codant de cette manière, je n'exécute le test If qu'une seule fois.

Bonne soirée à tous les deux.

**Pago283** · 17/03/2013, 20h39

Rebonsoir,

j'ai essayé de coder ainsi,

mais j'obtiens une erreur de compilation

Type d'élément byref incompatible

j'ai modifié mon code de procédure Heure2, mais.........

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Sub Heure2(Date1 As Date, ByVal H_Depart As Date, ByVal H_Arrivee As Date, No_Chauffeur As Integer, No_Tournee As Integer, Pause, PauseDec As Variant, Lavage As Variant, lavageT As Double, T As Double, TJ As Double, TN As Double, T10Suppl As Double, tdeparr As Double)

si je pointe sur la variable varPause me montre la valeur même si j'ai
enregistrement![Pause], et comme il est en dehors de la boucle la valeur ne se modifiera pas lors du prochain enregistrement il gardera toujours la même valeur et en fait ce que je voudrais c'est que

varPause ait soit le texte enregistrement![Pause] soit la valeur 0

merci

Pascal

**LedZeppII** · 17/03/2013, 23h53

Rebonsoir,

la variable varPause me montre la valeur même si j'ai enregistrement![Pause], et comme il est en dehors de la boucle la valeur ne se modifiera pas lors du prochain enregistrement il gardera toujours la même valeur et en fait ce que je voudrais c'est que varPause ait soit le texte enregistrement![Pause] soit la valeur 0

Désolé, je n'ai vu de boucle sur les enregistrements

Il est où le .MoveNext ?

Pour faire court, je ne crois pas être en mesure de comprendre la façon dont tu as codé, à la seule vue de ce que tu as posté dans cette discussion.
Mais je comprends le soucis de valeur qui ne change pas. Il vient bien de ma proposition de passer par une variable.
Donc, je ne vais pas essayer de te proposer autre chose, mais plutôt te conseiller de rester sur le If ... Then ... Else.

Pour te conforter dans l'idée qu'un If ne consomme pas beaucoup de temps, j'ai fait un petit test de durée sur une boucle avec 50000 itérations.
Comme elle ne fait pas grand chose, elle ne dure que 1.5ms
En lui ajoutant un If (exécuté 50000 fois) je passe à 3.5ms maximum.
Ça ne m'a coûté que 2ms.

A+

**jimbolion** · 18/03/2013, 04h32

Pago283

Je suis un peu comme LedZeppII, j'ai beau relire ton code et je comprends pas cette logique de boucle sur un recordset mais tu dois avoir de bonnes raisons.

Pas de movenext avant le loop ni de update après le Edit (??).

JimBoLion

**Pago283** · 18/03/2013, 23h21

bonjour

à tout deux

je n'avais mis qu'une partie du code,

plus loin dans le code j'ai effectivement un upadte,un movenext
et un loop

même si mon idée n'est pas réalisable, cela me permet au moins de pouvoir arrêter de chercher...

en tout cas merci pour votre aide

en terme de rapidité d'exécution est-ce qu'un select case est plus rapide qu'un IF?

merci

Pascal

**jimbolion** · 19/03/2013, 05h41

Pago283,

La rapidité entre Select Case et if, voilà une question que je ne mais jamais posée ?

Disons que la logique tend à utiliser l'une ou l'autre des méthodes en fonction du cas, imbriquer 4 if dans une procédure ne me semble pas du tout cohérent lorsqu'un select réponds à la problématique.

Un select sera toujours plus rapide que 4 conditions imbriquées, dans le cas contraire (1 condition) j'utilise le if toujours afin d'utiliser la syntaxe du langage.

Pago283 pour les movenext et update il ne peuvent se placer qu'à un endroit précis (le update se placera après la dernière méthode edit et le movenext avant le loop : question de logique).

JimBoLion

**LedZeppII** · 19/03/2013, 19h01

Bonsoir,

Même chose que Jimbolion.
Je ne me suis jamais posé la question, et je ne me la pose jamais.

Si je dois coder le test de 10 cas de figures, que j'utilise le If ou le Select, il n'en reste pas moins qu'il y a potentiellement dix comparaisons à effectuer.
Ce qui va consommer du temps ce sont les comparaisons.
Peu importe que j'utilise If ou Select.
En revanche l'ordre des comparaisons peu avoir une influence.
J'aurai tendance à mettre en premier les cas les plus fréquents.

Autre critère de choix, la lisibilité.
Un Select peut s'avérer plus lisible, et on peut regrouper plusieurs comparaisons dans un même Case.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Select Case ...
    Case Cas1, Cas7, Cas8, Cas9
         ' même traitement
 
    Case Cas5, Case6
         ' même traitement
 
    Case Else
         ' même traitement des autres Cas restants
 
End Select

est identique à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
If (qqchose=Cas1) Or (qqchose=Cas7) Or (qqchose=Cas8) Or (qqchose=Cas9) Then
   ' même traitement
 
ElseIf (qqchose=Cas5) Or (qqchose=Cas6) Then
   ' même traitement
 
Else
   ' même traitement des autres Cas restants
End If

Dans ce cas de figure, je préfère le Select, mais une question de goût personnel.
Ce n'est pas une question de performance.

D'une manière générale je ne crois que le choix d'une instruction VB ait une grosse incidence sur les performances.
Pour tout ce qui n'est pas instruction VB (fonctions, méthodes), c'est à dire tout ce qui n'est pas purement langage, là on peut peut-être se poser des questions.
Est-ce qu'un recordset DAO est plus rapide/lent qu'un recordset ADO ?
Est-ce que If sMaVar = "" est plus rapide/lent que If Len(sMaVar)=0 ?

Par expérience je dirai qu'il vaut mieux travailler sur la logique générale du code.
C'est là le plus gros gain.
Par exemple, disons que je me suis écrit une fonction qui a besoin d'ouvrir un recordset et de le fermer à la fin.
Dans mon traitement je dois appeler 10000 fois cette fonction.
Cela va entrainer 10000 ouverture/fermeture d'un recordset.
Comme ce sont des objets, ça veut dire création/destruction d'un objet.
Et ça, ça prend du temps.
Est-ce que je n'ai pas intérêt à créer une fonction ou une procédure qui ouvre une fois le recordset, fait 10000 boucles, puis ferme le recordset ?

A+

**jimbolion** · 19/03/2013, 19h51

LedZeppII,

La rapidité entre Select Case et if, voilà une question que je ne mais jamais posée ?

J'aurais dû mieux relire ma phrase (mes anciens profs de littérature doivent se retourner dans leurs tombes)

LedZeppII ton analyse est parfaite comme d'hab !

JimBoLion

**Pago283** · 19/03/2013, 20h35

pour les questions....chiantes... ne vous en faites pas je suis là.....

et merci encore

**LedZeppII** · 19/03/2013, 20h44

Envoyé par jimbolion

J'aurais dû mieux relire ma phrase (mes anciens profs de littérature doivent se retourner dans leurs tombes)

J'avais crû que c'était fait exprès

Question personnelle : Dans quel fuseau horaire vis-tu ?
Certaines de tes interventions sont à des heures très très matinales.

Envoyé par jimbolion

LedZeppII ton analyse est parfaite comme d'hab

Depuis le temps que je programme (plus de 20 ans), et pour avoir essayé plusieurs langages, c'est pas trop dur de se faire une idée, et d'écarter les instructions du langage comme étant une source de perte de performances.
A l'époque lointaine des premiers PC je me suis intéressé au langage machine.
Il y avait des bouquins donnant même jusqu'au nombre de cycles horloge de chaque instruction du microprocesseur. Les machines étaient lentes et les programmeurs talentueux traquaient les millisecondes.
De nos jours ces considérations ne sont plus d'actualité. Le matériel a trop bien évolué en puissance de traitement.

A+

**Pago283** · 19/03/2013, 20h59

Je vis en Suisse, mais quand j'ai une idée en tête , j'essai d y arriver, ok le matin faut se lever mais je suis du genre tenace, et c est un peu mon hobby la programmation, mais pas du tout mon métier

Alors voilà, j espère avoir contenté ta curiosité .......lol...

Et encore un grand merci......

Pascal

**jimbolion** · 20/03/2013, 04h21

Pago283,

Sur le fuseau horaire la question m'était destinée je crois !

Je vis en France dans le sud, mais il m'arrive souvent d'être obligé de me lever tôt pour des raisons professionnelles et puis par habitude...

JimBoLion

Appel de procédure, avec paramètre variable

VBA Access

Discussions similaires

Partager

Partager