Lotus Approach - Scrtip: si no encuentra...

Buenas.

Quería saber como hago para que en caso de no encontrar lo que busco mediante un script se salga de la función o subrutina. La sintaxis de la búsqueda podría ser:

Dim fFind As New Find
fFind.And "FACTURA.Matricula", "@vMatricula"
CurrentWindow.FindSort fFind

ahora que escribo para que si no lo encuentra termine la función o subrutina?

Gracias y un saludo.

Hola:

No puedes diferenciar si la búsqueda no encuentra ningún registro. En ese caso te saldrá el mensaje de que no ha encontrado ningún registro, y que si quieres volver a buscar.
La única manera de evitar que aparezca el mensaje cuando la búsqueda da un resultado nulo, que he encontrado es hacer previamente la misma búsqueda por SQL, y si no encuentra ningún registro, no llegar a la búsqueda con el Find.
Preparas la misma búsqueda con SQL, y la aplicas:

QRY.SQL = "SELECT * FROM 'BD' WHERE 'Condiciones'"
Set RST.Query = QRY
RST.Execute

Si no encuentra ningún registro, el valor de:

RST.NumRows

será 0.

Aquí si puedes preguntar:

IF RST.NumRows = 0 then
Salida de la subrutina o función
También puedes poner un mensaje indicando que no se han encontrado registros
y después salir.
END IF

Si sigue por aquí, es que hay registros:

Dim fFind as new Find.........

Es la forma en la que yo lo hago, y va bien. Cuando no hay registros, ya no llega a hacer la selección, y no da el "error".

Un saludo.

Manolo