<div>
ok 50 points for not being as lazy as me
</div>


<div>
<div class="content wysiwyg-content">
I'm too lazy to figure out the syntax in notes to do this<br />
I need to validate a field in a form before the its saved.<br />
<br />
Heres the Validation Criteria<br />
<br />
XXXXX-000-XX-X-XX<br />
<br />
X=Alpha Numeric<br />
0=Number<br />
<br />
The user has to enter the dashes as well....<br />
<br />
Heres the code I have....<br />
<br />
Sub Click(Source As Button)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim workspace As New NotesUIWorkspace<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim uidoc As NotesUIDocument<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set uidoc = workspace.CurrentDocument<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If uidoc.FieldGetText(&quot;fldSKU<wbr />&quot;)=&quot;&quot; Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Messagebox &quot;Please Enter a SKU Number&quot;<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Elseif <br />
=================CODE GOES HERE======================<wbr />=======<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;uidoc.Save<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;uidoc.close<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br />
End Sub
</div>
</div>


I'm too lazy to figure out the syntax in notes to do this
I need to validate a field in a form before the its saved.

Heres the Validation Criteria

XXXXX-000-XX-X-XX

X=Alpha Numeric
0=Number

The user has to enter the dashes as well....

Heres the code I have....

Sub Click(Source As Button)
	Dim workspace As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Set uidoc = workspace.CurrentDocument
	If uidoc.FieldGetText("fldSKU")="" Then
		Messagebox "Please Enter a SKU Number"
	Elseif 
=================CODE GOES HERE=============================
	Else
		uidoc.Save
		uidoc.close
	End If
End Sub

String Validation Code

Lotus Software produced the Lotus 1-2-3 spreadsheet program, and later developed Lotus Notes, a groupware and email system. Following its acquisition by IBM, the Notes and Domino client/server collaborative platform were expanded to include functions such as email, calendars, to-do lists, contacts management, teamrooms, discussion forums, file sharing, microblogging, instant messaging, blogs, and user directories. IBM also release SmartSuite, a comprehensive office suite, and followed that with Symphony, unrelated to the Lotus suite of the same name.