Vos recrutements informatiques

700 000 développeurs, chefs de projets, ingénieurs, informaticiens...

Contactez notre équipe spécialiste en recrutement

FAQ MS-AccessConsultez toutes les FAQ

Nombre d'auteurs : 140, nombre de questions : 926, dernière mise à jour : 30 mars 2017 

 
OuvrirSommaireSpécificités d'Access 2007Spé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 :

 
Sélectionnez

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
Créé le 27 juin 2006  par Tofalu

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

 
Sélectionnez

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

Affiche

 
Sélectionnez

Mise à jour --> ok
Mise à jour --> ok
Créé le 27 juin 2006  par Tofalu

Lien : [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 :

 
Sélectionnez
<div>Bonjour</div>

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

 
Sélectionnez

Dim db As DAO.Database
Set db = CurrentDb
Dim orst As DAO.Recordset2
Set orst = db.OpenRecordset("Table1")
MsgBox PlainText(orst.Fields(0).Value)
Créé le 27 juin 2006  par Tofalu

Lien : [Access 2007] Comment obtenir du code HTML valide ?

  

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 © 2013 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et 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.