Buscar y sonido al pulsar
Me gustaría si es posible tu ayuda a solucionar lo siguiente:
Cómo puedo hacer para que al introducir un dato en un textbox me busque éste en una tabla para ver si existe y en caso de que exista me muestre todos los campos asociados.
Y cómo puedo hacer para que al introducir datos en un textbox suene como el cliqueo de una máquina de escribir y cuando termine al pulsar enter (o una tecla específica) me muestre un msgbox.
Cómo puedo hacer para que al introducir un dato en un textbox me busque éste en una tabla para ver si existe y en caso de que exista me muestre todos los campos asociados.
Y cómo puedo hacer para que al introducir datos en un textbox suene como el cliqueo de una máquina de escribir y cuando termine al pulsar enter (o una tecla específica) me muestre un msgbox.
Respuesta de juanito01
1
Tu tecleas en un textbox y existe un evento onkeypress que detecta este tecleado. Pues bien: Te muestro un ejemplo del evento
Private Sub Texto0_KeyPress(KeyAscii As Integer)
Dim base As Database
Dim rst As Recordset
Dim sCadena As String
'(Hemos pulsado enter)
If KeyAscii = 13 Then
Set base = CurrentDb
Set rst = base.OpenRecordset("select * from tabla1 where codigo='" & Texto0.Text & "'")
If rst.RecordCount > 0 Then
sCadena = ""
rst.MoveFirst
While Not rst.EOF
sCadena = sCadena & "Campo 0: " & rst.Fields(0) & vbCrLf
rst.MoveNext
Wend
MsgBox sCadena
End If
rst.Close
Set rst = Nothing
base.Close
Set base = Nothing
Else
Beep
End If
End If
End Sub
Y así funcionará.
Por otro lado, lo del cliqueo de máquina de escribir no tengo ni idea, pero deberás aplicar lo mismo que te he escrito antes, el else del if hace un beep (muestra un sonido), lo que pasa es que no es una máquina de escribir. Todo depende de la configuración de tu máquina.
Suerte y saludos!
Private Sub Texto0_KeyPress(KeyAscii As Integer)
Dim base As Database
Dim rst As Recordset
Dim sCadena As String
'(Hemos pulsado enter)
If KeyAscii = 13 Then
Set base = CurrentDb
Set rst = base.OpenRecordset("select * from tabla1 where codigo='" & Texto0.Text & "'")
If rst.RecordCount > 0 Then
sCadena = ""
rst.MoveFirst
While Not rst.EOF
sCadena = sCadena & "Campo 0: " & rst.Fields(0) & vbCrLf
rst.MoveNext
Wend
MsgBox sCadena
End If
rst.Close
Set rst = Nothing
base.Close
Set base = Nothing
Else
Beep
End If
End If
End Sub
Y así funcionará.
Por otro lado, lo del cliqueo de máquina de escribir no tengo ni idea, pero deberás aplicar lo mismo que te he escrito antes, el else del if hace un beep (muestra un sonido), lo que pasa es que no es una máquina de escribir. Todo depende de la configuración de tu máquina.
Suerte y saludos!
