VBA Modul: Wert an Formular weitergeben

[Nadeshiko]

Hallo Leute,

hab leider ein gaaaanz dummes anliegen.

Ich hab ein Formular mit dem Button, der eine Kundennummer über ein Model generieren soll:

Modul

Code [Auswählen] Erweitern

Public Function fKtNr(txtFeld As String) As Long
    Dim KtNr As Double
   
    Do
        Randomize
        KtNr = Int((99999 - 10001 + 1) * Rnd + 10001)
    Loop Until Nz(DLookup("DebitorenID", "tblDaten", "DebitorenID = " & KtNr), 0) = 0
   
    fKtNr = KtNr
   
    MsgBox fKtNr
     
    txtFeld = fKtNr
   
End Function

Der Button:

Code [Auswählen] Erweitern

Private Sub btnDebiGen_Click()

If Me!txtDebitorenID = "0" Then

    Call fKtNr(Me!txtDebitorenID)

Else
    MsgBox "Die Kundennummer ist schon generiert worden. Bei einer manuellen Änderung melden Sie sich bitte bei der Buchhaltung", vbCritical, "Kundennummer schon vorhanden"
    Exit Sub
   
End If

End Sub


Nun er generiert die Kundennummer...nur übergibt er den Wert nicht an das Textfeld...

Wahrscheinlich was ganz dummes...evtl. Wert gleich an Tabelle weitergeben? Muss dann ein Update gemacht werden? Vllt. habt Ihr eine schönere Lösung?

Viele Grüße


EDIT: Ich habs selbst gelödt! Machmal muss man einfach zurücklehnen und eine Tasse Tee trinken...