Hallo Leute,
Ich habe ein kleines Problem, was mich aber leicht verzweifeln lässt.
Nach dem eingeben des Geburtsdatums kommt ein Ereignis mit dem sich der Primärkey automatisch erstellt, dies funktioniert auch wunderbar.
Nur leider zeigt er im Feld nicht den Bindestrich an, den ich da gerne hätte.
Der Bindestrich soll zwischen den ersten 4 Zeichen und den letzten 8 stehen und darf nur im Formular und im Bericht zu sehen sein, aber nicht in der Tabelle.
Grüße
Listing:
Private Sub Geburtsdatum_AfterUpdate()
'Deklarationen
Dim strVorname As String
Dim strNachname As String
Dim strGeburtsdatum As String
'Setzen der Variablen
strVorname = Left([Vorname], 2)
strNachname = Left([Nachname], 2)
strGeburtsdatum = Format([Geburtsdatum], "yyyymmdd")
'Autogenerierung und Ausgabe des PS
[Pers_ID] = strVorname & strNachname & strGeburtsdatum
[Pers_ID].InputMask = "9999-99999999;1"
End Sub
|