List (Of T) in VBA verwenden

  • Access

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von BlueLagoonX.

    List (Of T) in VBA verwenden

    Moin,

    ich muss für ein altes Projekt in Access VBA eine DLL erstellen, welche in den Klassen auch List (Of T) Eigenschaften enthält.

    hier mal eine Beispielklasse aus der .Net DLL

    VB.NET-Quellcode

    1. Public MustInherit Class Master
    3. Public Property ID As Integer = 0
    5. Private Property _Name As String
    6. Public Property Name As String
    8. Get
    9. With Me
    10. Return ._Name
    11. End With
    12. End Get
    14. Set(value As String)
    15. With Me
    16. If String.IsNullOrWhiteSpace(value) Then value = String.Empty
    18. ._Name = value
    19. End With
    20. End Set
    22. End Property
    24. Sub New()
    25. End Sub
    27. End Class
    29. Public Class Kuchen : Inherits Master
    31. Public Property Zutaten As New List(Of Zutat)
    33. Private Property _Backzeit As Single = 0.0
    34. Public Property Backzeit As Single
    36. Get
    37. With Me
    38. Return ._Backzeit
    39. End With
    40. End Get
    42. Set(value As Single)
    43. If value < 0 Then value = New Single
    45. With Me
    46. ._Backzeit = value
    47. End With
    48. End Set
    50. End Property
    52. Sub New()
    53. MyBase.New
    55. With Me
    56. End With
    58. End Sub
    60. End Class
    62. Public Class Zutat : Inherits Master
    64. Public Property Reihenfolge As UInteger = 0
    66. Private Property _Menge As Double = 0.0
    67. Public Property Menge As Double
    69. Get
    70. With Me
    71. Return ._Menge
    72. End With
    73. End Get
    75. Set(value As Double)
    76. If value < 0 Then value = 0.0
    78. With Me
    79. ._Menge = value
    80. End With
    81. End Set
    83. End Property
    85. Private Property _Hinweis As String
    86. Public Property Hinweis As String
    88. Get
    89. With Me
    90. Return ._Hinweis
    91. End With
    92. End Get
    94. Set(value As String)
    95. With Me
    96. If String.IsNullOrWhiteSpace(value) Then value = String.Empty
    98. ._Hinweis = value
    99. End With
    100. End Set
    102. End Property
    104. Sub New()
    105. MyBase.New
    106. End Sub
    108. End Class


    Aus dieser soll dann in Access ein Objekt erstellt werden.

    VB.NET-Quellcode

    1. Dim Kuchen As Kuchen
    2. Set Kuchen = New Kuchen
    4. With Kuchen
    5. .ID = 1
    6. .Name = "Luftkuchen"
    7. .Backzeit = 25
    9. Dim Zutat1 As Zutat
    10. Set Zutat1 = New Zutat
    12. With Zutat1
    13. .ID = 1
    14. .Name = "Luft"
    15. .Reihenfolge = 1
    16. .Menge = 5
    17. .Hinweis = "Vorsicht, verflüchtigt sich schnell"
    18. End With
    20. .Zutaten.Add (Zutat1)
    21. End With


    Der Aufruf funktioniert soweit, allerdings hat Access ein Problem mit

    Quellcode

    1. .Zutaten.Add (Zutat1)


    Access meldet Fehler 424, Objekt erforderlich.

    Wo ist der Fehler, bzw. wie kann man der List (Of Zutaten) über VBA ein Objekt hinzufügen?

    Grüße :)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „BlueLagoonX“ ()

    Hi,

    in VBA gibt es keine Listen - da musst Du auf Dictionaries oder Collections zurückgreifen. Außerdem gibt es auch keine vergleichbare Funktion List.Add, mit der Du ohne Weiteres eine ganze Klasse (Zutat1) hinzufügen könntest. Behaupte ich jetzt mal, ohne zu Googln - würde mich aber wundern.

    br

    Edit: Ups, geht anscheinend doch. 8o Wenn Du aus Deinen Zutaten eine Collection machst und die Klammern weglässt, sollte es gehen:

    Visual Basic-Quellcode

    1. .Zutaten.Add Zutat1

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „cry.baby“ ()

    1) Vererbung geht nicht in VBA
    Vergiss den Master und packe alles in den Kuchen.
    2) Statt einer List(Of Zutat) nimm eine Collection.
    In eine Collection kannst du alles Mögliche packen, auch Objekte. Sogar gemischt.
    Ein Ansatz frei aus dem Kopf

    Visual Basic-Quellcode

    1. ​'Class Kuchen
    2. Public ID As Integer
    3. Public Name As String
    4. Public Zutaten As New Collection
    6. 'Class Zutat
    7. Public ID As Long
    8. Public Name As String
    9. Public Reihenfolge As Integer
    10. Public Menge As Double
    11. Public Hinweis As String
    13. 'Aufruf
    14. Dim Luftkuchen As New Kuchen
    15. Luftkuchen.Name="Luftkuchen"
    16. Luftkuchen.ID=1
    17. Dim Zutat1 As New Zutat
    18. Zutat11.Name="Luft"
    19. Zutat1.ID=1
    20. Zutat1.Reihenfolge=1
    21. Zutat1.Menge=5
    22. Zutat1.Hinweis=""
    23. Luftkuchen.Zutaten.Add Zutat1
    Wenn die Zutat-ID Unique sein soll, dann kannst du beim Add auch noch die ID mitgeben, dann bekommst du einen Fehler, wenn du die ID doppelt vergibst.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

Facebook
Telefonspende