Benötige Hilfe bei der Generierung einer Kundennummer aus dem Formular Kunden
hier meine Lösungsansatz der nicht funktioniert
Danke schon im Vorraus für eure Hilfe
Private Sub KdNr_Enter() 'Erstellung einer neuen Kundennummer
' neue KDNR soll bestehen aus:
' ersten 4 Buchstaben des Firmennamens dann ein /
' den ersten 4 Buchstaben des Ortes dann en -
'und der PLZ
'diese neue KDNR soll beim betreten des Feld KdNr eingefügt werde
Dim strkdnr As String
Dim strFirma As String
Dim strFrimaneu As String
Dim strOrt As String
Dim strOrtneu As String
Dim strPlz As String
strFirma = Me.Firma.Value
strFirmaneu = Left(strFirma, 4)
strOrt = Me.Ort.Value
strOrtneu = Left(strOrt, 4)
strPlz = Me.PLZ.Value
strkdnr = strFimaneu & "/" & strOrtneu & "-" & strPlz
strkndr = Me.KdNr
End Sub
|