Enregistrer valeur d'une variable dans champs mémo

Version imprimable

04/08/2016, 17h52
ferdinat32

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

Salut,

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

Dans ton cas
Code:

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.

05/08/2016, 09h06
ferdinat32

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.
05/08/2016, 09h32
martii843

Peux tu, STP, copier coller ton code dans la discussion?

Bonjour

Voici le code, dans la fenêtre de débogage le format est bien conservé mais pas dans le champ mémo

Code:

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