Ahora estoy por programar un buscador por el codigo del producto y que las tablas salgan los datos coloque el siguiente codigo :
Código: Seleccionar todo
Option Explicit
Private Sub BUSCAME_Click()
NumProductos Me.BUSCAR.Text
End Sub
Sub NumProductos(ByVal BusCodigo As String)
Dim rs As New Record
Dim txtSQL As String
Me.NOMBRE = ""
Me.COSTO = ""
Me.IVA = ""
Me.MARKUP = ""
Me.CODIGO = ""
txtSQL = "selec * from productos where codigo = " & BusCodigo & ""
Set rs = currentdb().openrecorset(txtSQL)
If rs.EOF Then
MsgBox "El Codigo Del Producto No Existe", vbInformation, , "Informacion"
Else
Me.NOMBRE = rs!DETALLE
Me.COSTO = rs!COSTO
Me.IVA = rs!IVA
Me.CODIGO = rs!CODIGO
Me.MARKUP = rs!MARKUP
End If
rs.Close
End SubError de compilacion :
Procedimiento Sub o Function no definido
que puede estar pasando ?
Me marca estas lineas :
Sub NumProductos(ByVal BusCodigo As String
y tambien Esta :
currentdb
