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:
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:
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
Hallo,
du hast festgelegt, dass die Funktion einen Parameter hat:
ZitatPublic Function NeueRnr(ByVal Rechnungsnummer As String)
Somit kannst du die Funktion nur mit der Angabe einer Rechnungsnummer aufrufen.
Hallo Steffen,
die Funktion sollte sich die Rechnungsnummer eigentlich aus dem vorhandenen Tabellenfeld "Rechnungsnummer" holen. So dachte ich jedenfalls, dass es geht.
Gruß
Herbert
Hallo,
von allein aber nicht :-)
Du willst mit der aktuellen Rechnungsnummer eine neue Rechnungsnummer ermitteln!?
Dann Me.Rechnungsnummer = NeueRnr(me.Rechnungsnummer)
Hallo Steffen,
hat geklappt, super- vielen Dank!
Grüße
Herbert