Por que no funciona

[Quemero]

Hola les escribo porque tengo un problema con una "zona inutilizable" de un codigo: En el evento click de un combo puse este codigo que esta aca. Si se fijan, al final dice deshabilitar, eso es una funcion que hice. La cosa es que todo lo que ponga en ese lugar, o sea al final del codigo, no me anda, ya sea una funcion, un msgbox o lo que sea nada me funciona. Lo raro es que si esa funcion la pongo en un boton cualquiera o si la pongo al principio de este codigo, me anda perfectamente. Es como que el codigo que hay aca inhabilita la zona del final y cualquier codigo que ponga ahi esta muerto, es una zona perdida digamos...¿por que sera?

Private Sub Combo1_Click()
Combo4.Enabled = True

On Error GoTo errorg
Dim borrartipos As Integer
For borrartipos = 0 To Combo4.ListCount - 1
Combo4.RemoveItem (borrartipos)
Next
errorg: Form1.BackColor = &H8000000F

On Error GoTo error
listauno$ = "c:\tipos " & Combo1.List(Combo1.ListIndex) & ".txt"
Dim lstuno As String
On Error GoTo error
Open listauno$ For Input As #1
While Not EOF(1)
Input #1, lstuno$
Combo4.AddItem " " & lstuno$
DoEvents
Wend
Close #1
Exit Sub
error: Form1.BackColor = &H8000000F

deshabilitar 'ACA ESTA EL PROBLEMA: ACA NO FUNCIONA NINGUN CODIGO
End Sub

[Quemero]

de a uno..

[David]

Algo estás haciendo mal, pues a mi me funciona perfectamente...

[aldo1982]

Iniciado por Quemero

Hola les escribo porque tengo un problema con una "zona inutilizable" de un codigo: En el evento click de un combo puse este codigo que esta aca. Si se fijan, al final dice deshabilitar, eso es una funcion que hice. La cosa es que todo lo que ponga en ese lugar, o sea al final del codigo, no me anda, ya sea una funcion, un msgbox o lo que sea nada me funciona. Lo raro es que si esa funcion la pongo en un boton cualquiera o si la pongo al principio de este codigo, me anda perfectamente. Es como que el codigo que hay aca inhabilita la zona del final y cualquier codigo que ponga ahi esta muerto, es una zona perdida digamos...¿por que sera?

Private Sub Combo1_Click()
Combo4.Enabled = True

On Error GoTo errorg
Dim borrartipos As Integer
For borrartipos = 0 To Combo4.ListCount - 1
Combo4.RemoveItem (borrartipos)
Next
errorg: Form1.BackColor = &H8000000F

On Error GoTo error
listauno$ = "c:\tipos " & Combo1.List(Combo1.ListIndex) & ".txt"
Dim lstuno As String
On Error GoTo error
Open listauno$ For Input As #1
While Not EOF(1)
Input #1, lstuno$
Combo4.AddItem " " & lstuno$
DoEvents
Wend
Close #1
Exit Sub
error: Form1.BackColor = &H8000000F

deshabilitar 'ACA ESTA EL PROBLEMA: ACA NO FUNCIONA NINGUN CODIGO
End Sub

ESTEM, ESE CODIGO ESTÁ BIEN, CHECKEÁDE TENER TODOS LOS CONTROLES EN EL FORMULARIO KE USA ESE CODIGO.
SALU2

[GeoAvila]

La opción desabilitar es un Procedimiento que no esta por lo tanto desde mi punto de vista lo que hacía ese procedimiento es dehabilitar todos los controles..

hace esto pegale esta parte a tu Proyecto

Private Sub Deshabilitar()
'aqui programas tus controles a deshabilitar
end sub

nos vemos..

[bubilo]

No sera que el programa no da ningun error... y sale del sub antes de "error:" y por eso no ejecuta la ultima fila?

[aldo1982]

y porké no sacás el "desabilitar" ?

[Quemero]

¡¡ahi anda!! le cambie el function por private sub como dijo geoavila y anduvo, no se que tiene que ver, no se cual es la diferencia, pero bue...
era raro, como les decia, porque aunque pusiera algo tan simple como un msgbox que practicamente no puede tener ningun error, tampoco me funcionaba, pero ahora va. Gracias a todos por todas las respuestas la verdad no pense que era tan simple el error ya me estaba volviendo loco.
¡Chau y gracias!

[aldo1982]

bue no te puede ayudar pero geo si lo hizo :P ahi e nota los ke saven ajajaja
salu2 y bue ke bien ke lo solucionaste

nos vemos