06 Codigos de Programación Access Filtros e Imagenes

Antes de comenzar este nuevo diseño,
guarda tu base de datos en una

carpeta aparte de todo archivo. En ella
crea una carpeta que la llamaras
Imágenes. (sin tilde)
Un filtro es una herramienta para facilitar la búsqueda de datos de un registro específico. Con ella seleccionaras las
características del registro, o grupos de registros, que quieres observar.
Ejemplo:
Segundo: das clic en el

filtro que trae como
herramienta Access.
Primero das clic en la Tercero: seleccionas

casilla que deseas filtrar únicamente la casilla 10,
en este caso buscaremos quitándole el visto a todos
los registros del grado 10 los otros grados.
DE ESTA MANERA SOLO

TENDRÁS ACCESO A LOS
REGISTROS
PERTENECIENTES AL
GRADO 10.
PARA desarrollar un botón en el mismo formulario que haga esta tarea aplicaremos un poco de código:
TERCERO: en la pestaña
Eventos, elige la opción al
hacer clic y seleccionas
[Procedimiento de evento]
PRIMERO: Crea un botón en
el formulario, el cual
aparecerá con un nombre ya
preestablecido en este caso
“Comando16”
SEGUNDO: En hoja de
propiedades, pestaña otras,
sección nombre, cámbialo a
FILTRO.
PROGRAMACIÓN NIVEL I VISUAL BASIC PARA BASES DE DATOS. FILTROS Y CUADRO DE IMÁGENES. PÁGINA 1
Te aparecerá la hoja de trabajo de visual basic, en este
espacio escribirás este código:
Por ultimo guardas y cierras, Dim ctrl As control

para volver al formulario On Error GoTo Filtro_Click_Error
Access. Set ctrl = Screen.PreviousControl
ctrl.SetFocus
DoCmd.RunCommand acCmdFilterMenu
On Error GoTo 0
Exit Sub
Filtro_Click_Error:
Aquí cree un mensaje usando el comando MSGBOX ya
estudiado, pero que sea tipo vbCritical
Con este botón ya puedes dar filtro de búsqueda sobre cualquiera de los cuadros de texto del formulario de forma
más ágil. RECUERDA QUE NECESITAS PONERLE UN ICONO A ESTE BOTÓN.
EL PROCESO ES EL MISMO QUE CON EL FILTRO DE ACCESS CLIC EN EL TEXTO A FILTRAR Y LUEGO HACES CLIC EN EL
BOTÓN QUE CREASTE.
PRÁCTICA CREANDO FILTROS

EN TU FORMULARIO:
Previamente ya habíamos Abrimos la tabla en
creado un campo llamado Vista Diseño y
foto que es de tipo DATOS creamos un campo
ADJUNTOS esto para tipo texto llamado
enseñarte las dos formas. IMAGEN.
Insertas un cuadro de
Imagen y si te sale
una ventana para
seleccionar una Este es el nombre del
imagen la cierras, cuadro de imagen,
necesitamos ese acuérdate de él. En tu
cuadro de imagen en computador aparecerá
blanco. diferente.
En Hoja de
propiedades/pestaña
datos/origen del
control = IMAGEN
Sacamos las propiedades del formulario. Nos vamos

a la pestaña Otras->Ciclo, y situamos su valor en
“Registro activo”.
¿Por qué hacemos esto?

Porque nos interesa ver los resultados tras escribir
el nombre de la imagen. Al ser el último campo, si le
diéramos a ENTER o tabulación el formulario nos
llevaría a un nuevo registro. Al situar el ciclo en
“registro activo” conseguimos que la tabulación se
mueva dentro de los campos del mismo registro.
Con el ratón arrastra el campo
IMAGEN hasta el informe.
Copia el siguiente código. (LO QUE ESTÁ

EN VERDE NO, ESAS SON EXPLICACIONES)
Recuerdas que al principio del módulo de
dijimos que guardaras tu base de datos
en una carpeta aparte de todo y que en
ella crearas una carpeta llamada
IMÁGENES.
miRuta es una variable es un nombre

que colocamos para no decir un mismo
código cada rato, es como si dijéramos
TNT en vez de trinitrotolueno.
vNom es otra variable y ella va a
contener lo que escribas en el campo
IMAGEN.
Application.CurrentProject.Path
es un código que escribe la ubicación de la
carpeta en la que guardaste tu base de
datos.
Pues bien, este código te permitirá llevar

tu base de datos a cualquier computador,
siempre y cuando la lleves en la misma
carpeta, y la carpeta donde tienes tus
fotos la llames Imágenes.
Si cambias el nombre de la
carpeta Imágenes, tienes que
cambiarla en el código también.
Dim vNom As Variant
vNom = Me.IMAGEN.Value
'Si no hay valor en el campo nombre no asigna ninguna
‘imagen al cuadro de imagen
If IsNull(vNom) Then
Me.Imagen21.Picture = ""
Else
'Si hay valor, asigna el valor al cuadro de imagen
Dim miRuta As String
miRuta = Application.CurrentProject.Path & "\Imagenes\"
& vNom
Me.Imagen21.Picture = miRuta
End If
RECUERDE QUE LAS LÍNEAS DE VERDE NO SE ESCRIBEN
SON EXPLICACIONES.
DOS COSAS IMPORTANTES: Imagen 21 es el nombre del cuadro de imagen que usted creo;
IMAGEN es el campo que viene directamente de la tabla estudiantes.
Y que cada vez que usted quiere escribir un código para un campo debe utilizar el sufijo Me. Por ejemplo
Me.IMAGEN
Con el campo FOTO (que lo creaste como tipo Datos Adjuntos) simplemente es dar doble clic y listo:
Pero esta imagen se vincula directamente a

tu base de datos, la vuelve más robusta y
cuando manejas muchos registros se vuelve
lenta para las búsquedas, consultas y filtros.
En cambio con el código VBA solo escribes

una dirección dejando espacio para muchos
más registros.
Este tipo de imágenes se recomiendan en

bases de datos pequeñas, una ventaja seria
que puedes guardar muchas imágenes de un
mismo registro.
Recuerda que debes jugar con las

propiedades de formato del campo
IMAGEN a fin que calibres bien cómo se
va a ver.

06 Codigos de Programación Access Filtros e Imagenes

Cargado por

Copyright:

Formatos disponibles

06 Codigos de Programación Access Filtros e Imagenes

Cargado por

Información del documento

Descripción original:

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

06 Codigos de Programación Access Filtros e Imagenes

Cargado por

Copyright:

Formatos disponibles

Antes de comenzar este nuevo diseño,

guarda tu base de datos en una

Segundo: das clic en el

Primero das clic en la Tercero: seleccionas

DE ESTA MANERA SOLO

Por ultimo guardas y cierras, Dim ctrl As control

PRÁCTICA CREANDO FILTROS

Sacamos las propiedades del formulario. Nos vamos

¿Por qué hacemos esto?

Copia el siguiente código. (LO QUE ESTÁ

miRuta es una variable es un nombre

Pues bien, este código te permitirá llevar

Pero esta imagen se vincula directamente a

En cambio con el código VBA solo escribes

Este tipo de imágenes se recomiendan en

Recuerda que debes jugar con las

También podría gustarte