-
FlexPro
- Auf einen Blick
- Features & Optionen
- Einsatzgebiete
- Alle Vorteile
- Neu in FlexPro 2021
- FlexPro gratis testen
- FlexPro View OEM Freeware
- Kaufberatung
- Login
- Language
- +49 6894 929600
- infoweisang.com
- Google Maps
- Produkte
- News
- Support
- Unternehmen
- Jobs
- Kontakt
- Login
- Language
- +49 6894 929600
- infoweisang.com
- Google Maps
Home > Community > Automation and VBA > Liste déroulante avec objet différent en VBA > Antwort auf: 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.