Sommaire > Divers
        Comment modifier la légende des boutons de déplacements ?
        Comment obtenir du code HTML valide ?
        Comment obtenir la valeur brute d'un champ mémo enrichi ?

Comment modifier la légende des boutons de déplacements ?

[haut]

auteur :Christophe Warin

Un moyen simple de personnaliser la barre de boutons de déplacement consiste à modifier la légende où est écrit par défaut : Enr. (comme Enregistrement).

Vous pouvez par exemple faire figurer le nom du client suivant :

Private Sub Form_Current()
On Error GoTo err
    Dim strCaption As String
    Dim oRst As DAO.Recordset
    Set oRst = Me.RecordsetClone
    With oRst
    'passe au client suivant
        .MoveNext
        If .EOF Then
            'Si aucun, on recule de deux
            oRst.Move -2
            strCaption = "Prec. : " & .Fields("nomclient")
        Else
            strCaption = "Suiv. : " & .Fields("nomclient")
        End If
    End With
fin:
Me.NavigationCaption = strCaption
Exit Sub

err:
    strCaption = "Enr."
    Resume fin
End Sub

Comment obtenir du code HTML valide ?

[haut]

auteur :Christophe Warin

Pour convertir un texte contant des caractères spéciaux en HTML, vous pouvez utiliser la fonction HTMLEncode de l'objet Application.

Dim strTest As String strtext = "Mise à jour --> ok" Debug.Print strtext Debug.Print Application.HtmlEncode(strtext)

Affiche

Mise à jour --> ok
Mise à jour --&gt; ok

lien :

Comment obtenir la valeur brute d'un champ mémo enrichi ?

[haut]

auteur :Christophe Warin

Microsoft Access 2007 prend en charge les zones de textes enrichies nativement (autrefois remplacées par un contrôle ActiveX RichTextBox). Un champ de type mémo peut même stocker l'information enrichie et gérer lui-même l'affichage des données. Toutefois si vous tentez d'accéder aux données via un recordset, vous apercevrez qu'elles sont polluées par des balises HTML.

Exemple

<div>Bonjour</div>

Pour épurer ces balises, vous devez utiliser la fonction PlainText de l'objet Application.

Dim db As DAO.Database
Set db = CurrentDb
Dim orst As DAO.Recordset2
Set orst = db.OpenRecordset("Table1")
MsgBox PlainText(orst.Fields(0).Value)

lien :

Comment obtenir du code HTML valide ?

Consultez les autres F.A.Q's

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2006 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site ni de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.