Text box de nuevo

Hola de nuevo, pues me paso lo mismo ahora me pene los valores,
solo quería ver si era posible si me podrías orientar un poco en la forma en que debería de ir el case, ya que jamas he usado una opción así, y no veo como ponerlo
If Instit1.Value = "B" Then
texinstit1.Value = "BANAMEX"
ElseIf Instit1.Value = "O" Then
texinstit1.Value = "OTRO BANCO"
ElseIf Instit1.Value = "D" Then
texinstit1.Value = "TIENDA COMERCIAL"
ElseIf Instit1.Value = "C" Then
texinstit1.Value = ""
ElseIf Instit1.Value = "." Then
texinstit1.Value = ""
ElseIf Instit1.Value = "" Then
texinstit1.Value = ""
ElseIf texinstit1.Value = "" Then
texinstit1.Visible = False
Else
texinstit1.Visible = True
End If
If Instit2.Value = "B" Then
texinstit2.Value = "BANAMEX"
ElseIf Instit2.Value = "O" Then
texinstit2.Value = "OTRO BANCO"
ElseIf Instit2.Value = "D" Then
texinstit2.Value = "TIENDA COMERCIAL"
ElseIf Instit2.Value = "C" Then
texinstit2.Value = ""
ElseIf Instit2.Value = "." Then
texinstit2.Value = ""
ElseIf Instit2.Value = "" Then
texinstit2.Value = ""
ElseIf texinstit2.Value = "" Then
texinstit2.Visible = False
Else
texinstit2.Visible = True
End If
Dejo el código de nuevo por si sirve de algo, mil disculpas.
Y espero no sea una molestia gracias

1 respuesta

Respuesta
1
vamos a ver como queda un select case comun
explicame un poco esto
If Instit1.Value = "B" Then
texinstit1.Value = "BANAMEX"
Instit1 ¿qué componente es?
Textinstit1 es un componente de texto usa texinstit1.text y no .value
El Insitit1 es el campo de donde los text box toman el valor, según la letra que tenga el registro, por decir si es una B en el campo insitit1 el valor que muestra el textbox es "BANAMEX" y así para los demás.
Entonces yo pensaba el el case seria
Select case Instit1
case B
textinsit1.value = "Banamex"
Case O
texintit1.value = "otro banco"
Y así sucesivamente pero no me permitía ese cambio.
Y no he intentado como tu dices
Disculpa pero insitit1 ¿es un campo de recordset? ¿Cómo obtenés el valor?
Creo que instit1 viene vacío y nunca toma el valor, ¿tienes solamente esa parte del código?
El campo instit1 toma el valor de una importación de una tabla, que es la institución bancaria, se podría decir que si es de record set.
Ese campo ya trae los valores que dependiendo podría ser
B para banamex
C para sin referencia
O para otro banco
DE para tienda comecrial
Esa información se extrae de un excel, y la Instit1, es el campo o más bien columna, que dice que tipo de referencia trae esa solicitud.
Entonces en el texbox (texinstit1) es el que muestra según el valor que tenga Instit1 si es Banamex, Sin referencia, Otro banco, o tienda comercial.
La razón de que aparezca así es como ya te comente que obtiene la información de un excel que se importa al sistema.
Si tienes alguna otra duda con gusto respondo.
Gracias por su tiempo
Y Saludos
Por lo que vi los campos responden a tus necesidades.
Si me podes pasar después como la variable instit1 obtiene el valor de la columna de excel estaría bueno, ¿hace un stop de interrupción sobre el primer if y en la ventana de inmediato pone? Instit1 haber que valor te tira.
el select case sería asi
select case
   case= "B"
            texinstit1.Value = "BANAMEX"
case= "O"
            texinstit1.Value = "OTRO BANCO"
case= "D"
            texinstit1.Value = "TIENDA COMERCIAL"
case= ""
            texinstit1.Value = ""
end select
Lo que pasa es que eso no lo hago con código, si no que solamente importo la información a la tabla de donde saco la información de los campos, por que estoy usando como plataforma Access 2003.
O mejor dicho, se tiene el excel con la información, yo importo esa información de excel a Access, y como access es algo gráfico y te facilita la relación y de donde se obtiene la información los campos pues ya traen el valor según de lo que se paso desde excel.
Y para lo ocupaba es por que en algunos casos a pesar de que los campos están en blanco, me almacena el ultimo valor con el if.
El demás código que tengo son solo código string para la fecha y numero de tarjetas de dicho campo, y demás if para demás valores si es tal valor.
Pues muchas gracias ya quedo funcionando, mil gracias enserio, ya quedo.
Dejo esto abierto, hasta obtener una respuesta tuya de regreso, para saber que ya todo este bien, y que tu no tengas como yo duda de lo que estaba haciendo, me refiero a de donde obtiene la información.
Me alegro que hayas solucionado el tema, para la próxima consulta es muy importante que aclares la forma de trabajo o es vb 6.0 o si es algo office vba, así uno sabe donde se mueven los datos.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Destacar OptionButton al cargar formulario

Tengo un formulario con tres OptionButton y los tengo asignado a una misma celda. El valor al hacer click son 1,2 y 3 respectivamente. La idea es que al cargar el formulario me pueda mostrar activo el OptionButton que había asignado anteriormente, es...
1 respuesta

Botón de Opciones, ¿Datos reales..?

Que ta...! Espero puedas ayudarme. Access asigna un valor numérico a cada botón de opción que se elija, de forma que en la tabla general se verán números en lugar de los datos reales. Pero quiero hacer que aparezcan los datos deseados, que vienen...
1 respuesta

Ejecutar macro si cambia valor en lista!

Os escribo porque quisiera crear una macro que, cuando cambiara el valor en una lista por medio de validación de datos, me ejecutase otra macro. Lo que tengo es lo siguiente: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address =...
1 respuesta

Si se deja un Textbox en blanco

Tengo este código en un formulario de excel: Private Sub TextBox1_Change() largo_entrada = Len(Me.TextBox1) Select Case largo_entrada Case 2 Me.TextBox1.Value = Me.TextBox1.Value & "/" Case 5 Me.TextBox1.Value = Me.TextBox1.Value & "/2008"...
2 respuestas

Completar macro para sombrear celdas según el valor de otras celdas.

Tengo la siguiente macro. Funciona bien, pero necesito que haga mas cosas que no consigo. Si en el rango ("B19:AR367") se escribe una de estas iniciales: "V", "L", "S", "AP", "FJ", "VP" Pintará esa celda según los siguientes criterio: Si en rango (A,...
2 respuestas

Necesito ayuda sobre un mensaje de error en Excel

Intentaré expresarme lo mejor posible para hacer más entendible el error. Bien, tengo una tabla denominada "teléfonos" con los campos "extensión y modelo" de la cual tengo realizada una consulta con los criterios "Como [Escribe el numero de...
1 respuesta

Copiar datos de una pestaña a otra con macro

No domino para nada las macros y necesito su ayuda, tengo un archivo con varias pestañas con igual formato y una pestaña más que llamaré "Total" donde pienso concentrar lo contenido en esas pestañas. Necesito copiar el texto de 2 columnas de cada...
1 respuesta

Ayuda para convertir numero en texto en access 2007

Ya he revisado en internet y encontré num2text ya lo puse y funciona solo que me redondea los números osea no me maneja decimos ejemplo 120.56 da ciento veinteyuno según coloque los códigos en donde devén de ir pero pues el resultado no es lo que...
1 respuesta

Macro que busque un valor en una columna y que lo pegue en otra columna de otro libro.

Tengo un señor problema, resulta que tengo 20 datos en la columna E de un libro llamado DESVIACIONES, necesito buscar desde la E7 hasta la E26 los datos mayores o iguales a 0, si encuentra alguno que lo copie y lo peque en otra hoja llamada Hoja2 en...
1 respuesta

Buscar valor de una celda en un rango

Tengo una macro que almacena una información de promociones, es decir, tengo un formulario creado en una hoja de excel del que luego se obtiene una información que se almacena en una tabla en otra hoja, se supone que el valor que da nombre a cada una...
1 respuesta