talonet

Anónimo respondió: El código sería: Dim db As Database Dim rs As Recordset Set db = CurrentDb Set rs = db.OpenRecordset("Select Referencia, Stock From Tabla_Inventario where referencia='" & Form!Ref_Consumida.Value & "'") If Not rs.EOF Then DoCmd.RunSQL "Update...

Anónimo respondió: En las propiedades del cuadro de texto Ubic_Encontrada pones Visible=No Después en el código del botón: Form!Ubic_Encontrada.Visible=True Form!Ubic_Encontrada.Value=DLookup("[Ubicacion]","[Tabla_Inventario]","Referencia=Form!Ref_Buscada.Value")

Anónimo respondió: Como el campo es Sí/No en el código tendrás que poner Disponible=True para que te busque las disponibles. Al guardar ejecutarás una consulta de actualización: DoCmd.RunSql "Update Tabla_Ubicaciones Set Disponible=False where Ubicación='" &...

Anónimo respondió: Vamos por partes, lo primero es crear la tabla para llevar el inventario. La llamaremos, por ejemplo, Inventario tendrá unos campos Referencia, Entrada, Salida y Stock, el campo referencia seria de texto y los demás numéricos. Si la referencia va a...

Anónimo respondió: No se si Registro es el nombre del formulario, si es así tendrás que referirlo a su colección: Forms! Registro! UAP. Value, como supongo que el botón (o el objeto) desde el que ejecutas la sql está en el mismo formulario, no tienes que poner el...