Te dejo la solución a tu problemilla. Sólo tienes que poner el código Script que te dejo en el evento
QuerySave del formulario con el que quieras crear el documento. Existen varias formas de conseguir lo que
me pides pero esta que te dejo nunca te fallará. He utilizado en el código Campo como nombre del campo,
sólo tienes que modificar ese valor en todo el código o bien cambiarle el nombre al propio campo (te
aconsejo lo primero).
Si tienes cualquier duda o quieres que te explique el funcionamiento exacto del código o lo
que sea, cuenta conmigo.
PD.- Cuentame que tal te fue. Hasta luego, una abrazo Alex.
Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim x As String, z As String
Dim doc As NotesDocument
Set Doc = Source.Document
If doc.Campo(0) = "" Then
Exit Sub
End If
For n = 1 To Len(doc.Campo(0))
x = Right(Left(doc.Campo (0), n), 1)
If Not Isnumeric (x) Then
z = "Si"
End If
Next
If z = "Si" Then
Continue = False
Msgbox "Sólo puede introducir números en el campo", 64, "Error"
End If
End Sub