Recherche
Recherche
Les mémos
 ↑  
Je débute...
Visites

 992295 visiteurs

 1 visiteur en ligne

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 4441 fois