Discussion :

[rayni88]

J'ai créé une table avec plusieurs memo's. Le texte dans la table est parfaitement lisible.
De cette table sont plusieurs jointes et de là j'ai fait une requête. De cette requête mon texte est illisible et devient: ሁ
Y aurait-il quelqu'un qui pourait me dire comment faire pour que mon texte devient à nouveau lisible dans la requête ?

Merci d'avance

raymond

[mout1234]

Bonjour,

Pour y voir plus clair, merci de nous préciser le code SQL de ta requête.

[rayni88]

Bonjour,
Ma requête est une mise à jour d'une table provenant d'un formulaire avec des options de choix. J'automatise avec le code suivant:

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
36
37
38
39
40
41
42
43
44
45
Dim sSql As String, sConcat As String
 
 
Set dbMyDB = CurrentDb
sSql = "SELECT [dblA_Num1]&' '&[strAuflag_D]& Chr(13)& Chr(10) As C From tblAuflageNBauges"
 
Set rsMyRS = dbMyDB.OpenRecordset(sSql, dbOpenForwardOnly)
 
Do Until rsMyRS.EOF
 
    sConcat = sConcat & rsMyRS(0)
    MsgBox "sConcat= ", , sConcat
    rsMyRS.MoveNext
 
Loop
 
Set rsMyRS = dbMyDB.OpenRecordset("tblBauges", dbOpenTable)
 
Set rsMyRS2 = dbMyDB.OpenRecordset("tblAuflageNBauges", dbOpenTable)
 
While Not rsMyRS2.EOF
    While Not rsMyRS.EOF
 
    MsgBox "strNrBewil Bauges= ", , rsMyRS.Fields("strNrBewil")
    MsgBox "strNrBewil AuflageNBauges= ", , rsMyRS2.Fields("strNrBewil")
 
 
'[Forms]![frmtblPrintBaugesuch]!strSprache
 
    If rsMyRS.Fields("strNrBewil") = rsMyRS2.Fields("strNrBewil") Then
 
    rsMyRS.Edit
    'rsMyRS.Fields("memAuflage") = ""
    rsMyRS![memAuflage] = sConcat
    rsMyRS.Update
 
    GoTo bye
 
    End If
rsMyRS.MoveNext
rsMyRS2.MoveNext
 
Wend
 
Wend]

[mout1234]

Avant de lire plus en détail,... pourquoi tu mets les valeurs dans la barre de titre de tes Msgbox??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MsgBox "sConcat= ", , sConcat

Cela ne serait pas mieux ainsi?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox "sConcat= " & vbCRLF &  sConcat

[rayni88]

Oui effectivement c'est nettement mieux que ma solution !!! Merci pour le bon conseil.