En un cuadro de texto imprimir varios datos...

Tengo una Base de Datos en access 2007 y en mi formulario principal necesito crear varias cajas de texto en donde pueda poner el resumen de ciertos datos de la base de datos
ejemplo1
Préstamo Camioneta
BANA
Tipo cuenta
Préstamo
Total pago mes
$1,350.00
FECHA PAGO MES
19/Julio/2009
FECHA CORTE MES
5/Julio/209
MÁS...
Ejemplo2
Ahorro personal
SANT
Tipo cuenta
Ahorro
Total depósitos mes
$ 32,500.00
TOTAL RETIRO MES
$ 12,000.00
FECHA CORTE MES
11/Julio/2009
SALDO TOTAL
$24,000.00
MÁS...
Yo tengo la idea que en el load del formulario principal crear a base de código los cuadros de texto (label) y hay escribir con cierto formato como el que pongo de ejemplo.
En el segundo es más grande, aparte de tratar de mostrarlo en un campo de texto (label) dale un formato y redireccionarlo a un resumen en especifico.

1 respuesta

Respuesta
1
A ver amigo/a mio/a:
El formulario lo creas normalmente sin asignar a los text-box campos de tabla y sin asignar tabla al formulario.
Como tu dices en el evento cargar metes código que te monte los valores y te los enseñe. Veamos como con un ejemplo real lo ves más claro:
Tengo un formulario que cuando se abre me visualiza las ventas realizadas durante el día y desglosado en distintos conceptos (lo cual es parecido a lo que quieres). El diseño se realiza normalmente, añadiendo y poniendo cuantos efectos especiales quieras, y en el evento de abrir formulario, ponemos esto (claro esta que debes amoldarlo a tus tablas y necesidades).
'
Dim basedatos As Database     '---> defino una variable tipo base datos
Dim cabpedidos As Recordset    '---> defino una variable del tipo recordset
Dim condicion As String
Dim total1 As Integer
'
'
'--->  inicializa variables de la pantalla
'
[total_dia_pt1] = 0
[total_alp_pt1] = 0
[total_dia_me_pt1] = 0
[total_dia_ta_pt1] = 0
[total_dia_al_pt1] = 0
[total_dia_eu1] = 0
[total_dia_me_eu1] = 0
[total_dia_ta_eu1] = 0
[total_dia_al_eu1] = 0
[total_alp_eu1] = 0
'
'
[total_dia_pt2] = 0
[total_alp_pt2] = 0
[total_dia_me_pt2] = 0
[total_dia_ta_pt2] = 0
[total_dia_al_pt2] = 0
[total_dia_eu2] = 0
[total_dia_me_eu2] = 0
[total_dia_ta_eu2] = 0
[total_dia_al_eu2] = 0
[total_alp_eu2] = 0
'
[total_cob_pt1] = 0
[total_cob_eu1] = 0
[total_cob_pt2] = 0
[total_cob_eu2] = 0
[total_cdia_pt1] = 0
[total_cdia_eu1] = 0
[total_cdia_pt2] = 0
[total_cdia_eu2] = 0
[total_alp_pt1] = 0
[total_alp_eu1] = 0
[total_alp_pt2] = 0
[total_alp_eu2] = 0
'***********************************************************
'--->  Averigua datos del dia dado en pantalla sobre pedidos
'***********************************************************
condicion = "SELECT * FROM [mtro cabeceras pedidos] WHERE [fecha de pedido] = cdate('" & _
            Str([arcfec]) + "') AND [TIENDA]= " + Str([guardatie]) + " AND [origen registro] = 'P';"
Set basedatos = DBEngine.Workspaces(0).Databases(0)    '--> obtengo la base de datos
Set cabpedidos = basedatos.OpenRecordset(condicion)       '--> obtengo y abro la tabla
If Not cabpedidos.EOF Then
 cabpedidos.MoveFirst                                   '--> me posiciono en el primer
End If
Do While Not cabpedidos.EOF
If cabpedidos.EOF Then
   Exit Do
End If
'
'  acumula según cobro Y CAJA
'
'
If cabpedidos![caja] = 1 Then
   [total_dia_pt1] = [total_dia_pt1] + (cabpedidos![tot_pedpt] - (cabpedidos![tot_pedpt] * cabpedidos![Descuento]))
   [total_dia_eu1] = [total_dia_eu1] + (cabpedidos![tot_pedeu] - (cabpedidos![tot_pedeu] * cabpedidos![Descuento]))
'
   If cabpedidos![tipo pedido] <> 2 Then
      [total_cdia_pt1] = [total_cdia_pt1] + (cabpedidos![tot_pedpt] - (cabpedidos![tot_pedpt] * cabpedidos![Descuento]))
      [total_cdia_eu1] = [total_cdia_eu1] + (cabpedidos![tot_pedeu] - (cabpedidos![tot_pedeu] * cabpedidos![Descuento]))
   End If
'
   If cabpedidos![tipo cobro] = 1 And cabpedidos![tipo pedido] <> 2 Then
      [total_dia_me_pt1] = [total_dia_me_pt1] + (cabpedidos![tot_pedpt] - (cabpedidos![tot_pedpt] * cabpedidos![Descuento]))
      [total_dia_me_eu1] = [total_dia_me_eu1] + (cabpedidos![tot_pedeu] - (cabpedidos![tot_pedeu] * cabpedidos![Descuento]))
   End If
'
   If cabpedidos![tipo cobro] = 2 And cabpedidos![tipo pedido] <> 2 Then
      [total_dia_ta_pt1] = [total_dia_ta_pt1] + (cabpedidos![tot_pedpt] - (cabpedidos![tot_pedpt] * cabpedidos![Descuento]))
      [total_dia_ta_eu1] = [total_dia_ta_eu1] + (cabpedidos![tot_pedeu] - (cabpedidos![tot_pedeu] * cabpedidos![Descuento]))
   End If
'
   If cabpedidos![tipo pedido] = 2 And cabpedidos![Factura asociada] = 0 Then
      [total_dia_al_pt1] = [total_dia_al_pt1] + (cabpedidos![tot_pedpt] - (cabpedidos![tot_pedpt] * cabpedidos![Descuento]))
      [total_dia_al_eu1] = [total_dia_al_eu1] + (cabpedidos![tot_pedeu] - (cabpedidos![tot_pedeu] * cabpedidos![Descuento]))
   End If
End If
'
If cabpedidos![caja] = 2 Then
   [total_dia_pt2] = [total_dia_pt2] + (cabpedidos![tot_pedpt] - (cabpedidos![tot_pedpt] * cabpedidos![Descuento]))
   [total_dia_eu2] = [total_dia_eu2] + (cabpedidos![tot_pedeu] - (cabpedidos![tot_pedeu] * cabpedidos![Descuento]))
'
   If cabpedidos![tipo pedido] <> 2 Then
      [total_cdia_pt2] = [total_cdia_pt2] + (cabpedidos![tot_pedpt] - (cabpedidos![tot_pedpt] * cabpedidos![Descuento]))
      [total_cdia_eu2] = [total_cdia_eu2] + (cabpedidos![tot_pedeu] - (cabpedidos![tot_pedeu] * cabpedidos![Descuento]))
   End If
'
'
   If cabpedidos![tipo cobro] = 1 And cabpedidos![tipo pedido] <> 2 Then
      [total_dia_me_pt2] = [total_dia_me_pt2] + (cabpedidos![tot_pedpt] - (cabpedidos![tot_pedpt] * cabpedidos![Descuento]))
      [total_dia_me_eu2] = [total_dia_me_eu2] + (cabpedidos![tot_pedeu] - (cabpedidos![tot_pedeu] * cabpedidos![Descuento]))
   End If
'
   If cabpedidos![tipo cobro] = 2 And cabpedidos![tipo pedido] <> 2 Then
      [total_dia_ta_pt2] = [total_dia_ta_pt2] + (cabpedidos![tot_pedpt] - (cabpedidos![tot_pedpt] * cabpedidos![Descuento]))
      [total_dia_ta_eu2] = [total_dia_ta_eu2] + (cabpedidos![tot_pedeu] - (cabpedidos![tot_pedeu] * cabpedidos![Descuento]))
   End If
'
   If cabpedidos![tipo pedido] = 2 And cabpedidos![Factura asociada] = 0 Then
      [total_dia_al_pt2] = [total_dia_al_pt2] + (cabpedidos![tot_pedpt] - (cabpedidos![tot_pedpt] * cabpedidos![Descuento]))
      [total_dia_al_eu2] = [total_dia_al_eu2] + (cabpedidos![tot_pedeu] - (cabpedidos![tot_pedeu] * cabpedidos![Descuento]))
   End If
End If
'
cabpedidos.MoveNext                                     '--> me posiciono en el siguiente
Loop
'
Cabpedidos. Close
Basedatos. Close
Toma como base este código y experimenta, si te sirve puntúame y si tienes dudas me las haces llegar.
Un saludo,
fcosapa

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Suma desde el registro 1 al actual

Tengo una tabla de para el control del dinero de caja con los campos fecha movimiento, concepto, entrada, salida. Qué consulta tendría que hacer de manera que me sume el saldo que hay en la caja cuando haga el cierre del día, es decir, tendría que se...
2 respuestas

Ayuda de Inventario

Estoy haciendo un proyecto en access 2000 es de un inventario y facturación quisiera saber como poder afectar las cantidades de venta de un producto es decir para sacar la existencia de tal o cual producto, tengo una tabla que es de productos en...
1 respuesta

Controlar el valor de un campo

Se trata de hacer que en un formulario, cada vez que paso de un registro a otro se compruebe el contenido de otro campo y si tiene algo escrito en él ponga en 1 el backstyle de un rectángulo(poniéndolo en rojo) y si esta vacío backstyle=0 . El...
1 respuesta

De números a letras + decimales

Estoy realizando un sistema que imprima un cheque determinado lo que necesito es que cuando ingrese por ejemplo un monto 1,200.25 me muestre en otro static text pero en letras UN MIL DOSCIENTOS CON 25/100 pero AUTOMÁTICAMENTE gracias hasta ahora he...
2 respuestas

Como calcula cantidad de días en mora en access

Quien puede hacerme el favor de ayudarme, estoy haciendo un pequeño programa de cartera. Donde tengo un valor y una fecha pactada. Un Valor y una fecha de pago y tengo otras dos que son Saldo y cantidad de días en mora. El la etiqueta de Días de mora...
1 respuesta

Búsqueda en access tipo google

Tengo una base de datos en access y cuando busco por palabra tengo que anotar el código del registro para después poder imprimirlo o editarlo. Lo que quiero hacer es introducir una palabra y que los registros me aparezcan en forma de listado puede...
3 respuestas

Ocultar eiqueta según resultado

El otro día me salvaron en como eligiendo una opción de un cuadro combinado se ocultaban las etiquetas, lo que necesito ahora es similar Como ocultar una etiqueta según el resultado que se obtiene en otra etiqueta Detallo: La etiqueta "P10" tiene un...
1 respuesta

Validar datos con cuadro de texto 2

En días pasados me resolviste una duda acerca de como validar el texto escrito en un cuadro de texto en access y compararlo con lo que hay en mi tabla, el problema es que al ejecutar la operación access me marca error en la siguiente linea: Set rst =...
1 respuesta

Cambiar valor de campo por otro según campo si/no

Access 2010. Tengo una tabla con varios campos, entre otros: [precio] y [anulado] [precio] es numérico [anulado] es de tipo si/no El valor que hay en [precio] debe ser siempre el suyo, pero quisiera que mostrara el valor 0 cuando el campo...
1 respuesta

Error 3131 error de sintaxis en clausula from

Te planteo el problema que tengo. Tengo un formulario continuo con un cuadro combinado lo que pretendo es aplicar el filtro al registro y todos sus campos, seleccionado en el cuadro combinado pero me lanza el error 3131 en sintaxis en clausula from....
1 respuesta