2 Replies Latest reply on Jun 2, 2018 5:05 AM by Ulf Stockburger

    EPDM execute a button on a Folder-Card

    Lukas Bernhardt

      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