Les mémos

Fermer Tables

Fermer Requêtes

Fermer Formulaires

Fermer Etats

Fermer Modules

Fermer Base

Fermer Automation

Fermer Administration

Fermer Registre

Fermer String

Fermer Email CDO

Fermer Outlook

Fermer Net

Fermer Dates - Heures

Fermer Fichiers

Fermer Références

Fermer Vrac

Je débute...

Fermer La normalisation

Fermer VBA

Attention
Aucun support
par émail !

Utilisez le forum pour les questions/réponses concernant MsAccess et les codes que vous trouverez sur ce site.
Visites

   visiteurs

   visiteurs en ligne

Net - Modifier un Hyperlink
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.")


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

Date de création : 04/02/2010 : 18:26
Dernière modification : 08/04/2010 : 14:14
Catégorie : Net
Page lue 4227 fois


Imprimer l'article Imprimer l'article

Recherche



Lettre d'information
Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
Captcha
Recopier le code :
Au sujet de l'auteur
L'auteur qui fréquente (fréquentait) le forum microsoft.public.fr.access a eu le plaisir d'être nommé MVP Office-Access de janvier 2003 à décembre 2011.

Qui sont les MVP ?

Divers ;-)
Nous contacter

Haut