Argument ist nicht optional - Erstellen neuer Rechnungsnummer

[herb54]

Hallo,

ich möchte über ein Modul eine neue Rechnungsnummer erstellen und diese in ein Formularfeld via Button übergeben. Dabei bekomme ich die Fehlermeldung " Argument ist nicht optionoal bei NeueRnr im Prozeduraufruf:

Modul zur Erstellung der neuen Rechnungsnummer:

Code [Auswählen] Erweitern

Option Compare Database
Option Explicit
Private RnrI As Integer
Private RnrS As String


Public Function NeueRnr(ByVal Rechnungsnummer As String)
Private RnrI As Integer, RnrS As String

RnrS = Mid(Rechnungsnummer, 5, 4)
RnrI = CInt(RnrS)
RnrI = RnrI + 1
NeueRnr = "194-" & RnrI & "M"
End Function


Prozeduraufruf zum Einsetzen der neuen Rechnungsnummer in das Formularfeld:

Code [Auswählen] Erweitern

Private Sub Neue_Rechnungsnummer_Click()
On Error GoTo Err_Neue_Rechnungsnummer_Click

Me!Rechnungsnummer = NeueRnr
MsgBox Rechnungsnummer


Wo liegt hier mein Fehler?

Grüße
herbert

[steffen0815]

Hallo,
du hast festgelegt, dass die Funktion einen  Parameter hat:

Public Function NeueRnr(ByVal Rechnungsnummer As String)

Somit kannst du die Funktion nur mit der Angabe einer Rechnungsnummer aufrufen.

[herb54]

Hallo Steffen,

die Funktion sollte sich die Rechnungsnummer eigentlich aus dem vorhandenen Tabellenfeld "Rechnungsnummer" holen. So dachte ich jedenfalls, dass es geht.

Gruß
Herbert

[steffen0815]

Hallo,
von allein aber nicht :-)

Du willst mit der aktuellen Rechnungsnummer eine neue Rechnungsnummer ermitteln!?
Dann

Code [Auswählen] Erweitern

Me.Rechnungsnummer = NeueRnr(me.Rechnungsnummer)

[herb54]

Hallo Steffen,
 
hat geklappt, super- vielen Dank!

Grüße
Herbert