Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 1 sur 1
  1. #1
    Membre du Club
    Homme Profil pro
    Automaticien
    Inscrit en
    novembre 2006
    Messages
    73
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Automaticien
    Secteur : Industrie

    Informations forums :
    Inscription : novembre 2006
    Messages : 73
    Points : 63
    Points
    63

    Par défaut Problème passage de paramètre

    Bonjour,

    j'ai un projet dans lequel j'utilises 3 Forms distinctes qui sont:
    - Form_Bilan_Jours,
    - Form_Bilan_Mois,
    - Form_Bilan_Annees.

    Dans chaque Form, lorsque je clique sur le BP_VALIDATION j'appelle une fonction qui va me permettre de remplir des Datagrid avec mes valeurs (cf. Bilan_Jours).

    Comme je fais la même chose pour le jours, le mois et l'année, j'ai décidé de me créer une fonction FCT_REMPLISSAGE dans laquelle je passe tout mes Controls afin de les remplir. Tout ce passe bien.
    Par contre pour remplir les Controls j'utilise un appel de fonction qui diffère selon la forme.
    - Fct_Jour (Class_Bilans_Jours_XLS),
    - Fct_Mois (Class_Bilans_Mois_XLS),
    - Fct_Année (Class_Bilans_Années_XLS).
    Chaque fonction est lié à une classe différente comme indiqué ci dessus.

    Du coup, je voudrais passer un paramètre à ma fonction FCT_REMPLISSAGE afin qu'elle sache si elle doit effectuer la requête Jours, Mois ou Années.

    J'ai essayé plusieurs choses mais rien ne marche.

    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Public Sub Fct_Remplissage(ByRef Nom_Data_Grid_Bilan_Production As DataGridView, ByRef Nom_Data_Grid_Depil As DataGridView, ByRef Nom_Data_Grid_Pick As DataGridView, ByRef Nom_Data_Grid_Encais As DataGridView, ByRef Nom_Chart_Depileur As Chart, ByRef Nom_Chart_Pick As Chart, ByRef Nom_Chart_Encais As Chart, ByRef GroupBox_Depil As GroupBox, ByRef GroupBox_Pick As GroupBox, ByRef GroupBox_Encais As GroupBox, ByVal Date_Debut As Date, ByVal Date_Fin As Date, ByVal Type_Class As Integer)
    
    
            Select Type_Class
                Case 0
                    Dim Bilan_Production As New Class_Bilans_Jours_XLS
                Case 1
                    Dim Bilan_Production As New Class_Bilans_Mois_XLS
                Case 2
                    Dim Bilan_Production As New Class_Bilans_Annees_XLS
            End Select
    
            Bilan_Production.Lecture_des_Donnees(DateDebut, DateFin)
    Ce qui est en rouge apparaît en erreur.

    Si vous aviez une idée.
    Merci

    PS: Si vous avez besoin de plus d'informations n'hésitez pas.
    PS2: C'est mon premier projet
    Images attachées Images attachées

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •