NotesViewEntryCollection on the Web

HCL Domino Domino Forum
1

I am using this code in the client and It work, but on the web it doesn’t work.

Dim collection1 As NotesDocumentCollection

Dim vc1 As NotesViewEntryCollection

Dim dateTime As New NotesDateTime("01/10/1999")  

Set view1 = BD.GetView("CasosporFecha")

Set vc1 = view1.AllEntries

Call vc1.RemoveAllFromFolder("CasosSelec")	



FormulaBusca1$ = {Form = "Caso" & FechaC >= } &  Fecha1  & { & FechaC  <= } &  Fecha2  & {}



Set collection1 = BD.Search(FormulaBusca1$, dateTime, 0)



If collection1.Count = 0 Then

'	Msgbox collection1.Count, 16 , "Carpeta (Mayor Analítico Asientos) vacía"

	Print "No hay nada en la colección"

	Exit Sub

End If

Print "Hay algo en la colección"

Call collection1.PutAllInFolder("CasosSelec")



Exit Sub

error: varian does not contain an object

Any idea?

Thanks in advance.

Arge

2

Subject: NotesViewEntryCollection on the Web

Which line is causing the error? Without error-trapping or using the debugger, you don’t know for sure.

Sub Initialize

On error goto errhand

…all your code…

errhand:

Print "error at line " & erl & ": " & error & “”

exit sub

End Sub