Form

Résolu
Messages postés
623
Date d'inscription
mardi 20 mars 2007
Statut
Membre
Dernière intervention
15 juin 2010
-
Messages postés
623
Date d'inscription
mardi 20 mars 2007
Statut
Membre
Dernière intervention
15 juin 2010
-
Bonjour j'ai deux forms: Affaire et operation et dans Affaire je mets  le code suivant:

Private Sub va_Affaires_Click(ByVal Col As Long, ByVal Row As Long)
    Dim Test As Variant
    typaffaire = 1
    Me.va_Affaires.GetText 1, Row, Test
    accedaff.detailaccedaff Trim(Test), False
    Initialiser_Friendly_Names
    Me.Dat_operation.DatabaseName = glob_DB_Aff(1).chemin
    Me.Dat_operation.RecordSource = "select [code reseau],[nom reseau] as operation from sousreseau"
  Operation.Dat_operation.Refresh
     Operation.va_operation.MaxRows = Me.Dat_operation.Recordset.RecordCount
     Operation.va_operation.UnitType = UnitTypeTwips
    Operation.va_operation.ColWidth(1) = Me.va_operation.Width * 1 / 5
    Operation.va_operation.ColWidth(2) = Me.va_operation.Width * 4 / 5
    va_operation_Click 1, 1  'c'est ici mon probléme, je veux accéder à va_operation_Click et je n'y arrive pas.
End Sub

Merci de votre aide

2 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Salut,

Pour tes prochaines question essaie de trouver un titre plus explicite....

Essaie peu etre

Private Sub va_Affaires_Click(ByVal Col As Long, ByVal Row As Long)
   Dim Test As Variant
   typaffaire = 1
   Me.va_Affaires.GetText 1, Row, Test
   accedaff.detailaccedaff Trim(Test), False
   Initialiser_Friendly_Names
   Me.Dat_operation.DatabaseName = glob_DB_Aff(1).chemin
   Me.Dat_operation.RecordSource = "select [code reseau],[nom reseau] as operation from sousreseau"
   With Operation
       .Dat_operation.Refresh
       .va_operation.MaxRows = Me.Dat_operation.Recordset.RecordCount
       .va_operation.UnitType = UnitTypeTwips
       .va_operation.ColWidth(1) = Me.va_operation.Width * 1 / 5
       .va_operation.ColWidth(2) = Me.va_operation.Width * 4 / 5
       Call .CallOpClick(1, 1)
   End With
End Sub<hr />

'----------------------
'-Formulaire operation

Public Sub CallOpClick(p1 As Integer, p2 As Integer)
   Call va_operation_Click(p1, p2)
End Sub , ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
623
Date d'inscription
mardi 20 mars 2007
Statut
Membre
Dernière intervention
15 juin 2010

merci c cool