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

1 Respuesta

194.625 pts. 20años de experiencia en programacion Access a razon de...
¿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