Access - Encabezado de formularios

 
Vista:

Encabezado de formularios

Publicado por Adrián (17 intervenciones) el 02/02/2009 13:00:45
Hola, mi pregunta es si alguien sabe como hacer que presionando los botones existentes en los encabezados de los formularios se ordenen todos los registros ascendente o descendente alternadamente segun la columna presionada, normalmente, haciendo click derecho sale la opción entre otras, pero yo quiero hacerlo haciendo click izq sin mas opciones. Desde ya muchas gracias ya que uds siempre me sacan del apuro.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Encabezado de formularios

Publicado por José (55 intervenciones) el 03/02/2009 01:45:03
Hola,
Supongo que te refieres a un formulario en forma de tabla con filas y columnas.
Posdría ser lo siguiente:

Global TriOn As Boolean 'En un Módulo separado que no sea de clase

Este procedimiento está en el módulo de clase del formulario. Es el evento click.

Private Sub LblIdniveaux_Click()
On Error GoTo HandleErr
If TriOn = True Then
Me.OrderBy = "[IDNIVEAUX] Asc" 'Nombre del campo que se quiere ordenar
Me.OrderByOn = True
Me![IDNIVEAUX].SetFocus 'Se posiciona en el campo que se ha ordenado
Else 'Según el valor de la variable TriOn
Me.OrderBy = "[IDNIVEAUX] Desc"
Me.OrderByOn = True
Me![IDNIVEAUX].SetFocus
End If
TriOn = Not TriOn 'Se cambia el valor de la variable TriOn

ExitHere:
Exit Sub
HandleErr:
MsgBox "LblIdniveaux_Click..." & Err.Number & " : " & Err.Description
Resume ExitHere
End Sub

Es una rutina que he copiado de un formulario que tengo en una aplicación. Yo tengo un módulo general en el que declaro Global TriOn As Boolean ya que no se puede declarar como global en el módulo de clase del formulario.

Un saludo

José
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Encabezado de formularios

Publicado por Adrián (17 intervenciones) el 06/02/2009 18:22:20
Perfectamte lo que necesitaba. Un millon de gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar