Problemas con modulo

[MarcoArzapalo]

Buenas noches, tengo un problema al momento de llamar al codigo que se encuentra en un modulo, por ejemplo:

form1
private sub command1_click()
call botones
End Sub

private sub command4_click()
call botones
end sub

Modulo
public sub botones()
select case index
case 0
command2.enable=true
command3.enable=true
case 1
command5.enable=false
command6.enable=false
case 2
exit sub
end select
End Sub

lo que deseo es q al hacer click el command1 se active command2 y command3, y además al hacer click en command4 descativar command5 y command6; quisiera saber que falta, desde ya muchas gracias (ojo con modulo).

Saludos.

Marco.

[Jhonnyf]

No se porque tu funcion esta en un modulo si todo lo que haces es a nivel de formulario... pero en fin.. ponlo asi y funcionará

Modulo
public sub botones(index)
select case index
case 0
NOMBREDETUFORMULARIO.command2.enable=true
NOMBREDETUFORMULARIO. command3.enable=true
case 1
NOMBREDETUFORMULARIO. command5.enable=false
NOMBREDETUFORMULARIO.command6.enable=false
case 2
exit sub
end select
End Sub

y en el formulario lo llamas asi:
call botones (INDICEQUEQUIERESENVIAR)

-----------------------------------
repito, esa Funcion deberia estar dentro del Formulario... ademas que segun veo estas usando Indices (creo)

Saludos

[MarcoArzapalo]

AMIGO BUENAS TARDES, EN PRINCIPIO QUIERO AGRADECERTE POR TOMAR INTERES EN LA PREGUNTA; LO QUE PRETENDO ES HACER EL CODIGO DEL FARMULARIO SEA LO MAS SIMPLE POSIBLE, LA IDEA ERA QUE LOS CODIGOS DE MIS CONTROLES (NUEVO, MODIFICAR, GRABAR, CANCELAR, BUSCAR, ELIMINAR, SALIR) NO SE REPITAN EN TODOS MIS FORMULARIOS, APARENTEMENTE CON MODULO NO SE PODRIA PORQUE NECESARIAMENTE TENGO Q UBICAR EN UN FORMULARIO, SI HAY ALGUN METODO DE HACERLO TE AGRADECERIA EN DECIRMELO; CREO Q ESTE PROCESO EN TODO CASO SE DEBERIA HACER MEDIANTE UN ARCHIVO OCX, PERO NO SÉ COMO DECLARAR LAS VARIABLES EN EL OCX Y NI COMO LLAMARLOS DESDE EL FORMULARIO.
ESTE ES EL CODIGO QUE DESEO LLAMAR A TODOS MIS FORMULARIOS, YO SE Q HAY UNA SOLUCION PARA ESTO, TE AGRADECERIA MUCHO DARME UNA IDEA

Private Sub BloquearCmdNuevo()
cmdgraba.Enabled = True
cmdcancela.Enabled = True
cmdnuevo.Enabled = False
cmdmodifica.Enabled = False
cmdelimina.Enabled = False
cmdbusca.Enabled = False
Cmdsalir.Enabled = False
End Sub
Private Sub BloquearCmdModifica()
cmdgraba.Enabled = True
cmdcancela.Enabled = True
cmdnuevo.Enabled = False
cmdmodifica.Enabled = False
cmdelimina.Enabled = False
cmdbusca.Enabled = False
Cmdsalir.Enabled = False
End Sub
Private Sub BloquearCmdGraba()
cmdnuevo.Enabled = True
cmdmodifica.Enabled = True
cmdelimina.Enabled = True
cmdbusca.Enabled = True
Cmdsalir.Enabled = True
cmdgraba.Enabled = False
cmdcancela.Enabled = False
End Sub
Private Sub BloquearCmdCancela()
cmdgraba.Enabled = False
cmdcancela.Enabled = False
cmdnuevo.Enabled = True
cmdmodifica.Enabled = False
cmdelimina.Enabled = False
cmdbusca.Enabled = True
Cmdsalir.Enabled = True
End Sub
Private Sub BloquearCmdElimina()
cmdnuevo.Enabled = True
cmdbusca.Enabled = True
Cmdsalir.Enabled = True
cmdgraba.Enabled = False
cmdmodifica.Enabled = False
cmdelimina.Enabled = False
cmdcancela.Enabled = False
End Sub
Private Sub BloquearCmdBuscar()
cmdnuevo.Enabled = True
cmdgraba.Enabled = False
cmdbusca.Enabled = True
Cmdsalir.Enabled = True
cmdmodifica.Enabled = True
cmdelimina.Enabled = True
cmdcancela.Enabled = False
End Sub
Private Sub BloquearBotones()
cmdnuevo.Enabled = True
cmdmodifica.Enabled = False
cmdgraba.Enabled = False
cmdcancela.Enabled = False
cmdelimina.Enabled = False
cmdbusca.Enabled = True
Cmdsalir.Enabled = True
End Sub

SALUDOS.
ATTE.
MARCO.

[seba123neo]

Hola,uuuu que de codigo,es facil mira priemro que nada create una matriz de controles de botones,y despues con 3 lineas de codigos los bloqueas o los desbloqueas cuando quieras...usando un bucle For que recorra todos los botones de la matriz de control...trata de hacerlo,si no podes postea.

saludos.