Hallo Leute,
hab leider ein gaaaanz dummes anliegen.
Ich hab ein Formular mit dem Button, der eine Kundennummer über ein Model generieren soll:
Modul
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:
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... :)