¿Cómo solucionar Error 3061 se esperaba 1 en access tengo un código y quisiera saber la solución?
Una pregunta yo tengo este código y me marca el mismo error es para un punto de venta al usar el nombre del producto como código de barras para la venta
Dim RS As DAO.Recordset
Dim SQL As String
If IsNull(Me.txtCodigoArt.Value) Then
MsgBox "No ha escaneado ningun Codigo todavia!"
Exit Sub
Else
codBarraProd = Me.txtCodigoArt.Value
End If
SQL = "SELECT * FROM PRODUCTOS WHERE DESC_PRODUCTOS = '" & codBarraProd & "'"
Set RS = " & CurrentDb.OpenRecordset(SQL) & "
If RS.BOF And RS.EOF Then
MsgBox "Verifique codigo de barras, Producto no Existe", vbOKOnly, "No existe Codigo"
Me.txtCodigoArt.Value = ""
Me.txtCodigoArt.SetFocus
Exit Sub
2 Respuestas
Respuesta de Camilo Calle
1
Respuesta de Sveinbjorn El Rojo
2