MS Access 2003: cambie el orden de las pestañas en un formulario usando el código VBA

Los datos expuestos en este blog, son solo de índole informativo. Por favor realiza siempre una copia de seguridad antes de realizar cualquier cambio en tu proyecto.

MS Access 2003: cambie el orden de las pestañas en un formulario usando el código VBA

Este tutorial de MSAccess muestra cómo cambiar el orden de tabulación de los controles en un formulario utilizando código VBA en Access 2003 (con capturas de pantalla e instrucciones paso a paso).

Pregunta: En Microsoft Access 2003/XP/2000/97, me gustaría poder cambiar el orden de tabulación en un formulario usando código VBA. ¿Cómo puedo hacer esto?

Respuesta: Creamos una base de datos de Access de muestra que puede descargar para demostrar cómo cambiar el orden de tabulación en un formulario.

Descargar versión en Access 2000

Veamos este ejemplo. A continuación, tenemos un formulario donde el usuario puede cambiar el orden de las pestañas seleccionando un botón de opción.

Si el usuario selecciona “Ordenar etiquetas hacia abajo y luego a través” botones de opción, etiquetados en el siguiente orden: ID del proveedor, nombre de la empresa, nombre del contacto, título del contacto, teléfono, fax y página de inicio.

Si el usuario selecciona “Ordenar etiquetas, luego ordenar hacia abajo“, el orden de tabulación es el siguiente: Id. de proveedor, Teléfono, Nombre de la empresa, Fax, Nombre del contacto, Página de inicio y Título del contacto.

Este reordenamiento de pestañas se realiza mediante el siguiente código:

Private Sub frameTabOrder_Click()

   'Order tabs down and then across was chosen
   If frameTabOrder.Value = 1 Then
      [SupplierID].TabIndex = 0
      [CompanyName].TabIndex = 1
      [ContactName].TabIndex = 2
      [ContactTitle].TabIndex = 3
      [Phone].TabIndex = 4
      [Fax].TabIndex = 5
      [HomePage].TabIndex = 6

   'Order tabs across and then down was chosen
   Else
      [SupplierID].TabIndex = 0
      [Phone].TabIndex = 1
      [CompanyName].TabIndex = 2
      [Fax].TabIndex = 3
      [ContactName].TabIndex = 4
      [HomePage].TabIndex = 5
      [ContactTitle].TabIndex = 6

   End If

End Sub
(Visited 4 times, 1 visits today)