IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Access Discussion :

Enregistrer valeur d'une variable dans champs mémo


Sujet :

Access

  1. #1
    Futur Membre du Club

    Profil pro
    Inscrit en
    Janvier 2011
    Messages
    3
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2011
    Messages : 3
    Points : 9
    Points
    9
    Billets dans le blog
    1
    Par défaut Enregistrer valeur d'une variable dans champs mémo
    Bonjour

    Je souhaite enregistrer le contenu d'une variable dans un champs mémo en conservant la mise en forme.
    Exemple du contenu de la variable :

    Votre courrier a retenu toute notre attention.
    Suite à votre demande, les points fidélité vous donnent droit
    à des réductions à déduire de vos commandes lorsque vous avez
    suffisamment de points, à savoir :
    - 100 points fidélité = 5 € de réduction.
    - 200 points fidélité = 15 € de réduction.
    Je reste à votre entière dispositon pour tout complément d'information.

    Cordialement,


    j'ajoute le contenu de la variable via un recordset dans le champs mémo.

    Lorsque je veux utiliser le contenu du champs, il a perdu le formatage :

    Votre courrier a retenu toute notre attention. Suite à votre demande, les points fidélité vous donnent droit à des réductions à déduire de vos commandes lorsque vous avez suffisamment de points, à savoir : - 100 points fidélité = 5 € de réduction. - 200 points fidélité = 15 € de réduction. Je reste à votre entière dispositon pour tout complément d'information. Cordialement,



    Quelqu'un a une idée ?SVP

  2. #2
    Membre averti
    Homme Profil pro
    Ressources humaines
    Inscrit en
    Décembre 2015
    Messages
    217
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Vaucluse (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Ressources humaines

    Informations forums :
    Inscription : Décembre 2015
    Messages : 217
    Points : 356
    Points
    356
    Par défaut
    Salut,

    Pour aller à la ligne il faut que dans ton code tu utilises vbCrLf

    Dans ton cas


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
    Dim Chaine as String
     
    Chaine = "Votre courrier a retenu toute notre attention." & vbCrLf _
     & "Suite à votre demande, les points fidélité vous donnent droit" & vbCrLf &  _
    etc etc
    Ensuite tu insert ta chaine dans le champ mémo.

  3. #3
    Futur Membre du Club

    Profil pro
    Inscrit en
    Janvier 2011
    Messages
    3
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2011
    Messages : 3
    Points : 9
    Points
    9
    Billets dans le blog
    1
    Par défaut
    Bonjour et merci pour votre réponse, mais j'avais déjà essayé et ça ne fonctionne pas. Dans la fenêtre de débogage les sauts de lignes se font mais ne sont pas enregistrés dans le champ mémo.

  4. #4
    Membre averti
    Homme Profil pro
    Ressources humaines
    Inscrit en
    Décembre 2015
    Messages
    217
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Vaucluse (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Ressources humaines

    Informations forums :
    Inscription : Décembre 2015
    Messages : 217
    Points : 356
    Points
    356
    Par défaut
    Peux tu, STP, copier coller ton code dans la discussion?

  5. #5
    Futur Membre du Club

    Profil pro
    Inscrit en
    Janvier 2011
    Messages
    3
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2011
    Messages : 3
    Points : 9
    Points
    9
    Billets dans le blog
    1
    Par défaut
    Bonjour

    Voici le code, dans la fenêtre de débogage le format est bien conservé mais pas dans le champ mémo
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    Public Sub StartUptest()
    Dim monparam As Variant  ' déclare une variable
    Dim champ1 As String
     
    Dim db As Database
    Dim enrg As Recordset
    Dim id As Variant
     
    On Error GoTo oror
    DoCmd.RunCommand acCmdAppMinimize
    'Vidange table temporaire
    DoCmd.SetWarnings False
        DoCmd.RunSQL "delete * from TABLEMAILtemp"
    DoCmd.SetWarnings True
    champ1 = "Votre courrier a retenu toute notre attention." & vbCrLf _
     & "Suite à votre demande, les points fidélité vous donnent droit" & vbCrLf
     
    Debug.Print champ1
    'Ajout des enregistrements récupérés dans la table TABLEMAIL
            Set db = CurrentDb
            Set enrg = db.OpenRecordset("TABLEMAILtemp")
                With enrg
                    .AddNew
                    !CONTENU = champ1
                    .Update
                End With
            enrg.Close
            Set enrg = Nothing
     
    Exit Sub
    oror:
    Debug.Print Err.Description
    Debug.Print Err.Source
    Debug.Print Err.Number
    End Sub

Discussions similaires

  1. Injection de résultat de variable dans champ Mémo
    Par clickandgo dans le forum VBA Access
    Réponses: 1
    Dernier message: 17/05/2013, 11h03
  2. mettre une variable dans "champ"
    Par n0unours dans le forum Langage
    Réponses: 1
    Dernier message: 27/11/2007, 23h19
  3. Insertion variable dans champ mémo
    Par tg_worldwide dans le forum VBA Access
    Réponses: 1
    Dernier message: 30/07/2007, 16h15
  4. Réponses: 5
    Dernier message: 04/04/2007, 17h11

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo