TextBox

[JoaoM]

Una manita amigos(as).
Tengo un TextBox
Private Sub TextNombre_Change()
cmdInsertar.Enabled = True
'si elimino el texto
cmdInsertar.Enabled = False
'Si escribo
cmdInsertar.Enabled = True
End Sub

Al escribir en el se activa el cmdinsertar, está perfecto pero, quiero tambien que si vuelvo atras con el carro, es decir si elimino todo el texto escrito quiero que se vuelva False y si escribo algo vuelva a true y así sucesivamente

[mrocf]

Podrías utilizar algo como:

Código VB:

Private Sub TextNombre_Change()
   cmdInsertar.Enabled = CBool(Len(TextNombre))
End Sub
 

Saludos, Cacho.

[JoaoM]

Iniciado por mrocf

Podrías utilizar algo como:

Código VB:

Private Sub TextNombre_Change()
   cmdInsertar.Enabled = CBool(Len(TextNombre))
End Sub
 

Saludos, Cacho.

Otra rutina, la misma funcion
Private Sub TextNombre_Change()
'If Len(TextNombre) = 0 Then
' cmdInsertar.Enabled = False
'Else
' cmdInsertar.Enabled = True
'End If
End Sub

Explico mejor, el proyecto es en excel

En un form tengo 9 textBox, uno de ellos TextNombre, Tengo mas un ComboBox que se carga al abrir elformulario.
Desde el formulario, Inserto, Edito, elimino y mando Imprimir hoja o linea.

Abriendo el form, los botones Insertar, Editar, Eliminar y otros, estan Enabled=False.
Para Insertar al escribir en el TextNombre el boton Insertar se coloc true, regreso hasta cero caracteres y se pone falsde, PERFECTO.
seleciono un dato en el comboBox se llenan todos los textBox, para Editar o Eliminar, PERFECTO, el cmdInsertar se conserva en False, PEFECTO,
Si Edito los datos, uso el boton cmdEditar, pero ya al editar los datos, edito en los TextBox necesarios y si edito aunque use el TextNombre no queria que el boton cmdInsertar se posiera True,

Escribo esto y pienso, pienso pero me viene algo a la mente.
Tengo un boton cmdEdit_Elim que es un solo boton con doble funcion, inserta los datos despues de editados y elimina si quiero eliminar el dato de la linea. para esto tengo dos OptiBoton, uno para editar y otro para eliminar

Private Sub OptEditar_Click()
cmdEdit_Elim.Enabled = True
cmdEdit_Elim.Caption = " Editar"
OptEditar.Enabled = False
OptEliminar.Enabled = True
End Sub

Private Sub OptEliminar_Click()
cmdEdit_Elim.Enabled = True
cmdEdit_Elim.Caption = " Eliminar"
OptEliminar.Enabled = False
OptEditar.Enabled = True
End Sub

Con
Private Sub cmdEdit_Elim_Click() 'Uso de los OptionBotton
If OptEditar Then 'controlamos si se marca OptEditar
'Codigo para EDITAR
End If
If OptEliminar Then 'controlamos si se marca OptEliminar
'Codigo para ELIMINAR
End Sub

La cosa seria la rutina anterior pero agregarle otro OptBoton, es decir

Private Sub cmdInsert_Edit_Elim_Click() 'Uso de los OptionBotton
If OptEditar Then 'controlamos si se marca OptEditar
'Codigo para EDITAR
End If
If OptEliminar Then 'controlamos si se marca OptEliminar
'Codigo para ELIMINAR
¿QUE LE COLOCO AQUI? ¿otro End If ? ¿resultaria? Pruebo y comento
If OptInsertar Then 'controlamos si se marca OptEditar
'Codigo del cmdInsertar
End Sub

En los botones tengo una imagen para identificacion, para eliminar, para Editar y el de Insertar otra,

El boton cmdEdit_Elim_Click (doble funcion) tien una imagen. El texto(caption) Editar y Eliminar, lo hago aparecer segun el optBoton que active pero la imagen no se como hacer el codigo para que al marcar el OptiBoton Editar aparece el Caption Editar pero quisiera que apareciera la imagen(icono)tambien así como si marco el OptBotonEliminar, el de Eliminar.
¿Alguna idea?

[mrocf]

Amigo: ¡no se entiende!... Veamos:

a) Pediste una "manita" y te sugerí:
cmdInsertar.Enabled = CBool(Len(TextNombre))
que te soluciona -entiendo- el problema con una sola línea de comando.

b) Y no sé si te fue útil o no puesto que no he localizado la palabra "gracias" por ningún lado...

[JoaoM]

Iniciado por mrocf
Podrías utilizar algo como:
Private Sub TextNombre_Change()
cmdInsertar.Enabled = CBool(Len(TextNombre))
End Sub

Otra rutina, la misma funcion

Private Sub TextNombre_Change()
'If Len(TextNombre) = 0 Then
' cmdInsertar.Enabled = False
'Else
' cmdInsertar.Enabled = True
'End If
End Sub

Tenia y tengo la ultima.
Si por falta de dar gracias te molestas, no quiero que llegues a eso, presionaré todos los botones que se destinen a tal fin
Gracias
Gracias

[mrocf]

No, amigo: no te equivoques.

Cuando se trata de ayudar, asesorar, enseñar y/o orientar a alguien -créeme- resulta elemental saber si las orientaciones entregadas han sido efectivas.

De no ser así: hay que "entrarle" al tema por otro lado.
Y de haber sido exitosas (las orientaciones) pues: ¡se puede seguir avanzando!

¿Comprendes por qué algo tan sencillo como un "gracias" ó un "OK" son parte fundamental de la comunicación?

Saludos, Cacho.

[JoaoM]

Edito:
Aunque es larga la exposicion, porque el proyecto es largo y no se puede dar una explicacion cas itotal de lo que se necesita, esto or la funcionalidad de cada objecto
Bueno, veré que ayuda obtengo si es que la hay. Digo si es que la hay porque parece casi imposible(digo yo).

Tu opcion es valida, pero como dije anteriormente, ya tenia el codigo que expuse arriba y que hace la misma funcion. Olvidando todo mi comentario anterior porque parece que confunde, y digo parece, por tu comentario y tambien porque pense en agregar un optionBoton para activar o desactivar el boton cmdInsertar, cuando una condicion se presentara.

Bien, al asunto, repito:
Un Form con; un 9 textbox y un combobox. varios botones entre ellos; 1 cmdInsertar, 1 cmdEditar, 1 cmdEliminar, 1 cmdLimpiarTodo, 1 FormPrint.show, 1 Copiar, 1 Pegar y botones para retroceder y avanzar de hoja y 1 Salir.

Los dos cmdEditar y cmdEliminar los fusioné en uno solo (cmdEdit_Elim) usando dos optinBoton, 1 para cada proceso.
Arranco el formulario y aparecen los 3, optionboton (2) y el boton cmdEdit_Elim en Enabeld= False.

Selecciono un dato en el combobox y, los 2 option boton pasan a enabled=True pero Value=false, marco el optionbotonEditar y el cmdEdit_Elim pasa a Enabled=True con el Caption Editar y el optionbotonEditar pasa a Enabled=False manteniendo el optionboton enabled=True.
2º- Marco el optionbotonEliminar y se activa el proceso para Eliminar pasando el cmdEdit_Elim a Caption Eliminar y el optionbotonEliminar a enabled=False y el optionbotonEditar a enabled=true. Hasta aqui todo bien.


Al arrancar el form el cmdInsertar está enabled=False, quisiera que si no voy insertar nada, no pasara a enabled=True. El TextNombre es usado para Insertar, Editar y Eliminar datos por medio de un boton cada proceso, entonces por medio del textNombre hacer que si no se vá a insertar nada no pasara a True el botn cmdInsertar.

En el arranque del form todos los textBox estan vacios y el cmdInsertar Enabled=False, si escribo aunque sea un solo caracter en el textNombre, se activa el cmdInsertar.
Si seleciono un dato en el ComboBox se llenan con los datos correspondentes todos los textBox , sigue el cmdInsertar en False PERO QUIERO EDITAR y si elimino un solo caracter que sea en el TextNombre el cmdInsrtar pasa a True y lo que quieo es editar y no insertar por lo tanto si la condicion es corrigir el texto en el textNombre es editar y no Insertar.

Se que es dificil de hacer lo que pretendo, por eso me incliné en fusionar el boton cmdInsertar en el mismo cmdEdit_Elim quedando cmdEdit_Elim_Inset con 3 funciones, Insertar, editar y Eliminar todo por medio de marcar un optionboton tal como tengo para los dos procesos editar y Eliminar con su respectivo Caption.
Esta ultima seria la mas facil.

Si alguien ve necesario subir el proyecto, lo haré para mejor comprension y estudio y talves una solucion.

Pregunto:

¿Si seria mas facil por parte de OptionBoton?, ¿que opinan ustedes?

3 OptionBoton, un solo CommandBotton y 3 procesos. Para 2 procesos ya lo tengo funcionando pero ¿Como haria yo para agregarle otro proceso a los 2 que ya estan?

Private Sub cmdInsert_Edit_Elim_Click() 'Uso de los OptionBotton
If OptEditar Then 'controlamos si se marca OptEditar
'Aqui el Codigo para EDITAR
End If
If OptEliminar Then 'controlamos si se marca OptEliminar
'Aqui el Codigo para ELIMINAR
End If
End Sub

¿Que me falta para agregar un tercero?

Agradezco toda opinion para prueba y si es valida, lo comentaré

Gracias de antemano por sus ideas y opiniones

Decidi subir el libro de una ves