Hallo,
will ich auf ein Klassenmodul zugreifen, bekomme ich den Fehler:
Fehler beim Kompilieren Erwartet: =
Hier die Methode der Klasse, die ich benutzt:
Public Sub add_line_add(ByRef add_value_01 As Long, ByRef add_value_02 As Long, ByRef add_value_03 As Long, ByRef add_value_04 As Long)
On Error GoTo add_line_add_error
'Comment: "Neue Adresszeilen."
id_company = add_value_01
id_street = add_value_02
id_street_number = add_value_03
id_zipcode = add_value_04
add_line_add_exit:
Exit Sub
add_line_add_error:
MsgBox "add_line_add: " & Chr(13) & Error$, vbOKOnly + vbCritical, "Error"
Resume add_line_add_exit
End Sub
Hier der Code der den Fehler verursacht.
Public Sub adresszeile_hinzufügen()
Dim neue_adresszeile As New cls_add_line
neue_adresszeile.add_line_add (1,1,1,1)
Set neue_adresszeile = Nothing
End Sub