Lotus Notes - Comparar fechas.

Hola,

Tengo dos campos de tipo fecha (A y B), y necesito que en el campo B haya un código el cual no me deje continuar si la fecha del campo B es anterior a la del campo A. Yo lo haría poniendo código en el exiting del campo B pero no tengo ni idea de como hacer el código.

Muchas gracias.

Intenta con esto:
Sub Exiting(Source As Field)
Dim ws As NotesUiWorkspace
Dim uiDoc As NotesUIDocument
Set ws = New NotesUIWorkspace
Set uiDoc = ws.CurrentDocument
If uiDoc.FieldGetText("fechaB") < uiDoc.FieldGetText("fechaA") Then
Messagebox "La fecha B es menor a
la fecha A.",_
0+16 , "Atención"
uiDoc.GotoField("fechaB")
End If
End Sub

Hola Hugo,

He probado con el código pero me da error a partir del then. Es decir a la hora de poner el mensaje. He mirado otros If y me funcionan. Debe ser por la sintaxis pero no llego a ver que es. Te adjunto ejemplo de uno que si funciona:

Sub Exiting(Source As Field)
Dim ws As NotesUIWorkspace
Dim uiDoc As NotesUIDocument
Set ws = New NotesUIWorkspace
Set uiDoc = ws.CurrentDocument
If uidoc.FieldGetText("Nom")="" Then
Messagebox "SELECCIONE SU NOMBRE.",_
0+16, "PRESTE ATENCIÓN"
uiDoc.GotoField("Nom")

End If
End Sub

LA única diferencia que veo es que en el If no hace una comparación de dos campos

Gracias por ayudarme.

Hola Hugo,

Finalmente he conseguido que funcione pero ahora me da un error de "variable not set" a la hora de ejecutarlo. ¿me puedes ayudar?

Ese error te da pq usas una variable que no tiene valor. Es decir que la usas sin que tenga antes valor.

Te aconsejo que ejecutes tu aplicación con el debug y podrás ver que valor tiene tu variable.

Saludos

Gracias Hugo ha funcionado, pero alucina como:

Sub Exiting(Source As Field)
Dim ws As NotesUIWorkspace
Dim uiDoc As NotesUIDocument
Dim datasolicitud As String
Dim datainiciaccio As String
Set ws = New NotesUIWorkspace
Set uiDoc = ws.CurrentDocument

If uiDoc.FieldGetText("datainiciaccio") < uiDoc.FieldGetText("datasolicitud") Then Messagebox "LA FECHA PREVISTA DE ENTREGA ES MENOR QUE LA FECHA DE SOLICITUD.",_
0+56 , " ATENCIÓN"
uiDoc.GotoField("Datainiciaccio")

End Sub

Formula del campo "Input Validation"

@If( Fecha2 < Fecha1;"Campo Fecha no valido" ; @Success )