Ejemplos: Creación de un script de evento o una fórmula de evento
Mensaje informativo al cerrar un documento

El script siguiente para un evento QueryClose muestra un mensaje cuando los usuarios cierran el documento que han editado.

Sub QueryClose(Source As Notesuidocument,ContinueAsVariant
  Dim workspace As New NotesUIWorkspace
  Dim doc as NotesUIDocument
  Set doc = workspace.CurrentDocument
  If doc.EditMode Then
     Messagebox("Llama a Nuria si tienes dudas".)  
End If
End Sub

Introducción automática de datos en los campos

Este script de evento Entering se ejecuta cuando el usuario accede al campo NombreApellido. Para obtener los datos para este campo, el script concatena el contenido del campo Nombre, un espacio y el contenido del campo Apellido.

Sub Entering(Source As Field)
Dim workspace As New NotesUIWorkspace
Set doc = workspace.CurrentDocument
firstName = doc.FieldGetText("Nombre")
lastName = doc.FieldGetText("Apellidos")
fullName = firstName & " " & lastName
Call doc.FieldSetText("Apellidos", fullName)
End Sub

Introducción obligatoria de datos

Este script obliga a los usuarios a rellenar el campo Apellido después de haber rellenado el campo Nombre.

Sub Exiting
  Dim W As New NotesUIWorkspace
  Dim UIDoc As NotesUIDocument
  Set UIDoc = W.CurrentDocument
  If (UIDoc.FieldGetText ("Apellidos") <> "") Then
    UIDoc.GotoField "Nombre"
  Else
    UIDoc.GotoField "Apellidos"
   Messagebox "Debe escribir los apellidos.", 0, "ERROR"
 End If
End Sub

Véase también

Glosario
¿Desea opinar sobre la Ayuda o sobre la utilidad del producto?