14/11/2005, 21:41
|
| | | Fecha de Ingreso: noviembre-2005
Mensajes: 36
Antigüedad: 19 años, 5 meses Puntos: 0 | |
| aqui esta el código, gracias
Dim db As Database
Private Sub Combo1_Click()
Set Data1.Recordset = db.OpenRecordset("SELECT * FROM Juguete WHERE campo LIKE '" & Combo1 & "'") <---- Aqui marca el error
End Sub
Private Sub Command1_Click()
perrita.Show
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Activate()
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
Combo1.AddItem Data1.Recordset.Fields("descripcion")
Data1.Recordset.MoveNext
Loop
End Sub
Private Sub Form_Load()
Set db = OpenDatabase(App.Path & "Jugueteria.mdb")
End Sub |