Cómo: Cambiar los valores en un campo de hipervínculo de una dirección HTTP a una dirección MAILTO en Microsoft Access 2000

Seleccione idioma Seleccione idioma
Id. de artículo: 323202 - Ver los productos a los que se aplica este artículo
Expandir todo | Contraer todo

En esta página

Resumen

Si escribe una dirección de correo electrónico en un campo hipervínculo, la dirección predeterminado es una dirección HTTP para el vínculo. Por tanto, si escribe alguien@example.com , lo que realmente se almacena en la base de datos es someone@example.com#http://someone@example.com#

Este es el comportamiento esperado debido a un campo hipervínculo se compone de dos partes: el texto mostrado y la dirección real. Dado que el tipo de campo es un hipervínculo, Access asume que el texto que se ha especificado será un sitio Web y no una dirección de correo electrónico.

Para cambiar esta configuración para que haga clic en el hipervínculo y enviar correo electrónico, puede utilizar el método 1 o el método 2 mencionado anteriormente. = Ambos métodos actualizan sólo los registros existentes.

Para automáticamente formato de datos que se escriben en la base de datos, puede utilizar el "cómo para almacenar un correctamente formato correo electrónico dirección automáticamente" que se menciona anteriormente.

método 1

Utilizar una consulta de actualización para cambiar la dirección HTTP a una dirección MAILTO

  1. Crear una consulta en la vista Diseño que se basa en la tabla que tiene las direcciones de correo electrónico.
  2. Incluir sólo el campo de correo electrónico de la tabla en la cuadrícula de diseño de la consulta.
  3. En el menú consulta , haga clic en Consulta de actualización . Esto agrega la fila Actualizar a la cuadrícula de diseño de consulta.
  4. En la fila Actualizar A , escriba la expresión siguiente. Reemplace [correo Field] con el nombre del campo correo electrónico:
    IIf (Left([Mail Field],8) <> "# mailto:","#mailto:" & izquierda ([campo de correo,] InStr(1,[Mail Field],"#")-1), [correo Field])
  5. En el menú archivo , haga clic en Guardar . Guarde la consulta como qryUpdateHyperlink .
  6. En el menú consulta , haga clic en Ejecutar . Tenga en cuenta que recibirá un mensaje que indica cuántas filas (registros de la tabla) se actualizarán. Haga clic en para actualizar los registros.


método 2

Utilizando Visual Basic para aplicaciones de código para cambiar la dirección HTTP a una dirección MAILTO

Nota : el ejemplo de código en este artículo se utiliza Microsoft Data Access Objects. Para que este código funcione correctamente, debe hacer referencia a la biblioteca de objetos Microsoft DAO 3.6. Para ello, haga clic en referencias en el menú Herramientas en el Editor de Visual Basic y asegúrese de que la casilla de verificación de Biblioteca de objetos Microsoft DAO 3.6 está activada.

  1. Cree un nuevo módulo y asígnele el nombre basUpdateHyperlinkToMail .
  2. Escriba o pegue el código siguiente en el módulo:
    Sub UpdateHyperlinkToMail()
    On Error GoTo Err_UpdateHyperlinkToMail
        Dim DB As DAO.Database
        Dim RS As DAO.Recordset
        Dim strMail As String
        
        Set DB = CurrentDb
        Set RS = DB.OpenRecordset("E-mail Table", dbOpenDynaset)
        
        With RS
            If .RecordCount > 0 Then .MoveFirst
            Do Until .EOF
                If Not IsNull(![Hyperlink Field]) Then
                    If Left(![Hyperlink Field], 8) <> "#mailto:" Then
                        strMail = "#mailto:" & Left(![Hyperlink Field], _
                        InStr(1, ![Hyperlink Field], "#") - 1) & "#"
                        .Edit
                            ![Hyperlink Field] = strMail
                        .Update
                    End If
                End If
                .MoveNext
            Loop
        End With
        MsgBox "Update complete!"    
    
    Exit_UpdateHyperlinkToMail:
        RS.Close
        Set RS = Nothing
        Set DB = Nothing
        Exit Sub
        
    Err_UpdateHyperlinkToMail:
        MsgBox "Error: " & Err.Number & " - " & Err.Description
        Resume Exit_UpdateHyperlinkToMail
    End Sub
    					
  3. Reemplace el texto "Tabla de correo electrónico" en el código con el nombre correcto de la tabla y reemplace todas las instancias del texto [campo de hipervínculo] con el nombre del campo que tiene las direcciones de correo electrónico.
  4. Haga clic en el puntero en algún lugar en este procedimiento y, a continuación, presione F5 para ejecutar el código.


almacenar automáticamente una dirección de correo electrónico con formato correctamente



En el futuro, si desea almacenar las direcciones de correo electrónico que se escribe como un vínculo de correo electrónico en lugar de un hipervínculo a una página, siga estos pasos. Este proceso requiere que se introducen los datos a través de un formulario.
  1. Abra el formulario de entrada de datos en la vista Diseño.
  2. Haga clic en el campo que se utiliza para introducir la dirección de correo electrónico y, a continuación, haga clic en Propiedades.
  3. En el cuadro de diálogo Propiedades , haga clic en la ficha evento .
  4. Haga clic en el cuadro de propiedad AfterUpdate , haga clic en la flecha y, a continuación, haga clic en [Procedimiento de evento] en la lista.
  5. Haga clic en el botón Generar (...) para iniciar el Editor de Visual Basic.
  6. Lo que ve en el Editor de Visual Basic depende del nombre del campo correo electrónico. Por ejemplo, si el nombre del campo correo electrónico es Text0, verá lo siguiente:
    Private Sub Text0_AfterUpdate()
    
    End Sub
  7. Escriba o pegue las dos siguientes líneas de código entre las dos líneas de código que se muestra en el paso 6. Asegúrese de reemplazar [Text0] por el nombre del campo.
    If Len(Me![Text0]) = 0 Then Exit Sub 
    Me![Text0] = "#mailto:" & Left(Me![Text0], InStr(1, Me![Text0], "#") - 1) & "#"
    cuando ahora se introduce una dirección de correo electrónico en este campo, es automáticamente con formato y almacena como una dirección de correo electrónico tan pronto como enfoque se ha movido fuera de este campo.

Propiedades

Id. de artículo: 323202 - Última revisión: viernes, 16 de julio de 2004 - Versión: 4.1
La información de este artículo se refiere a:
  • Microsoft Access 2000 Standard Edition
Palabras clave: 
kbmt kbhowto kbhowtomaster KB323202 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): 323202

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