recorrer los registros de una tabla - VB-MUNDO

jacintomilla · #1 (**permalink**) 27-05-2008, 15:23:37

Hola a todos
Tengo una consulta que creo que es sencilla pero como soy un poco novato se me amontona.
Tengo dos tablas: tabla1 ("idtabla1","producto","precio","codbarras")
tabla2("idtabla2","nombre","precio"..........)
He creado un formulario con la tabla2 y en este formulario recojo en un cuadro de texto un codbarras con la pistola de código de barras.
Esta código de barras los paso a una función para comprobar si existe en la tabla1 y en el caso de que exista que la función me devuelva 1 y sino 0
Aqui empiezan los problemas:
1.- Que código utilizo en la función para ver si existe en la tabla1 el código de barras que le he pasado
2.- en el caso de que exista el codigo de barras y la función me devuelva 1, como recojo después los datos que van con ese código de barras ("producto","precio") para acoplarlos al formulario
Espero no haberme liado demasiado
Gracias de antemano a todos
Un saludo

J.M.Movilla · #2 (**permalink**) 27-05-2008, 18:34:08

Deberás buscarlo de esta forma

Código:

rs.MoveFirst
SQL = "codbarras like '" & Text1.Text & "'"
rs.Find(SQL)
if rs.EOF Then
    MsgBox("No se encuentra este producto....)
Else
    TxtProducto = rs!producto
    TxtPrecio = rs!precio
    ... etc
End If

jacintomilla · #3 (**permalink**) 28-05-2008, 08:33:40

Hola de nuevo
al final me han aconsejado que no hace falta la función y he creado en el mismo formulario el siguiente código en el que busco si esta el código de barras

Private Sub prueba_Exit(Cancel As Integer)
Dim Mensaje, Estilo, Título, Ayuda, Ctxt, Respuesta As String
Dim auxiliar As String
Dim cod As Variant

Mensaje = "¿Este Producto no se encuentra en la base de datos.Quieres guardarlo?" ' Define el mensaje.
Estilo = vbYesNo + vbQuestion + vbDefaultButton2 ' Define los botones.
Título = "PRODUCTO SIN GUARDAR" ' Define el título.
Ayuda = "DEMO.HLP" ' Define el archivo de ayuda.
Ctxt = 1000 ' Define el tema

auxiliar = prueba 'prueba es el cuadro de texto donde recojo el codigo de barras

cod = DLookup("[CódigoBarras]", "Productos", "[CódigoBarras]='" & auxiliar & "'") 'suponiendo que auxiliar sea alfanúmerico

If IsNull(cod) = True Then
prueba = ""
Respuesta = MsgBox(Mensaje, Estilo, Título, Ayuda, Ctxt)
If Respuesta = vbYes Then
DoCmd.OpenForm "frmNuevoProducto", , , , acFormAdd, acDialog
End If
Exit Sub
End If
otro = cod 'otro es un cuadro de texto donde veo lo que recoge

End Sub

en el código que me has mandado ¿como hago para decirle que me busque los datos en la tabla "Productos" ya que el formulario en el que estoy es de la tabla "Tickets"
Un saludo y gracias

J.M.Movilla · #4 (**permalink**) 28-05-2008, 10:00:06

Cita:

Empezado por jacintomilla

en el código que me has mandado ¿como hago para decirle que me busque los datos en la tabla "Productos" ya que el formulario en el que estoy es de la tabla "Tickets"

ya que el formulario en el que estoy es de la tabla "Tickets"... Perdona, pero no sé interpretar eso que dices... Para que te busque en la tabla "Productos" tendrás que abrir el recordset (que yo llamo "rs") con esa tabla precisamente: "Select * From Productos"... Pero no creas que es fácil orientarte si no sé siquiera si estás usando VB 6.0 o VBA...

jacintomilla · #5 (**permalink**) 28-05-2008, 10:36:42

Hola de nuevo
Ya lo he conseguido. Lo he hecho de la forma siguiente

txtCódigoA = DLookup("[CódigoBarras]", "Productos", "[CódigoBarras]='" & auxiliar & "'")
txtProductoA = DLookup("[Nombre Producto]", "Productos", "[CódigoBarras]='" & auxiliar & "'")
txtPrecioA = DLookup("[Precio Venta]", "Productos", "[CódigoBarras]='" & auxiliar & "'")
Gracias de todas formas por estar ahi
Un saludo
Jacinto