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

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 --> ok

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)