Funktion aufrufen .. Wo liegt der Fehler?

[dark_mascot]

Hallo ich habe in einem Modul folgende
Funktion geschrieben:

Sub test(Command As CommandButton, Elemente As Integer)
If Elemente > 0 Then
Command.Enabled = True
Else
Command.Enabled = False
End If

Command.Caption = Command.Caption & " (" & Elemente & ")"

End Sub

Und nun wollte ich die Funktion in einem Formular
wie folgt aufrufen:

test(Command4, ZZ_ml)


warum geht das so nicht und
was muß geändert werden ?

Danke im Voraus
Dark_Mascot

 

[spirit]

Hallo

Was genau geht nicht?

 

[dark_mascot]

Fehler beim kompilieren:
Erwartet: =

=> leuchtet rot:
test(Command4, ZZ_ml)

 

[dark_mascot]

Habe die Lösung gefunden:

Entweder:


Call test(Command4, ZZ_ml)

Oder:



test Command4, ZZ_ml

 

[NRFi]

test(command) macht man dann, wenn man einen rückgabewert hat, also

msgbox(test(command))

haben die leider nicht so toll gemacht an dieser stelle