Pregunta en
Visual Basic
y en 2 temas más
¿Por qué no hace efecto mi código en mi archivo?
Tengo el siguiente código con la finalidad de que evite que se venda la cantidad de un producto, mayor a la que se tiene en inventario. ElseIf DLookup("[EXISTENCIA]", "MATERIALES", "[CLAVE] = '" & Me.CLAVE & "'") < Me.Cantidad Then MsgBox "NO HAY...
Pregunta en
Microsoft Access
y en 1 temas más
¿Como tengo que definir el valor de cantidad, para que este lo pueda ingresar el usuario?
Este es el código que tengo, pero en cantidad no se que valor darle: Private Sub Clave_BeforeUpdate(Cancel As Integer) Me.DESCRIPCIÓN = Me.CLAVE.Column(1) Me.Cantidad = 1 Me.Unidad = Me.CLAVE.Column(2) Me.Precio_Unitario = Me.CLAVE.Column(3)...
Pregunta en
Lenguaje SQL
¿Cuál es el error en esta sentencia?
Consulta = "SELECT [Descripción,Precio] FROM [Lista de Materiales] WHERE [Clave] = '" & Me.Clave & "'"
Pregunta en
Visual Basic
y en 1 temas más
¿Como puedo corregir este párrafo, que me da como error la leyenda "Pocos parámetros, se esperaba 1"?
Aquí dejo el texto: On Error GoTo ManipulaError consulta = "SELECT [Descripción, Precio] FROM [Lista de Materiales] WHERE [Clave] = '" & Me.Clave & "'" Set miRs = CurrentDb.OpenRecordset(consulta, dbOpenForwardOnly) With miRs Me.Cantidad = 1...