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

Loop

 

 

End Sub

Outcomes