Código:
Private Sub Combo1_Click()
Set Data1.Recordset = db.OpenRecordset("SELECT * FROM Juguete WHERE campo LIKE '" & Combo1 & "'") '<-- Aqui marca el error
End Sub
Bien, es mas facil de lo que crees. El error esta en la palabra
campo, esta la tenes que sustituir por el nombre del campo que vas a comparar, es decir que si el campo con el que queres comparar el Combo se llama
nombre, tenes que poner esto:
Código:
Private Sub Combo1_Click()
Set Data1.Recordset = db.OpenRecordset("SELECT * FROM Juguete WHERE nombre LIKE '" & Combo1 & "'")
End Sub
Esta demas mencionar que el campo "nombre" tiene que estar en la tabla "Jugete".
Otra cosa:
cambia esta linea:
Código:
Set db = OpenDatabase(App.Path & "Jugueteria.mdb")
por:
Código:
Set db = OpenDatabase(App.Path & "\Jugueteria.mdb")
Tenes que agregar la barra invertida (
\) ¿Porque?, porque
App.Path devuelve el directorio del proyecto, es decir que si tu proyecto esta guardado en C:\VB; App.Path devolvera la siguiente cadena: "C:\VB" y si lo concatenas con "Jugeteria.mdb", el resultado seria: "
C:\VBJugeteria.mdb", este archivo (
VBJugeteria.mdb) evidentemente no existe. Ahora bien, si concatenas App.Path con "
\Jugeteria.mdb", el resultado seria:
"C:\VB\Jugeteria.mdb" ¿Ves la diferencia?.