Ayuda con SetFocus

14/09/2006 - 23:59 por vm_tapia | Informe spam
Tengo un formulario con 3 Frames, organizados de la siguiente manera:

En el formulario tengo el Frame2 dentro del Frame1 y el Frame3 esta separado
El orden de tabulacion es por default

en el Frame2 tengo varios TextBox y lo que necesito es que al momento de
capturar un - (guion) en cualquier TextBox del Frame2, el enfoque se
establezca
en el primer TextBox del Frame3.

yo tengo el siguiente codigo
=Private Sub C3_AfterUpdate()
If AltaFacturas.C3.Value = "*" Then
AltaFacturas.PU3.Locked = True
ElseIf AltaFacturas.C3.Value = "-" Then
AltaFacturas.C3.Value = ClearContents
AltaFacturas.ObsFact.SetFocus <<<<< aqui es donde da el error
Else
AltaFacturas.PU3.Locked = False
Cantidad3 = CDbl(AltaFacturas.C3.Value)
Cantidad3 = Round(Cantidad3, 2)
AltaFacturas.C3.Value = ClearContents
ThisWorkbook.Worksheets("Factura").Range("a16").Value = Cantidad3
AltaFacturas.C3.Value = Cantidad3
AltaFacturas.I3.Value =
Format(ThisWorkbook.Worksheets("Factura").Range("ac16").Value, "#,##0.00")
Totales
End If
End Sub
=
y al ejecutar el formulario y capturar el guion el el TextBox3 (C3)
me da el siguiente error:

"se ha produciodel el error '-2147467259(80004005)' en tiempo de ejecucion"
"error no especificado"

¿que estoy haciendo mal?

Gracias por su ayuda.
 

Leer las respuestas

#1 Héctor Miguel
15/09/2006 - 06:47 | Informe spam
hola, vm_tapia !

Tengo un formulario con 3 Frames, organizados de la siguiente manera:
En el formulario tengo el Frame2 dentro del Frame1 y el Frame3 esta separado
El orden de tabulacion es por default
en el Frame2 tengo varios TextBox y lo que necesito es que al momento decapturar un - (guion) en cualquier TextBox del Frame2
el enfoque se establezca en el primer TextBox del Frame3 [...]
y al ejecutar el formulario y capturar el guion el el TextBox3 (C3) me da el siguiente error:
"se ha produciodel el error '-2147467259(80004005)' en tiempo de ejecucion" "error no especificado"
que estoy haciendo mal?



1) [hasta donde se]... los errores 800xxxx o -2147xxxx... significan que...
-> ocurrio una llamada a un 'proveedor/servidor/objeto/...' que NO estaba 'disponible/visible/...' [al menos, en ese momento] -?-
y/o el control [ObsFact] NO puede 'recibir el foco' [quizar] por estar oculto/bloqueado/deshabilitado/... [o el Frame3] -?-

2) podrias ahorrarte las 'llamadas' al nombre del formulario [AltaFacturas] si el codigo esta dentro del modulo del mismo formulario -?-

comentas [si hubiera] algun detalle mas... 'significativo' ?
saludos,
hector.

__ el codigo expuesto __
yo tengo el siguiente codigo
Private Sub C3_AfterUpdate()
If AltaFacturas.C3.Value = "*" Then
AltaFacturas.PU3.Locked = True
ElseIf AltaFacturas.C3.Value = "-" Then
AltaFacturas.C3.Value = ClearContents
AltaFacturas.ObsFact.SetFocus <<<<< aqui es donde da el error
Else
AltaFacturas.PU3.Locked = False
Cantidad3 = CDbl(AltaFacturas.C3.Value)
Cantidad3 = Round(Cantidad3, 2)
AltaFacturas.C3.Value = ClearContents
ThisWorkbook.Worksheets("Factura").Range("a16").Value = Cantidad3
AltaFacturas.C3.Value = Cantidad3
AltaFacturas.I3.Value = Format(ThisWorkbook.Worksheets("Factura").Range("ac16").Value, "#,##0.00")
Totales
End If
End Sub

Preguntas similares