-
FlexPro
- Zoom sur FlexPro
- Fonctionnalités & Options
- Domaines d’application
- Tous les avantages
- Nouveau dans FlexPro 2021
- Testez FlexPro gratuitement
- FlexPro View OEM Freeware
- Conseils d’achat
- Login
- Langue
- +49 6894 929600
- infoweisang.com
- Google Maps
- Produits
- News
- Support
- Société
- Emplois
- Contact
- Login
- Langue
- +49 6894 929600
- infoweisang.com
- Google Maps
Accueil > Community > Automation and VBA > Liste déroulante avec objet différent en VBA > Reply To: Liste déroulante avec objet différent en VBA
Bonjour,
par ces lignes en VBA je souhaite faire apparaitre une valeur moyenne de donnée sélectionné entre curseur dans un “label” (text box) sur un graphique.
Voici le programme, mais il contient des erreurs:
Dim point1 As Long
Dim p1 As Long
Dim point2 As Long
Dim p2 As Long
ActiveDatabase.ActiveObject.Cursor(1).Active = True
p1 = ActiveDatabase.ActiveObject.ActiveCursor.PositionIndex
ActiveDatabase.ActiveObject.Cursor(2).Active = True
p2 = ActiveDatabase.ActiveObject.ActiveCursor.PositionIndex
ActiveDatabase.ActiveObject.CursorActive = False
Dim Moy
Moy = fpObjectTypeStatisticQuantity
.DataSet = “beber[p1, p2]”
.Quantity = fpStatisticQuantityArithmeticMean
.Update
With ActiveDatabase.ActiveObject.Pages(1).AddTextLabel(120, -35)
.Text = Moy
.Select
End With
End Sub
Pouvez vous m’indiquer mon erreur, s’il vous plait?
Merci par avance.