Appeler une procédure avec des variablesRésolu

Question

Bonjour :



Voici 2 proc&#233;dures : A & B. La proc&#233;dure A lance la proc&#233;dure B contenue dans le module AffichageDetails


 


Afin d'&#233;viter 3 000 000 de lignes de code &#224; saisir, je voudrais que la proc&#233;dure A contienne des variables utilis&#233;es par la proc&#233;dure B.


Exemple :


On rajoute dans la Proc&#233;dure A : nom de la requ&#234;te, la cat&#233;gorie, le produit et le nom d'un label du form ENCOURS (en rouge dans la proc&#233;dure B)


 


Comme &#231;a ma proc&#233;dure B serait 'universelle' et saisie une seule fois.


 


Proc&#233;dure A :


 


Private Sub vgfo_Click()
AffichageDetails.vgfo
End Sub


 


 


Proc&#233;dure B :


 


Public Function vgfo()


 


On Error GoTo erreur
Set db =  OpenDatabase(App.Path & "" & "botv.mdb")
Compteur = ""
DeleteTmpTable.delete_visu
For Each query In db.QueryDefs
    If query.Name = " A_R_VG_FRONT " Then        Nom requete
        Compteur  = 1
        GoTo suite
   Else
        Compteur =  0
    End If
Next query


 


suite:
If Compteur = 1 Then
    DeleteTmpTable.delete_visu
    query.Execute
Else
    MsgBox "Requ&#234;te " & query.Name & " introuvable !", vbOKOnly + vbCritical, "Erreur"
End If


 


Set rst = db.OpenRecordset("VISU")
DETAIL.Grille.Clear
DETAIL.Grille.Cols = 6
DETAIL.Grille.FixedCols = 0
DETAIL.Grille.FixedRows = 0
DETAIL.Grille.ColWidth(0) = 730
DETAIL.Grille.ColWidth(1) = 3600
DETAIL.Grille.ColWidth(2) = 1800
DETAIL.Grille.ColWidth(3) = 1600
DETAIL.Grille.ColWidth(4) = 5000
DETAIL.Grille.ColWidth(5) = 200


 


DETAIL.produit.Text = " V.G."                            Produit 
DETAIL.categorie.Text  = "FRONT-OFFICE"      Cat&#233;gorie
DETAIL.qt.Text = EnCours.vgfo                         label du form encours


 


rst.MoveFirst
Do Until rst.EOF
    DETAIL.Grille.AddItem rst!etab & Chr(9) & rst!nom & Chr(9) & rst![Call Reference] & Chr(9) & rst!category & Chr(9) & rst![Problem Summary] & Chr(9) & rst!priority
    rst.MoveNext
Loop


 


ColorationGrille


 


Unload EnCours
DETAIL.Show


 


Exit Function
erreur:
MsgBox "Une erreur est survenue. Veuillez contacter votre administrateur.", vbOKOnly + vbCritical, "Attention !"
Close #99
Open (App.Path & "\errlog.txt") For Append As #99
Print #99, "ANOMALIE BOTV / Module AffichageDetails / vfbo : " & Date
Print #99, ""
Print #99, "Erreur n&#176; : " & Err.Number
Print #99, "Description : " & Err.Description
Print #99, ""
Close #99
erreur.traitement_erreur


 


End Function

Merci de votre aide

crenaud76 · Accepted Answer

Public sub vgfo(byval nomReq as string, byval Produit as string, byval Categorie as string)


On Error GoTo erreur
Set db = OpenDatabase(App.Path & "" & "botv.mdb")
Compteur = ""
DeleteTmpTable.delete_visu
For Each query In db.QueryDefs
    If query.Name = nomReq Then 
        Compteur = 1
        GoTo suite
   Else
        Compteur = 0
    End If
Next query
'etc ...
'etc ...
End Sub

Et dans la Sub A, pour l'appel ca donnera ...


Private Sub vgfo_Click()
AffichageDetails.vgfo "A_r_VG_FRONT","V.G.","FRONT OFFICE"
AffichageDetails.vgfo "Autre requete","Autre produit","Autre cat&#233;gorie"
' etc ...
' etc ...
End Sub

 Christophe R

laurent92370 · Answer

Merci Crenaud76, c'&#233;tait si simple, j'ai bien not&#233; &#231;a dans un coin de ma t&#234;te !

Appeler une procédure avec des variables

2 réponses

Discussions similaires