FlexPro
HistoryBase
Ingénierie
Formation
Téléchargements
Assistance FlexPro
Connaissance
Communauté
À propos de nous
Références
Emplois
Contact général
Liste des revendeurs
Assistance FlexPro
FR
DE
EN
Porte-plaquette
Produits et solutions
Support et téléchargements
Entreprise
Magazine
Contact
Langue
MyWeisang

Paramètres du compte.

Topic

Bedienfelder und Steuerelemente: Aktualisierung des Texteingabefeldes

Page d'accueil ' Communauté ' Automation et VBA ' Panneaux de commande et éléments de contrôle : Mise à jour du champ de saisie de texte

Voir les messages de 2 - 1 à 2 (sur un total de 2)
  • Auteur
    Messages
  • #35263
    Stefan Rauer
    Participant

    Hallo,

    für die automatische Auswertung meiner Einzelmessungen habe ich ein Bedienfeld mit Texteingabefeldern erschaffen. Dann habe ich ein Arbeitsblatt erstellt, bei dem ich dieses Bedienfeld und ein Diagramm hinzugefügt habe. Wenn ich die Werte des Texteingabefeldes verändere, wird das Diagramm aufgrund der Eingaben neu berechnet. Wenn ich jetzt den aktiver Messordner wechsel und danach wieder zurück zum vorherigen gehe, dann sind die eingegebenen Werte in den Textfeldern des Bedienfeldes wieder zurückgesetzt worden. Das angezeigte Diagramm ist aber noch korrekt mit den geänderten Werten berechnet und alle Berechnungen stimmen noch, weil meine veränderten Werte in den verknüpften Datensätzen gespeichert wurden. Ich hätte aber gerne, dass die veränderten Werte auch in den Texteingabefelden bestehen bleiben.

     

    #35264
    Adrian Giurca
    Maître des clés

    Hi,

    What you need is a Macro for the form control input. This Macro will take the value of the input form control from your input data set object:

    Sub Input_Change()
        
        ' Data set link - Specifies the data set into which the new content of the text box should be placed after the user has used it.
        Dim oInput As DataSet
        Set oInput = ThisDatabase.RootFolder.Object("Folder1DiagramInput", fpObjectTypeDataSet)
    
        ' Control Panel object
        Dim oPanel As CONTROLPANEL
        Set oPanel = ThisDatabase.RootFolder("Folder1ControlPanel", fpObjectTypeControlPanel)
    
        Dim oEditBox As EditBox
        Set oEditBox = oPanel.SharedPages(1)(1)
        ' 1 is the Index of form control in the Control Panel object - you can see it in the Properties window
    
        ' set the input form control value using the Input data set value
        oEditBox.Value = oInput.Value
          
        Debug.Print oEditBox.Value
    End Sub
    

     

Voir les messages de 2 - 1 à 2 (sur un total de 2)
  • Vous devez être connecté pour répondre à ce sujet.