Recorrer cada uno de los registros de una Tabla para extrael el valor de un Campo.

He de leer cada uno de los Registros de una Tabla y en función del valor de uno de los Campos de la misma realizar un tipo diferente de Calculo.

Nombre Tabla: PRODUCTOSINCLUIDOS

Campo: Control

En función del Valor existente en el Campo Control ha de hacer una serie de Cálculos diferentes.

2 Respuestas

Respuesta
2

Tienes que tener algún criterio que diferencie un(os) registro(s) de otro(s). Por ejemplo

TextoA=dlookup("control","productosincluidos","Ciudad=""Madrid""")

Es decir, búscame el valor del campo Control en aquel registro de la tabla Productosincluidos en que el campo Ciudad tenga el valor de Madrid y lo pones en el cuadro de texto TextoA

ó

If dcount("*","productosincluidos","Control=1234")=3 then

...

Es decir, si hay tres registros en la tabla Productosincluidos en que su campo Control tenga 1234 entonces haz...

Respuesta
2

Puede recorrer una tabla de 2 formas:

1. Si la tabla es el origen de datos de un formulario, se recorre clonando el formulario. Algo como:

Dim miRS AS DAO.RecordSet

Set miRS=Me.RecordsetColone

Do Until miRS.EOF()

  Select Case Me.control

     Case 1

        ......hacer x*y

      Case 2

          ........hacer x+y

       Case 3

           ..... hccer x÷y

     End Select

   miRS.MoveNext

Loop

2. Si no es el origen de datos, se puede recorrer con DAO o ADO. Ejemplo con DAO y la tabla esta en la misma base de datos.

Dim db AS Databese

Dim rs As Recordset

Set db=Currentb()

Set rs=db.openrecordset("

PRODUCTOSINCLUIDOS")

Do until rs.eof()

  Select Case rs!control

     Case 1

         hacer x*y

     Case 2

          hacer  x+y

      Case 3

          hacer x÷y

   End Select

  rs.MoveNext

Loop

Esta es una idea. Puede que tenga algún error ya que respondo desde mi móvil

Efectivamente veo un error de digitación cambie Databese por Database. Igualmente cambie Select Case rs!control por Select Case Me. control.

También hay una tercera opción utilizando SQL con la sentencia UPDATE y el campo control del formulario. Algo como:

Dim gasto_envio As Double

  Select Case Me.control

     Case 1

         gasto_envio=Me.control+1

     Case 2

          gasto_envio=Me.control+2

      Case 3

          gasto_envio=Me.control+3

   End Select

Currentdb.Execute  "UPDATE PRODUCTOSINCLUIDOS SET GastosEnvio ="  & gasto_envio 

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Recorrer tablas y activar/desactivar botones de comando

Mi consulta es la sgte.: En un formulario frVjesClientes tengo un cuadro combinado llamado "ccCodVje" y un cuadro de texto llamado "txtbutaca", al recibir el enfoque el cuadro de texto quiero que me abra un segundo formulario en el cual tengo varios...
1 respuesta

Comparación de menor mayor en recordset no funciona

Hago un recorset y busco que un numero dado (puesto en la variable numero) se encuentre o no en un rango de números del recordset... El tema es que cuando ejecuto el código, me dice que el numero esta incluido en rangos donde no debería estarlo. Algo...
2 respuestas

Modificar un campo de tabla donde de acuerdo al numero de cuadro combinado(asignado) sea el numero de registro a modificar.

Tengo una bd. En Access, tengo una tabla habitaciones con un campo texto llamado Estado (3 posibles estados para cada una libre, por asignar, sin autorizar). Las cuales se dan de alta con la habitación (libre por default). Tengo un formulario con un...
2 respuestas

Asignar el campo de una consulta a una variable

Me urge. Tengo un formulario con un procedimiento de evento en un campo que se ejecuta al hacer clic. Dentro de este procedimiento intento poner un IF con una variable cuyo resultado es un campo en una consulta de agrupación (el campo en cuestión...
3 respuestas

Recorrer subformulario para comprobar checkbox

Tengo un subformulario el cual contiene un checkbox llamado "imprimir" en cada registro, me gustaría poner un botón en el formulario principal que detecte las casillas marcadas y ejecute un comando si la casilla esta marcada para cada registro marcado.
2 respuestas

UPDATE para renumerar registros en un orden

Pero esto es lo que estoy haciendo, lo que quería saber es si lo puedo hacer con una instrucción UPDATE directa sobre la base de datos, para que no me tenga que bajar el recordset, es una cuestión de tiempo, si la tabla que se quiere ordenar es...
1 respuesta

Correr código para varias tablas

Espero poder explicar bien mi problema. Tengo una tabla en access llamada Datos, con los campos codEstacion, dia08, fecha, año, latitud, longitud, altitud, tmax, tmin. Esta tabla contiene datos diarios del año 2008, el código que te pongo a a...
1 respuesta

Comparar registros en tablas en visual basic

Necesito ayuda por favor explico el problema tengo una tabla llamada marca con los siguientes columnas clave marca y modelo, apart en visual basic 6 tengo 4 textbox text1, text2 text3 y text4, el asunto es los sig. En text1 escribe el usuario una...
1 respuesta

¿Cómo recorrer una consulta en VBA?

Se como recorrer una tabla e ir jugando con sus valores. Pero las consultas se me resisten y no se ni si siquiera se puede hacer. Ejemplo de como recorrer una tabla: 'Declaramos las variables Dim Tabla_mes As DAO.Recordset 'Creamos el recordset Set...
1 respuesta

Rellenar Campo con valor Aleatorio No Repetido

Tengo una tabla simple que unicamente dispone de los campos nombre, apellidos, edad y código. El campo código está vacío. Necesitaría saber como puedo rellenar automáticamente el campo código (numérico) con cifras del 1 al 9400 (ya que existen 9400...
1 respuesta