Operaciones entre registros en access

Quisiera que me expliques como puedo hacer operaciones entre dos registros de una misma tabla y de un mismo campo de access. Por ejemplo sumar el registro 5 con el registro 7 del campo "ventas" de la tabla "Registro". Si es que existe alguna forma de hacerlo sin usar comandos complejos de visual basic por favor enviame una respuesta, y si no hay otra forma que ocn visual basic también te agradecería que me puedas guiar con un ejemplo o algo =)

1 respuesta

Respuesta
1
Te voy a poner un ejemplo concreto comentado hecho programando con el Visual Basic de access. Supondré que tengo una tabla llamada Tabla con un campo llamado Valor. Supondré que la clave de la Tabla se llama DNI y que quiero sumar el dinero (Valor) que tienen Juan (DNI=11111111) y Pepe(DNI = 22222222), y dárselo todo a Pedro(33333333).
Dim Base as DataBase
Dim ApuntadorJuan as Recordset
Dim ApuntadorPepe as Recordset
Dim ApuntadorPedro as Recordset
Set Base = currentDB
Set ApuntadorJuan = Base.OpenRecordset("Select * from Tabla where DNI = 11111111")
Set ApuntadorPepe = Base.OpenRecordset("Select * from Tabla where DNI = 22222222")
Set ApuntadorPedro =
Base.OpenRecordset("Select * from Tabla where DNI = 33333333")
ApuntadorPedro.edit
ApuntadorPedro!valor = ApuntadorPedro!Valor + ApuntadorJuan!Valor + ApuntadorPepe!Valor
ApuntadorPedro.Update
Notas:
He sumado lo que tienen Juan y Pepe y lo he añadido a lo que tiene Pedro. Te dejo que pienses como seria para solamente dar a Juan lo que tiene Pepe, o para repartir lo que tiene Juan entre Pedro y Pepe.
Me he guiado por DNI, no por posición en la tabla como tu decías. Tus tablas SIEMPRE deben tener clave, no te acostumbres a pensar así "el registro 5 más el 7". Eso te llevara inevitablemente a errores. Podría hacerse, el código queda mucho más confuso. Seria algo así
...
Set ApuntadorJuan = Base.OpenRecordset("Tabla")
Set ApuntadorPepe = Base.OpenRecordset("Tabla")
Set ApuntadorPedro = Base.OpenRecordset("Tabla")
ApuntadorJuan.move 5
ApuntadorPepe.move 7
ApuntadorPedro.move 34
...
Pero insisto en que no es la forma buena de trabajar con Bases de datos.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Access mensaje antes de elimin registro en fórmula

Espero que me puedas ayudar con un tema en el que ando un poco bloqueado y no se como hacerlo. Tengo la siguiente tabla: Tabla1: Registo Campo1 Campo2.. 1 Juan 2 Luis Juan 3 Pedro Juan 4 Ramón Pedro Tengo un formulario en el que me aparecen todos...
1 respuesta

Consulta select en VBA Access

Soy novato en VBA Access aunque no tanto que Excel pero estoy intentando hacer un SELECT * mitabla WHERE idtabla = campotextoformulario y no tengo forma de que me salga He empezado con este código, y cuando lo controle, iré un poquito a más: Private...
1 respuesta

Procedimientos y funciones

Estoy intentando hacer una función que me busque en una base de datos. La función la declare así. Function buscar_alumno(tabla As Recordset, entrada As String, opcion As Integer) As Recordset ' declaracion de variables Dim datos As Database Dim...
1 respuesta

¡URGENTE! Control de préstamo de equipos

Tengo un BD que permite el ingreso de alumnos a un aula de computo, en un form tengo iconos "imagenes" de los equipos y quisiera saber como poder resaltar o opacar la imagen o ocultarla cuando dicho equipo este ocupado... Mediante código VBA. Cabe...
1 respuesta

Asignar resultado de consulta a textbox

Quiero hacerte una pregunta haber si puedes ayudarme. Me podrías explicar como asignar a un textbox el resultado de una consulta realizada a una tabla. Mi consulta es básicamente la siguiente: SELECT campo FROM tabla WHERE nombre= 'Pedro'
1 respuesta

Ejecutar un select en access

¿La única forma de ejecutar una select dentro de un programa VBA en Access es por medio de un Recordset? Quiero ejecutar una select del tipo: Select nombrecliente from clientes where dnicliente=campodeunformulario Y el valor devuelto por la select...
3 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

Asignar valor de un control al resultado de un DLookup

Tengo una tabla T con campos C1 (texto) y C2 (numérico). Pongamospor ejemplo: C1 C2 Pepe 1 Pepe 1 Juan 2 Los valores tanto de C1 como de C2 pueden estar repetidos. Lo que quiero es asignar a un cuadro de texto txt1 de un formulario F, el valor de C2...
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

Necesito hacer un formulario de búsqueda (urgente)

Tengo una tabla alumnos y de ahí tengo que hacer un formulario que tiene primer nombre, primer apellido y un botón que diga buscar... Bueno tengo que teclear en primer nombre o en primer apellido una letra o parte de un nombre o apellido y al...
2 respuestas