Anónimo
Ayuda con la implementación de formulario en base de datos access
Apreciados "dioses" del conocimiento:
Necesaria disponer de una solución simple, que quizás alguien podría ofrecerme sin demasiado esfuerzo. Os prometo que llevo algunos días buscando en este foro y con el Sr. Google, pero son soluciones más complejas que no soy capaz de adaptar y al tiempo que a menudo exceden de mis necesidades.
Mi cuestión es que utilizo un formulario hecho en access 2007 y unode sus campos es la identificación del asunto. Mi necesidad es que quisiera hacer doble clic en ese campo y que me pidiera un numero de registro y, al hacer intro, lo buscara y mostrara.
Si es necesario no tengo inconveniente en enviar la mbd. Todo sea por procurarme una herramienta para mi trabajo que me permita controlar los temas (los rácanos de los jefes no invierten en nada).
Un saludo a tod@s
Necesaria disponer de una solución simple, que quizás alguien podría ofrecerme sin demasiado esfuerzo. Os prometo que llevo algunos días buscando en este foro y con el Sr. Google, pero son soluciones más complejas que no soy capaz de adaptar y al tiempo que a menudo exceden de mis necesidades.
Mi cuestión es que utilizo un formulario hecho en access 2007 y unode sus campos es la identificación del asunto. Mi necesidad es que quisiera hacer doble clic en ese campo y que me pidiera un numero de registro y, al hacer intro, lo buscara y mostrara.
Si es necesario no tengo inconveniente en enviar la mbd. Todo sea por procurarme una herramienta para mi trabajo que me permita controlar los temas (los rácanos de los jefes no invierten en nada).
Un saludo a tod@s
1 respuesta
Respuesta de xavi -ae soft-
1
Yo utilizaría un InputBox para pedir el número y después, mediante marcadores, me posicionaría en el registro en cuestión.
En el evento doble-clic del control
Dim respuesta as Variant
respuesta = InputBox("Introduce el número a buscar")
If respuesta = "" Then
' el usuario ha pulsado Cancelar
Exit Sub
End If
Dim lngBusqueda As Long ' por si el número fuera muuuuy grande
lngBusqueda = CLng(respuesta)
Dim rst As DAO.Recordset
Set rst = Me.RecordsetClone
rst.FindFirst "NumeroRegistro=" & lngBusqueda
If rst.NoMatch Then
MsgBox "Número no encontrado.", vbCritical, "AVISO"
Else
Me.Bookmark = rst.Bookmark
End If
rst.Close
Set rst = Nothing
Escrito del tirón
PD: diles a tus jefes que se estiren un poco, que de algo tenemos que vivir los programadores ;-)
En el evento doble-clic del control
Dim respuesta as Variant
respuesta = InputBox("Introduce el número a buscar")
If respuesta = "" Then
' el usuario ha pulsado Cancelar
Exit Sub
End If
Dim lngBusqueda As Long ' por si el número fuera muuuuy grande
lngBusqueda = CLng(respuesta)
Dim rst As DAO.Recordset
Set rst = Me.RecordsetClone
rst.FindFirst "NumeroRegistro=" & lngBusqueda
If rst.NoMatch Then
MsgBox "Número no encontrado.", vbCritical, "AVISO"
Else
Me.Bookmark = rst.Bookmark
End If
rst.Close
Set rst = Nothing
Escrito del tirón
PD: diles a tus jefes que se estiren un poco, que de algo tenemos que vivir los programadores ;-)
Muchas gracias llodax. Me pongo a trabajar con tus indicaciones.
En cuanto a tu PD, pues ya me gustaría, ya, pero son jefes muy rígidos y de difícil acceso. Estoy seguro que los "conoces". Se trata de la nostra administració pública. Casi na!
Un cordial saludo, maco.
En cuanto a tu PD, pues ya me gustaría, ya, pero son jefes muy rígidos y de difícil acceso. Estoy seguro que los "conoces". Se trata de la nostra administració pública. Casi na!
Un cordial saludo, maco.