Continuando con el redimensionamiento de subformularios

Este ejemplo, más sencillo que el anterior, permite ver de una forma fácil sencilla como redimensionar un subformulario dentro de un formulario. Basta con incluir en el evento ‘Al cambiar tamaño‘ el siguiente código:

Private Sub Form_Resize()
Me.sfrmSales.Height = Me.InsideHeight - (Me.sfrmSales.Top + 100)
Me.sfrmSales.Width = Me.InsideWidth - (Me.sfrmSales.Left + 200)
End Sub

Descargar: Access 97

Fuente: Duane Hookom

Redimensionar subformularios

El siguiente ejemplo simula algunos aspectos de un explorador web en Access, pero por lo que expongo aquí este ejemplo es por el tratamiento que hace de los subformularios, adaptándolos a la resolución de la pantalla.

Descargar: Access 2000

Fuente: Danny Lesandrini

Utilizando el control MS Flex Grid

El siguiente ejemplo muestra como utilizar el control MSFLXGRD.OCX para mostrar los datos de nuestra aplicación de una forma mucho más ‘rica‘ que el típico subformulario. Así de pueden mostrar imágenes, colorear celdas, filas, etc.

Descargar: Access 2000

Fuente: Peter Hibbs

Señalar el borde de un control

La siguiente función colorea el borde de un text box, un list box o un combobox. La función permite activar o desactivar el marcado del borde del control, así como seleccionar el color dependiendo del grado de necesidad de que dicho control contenga datos.

Se puede utilizar tanto en código, de la siguiente forma:
x = BorderHighlightField(Me.txtOne, True)
x = BorderHighlightField(Me.txtOne, True, “Alert”)

O en un evento del control:
=BorderHighlightField(Forms!BorderHighlightExample_frm!txtName,True)

Function BorderHighlightField(ctlIn As Control, fOnOff As Boolean, Optional strPurpose As String) As Boolean
On Error GoTo MyErr
Dim lngColor As Long
Dim bOK As Boolean
bOK = False
Const kIntSunken As Long = 2
Select Case strPurpose
Case "Alert"
lngColor = RGB(196, 6, 39) 'Red
Case "Attention"
lngColor = RGB(255, 140, 0) 'Orange
Case Else
lngColor = RGB(80, 139, 228) 'Blue
End Select
If fOnOff = True Then 'make the control border highlighted
ctlIn.SpecialEffect = 0
ctlIn.BorderStyle = 1
ctlIn.BorderWidth = 2
ctlIn.BorderColor = lngColor
Else
ctlIn.BorderStyle = 0
ctlIn.SpecialEffect = kIntSunken 'could use another style, e.g. flat
End If
bOK = True
MyExit:
On Error Resume Next
BorderHighlightField = bOK
Exit Function
MyErr:
Resume MyExit
End Function

Descargar: Access 2000

Fuente: David Plaut

Etiqueta parpadeante

El siguiente código muestra como hacer que una etiqueta de un formulario parpadé (aparezca y desaparezca), o que cambie el color. Para ello hay que establecer la propiedad Intervalo de cronometro al tiempo (en milisegundos) que creas conveniente.

En el evento Timer del formulario:

Private Sub Form_Timer()
Me!etiqueta.Visible = Not Me!etiqueta.Visible
End Sub

Si lo que quieres es que cambie de color, puedes utilizar este otro código:

Private Sub Form_Timer()
If Me!MiEtiqueta.ForeColor <> vbBlack Then
Me!MiEtiqueta.ForeColor = vbBlack
Else
Me!MiEtiqueta.ForeColor = vbRed
End If
End Sub

Fuente: Access de Xavi

Proteger la base de datos

El siguiente ejemplo, creado por Tavo, es el que utilizo para proteger las back-ends en las que contengo los datos de mis aplicaciones. En el caso de no proteger la base con contraseña lo que hago es ocultar las tablas, desactivar el shift, y ocultar todas las barras de herramientas al abrir la base de datos.
La seguridad no es nada del otro mundo, pero sí lo suficiente para que algún usuario curioso pueda fastidiar los datos.

 

Descargar: Access 2000

Fuente: Tavo

Colorear subformulario con formato hoja de datos

El siguiente ejemplo muestra como colorear los registros de un subformlario que se muestra en formato ‘hoja de datos’, dependiento de las condiciones previas que se han marcado.

Descargar: Access 2000

Fuente: Roger's Access Library