¿Cómo hacer un formulario multiregistros para cargar una tabla de datos?

Desde Venezuela. Miren tengo el siguiente problema.

Tengo 2 tablas llamadas

  1. Socios. Tiene datos personales
  2. Retiro: Tiene datos para almacenar un producto que se registra una sola vez al mes.

Entonces, necesito crear un formulario para llenar los datos de la tabla Retiro, asociando cada persona un retiro en ese mes. O sea, el formulario debe mostrar la información de todos los clientes y solicitar los datos de retiro en el mismo formulario, en total de 31 personas, o sea, el formulario debe presentar los 31 registros.

Algo así:

NOTA: Los datos personales ya están almacenados.

¿Alguna sugerencia para crearlo?

1 Respuesta

Respuesta
1

Relaciona las 2 tablas con idCelula y crea una consulta de actualización para que llene los campos que necesites desde el formulario

¡Gracias! Tambien se me ocurre, crear una tercera tabla llamada "Temporal". Porque no me expliqué completo. Porque los datos serán opcionales, o sea, se guardarán o no. La Temporal es para cargar los datos tanto de Socios como de ese Retiro. Después se decidiría a guardarla o no guardarla.  

Este es código del formulario al cargarse:

Private Sub Form_Load()

Dim dbsMIBAse As Database, RegistroSocios As Integer, Entrega As Integer

Dim rstTablaO As Recordset, rstTabla1 As Recordset, rstTabla2 As Recordset

  Set dbsMIBAse = CurrentDb

  Set rstTablaO = dbsMIBAse.OpenRecordset("Asociados", dbOpenDynaset)

  Set rstTabla1 = dbsMIBAse.OpenRecordset("Temporal", dbOpenDynaset)

  Set rstTabla2 = dbsMIBAse.OpenRecordset("Entrega", dbOpenDynaset)

  Entrega = DCount("*", "Entrega de combustible") + 1

    For RegistroSocios = 1 To DCount("*", "Asociados")

        With rstTabla1

            .AddNew

            !IdCédulaTem = rstTablaO!IdCédula

            !IdSocioTem = rstTablaO!IdSocio

            ![Nombre CompletoTem] = rstTablaO![Nombre Completo]

            !IdCodigoTem = IdCódigo

            .Update

            .Bookmark = .LastModified

        End With

     rstTablaO.MoveNext

    Next

Set rstTablaO = Nothing

Set rstTabla1 = Nothing

DoCmd.RunCommand acCmdRefresh

End Sub

Si se guarda se debe asignar a la tabla Retiro los campos: IdCedula, Litros, Pipotes, Chofer, y un último código que llamaría IdCódigo de se entrega para ese mes. Y listo. Pero también voy a intentar con la forma que me dices, aunque en consultas no soy muy bueno…..

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Access: dudas con los formularios

Como en el lenguaje de visual puedo llamar a una tabla desde un formulario por ejemplo llamada pensinados y que de la columna rut lo busque y muestre el nombre... Otra pregunta es como puedo hacer para que se incremente en un foemulario el ultimo...
1 respuesta

Modificación de código en access 2007

Me surge un problema que seguro sera de facil solucion pero yo al menos no lo consigo. En mi BD para la gestion de un criadero de animales tengo dos tablas una TDatos_Machos y otra TDatos_Variedad_Ventas. El Formulario basado en la tabla TDatos...
1 respuesta

Moverse a través de un recordset para abrir un formulario

Otra vez. Teneme paciencia! Esta pregunta tiene relación con la anterior. La consulta anterior + o - menos la resolví, con un botón que me crea un recordset para crear nuevo registro en el formulario"YY" desde el formulario"XX" pues de ahí toma...
1 respuesta

Cargar formularios rápidamente vb6

Tengo un formulario que carga en un combobox un listado extenso de descripciones de productos, la llamada a la función la inicializo al momento de cargar el formulario, pero este se tarda algo de tiempo en mostrar el formulario, el combobox se carga...
1 respuesta

Recordset desconectado

Mi pregunta es tengo un recordset desconectado quisiera saber si hay manera de estando desconectado eliminar registro por medio de sql y lo mismo para actualizar. Quiero que sea una temporal en la que pueda hacer cambios sin que afecten la tabla original
1 respuesta

Función EOF

Me puedes ayudar con el cidigo en Visual Basic, para recorrer y mostrar los registros de una tabla en Access y controlando el fial de la tabla con EOF ara mostrar un mesaje cuando sea verdaddero.
1 respuesta

Ordenación con datacontrol

Deseo ordenar una tabla hecha en foxpro2.6 desde un control data en visualbasic6.0, pues no usar la propiedad sort de este control.
1 respuesta

Guardar solo al pulsar en Access

Tengo un formulario de entrada de registros con un botón "Guardar", lo que pasa es que si cierro el formulario con cualquier dato metido, me guarda ese registro y yo lo que quiero es que se guarde sólo si pulsamos el botón guardar. Incluso si relleno...
1 respuesta

Como actualizar una Tabla desde un Formulario con cuadro combinado

Tengo un Formulario con un cuadro combinado que cuando le escribo un código me muestra la informaciónón de la Tabla alumnos. Quiero que al tiempo se me actualice una tabla que se se llama ingreso con los campos: Código:estudiante num Hora_entrada :...
1 respuesta

Access y objetos

Estoy trabajando con una base de datos cuyos campos son hipervínculos, y para trabajar con varias tablas a la vez, he empezado a trabajar en visual basic. He declarado objetos como tablas pero no sé como manejar sus campos, ya que me da errores el...
1 respuesta