Domino 9 und frühere Versionen > Entwicklung

Feld verifizieren !

<< < (2/2)

eknori:
Hab das jetzt nicht getestet, könnte aber so gehen

Sub Queryclose(Source As Notesuidocument, Continue As Variant)
If Not source.FieldGetText( "ProductID_No" ) Like "##.##.#### ##:##:##" Then
Messagebox "Please re-enter the Date/Time" & Chr(13) & "This field must be in the format 01.01.2003 12:00:00",48, "is invalid!"
Call source.GotoField( "DeinDatumsTextFeld" )
Continue = False
Exit Sub
End If
End Sub

P.S. Code korrigiert

_Arne_:

--- Zitat von: eknori am 19.12.02 - 09:39:51 ---Hab das jetzt nicht getestet, könnte aber so gehen

Sub Queryclose(Source As Notesuidocument, Continue As Variant)
If Not source.FieldGetText( "ProductID_No" ) Like "##.##.####. ##:##:##" Then
Messagebox "Please re-enter the Date/Time" & Chr(13) & "This field must be in the format 01.01.2003 12:00:00",48, "is invalid!"
Call source.GotoField( "DeinDatumsTextFeld" )
Continue = False
Exit Sub
End If
End Sub

--- Ende Zitat ---

Huhu Klasse klappt..

ist nur ein "." zuviel bei der verfizierung sonst bestens !
Danke dir!

Navigation

[0] Themen-Index

[*] Vorherige Sete