Combox para añadir registro

Hola Santiago,
tal vez me pueda ayudar con este problema.
La idea es la Siguiente, estoy haciendo una base de datos para control de inventario.
En la misma tengo varios formularios, aquí los nombro.
Form  REQUISAS
Form Tarjeta de Productos
Subform Tarjeta de Productos (es un subformulario de datos, que esta dentro del Form Tarjeta de Productos)
En el Formulario requisas puse un COMBOX que se llama NOMBREPRODUCTO, y dos campo FECHA y CANTIDASALIDA
Y lo que pretendo hacer después que se actualice el COMOX, es que Se abra el Formulario "tarjeta de Producto", se busque el registro que corresponde al COMBOX,
y luego se agregue un registro en el subformulario, y para ese registro nuevo los datos sean
Subfom tarjeta de productos! Fecha = Form tarjeta de productos! Fecha
Subfom tarjeta de productos! Salidas = Form tarjeta de productos!CANTIDADSALIDA
si es posible te podría neviar la BD, para que le eche sun vistazo
saludos y gracias
aquí más o menos hay lago del código que he intentado hacer.
Rem Busca el registro especificado
DoCmd.OpenForm "Tarjeta_de_producto", , , , , acHidden
DoCmd.FindRecord RSTGO, , True, , True
Rem Ahora se quiere que se añada un nuevo registro en el Subformulario Tarjeta de Producto
Rem y que el valor del campo Subform![fecha] sea igual a la fecha del formulario
Rem registro y producción, que el campo Subform![cantsalida] sea igual a la cantidad
Rem de salida que paarece en el formulario
Rem Forms!Tarjeta_de_Producto.Subformulario_Tarjeta_de_Producto.Form.Recordset.AddNew

1 respuesta

Respuesta
1
Para que el campo fecha del subformulario coincida con la del formulario tienes que 'vincular' los campos (primario y secundario). Esto aparece entre las propiedades del objeto 'subformulario'.
Para añadir un nuevo registro después de abrir el formulario puedes poner un código de este estilo:
    DoCmd.OpenForm "Tarjeta_de_producto"
    DoCmd. GoToRecord acDataForm, "Tarjeta_de_producto", acNewRec ' Se mueve a un registro nuevo
    Forms("Tarjeta_de_producto").campo1 = Me.campo1
    Forms("Tarjeta_de_producto").campo2 = Me.campo2
    Forms("Tarjeta_de_producto").campo3 = Me.campo3
    DoCmd. GoToRecord acDataForm, "Tarjeta_de_producto", acNewRec ' Se mueve a un registro nuevo y deja grabado el anterior
Hola gracias por la respuesta
Peor tengo una duda, realmente DONDE quiero que se añada el registro nuevo es en el subformulario. Que esta contenido en el el Formulario.
Saludos
Entonces será mejor que insertes directamente en la tabla y después abrar el formulario con su subformulario. Sería algo así:
Dim rs as recordset
set rs=currentdb().openrecordset("NombreDeLaTabla")
rs.addnew
rs!campo1 = me.campo1
rs!campo2 = me.campo2
rs!campo3 = me.campo3
....
rs.update
rs.close
DoCmd.OpenForm "Tarjeta_de_producto"
...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Código VBA para crear un botón y guardar en PDF

Tengo un archivo word con 7 capturas, una en cada página (1-7), cual seria el código para crear un botón en la barra de herramientas de acceso rápido para convertir en PDF cada página. El resultado seria 7 pdf.
2 respuestas

Ejecutar la base de datos sin que se muestre el entorno de Access.

Ya he terminado mi base de datos. Ahora quiero abrirla pero que no se vea nada del entorno de Access, ni pestañas. Que el formulario de inicio se vea, por ejemplo, sobre la pantalla del escritorio. Alguien me da el paso a paso
2 respuestas

Generar tres números al azar para una rifa

1. Pregunta Estoy elaborando una aplicación de una rifa y necesito crear una función para llenar una tabla con 3 números generados al azar, ningún número se puede repetir en la tabla, si el vendedor tiene activo el campo juegacuatro se le asignarán...
3 respuestas

Intentando sumar campos moneda de totales en informe de Access.

Estoy tratando de sumar dos campos de sumas totales en un informe de Access y no lo logro. Creo que he agotado todas las variantes. La situación es la siguiente: El informe es para emitir una factura al cliente. A un cliente se les puede hacer mas de...
2 respuestas

Base de datos Access se bloquea al trabajar en simultaneo

En contexto tengo una base de datos donde se ingresan datos en un formulario y este a su vez tiene un subformulario. Al inicio solo era utilizada por un usuario. Pero ahora es usada por 4 usuarios más. Tengo una computadora principal donde tengo la...
3 respuestas

Añadir búsqueda al azar en formularios de Access

Tengo un archivo de Access que quiero modificar y actualizar para añadir nuevas preguntas a una base de datos. He visto que en el formulario hay una casilla como de verificación para seleccionar al azar las preguntas de toda la base de datos pero...
2 respuestas

Como puedo añadir registros desde un formulario de búsqueda a un subformulario de otro formulario de registros de artículos

Tengo un formulario [Entrada_almacen] con un subformulario [Subformulario entradas almacen] en el que quiero que se vallan añadiendo los registros; Código (es un campo calculado), Artículo (combobox, porque también lo puedo seleccionar y si lo hago...
2 respuestas

Suma continua aparece en todos los demás registros

Tengo 2 tablas relacionadas,,,,, la tabla 1 la uso con el formulario principal,,,, la segunda para un subformulario,,,,,, y tango una consulta basada en la tabla 2 Con consulta contiene los campos entrada salida saldo (saldo ya esta con su fórmula...
2 respuestas

Cantidad mayor y menor en campos calculados

Tengo un formulario principal con tres subformularios y cada uno con una serie de campos de tipo numero sin decimales, Campo 1, Campo 2, Campo 3... Todos tienen 1 campo calculado del totales, basado en la suma de todos los campos de cada formulario,...
2 respuestas

Botón búsqueda en formulario Access

Tengo diseñado un formulario sencillo para hacer registro de datos, al dar el botón guardar esta información se va a una tabla, hasta hay normal, pero 1. Esta información no se llena de una vez por ejemplo Se llena del orden de arriba hacia abajo...
5 respuestas