Traer datos de un formulario a otro en access 97

Tengo un gran problemilla, este es: Estoy desarrollando una base de datos, en donde el objetivo es llenar un formulario "X" (el cual tiene 40 campos) e implimirlo, por ahora, todo esta perfecto pero quiero que al ingresar el NIT o cédula del cliente, en el mismo formulario "X" me pegue los datos de otra tabla y/o formulario denominado "clientes" donde tengo toda la información correspondiente de cada uno de los clientes, no he podido saber cómo hacer para que al ingresar el NIT me pegue el nombre, la dirección y el teléfono (solamente) del mismo.
Hay que tener en cuenta que para los clientes nuevos primero se llena el
formulario de "clientes" y luego si se llena el formulario "X". ¿Hay qué programar un botón?, ¿O se puede hacer que sólo al ingresar el NIT en el campo correspondiente y pasar a otro me pegue los datos en otros campos inhabilitados para escribir?
Respuesta
1
Supongamos que la tabla principal del Formulario POR es "Pedidos".
Antes que nada debemos establecer las relaciones de la base de datos, en este caso, deben estar relacionadas las tablas "Clientes" y "Pedidos" en una relación 1 a muchos a través del campo NIT.
Luego se debe hacer una consulta que incluya ambas tablas (la relación debe aparecer automáticamente) y seleccionar todos los campos de la tabla Pedidos que se deben llenar (Incluyendo el NIT de esta tabla) y todos los campos de Clientes que se deben mosrtrar en el form X.
Luego se debe establecer esta consulta como origen del registro del form X. Cuando ingresemos en el form el NIT (de la tabla Pedidos) deberán aparecer automáticamente todos los datos del Cliente que se obtinen a través de la relación.
Espero que te sirva la explicación. Cualquier duda consúltame.
Suerte

1 respuesta más de otro experto

Respuesta
1
Lo que pides es muy sencillo.. En el evento AntesDeActualizar del cuadro de texto NIT escribe el siguiente código...
Dim dbs as database
Dim rst as recordset
set dbs=currentdb
set rst=dbs.OpenRecordset("SELECT * FROM NombreTablaClientes WHERE NombreCampoNIT = '" & me.Nit & "'")
If rst.RecordCount then
'Se ha encontrado el cliente..
Me.NombreCliente=rst!NombreCliente
Me.Direccion=rst!DireccionCliente
Me.Telefono=rst!TelefonoCliente
else
msgbox "El código de NIT indicado no se corresponde con ningún cliente.",vbInformation
Cancel=true
Exit sub
end if
Considero que NIT es un campo de texto. En el caso de que sea SIEMPRE numérico no debes encerrar el código entre comillas..
set rst=dbs.OpenRecordset("SELECT * FROM NombreTablaClientes WHERE NombreCampoNIT = " & me.Nit)
Espero que te sirva...
Saludos.
Jordi Pérez i Madern
Mataró (Barcelona)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Campo autonumérico sin usar autonumérico?

Necesito un campo que no sea estrictamente autonumérico para numerar muestras en una base de datos de análisis. He visto en esta página una solución que sería que se numerara solo el control desde el formulario al cambiar de registro mediante una...
1 respuesta

Validar stock en tablas vinculadas

Tengo unas tablas vinculadas, y he creado este código para validar el stock: Dim vBob, vTBob As Variant Dim rst As Recordset Dim vFecha, vTfecha As Variant Dim vEnvio, vTEnvio As Variant Dim vstoc As Boolean vBob = Me.num_bob.Value vEnvio =...
1 respuesta

Validación en formulario de access

Tengo una base de datos donde se registra Información de Clientes y he creado un formulario para la captura de la información. ¿Mi pregunta es como hago para validar todos los campos en este formulario? Ya que todos los campos debe ser requeridos,...
1 respuesta

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

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

Conflicto con Recordset

Tengo una duda sobre la forma en que Access ejecuta un código que contiene un recordset. El tema es el siguiente: tengo un código que está formado por dos acciones y la primera de ellas es un recordset. La segunda acción tiene que esperar que el...
1 respuesta

Actualizar campo por vba

Por medio de un formulario en el evento al dar doble click, he puesto el siguiente código: Set dbs = CurrentDb str = "UPDATE ChequeoPedido SET ChequeoPedido.Chequeo = True" str = str & " WHERE IdPedido=" & Forms!ControlReservasSub!IdPedido Dbs....
1 respuesta

Consulta Access

Que ya llevo varios días dándole vueltas y no hay forma. Yo estoy empezando en esto de Access y todavía me engancho en algunas cosas. Tengo hecha una base de datos para controlar las devoluciones recibidas en un almacén. La cosa es que en esta base...
1 respuesta

Insertar registro en base aun numero

Antes que nada saludos Tengo un formulario principal que tiene los sig. Campos numero registro=1 Ademas de otros campos Tengo también los siguientes campos ImporteAutorizado Peridos PeriodoPago Ademas tengo un subformulario que esta vinculado al...
1 respuesta

Quiero copiar datos de una tabla en otra

Que es lo que tengo mal, no consigo que funcione. Quiero copiar datos de una tabla a otra cuando pulso un botón y añadir la fecha. Dim dbs As Database Dim rst As Recordset Dim rst_s As Recordset Dim Familia, Concepto As String Dim codUltVenta,...
1 respuesta