sobre texbox
Publicado por Ricardo (3 intervenciones) el 11/10/2002 22:51:58
tengo dos cajas de texto en la primera ingreso un tema por ejemplo aborto quiero que al hacerle doble clik con el raton se llene el campo que esta relacionado con aborto en este caso id_Tema ocupo el siguiente procedimiento:
Private Sub TxtTema_DblClick()
Command1.Value = True End Sub
Private Sub Command1_Click()
Dim busca$
Dim rstbusca As Recordset
busca = "SELECT id_Tema FROM Temas WHERE Tema = '" & TxtTema.Text & "'"
Set rstbusca = dbhemeroteca.OpenRecordset(busca, dbUseJet)
TxtidTema.Text = busca .
End Sub
pero me aparece la consulta completa en que me equivoco.
desde ya muchas gracias tambien trat de hacerlo con enter y me pasaba lo mismo
Private Sub TxtTema_DblClick()
Command1.Value = True End Sub
Private Sub Command1_Click()
Dim busca$
Dim rstbusca As Recordset
busca = "SELECT id_Tema FROM Temas WHERE Tema = '" & TxtTema.Text & "'"
Set rstbusca = dbhemeroteca.OpenRecordset(busca, dbUseJet)
TxtidTema.Text = busca .
End Sub
pero me aparece la consulta completa en que me equivoco.
desde ya muchas gracias tambien trat de hacerlo con enter y me pasaba lo mismo
Valora esta pregunta
0