AnsweredAssumed Answered

EPDM execute a button on a Folder-Card

Question asked by Lukas Bernhardt on Jun 1, 2018
Latest reply on Jun 2, 2018 by Ulf Stockburger

Hello at all,


i am looking for a way to fire a button on a Folder Card which starts an add-in an get the values from an SQL-Database.



With the following code I can already get the command button but not execute it. Is there a way with vba to do this ??


Option Explicit


Dim vault As EdmVault5
Dim Folder As IEdmFolder5
Dim card As IEdmCard5
Dim card_control As IEdmCardControl6
Dim pos As IEdmPos5
Dim i As Integer
Dim button_fire As String


'Get Validation
Dim var_type As EdmVariableType
Dim min As Integer
Dim max As Integer


Sub main()


Set vault = CreateObject("ConisioLib.EdmVault.1")
vault.LoginAuto "KELLER-PDM", 0


Set Folder = vault.BrowseForFolder(0, "Wähle deinen Ordner")
Set card = Folder.GetCard(".")

Set pos = card.GetFirstControlPosition


Do While pos.IsNull = False
Set card_control = card.GetNextControl(pos)


    If card_control.ControlType = EdmCardControlType.EdmCtrl_Button Then
        button_fire = card_control.GetButtonCommand(1)
        var_type = card_control.GetValidation(min, max)      
    End If




End Sub