Trucs de Microsoft per a Access 97, 2000, XP i 2003
Access en el web
Aquests truc els he recollit de diverses fons i pàgines, visitant la pàgina d'Access de Microsoft, que jo sàpiga son de domini públic, també s'afegeix l'origen, data, versió i autor, si son disponibles.

Els trucs de les pàgines de Microsoft van variant amb el temps aquí tens aquesta selecció, s'han provat des la versió 97 i si no s'indica el contrari serveixen per a totes les versions.


 

Relació de preguntes i respostes:
Imprimir un borde alrededor de tu informe Access 97, 2000 y XP
Cómo modificar el valor inicial de un campo autonumérico
Como hacer los cuadros de lista más rápidos
Como crear una clave primaria multi-campos
Cómo crear tu propia barra de progreso
Como crear Numeración correlativa sin autonumérico

 


Imprimir un recuadre al voltant del teu informe Access

Gracies a aquesta tècnica VB pots aconseguri imprimir un recuadre al voltant d'un informe. Simplement afageix el sigüent codi a la pàgina d'events en l'informe:

Private Sub Report_Page()

Me.Line (0, 0) - (Me.ScaleWidth, Me.ScaleHeight), , B

End Sub


 

 

 
Com modificar el valor inicial d'un camp autonuméric

Si vols que un camp designat com autonuméric s'inicií en un número diferent a 1, aquesta es la manera d'aconseguir-ho:

Crea la primera taula que contenga el campo de tipo contador con el número en el que quieres que inicie la numeración.

No añadas ningún registro.

Crea una segunda tabla con un único campo de tipo numérico de entero largo con el mismo nombre que el campo contador de la otra tabla.

Crea un registro en la segunda tabla ingresando un número uno menos que el número con el que deseas iniciar el contador de la primera tabla.

Crea una consulta de tipo "append" para añadir el único registro en la segunda tabla para la primera ficha.


 

Como hacer los cuadros de lista más rápidos

Los cuadros de lista desplegable (combo boxes) pueden volverse muy ineficientes cuando grandes cantidades de registros deben ser procesados. La mejor cosa que se puede hacer al respecto es restringir los resultados de la consulta.

Una buena idea es también el colocar un cuadro de texto encima del cuadro de lista, con la idea de que el usuario comience a escribir su búsqueda:

Sub cbo_Enter()

cbo.RowSource="select id, desc from tbl where desc like '" & txtTextBox & "'"

End Sub


 

Como crear una clave primaria multi-campos

La clave principal identifica de forma única a cada registro de una tabla (un buen ejemplo de este tipo de datos podría ser el número de seguridad social de una persona, el cuál es único). Para crear rápidamente una clave principal multi-campos:

En la tabla de datos, pasa a la vista de Diseño (Ver->VISTA DISEÑO).

Manteniendo presionada la tecla CTRL, selecciona todos los campos que serán designados como clave principal.

Utiliza el comando Edición->CLAVE PRINCIPAL

De ahora en adelante, Access 2000 verificará la integridad de tu información y evitará duplicidades.


Cómo crear tu propia barra de progreso

En tu formulario quizás tengas la necesidad de crear un medidor de progreso gráfico, separado de la barra de estado que puedes llamar usando la función "SysCmd" en Access 2000. Una barra de progreso puede ser creada usando dos controles de etiqueta (labels), directamente encima uno de otro sobre el formulario. Aquí está el procedimiento:

Crea un control "label", con estilo "sunken" (llamaremos a esto "lblbase", y establece el color de fondo a transparente, y el color principal a negro.
Crea un control de etiqueta, con un ancho (width) de 0.00, idéntico alto (height) a la baselbl (al cuál de ahora en adelante llamaremos lblmeter); alinea el lblmeter exactamente con el borde izquierdo del control, y envíalo al fondo (detrás de lblbase). Designa sus bordes como transparentes.

Para actualizar el medidor de progreso inserta el siguiente código en el módulo del formulario, y utiliza un evento "Timer" para crear las llamadas en el código del bucle:

Sub updatemtr (currentamt, totalamount)
' This function changes the color based on progress.
' You set the back color of lblmeter to be a single color if desired.

Dim MtrPercent as Single
MtrPercent = currentamt/totalamount
Me!lblbase.Caption = Int(MtrPercent*100) & "%"
Me!lblmeter.Width = CLng(Me!lblbase.Width * MtrPercent)

Select Case MtrPercent

Case Is < .33

Me!lblmeter.BackColor = 255 'red

Case Is < .66

Me!lblmeter.BackColor = 65535 'yellow

Case Else

Me!lblmeter.BackColor = 65280 'green

End Select

End Sub


Podemos hacerlo también de esta otra forma

Como crear Numeración correlativa sin autonumérico

if me.codigocliente < 1 then

me.codigocliente=DMax("codigocliente","Nombretabla")+1

end if