ACC: Cómo manipular los códigos postales en Microsoft Access

Seleccione idioma Seleccione idioma
Id. de artículo: 163604 - Ver los productos a los que se aplica este artículo
Moderado: Requiere conocimientos de interoperabilidad, codificación y básico de las macros.

Expandir todo | Contraer todo

En esta página

Resumen

Puede manipular los códigos postales en Microsoft Access si se cambia el tipo de datos, máscara de entrada, o formato de un campo de código postal. Este artículo muestra cómo a manipular códigos postales que ya están almacenadas en una tabla y cómo dar formato a Códigos postales cuando se introduce en un formulario.

En este artículo contiene las opciones siguientes:
  • Crear la tabla PostalCodeExample usada en este artículo
  • Restauración de los ceros iniciales que faltan
  • Guardar con formato los códigos postales
  • Quitar guiones al final de códigos postales existentes
  • Insertar guiones en nueve existentes dígitos (postal + 4), los códigos postales
  • Los códigos postales de formato para su uso en informes o para su uso por medio de otros Aplicaciones
Algunas partes de este artículo se supone que está familiarizado con Visual Basic para Las aplicaciones y con la creación de aplicaciones de Microsoft Access mediante la herramientas de programación suministradas con Microsoft Access. Para obtener más información acerca de Visual Basic para Aplicaciones, consulte la versión de la Manual "Creación de aplicaciones con Microsoft Access".

Nota: se denomina Access Basic de Visual Basic para Aplicaciones en Microsoft Access versión 2.0. Para obtener más información acerca de Access Basic, consulte el manual "Creación de aplicaciones".

Más información

Crear la tabla PostalCodeExample usada en este artículo

En la tabla de ejemplo siguiente se utiliza en este artículo. Siga estos pasos para Cree la tabla:
  1. Inicie Microsoft Access y cree una nueva base de datos en blanco.
  2. Cree la siguiente tabla nueva en la vista Diseño:
           Table: PostalCodeExample
           ------------------------
           Field Name: PCode
           Data Type: Text
    						
  3. Guarde la tabla PostalCodeExample. No cree una clave principal.

Restauración de los ceros iniciales que faltan

Almacenar los códigos postales de un campo de texto en la tabla en lugar de en un número campo. Microsoft Access sigue las convenciones matemáticas estándar cuando almacenar datos numéricos, por lo que si introduce un código postal que contenga líder en la se pone a cero en un campo numérico, Microsoft Access elimina los ceros cuándo iniciales guardar los datos. Por ejemplo, si escribe 01002 en un campo numérico Microsoft Access almacena el número como 1002.

Siga estos pasos para restaurar los ceros iniciales para los códigos postales que se han almacena en un campo numérico:
  1. Abra la tabla PostalCodeExample, que acaba de crear, en la hoja de datos Permite ver y especificar los siguientes registros de código postal de cinco y nueve dígitos para el campo PCode:
          00345
          023456789
    						
  2. Cambie la tabla de PostalCodeExample a la vista Diseño.
  3. Cambie el tipo de datos del campo PCode a número y configure el tamaño del campo propiedad de entero largo.
  4. Guarde la tabla y cambie a la vista de hoja de datos. Tenga en cuenta que el interlineado se quitaron ceros.
  5. Cambie la tabla de PostalCodeExample a la vista Diseño y cambiar los datos Escriba de nuevo del campo PCode al texto para que pueda almacenar los archivos los ceros iniciales en los códigos postales. Guarde la tabla.
  6. Cree la siguiente consulta de actualización basada en la tabla PostalCodeExample.

    Nota: en este ejemplo, el carácter de subrayado (_) al final de la Actualización a la línea se utiliza como un carácter de continuación de línea. Quitar el subrayado del final de la línea cuando se crea esta consulta.
          Query Name: RestoreLeadingZeros
          Query Type: Update Query
    
          Field: PCode
          Table: PostalCodeExample
          Update To: IIf(Len([PCode])<6, Format([PCode],"00000"), _
                         Format([PCode],"000000000"))
    						
  7. Ejecute la consulta y confirme la actualización cuando se le pida. Abrir el Tabla de PostalCodeExample en la vista Hoja de datos. Tenga en cuenta que el interlineado se han restaurado ceros.

Guardar con formato los códigos postales

El Asistente para máscaras de entrada le ayuda a crear una máscara de entrada para los códigos postales almacena un guión después del quinto dígito como carácter literal. Sin embargo, cuando el guión se almacena como un carácter literal, se guarda en todos los códigos postales, Si es un código de cinco o nueve dígitos. Será de US Postal Service Acepte los códigos postales con finales guiones, pero puede desear evitar finales guiones por motivos estéticos.

Si se omite la máscara de entrada, para ahorrarse guiones al final en los 5 dígitos Códigos postales. A continuación, se puede manualmente incluir el guión cuando se escribe nueve dígitos (postal + 4) los códigos postales, o puede utilizar un formulario mediante programación Insertar el guión después de nueve dígitos (postal + 4) se escribió el código postal. En el cualquiera de los casos, también se obtiene la capacidad de introducir códigos postales externos en la tabla.

Siga estos pasos para crear un formulario mediante programación se insertará un guión cuando nueve dígitos (postal + 4) se introduce el código postal:
  1. Crear un nuevo formulario basado en la tabla de PostalCodeExample mediante la Autoformulario: Asistente en columnas para Microsoft Access 97 y 7.0, o la Asistente para autoformularios en Microsoft Access 2.0.
  2. Guarde el formulario como frmFormatZIP y, a continuación, conéctelo a la vista Diseño.
  3. En el menú Ver, haga clic en código.
  4. Escriba la línea siguiente en la sección de declaraciones de clase del formulario módulo:

    Dim mvarZip
  5. Escriba los siguientes procedimientos:
          Private Sub PCode_AfterUpdate()
             If IsEmpty(mvarZip) Then Exit Sub
             If Len(mvarZip) = 6 Then
                Screen.ActiveControl = Left(mvarZip, Len(mvarZip)-1)
             Else
                Screen.ActiveControl = Format(mvarZip, "@@@@@-@@@@")
             End If
             mvarZip = Empty
          End Sub
    
          Private Sub PCode_BeforeUpdate(Cancel As Integer)
             Dim ctlZip As Control
             Dim strTitle As String
             Dim strMsg As String
             Const cYesNoButtons = 4
             Const cNoChosen = 7
    
             mvarZip = Empty
             Set ctlZip = Screen.ActiveControl
    
             If ctlZip Like "#####-####" Or ctlZip Like "#####" Then
                Exit Sub
             ElseIf ctlZip Like "#########" Or ctlZip Like "#####-" Then
                mvarZip = ctlZip
             Else
                strTitle = "Not a ZIP Code."
                strMsg = "Save as entered?"
                If MsgBox(strMsg, cYesNoButtons, strTitle) = cNoChosen Then
                   Cancel = True
                End If
             End If
          End Sub
    						
  6. Cambie el formulario a la vista Formulario y agregue los siguientes nuevos registros para el Campo Pcode:
           01234
           987651011
           WA1 1DP
           1010
    						

    Tenga en cuenta que cuando escribe BA1 1DP y 1010, se le solicitará si usted ¿desea guardar los códigos postales tal como se indicó. Haga clic en Sí.
  7. Guardar y cerrar el formulario de frmFormatZIP y, a continuación, abra el Tabla de PostalCodeExample en la vista Hoja de datos. Tenga en cuenta que los cinco dígitos ZIP código que ha especificado no contiene un guión, código postal de nueve dígitos que se hace introducido contiene un guión y los otros dos registros que ha especificado son almacena tal como se indicó.

Quitar guiones al final de códigos postales existentes

Puede utilizar una consulta de actualización para quitar guiones al final de ZIP existente códigos. Siga estos pasos para quitar los guiones al final:
  1. Abra la tabla PostalCodeExample en la vista Hoja de datos y escriba el siguientes registros para el campo Pcode:
          12345-
          987654321
          12345-6789
    						
  2. Cree la siguiente consulta de actualización en basado en la PostalCodeExample tabla:
           Query Name: RemoveTrailingDashes
           Query Type: Update Query
    
           Field: [PCode] Like "#####-"
           Criteria: True
    
           Field: PCode
           Table: PostalCodeExample
           Update To: Left([PCode], Len([PCode])-1)
    						
  3. Ejecute la consulta y confirme la actualización cuando se le pida.
  4. Abra la tabla PostalCodeExample en la vista Hoja de datos. Tenga en cuenta que el se quitó el guión final después de 12345.

Insertar guiones en nueve existentes dígitos (postal + 4), los códigos postales

Puede utilizar una consulta de actualización para insertar guiones que faltan en el ZIP de nueve dígitos códigos. Siga estos pasos para insertar un guión en los códigos postales de nueve dígitos:
  1. Abra la tabla PostalCodeExample en la vista Hoja de datos y escriba el siguientes registros para el campo Pcode:
           12345
           987654321
           12345-6789
    						
  2. Cree la siguiente consulta de actualización basada en la tabla PostalCodeExample:
           Query Name: InsertDashes
           Query Type: Update Query
    
           Field: [PCode] Like "#########"
           Criteria: True
    
           Field: PCode
           Update To: Format([PCode],"@@@@@-@@@@")
    						
  3. Ejecute la consulta y confirme la actualización cuando se le pida.
  4. Abra la tabla PostalCodeExample en la vista Hoja de datos. Tenga en cuenta que el nueve dígitos (postal + 4) todos los códigos de ZIP contienen guiones después del quinto dígito.

Los códigos postales de formato para su uso en informes o para su uso por otras aplicaciones

Puede utilizar los códigos postales en un informe de Microsoft Access o en otra aplicación (por ejemplo, Microsoft Word) sin ninguna modificación si éstos ya se guardan en el formato que desee usar. Secciones anteriores de este artículo Demuestre cómo cambiar la forma en que se almacenan los formatos de código postal existentes en la tabla. Sin embargo, si desea dar formato a los códigos postales sin cambiar el se almacenan de forma, puede seguir estos pasos para crear temporalmente el Formato de código postal que desee utilizar.

Siga estos pasos para mostrar los códigos postales con formato en una consulta de selección:
  1. Abra la tabla PostalCodeExample en la vista Hoja de datos y escriba el siguientes registros para el campo PCode:
           54321
           12345-
           987654321
           12345-6789
    						
  2. Cree la siguiente consulta basada en la tabla PostalCodeExample.

    Nota: en este ejemplo, el carácter de subrayado (_) al final de la Línea del campo se utiliza como un carácter de continuación de línea. Quitar el subrayado del final de la línea cuando se crea esta consulta.
           Query Name: FormatZIPCodes
           Query Type: Select Query
    
           Field: Postal Code: IIf([PCode] Like "#####-", Left([PCode], _
                               Len([PCode])-1), IIf([PCode] Like _
                               "#########",Format([PCode], "@@@@@-@@@@"), _
                               [PCode]))
    						
  3. Ejecutar la consulta. Tenga en cuenta que no se muestran guiones al final y que un aparece el guión después del quinto dígito en los códigos postales de nueve dígitos. Puede utilizar Esta consulta en lugar de la tabla cuando se crea el informe o compartir los datos con otra aplicación. Seleccione pantallas de consulta los códigos postales con formato pero no se modifica código postal existente de la tabla datos.

Referencias

Para obtener más información acerca de las consultas de actualización, busque el índice de la Ayuda "consultas de actualización".

Para obtener más información acerca de la función Format(), busque el índice de la Ayuda "Format (función)" o "Format (función) $".

Para obtener más información acerca de las máscaras de entrada, busque "información de entrada en el índice de la Ayuda máscaras."

Para obtener más información acerca del uso de datos de Microsoft Access en Microsoft Word, el índice de la Ayuda de búsqueda para "Word (Microsoft)".

Propiedades

Id. de artículo: 163604 - Última revisión: miércoles, 16 de enero de 2013 - Versión: 4.0
La información de este artículo se refiere a:
  • Microsoft Access 2.0 Standard Edition
  • Microsoft Access 97 Standard Edition
Palabras clave: 
kbhowto kbusage kbmt KB163604 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 163604
Renuncia a responsabilidad de los contenidos de la KB sobre productos a los que ya no se ofrece asistencia alguna
El presente artículo se escribió para productos para los que Microsoft ya no ofrece soporte técnico. Por tanto, el presente artículo se ofrece "tal cual" y no será actualizado.

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com