En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1245128 visiteurs

 14 visiteurs en ligne

Nous contacter

Contact

Modifier un Hyperlien

Dans une table, les "hyperliens" ont un format spécial.
Il se compose en plusieurs parties séparées par le signe "#"

Pour modifier un lien précis, il suffit de cliquer-droit sur le lien pour avoir accès à toutes les sections.

Pour modifier le texte affiché dans un champ hyperlien de toute une table, on peut utiliser la fonction ci-dessous.

Usage :

HyperlinkChange("LaTable","LeChamp","Cliquez ici s.v.pl.")

La fonction :

Function HyperLinkChange(sTable As String, sField As String, sDisplayText As String)
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim iPos As Integer
    Dim sNewLink As String
    Set db = CurrentDb
    
    Set rs = db.OpenRecordset("Select [" & sField & "] From [" & sTable & "];")

    '// Vérifier si des enregistrements existent
    If Not rs.EOF Then
        Do Until rs.EOF
            'position du premier #
            iPos = InStr(1, Nz(rs(sField)), "#")
            If iPos > 0 Then
                'construction du nouveau string
                sNewLink = sDisplayText & Mid(rs(sField), iPos)
                rs.Edit
                rs(sField) = sNewLink
                rs.Update
            End If
            rs.MoveNext
        Loop
    Else
        MsgBox "La table ne contient pas d'enregistrement."
    End If
   
    '// On fermer et libère
    rs.Close
    db.Close
    Set rs = Nothing
    Set db = Nothing

End Function

Catégorie : Les mémos - Net
Page lue 6058 fois
Vous êtes ici :   Accueil » Modifier un Hyperlien