Cuadro de Texto Access

Hola nuevamente, tengo un cuadro de texto en el cual quiero mostrar un valor que yo voy a definir, dado que el cuadro combinado seleccionado dejo mi código como lo estoy trabajando
Private Sub Cuadrocombinado30_Click()
   If Cuadrocombinado30 = "General" Then
    Texto1 = DLookup("SumaDeHours", "Consult Gral Only A000F")
    Texto3 = DLookup("SumaDeHours", "Concult Gral Only S000A")
    Texto7 = DLookup("SumaDeHours", "ConsultGral only A0004647")
    Texto40 =     "Aqui es donde quiero imprimir un valor que yo doy"
    ElseIf Cuadrocombiando30 = 2283043152# Then
    Texto1 = DLookup("SumaDeHours", "Consult 2280304315 A000")
    Texto3 = DLookup("SumaDeHours", "Consult 2280304315 S000")
    Texto7 = DLookup("SumaDeHours", "Consult 2280304315 A4647")
    ElseIf Cuadrocombinado30 = 2283048400# Then
    Texto1 = DLookup("SumaDeHours", "Consult 2283048400 A000")
    Texto3 = DLookup("SumaDeHours", "Consult 2283048400 S000")
    Texto7 = DLookup("SumaDeHours", "Consult 2283048400 A4647")
    ElseIf Cuadrocombinado30 = 2283043326# Then
    Texto1 = DLookup("SumaDeHours", "Consult 2283043326 A000")
    Texto3 = DLookup("SumaDeHours", "Consult 2283043326 S000")
    Texto7 = DLookup("SumaDeHours", "Consult 2283043326 A4647")
    End If
End Sub
Se agradece la ayuda gracias

1 respuesta

Respuesta
1
¿Y dónde defines el valor que quieres mostrar?
Por cierto, cuando anidas varios If..ElseIf se recomienda el uso de un Select Case.
Y otro consejo. Cada cual programa como quiere, pero almacenar consultas es, habitualmente, jugar con fuego. Un cambio por error, una eliminación sin quieres y te quedas sin aplicación. Yo soy de los que prefieren crear las SQL en tiempo de ejecución. Pero ya te digo que cada cual programa como le va bien.
http://www.mvp-access.com
http://www.aesoft-databases.com
No esta definido, si no que lo pongo yo ejemplo.
If Cuadrocombinado30 = "General" Then
    Texto1 = DLookup("SumaDeHours", "Consult Gral Only A000F")
    Texto3 = DLookup("SumaDeHours", "Concult Gral Only S000A")
    Texto7 = DLookup("SumaDeHours", "ConsultGral only A0004647")
    Text40 = Look("GSDC")
    ElseIf Cuadrocombiando30 = 2283043152# Then
    Texto1 = DLookup("SumaDeHours", "Consult 2280304315 A000")
    Texto3 = DLookup("SumaDeHours", "Consult 2280304315 S000")
    Texto7 = DLookup("SumaDeHours", "Consult 2280304315 A4647")
    Text40 = "aqui es donde quiero poner esto en el cuadro de texto  " 222258466  "
    ElseIf Cuadrocombinado30 = 2283048400# Then
    Texto1 = DLookup("SumaDeHours", "Consult 2283048400 A000")
    Texto3 = DLookup("SumaDeHours", "Consult 2283048400 S000")
    Texto7 = DLookup("SumaDeHours", "Consult 2283048400 A4647")
    ElseIf Cuadrocombinado30 = 2283043326# Then
    Texto1 = DLookup("SumaDeHours", "Consult 2283043326 A000")
    Texto3 = DLookup("SumaDeHours", "Consult 2283043326 S000")
    Texto7 = DLookup("SumaDeHours", "Consult 2283043326 A4647")
como hago eso??
seguire tu recomendacion del case gracias men
Text40 = "Lo que quiera poner"
¿Cuál es el problema?
Que no conozco la función o la expresión para que imprima el valor que yo quiero
=DLookup la cual imprime el registro de una consulta
Ese es dilema gracias
Pero tu quieres escribir un texto cualquiera.
Si quiero mostrar Xavi, pondré esto:
Text40 = "Xavi"
Si quiero mostrar 222258466, pondré esto:
Text40 = "222258466"
Francamente, no veo el problema.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Outlook ya no envía mis correos desde Access, no reconoce la contraseña

Desde access envío un correo electrónico al cliente con el PDF de una factura a través de outlook, pero recientemente con la seguridad actual (oAuth) ya no me deja, utilizo outlook 2016 ¿Alguien sabe como resolverlo?
1 respuesta

En una tabla hacer una Suma acumulada

Tengo una tabla con 5 columnas id, código, fecha, cantidad, cantidadacumulada, donde la cantidad acumulada es el resultado de sumar acumulado todos los códigos iguales dado por los números de la casilla cantidad, el tema que en visual basic lo logro...
3 respuestas

Usuarios múltiples para un crm

Necesito q al CRM q he creado puedan acceder al mismo tiempo dos o más usuarios para registrar info, de ser posible la base de datos deberia estar guardada en Dropbox.
5 respuestas

Recorrer una tabla de Access

Tengo un formulario de access en el que tengo un campo llamado importe y otros importe_1, importe_2, importe_3 y un campo llamado reg que lo que necesito es que si el valor del registro es 21 coloque el importe en importe_, si es 22 lo coloque en...
4 respuestas

Trabajando por primera vez con código vba en formulario de Access.

Estoy aplicando con ayuda de otras personas un código vba a un formulario y a pesar de todo no me funciona como lo esperaba. ¿Alguien en esta plataforma que por favor me revise esta tarea y oriente al respecto?
1 respuesta

Trabajando con formato condicional en formularios de Access.

Estoy construyendo una base de datos en Access. Tengo un formulario principal ¨SERVICIOS¨ que contiene un primer subformulario ¨ETAPAS¨ y un segundo subformulario¨VENTAS¨ (intenté subir la imagen pero no funciona esta opción de la plataforma) Lo que...
5 respuestas

Como puedo hacer para Exportar un informe de Access a PDF añadiendo fecha y la hora actual del Pc

Tengo este código, pero no tiene la fecha y la hora ¿Cómo hago? Sería Algo así cuando guarda: Test 2023-07-06 15:21.PDF Private Sub Comando1172_Click() Dim strUserName As String, strPath As String strPath = "C:\Users\usuario\Documents\test.pdf"...
2 respuestas

Access código para copiar a tabla grupo de opciones

Tengo un formulario independiente con campos independientes. Uno de esos campos es un marco (grupo de opciones) que código podre utilizar para al dar click en el botón guardar me envíe los datos a la tabla específicamente lo que se escogió el el...
2 respuestas

Diferencias entre fechas devuelva año mes días

Tengo en un campo del formulario esto =DifFecha("d";[Formularios]![coches mantenimientos]![AÑO];[FECHA]), me devuelve correctamente los días entre las fechas, pero yo quería en vez de días me dijera La diferencia en años, meses y días.
2 respuestas

Encontrar repetidos en varias columnas

Tengo una tabla que contiene 10 columnas, que he importado de Excel: Nro1, nro2, nro3, nro4, nro5, nro6, nro7, nro8, nro9, nro10. Contienen números tipo texto, por ejemplo. Nro1 nro2 nro3 nro4,..., nro10 0005 4578 1247 1326,... 2147 1247 4587 0035...
1 respuesta