Aplicacionespara visual baisic

Solo disponible en BuenasTareas
  • Páginas : 5 (1155 palabras )
  • Descarga(s) : 0
  • Publicado : 18 de septiembre de 2010
Leer documento completo
Vista previa del texto
Guía Teórica-Practica de Consultas en VBA
II Bachillerato en Computación.

En ocasiones anteriores hemos diseñado y programado formularios que den de alta registros en una tabla, esta vez haremos una consulta para que el operador de nuestra aplicación pueda tener a mano cualquier información referente a determinado dato de nuestro sistema de información.
Para ello tomaremos de ejemplo unaplanilla de empleados almacenada en una tabla de Microsoft Excel 2007, los campos de dicha tabla son id_emple, nombre, dirección, teléfono, profesión, depto., sueldo. La planilla podría verse mas o menos como la de la siguiente imagen.

Inversiones en Comercializacion Agricola |
INCA |
Santa Rosa Copan, salida a Ocotepeque |
| | | | | | |
Id_Emple | Nombre | Direccion | telefono |Profesion | depto | Sueldo |
| | | | | | |
E-0001 | Edwin Javier Bautista | Trascerros, N.F. | 9985-9063 | Contador | Ventas | 5500 |
E-0002 | Edwin Andre Bautista | Trascerros, N.F. | 9985-9063 | Programador | Sistema | 11000 |
E-0003 | Jose Armando Reyes | Santa Rosa Copan | 9825-8758 | Administrador | Admon | 8000 |
E-0004 | Mauricio Gonzales | La Entrada Copan | 8598-5875 |Programador | Sistema | 12000 |
E-0005 | Scarleth Vanassa Reyes | Santa Rosa Copan | 5487-5875 | Contadora | Ventas | 5500 |

Según el ejemplo solamente existen 5 empleados en la tabla pero podrían existir muchos mas, la idea básica es que con nuestra consulta al ingresar cualquier dato de cualquier empleado el cursor automáticamente pasara a todas las celdas que coincidan con el valor que seesta buscando.
Ahora que ya tenemos la tabla el paso siguiente es entrar a Visual Basic de Excel presionando la combinación de teclas Alt + F11, una vez dentro comenzaremos a diseñar nuestra consulta tratando que quede asi mas o menos.


Ahora que ya hemos terminado de diseñar nuestra consulta comenzaremos a programar cada uno de los elementos, para ello antes debo aclararles que el botónconsultar lo usaremos para buscar el valor que se ingrese, el botón consultar + lo utilizaremos para consultar un nuevo registro (Vaciar el textbox) y el botón cerrar lógicamente lo usaremos para cerrar la Consulta.
Vamos a pensar que comenzamos a diseñar nuestra tabla apartir de la celda b6, en ese caso tendríamos que dejar una fila en blanco tal y como se muestra en la primera imagen, basados eneso entonces la fila que quedaría en blanco para ser utilizada como variable seria la celda b7.

Hacemos doble click sobre el textbox e ingresamos el siguiente código entre el prívate sub y endsub:

Range("b7").Select
ActiveCell.FormulaR1C1 = TextBox1

Ahora haremos doble click en el botón Consultar recordando que el evento de ese botón es el que se desplazara por toda la hoja en busca deldato ingresado en el textbox, para ello ingresaremos el siguiente código entre el prívate sub y endsub:

Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate

Una vez que hemos programado el botón de consulta pueden testear y checar si en efecto tiene la capacidad debuscar en la tabla cualquier dato ingresado en el textbox.

Para seguir con la programación de nuestra consulta ahora vamos a programar el botón Buscar + recordando que este botón lo que hara es vacear el textbox para poder buscar un nuevo valor.
Para ello ubicaremos el siguiente código entre el prívate sub y endsub
TextBox1 = Empty
TextBox1.SetFocus

Vuelvan a probar la consulta para vercomo va funcionando, en seguida programaremos el botón cerrar que lo que hará es cerrar el formulario para ya no consultar mas datos tomando en cuenta que antes de salir debe vaciar la celda b7 ya que la estábamos utilizando como variable. Para ello solamente debemos escribir entre el prívate sub y endsub el siguiente comando:
Range(“b7”).select
Activecell.formular1c1=””
End

La consulta...
tracking img