klinger

1. If Not EMail Like "*@*" then msgbox "Fehler" 2. Text1 sei das Textfeld für Telefon... Private Sub Text1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 48 To 57, 8 '8 für Rücktaste Case Else KeyAscii = 0 End Select End Sub Sorry, sieht ein wenig blöd aus, weil ich hier nicht einrücken kann. 3. Geburtstage in Recordset einlesen und auf Gleichheit bei Tag und Monat im Form_Load Ereigniss prüfen. (Bei Interesse schicke ich dir den Code, muss jetzt aber zur Party...) Hoffe, dass ist keine Projektarbeit ;-))) Grüsse

Geht doch, es müssen nur genau 6 Leerzeichen zwischen den Anführungszeichen stehen. Zur Demonstration setzte ich mal einen Unterstrich statt Leerzeichen x = right("______" & Zahl, 6) Zahl = 500 -> x = "___500" Zahl = 50 -> x = "____50" Zahl = 5 -> x = "_____5" Alternative wäre x = right(string(6, " ") & Zahl, 6) Grüsse

x = right(" " & Zahl, 6) '6 Leerzeichen zwischen den "