Error de Lotus Notes #0C:02 en Ventana
Responder




Comentarios:

    Hola:
    Me sale el error #0C:02 en un cuadro de diálogo en la línea de código señalada
    con una flecha para un fragmento de código que corresponde a la acción de botón
    presionar un botón que contiene el siguiente código:
    Sub Click( Source As Button )
    Dim session As New NotesSession
    Dim ws As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim Final As Integer
    On Error Goto Fin
    Set db = session.CurrentDatabase
    Set uidoc = ws.CurrentDocument
    Set docInfRec = uidoc.document
    ---> docInfRec.Control = 0
    Call uidoc.refresh
    Call docInfRec.RemoveItem( "Control" )
    If ValidaGuardar( uidoc ) = "Error" Then Exit Sub
    'Call uidoc.save <<--------------------------------????????
    Gracias por adelantado y un saludo

Imagenes


Respuestas


Re: Error De Lotus Notes #0C:02 En Ventana

Hola,
el error puede ser provocado por la linea:
Call uidoc.refresh
prueba a cambiarla por
Call uidoc.refresh(true)
Saludos cordiales,
Rafael García
Hola:
Me sale el error #0C:02 en un cuadro de diálogo en la línea de código señalada
con una flecha para un fragmento de código que corresponde a la acción de botón
presionar un botón que contiene el siguiente código:
Sub Click( Source As Button )
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim Final As Integer
On Error Goto Fin
Set db = session.CurrentDatabase
Set uidoc = ws.CurrentDocument
Set docInfRec = uidoc.document
---> docInfRec.Control = 0
Call uidoc.refresh
Call docInfRec.RemoveItem( "Control" )
If ValidaGuardar( uidoc ) = "Error" Then Exit Sub
'Call uidoc.save <<--------------------------------????????
Gracias por adelantado y un saludo

Anonymous 23/02/2015 16:35:22 Responder



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