Lotus Notes - querysave de un formulario

   
Vista:

querysave de un formulario

Publicado por jimmyj (2 intervenciones) el 30/07/2008 16:14:51
Buenas,
Me sale un error en el querysave de un formulario
"Variant does not contain an object", me sale cuando salgo del formulario, he metido este agente en el querysave:
¿que estoy haciedo mal?
Sub Querysave(Source As Notesuidocument, Continue As Variant)

Dim docCheck As NotesDocument
Dim uidoc As NotesUIdocument
Dim view As NotesView
If source.isnewdoc Then

Set db = session.CurrentDatabase
Set view=db.getview("LookupFormulario")
Set docCheck=view.getdocumentbykey(doc.Autordoc(0))
If Not (docCheck Is Nothing) Then
Messagebox "¡No se puede crear más de una Formulario por
Usuario!",0+48,"Ya ha creado uno este Usuario"
Continue=False
Set uidoc=ws.editdocument(False,docCheck)
Exit Sub
Else
Continue=True
End If
End If
End Sub

Gracias y un saludo
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

RE:querysave de un formulario

Publicado por Jimmyj (1 intervención) el 31/07/2008 11:55:01
Ya esta solucionado, no había declarado las variables....
Gracias
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