RE: Contar núm de documentos en base a un campo
Responder

Comentarios:

      Hola a todos,
      Tengo un problema, lo que quiero hacer es contar el número de documentos donde el campo "Area" es igual a QUIMICA. Introduje el siguiente código en el evento postsave. Pero se me cicla, quisiera saber si alguien me podría hacer favor de indicarme donde está mi error.
      Dim s As NotesSession
      Set s = New NotesSession
      Dim db As NotesDatabase
      Dim A As String
      'Dim calif As Integer
      Set db = s.CurrentDatabase
      Dim v As NotesView
      Set v = db.GetView("ES")
      Dim Count As Integer
      Dim doc As NotesDocument
      Dim workspace As New NotesUIWorkspace
      Dim uidoc As NotesUIDocument
      Set uidoc=workspace.currentdocument
      A = uidoc.FieldGetText("Area")
      Set doc =v.GetFirstDocument
      Do Until doc Is Nothing
      While A ="QUIMICA" <==No sale de este ciclo,
      count=count+1 <== cuenta una y otra vez el mismo documento
      Set doc=v.GetNextDocument(doc) <== y nunca pasa al siguiente documento
      Wend
      Loop
      Messagebox "El num de encuestas de química es de: " & count
      De antemano muchísimas gracias
      Saludos y Feliz Navidad!!!!
Respuestas


Re: Contar Núm De Documentos En Base A Un Campo

Hola a todos,
Tengo un problema, lo que quiero hacer es contar el número de documentos donde el campo "Area" es igual a QUIMICA. Introduje el siguiente código en el evento postsave. Pero se me cicla, quisiera saber si alguien me podría hacer favor de indicarme donde está mi error.
Dim s As NotesSession
Set s = New NotesSession
Dim db As NotesDatabase
Dim A As String
'Dim calif As Integer
Set db = s.CurrentDatabase
Dim v As NotesView
Set v = db.GetView("ES")
Dim Count As Integer
Dim doc As NotesDocument
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc=workspace.currentdocument
A = uidoc.FieldGetText("Area")
Set doc =v.GetFirstDocument
Do Until doc Is Nothing
While A ="QUIMICA" <==No sale de este ciclo,
count=count+1 <== cuenta una y otra vez el mismo documento
Set doc=v.GetNextDocument(doc) <== y nunca pasa al siguiente documento
Wend
Loop
Messagebox "El num de encuestas de química es de: " & count
De antemano muchísimas gracias
Saludos y Feliz Navidad!!!!

Anonymous 11/11/2017 10:44:02 PM Responder

Re: Contar Núm De Documentos En Base A Un Campo

Hola a todos,
Tengo un problema, lo que quiero hacer es contar el número de documentos donde el campo "Area" es igual a QUIMICA. Introduje el siguiente código en el evento postsave. Pero se me cicla, quisiera saber si alguien me podría hacer favor de indicarme donde está mi error.
Dim s As NotesSession
Set s = New NotesSession
Dim db As NotesDatabase
Dim A As String
'Dim calif As Integer
Set db = s.CurrentDatabase
Dim v As NotesView
Set v = db.GetView("ES")
Dim Count As Integer
Dim doc As NotesDocument
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc=workspace.currentdocument
A = uidoc.FieldGetText("Area")
Set doc =v.GetFirstDocument
Do Until doc Is Nothing
While A ="QUIMICA" <==No sale de este ciclo,
count=count+1 <== cuenta una y otra vez el mismo documento
Set doc=v.GetNextDocument(doc) <== y nunca pasa al siguiente documento
Wend
Loop
Messagebox "El num de encuestas de química es de: " & count
De antemano muchísimas gracias
Saludos y Feliz Navidad!!!!
******************************************************************************************************************
La variable "A" nunca cambia su valor, te recomiendo poner tambien A = doc.Area(0) abajo de Set doc=v.GetNextDocument(doc)
Dim doc As NotesDocument
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc=workspace.currentdocument
A = uidoc.FieldGetText("Area")
Set doc =v.GetFirstDocument
Do Until doc Is Nothing
While A ="QUIMICA" <==No sale de este ciclo,
count=count+1 <== cuenta una y otra vez el mismo documento
Set doc=v.GetNextDocument(doc) <== y nunca pasa al siguiente documento
A = doc.Area(0) <==CON ESTO DEBE QUEDAR
Wend
Loop
Messagebox "El num de encuestas de química es de: " & count
Espero que esto te pueda ayudar

Anonymous 28/11/2008 17:17:54 Responder


Web Desarrollada por Juan Carlos Trigo Díaz
Optimizado para: 1024 x 768 pixels - Explorer > 6 Copyright © 2008