ddove53
Messages postés623Date d'inscriptionmardi 20 mars 2007StatutMembreDernière intervention15 juin 2010
-
30 avril 2008 à 09:47
ddove53
Messages postés623Date d'inscriptionmardi 20 mars 2007StatutMembreDernière intervention15 juin 2010
-
30 avril 2008 à 14:04
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
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 30 avril 2008 à 10:03
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]