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
Aus dieser soll dann in Access ein Objekt erstellt werden.
Der Aufruf funktioniert soweit, allerdings hat Access ein Problem mit
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
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
- Public MustInherit Class Master
- Public Property ID As Integer = 0
- Private Property _Name As String
- Public Property Name As String
- Get
- With Me
- Return ._Name
- End With
- End Get
- Set(value As String)
- With Me
- If String.IsNullOrWhiteSpace(value) Then value = String.Empty
- ._Name = value
- End With
- End Set
- End Property
- Sub New()
- End Sub
- End Class
- Public Class Kuchen : Inherits Master
- Public Property Zutaten As New List(Of Zutat)
- Private Property _Backzeit As Single = 0.0
- Public Property Backzeit As Single
- Get
- With Me
- Return ._Backzeit
- End With
- End Get
- Set(value As Single)
- If value < 0 Then value = New Single
- With Me
- ._Backzeit = value
- End With
- End Set
- End Property
- Sub New()
- MyBase.New
- With Me
- End With
- End Sub
- End Class
- Public Class Zutat : Inherits Master
- Public Property Reihenfolge As UInteger = 0
- Private Property _Menge As Double = 0.0
- Public Property Menge As Double
- Get
- With Me
- Return ._Menge
- End With
- End Get
- Set(value As Double)
- If value < 0 Then value = 0.0
- With Me
- ._Menge = value
- End With
- End Set
- End Property
- Private Property _Hinweis As String
- Public Property Hinweis As String
- Get
- With Me
- Return ._Hinweis
- End With
- End Get
- Set(value As String)
- With Me
- If String.IsNullOrWhiteSpace(value) Then value = String.Empty
- ._Hinweis = value
- End With
- End Set
- End Property
- Sub New()
- MyBase.New
- End Sub
- End Class
Aus dieser soll dann in Access ein Objekt erstellt werden.
VB.NET-Quellcode
Der Aufruf funktioniert soweit, allerdings hat Access ein Problem mit
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“ ()