ricardillo
11/10/2002, 18:36
quiero ingresar datos en una caja de texto por ej: Nombre del tema y que el id_ema aparesca en la siguiente para esto estoy usando 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
pero me aparece la consulta y no el resultadop podria decirme alguien en que estoy fallando desde ya muchas gracias .
por otro lado tambien intente usar el siguiente procedimeiento pero como no se ocupar vb no me resulto
este era para transformar en mayusculas lo que se ingresara en el textbox pero no lo pude transformar.
Private Sub Text1_KeyPress (KeyAscii As Integer)
Char = Chr(KeyAscii)
KeyAscii = Asc(UCase(Char))
End Sub
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
pero me aparece la consulta y no el resultadop podria decirme alguien en que estoy fallando desde ya muchas gracias .
por otro lado tambien intente usar el siguiente procedimeiento pero como no se ocupar vb no me resulto
este era para transformar en mayusculas lo que se ingresara en el textbox pero no lo pude transformar.
Private Sub Text1_KeyPress (KeyAscii As Integer)
Char = Chr(KeyAscii)
KeyAscii = Asc(UCase(Char))
End Sub