Mi problema es como puedo programar un botón de comando para que me busque
los registros de una tabla.
Se puede hace que busque en registros distintos, dependiendo del que quieras
buscar en ese momento ?????, por ejemplo unas veces se buscaría por nombre y
otras por domicilio o el nif, pero que todo sea con el mismo botón (por ej.
"buscar")
Como presento los datos encontrados en otro formulario distinto para después
poder imprimirlo.
Saludos,
Víctor
Para entendernos. La base de datos tiene, por ejemplo, un campo nombre, un
campo nif y un campo domicilio. Cuando uses el botón buscar tendrás que dar
algún dato sobre si lo que quieres buscar es un nombre, un nif o un
domicilio. En este caso (y si los campos no son muchos) yo pondría un
Inputbox que solicitara si el criterio de búsqueda será un nif, un nobre o
un domicilio y, en relación a la contestación del usuario en ese inputbox
haría la búsqueda en relación al campo solicitado:
Dim Vbuscar as string (variable)
Vbuscar= Inputbox ("Introduzca uno de los siguientes criterios de búsqueda"
& Vbcrlf & "- Nombre" & Vbcrlf & "- Nif" & Vbcrlf & "- Domicilio",
"Búsqueda", , 2500, 2500)
If Vbuscar="Nombre" then
Código para buscar por nombre
Else
If Vbuscar="Nif" then
Código para buscar por Nif
Else
If Vbuscar="Domicilio" then
Código para buscar por domicilio
End if
End if
End if
Otra solución es hacer otro formulario pequeñajo que salte al pulsar el
botón buscar y solicite mediante, por ejemplo un frame con option button, el
criterio de búsqueda (un option para nombre, otro para nif y otro para
domicilio) y, según el que esté seleccionado, hagas la búsqueda...
No sé hay mil formas. Y respecto a presentar los datos, pues hay otras mil
formas. Puedes usar Crystal Report o bien otro formulario con un listbox o
algo por el estilo donde se refleje la búsqueda.
Sé que las soluciones que te doy son un poco radicales, pero es lo único que
de momento se me ocurre ya que me dedico a esto por hobbie. A ver si algún
lumbreras de los que hay por el grupo (que algunos son auténticas máquinas
de programar), te puede dar alguna solución un poco más digna.
Salu2 de Marta.
Dim ctlPrevious As Control
Set ctlPrevious = Screen.PreviousControl
If ctlPrevious.Name = "NIF" Then.... etc...