Buho con lo que me dices no me termina de funcionar del
todo. Dije que quería ejecutar una macro pero en realidad
es otro código.El código me funicona perfectamente si lo
coloco en al hacer click en un botón buscar.
La primera vez que pulso enter no me muestra registros de
lo que pongo, pero a la segunda vez me muestra los
registros que puse la primera vez.
Es esto exactamente lo que puse:
Private Sub cuadro_peli_busqueda_KeyDown(KeyCode As
Integer, Shift As Integer)
If KeyCode = 13 Then
Dim aux As String
Dim aux1 As String
aux = combo_peli_busqueda
aux1 = "Ver_datos_pelis"
If aux = "Título" Then
aux = "buscar_pelis_titulo"
DoCmd.OpenForm aux1, , aux
ElseIf aux = "Tag" Then
aux = "buscar_pelis_tag"
DoCmd.OpenForm aux1, , aux
ElseIf aux = "Año" Then
aux = "buscar_pelis_año"
DoCmd.OpenForm aux1, , aux
End If
End If
End Sub
-----Mensaje original-----
Hola.
Respondiendo literalmente a tu pregunta, bastaría
colocar este codigo en el
evento «al bajar una tecla»
Private Sub CampoTxt_KeyDown(KeyCode As Integer, Shift
As Integer)
If KeyCode = 13 Then
DoCmd.RunMacro "NombreMacro"
End If
End Sub
....donde se entiende que CampoTxt es el control campo
de texto que existe en
tu fomulario y sobre el cual deseas captar la pulsacion
de Enter.
--
Saludos desde Valladolid
Francisco Javier García Aguado
---
http://www.buho.tk
[http://www.clikear.com/webs/accessbhuo/index.html]
http://groups.msn.com/Access2000VisualBasic/
=======================================
Web de Access de Juan M Afan de Ribera
http://www.juanmafan.tk
=======================================
Resulta que me interesaría que al pulsar enter sobre un
cuadro de texto del cual introduzco texto se ejecute una
macro.
¿De qué manera podría hacerlo?
Muchas gracias
.