Lotus Notes - Busqueda en BD

   
Vista:

Busqueda en BD

Publicado por Ale (1 intervención) el 22/02/2011 18:39:18
Actualmente tengo instalado la version 8.5.1 de Lotus y por medio de la opcion Search this view quiero filtrar unos datos, pero me funciona de una forma pero si invierto la condición no funciona. Será que estoy haciendo algo mal.

Esto es lo que me funciona : field Descripcion does not contain ' ' (aqui si me trae los datos donde el campo descripcion no esta en blanco)

Pero si lo invierto y le digo field Descripcion contains ' ' no me trae datos y lo que deseo es que me traiga todos los documentos donde el campo descripcion este en blanco.

Alguien me puede decir que estoy haciendo mal. Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Busqueda en BD

Publicado por Hugo Correa hugosoft@mexico.com (286 intervenciones) el 06/07/2011 17:40:27
Puedes copiar este código en un botón o acción, solo cambia CAMPO_A_BUSCAR por el nombre de tu campo y NOMBRES por el nombre de tu vista donde buscaras.


Dim NS As New NOTESSESSION
Dim View As NotesView
Dim Doc As NotesDocument
Dim item As NotesItem
Set NWS=New notesuiworkspace
Set Ndb =NS.currentdatabase
Set Nuid=NWS.currentdocument
Set Nd=Nuid.document
If Nuid.FieldGetText("CAMPO_A_BUSCAR") = "" Then
Messagebox "Debes teclear una palabra a buscar.",_
0+16 , "Atención"
Nuid.GotoField("CAMPO_A_BUSCAR")
End If
'Si el campo es diferente de vacio
If Nuid.FieldGetText("CAMPO_A_BUSCAR") <> "" Then
'Abre la vista NOMBRES
Set View = Ndb.GetView("NOMBRES")
'Busca el contenido del CAMPO_A_BUSCAR con el GetDocumentByKey
Set Doc = View.GetDocumentByKey(Nd.CAMPO_A_BUSCAR,True)
'si esta el CAMPO_A_BUSCAR
If Not (Doc Is Nothing) Then
Messagebox "Campo encontrado"
'Comienza a llamar los valores de los campos(Doc) en las variables(Nd)
Nd.apellidos=Doc.ape
Nd.direccion=Doc.dir
Nd.colonia=Doc.col
Else
Messagebox "Campo no encontrado.",_
0+16 , "Atención"
Nuid.GotoField("CAMPO_A_BUSCAR")
End If
End If

Saludos

www.hugoxoft.blogspot.com
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar