FAQ MS-Access
FAQ MS-AccessConsultez toutes les FAQ
Nombre d'auteurs : 140, nombre de questions : 926, dernière mise à jour : 15 juin 2021
Sommaire→Spécificités d'Access 2007→Spécificités d'Access 2007 Divers
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 SubPour convertir un texte contenant 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 --> okLien : [Access 2007] Comment obtenir la valeur brute d'un champ mémo enrichi ?
Microsoft Access 2007 prend en charge les zones de texte 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 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)