Discussion :

[azertix]

Bonjour à tous.
J'ai une énigme, en ce beau début d'après midi ensoleillé.
Ma requête, donc mon état (puisque la requête est sa source) ne parvient pas à afficher la totalité d'un champ. La fin est tronquée.
J'ai vérifié et tout le contenu est bien présent dans la base de données. Logique d'ailleurs puisque ce champ peut contenir jusqu'à 65535 caractères (il s'agit d'un champ mémo) et on est trèès loin d'approcher un tel nombre !
J'en viens donc à ma question : d'où vient ce problème et comment faire en sorte d'afficher la totalité du champ ?
Je précise qu'il y a à peine huit lignes dans le champ en question et qu'il y en aura rarement plus.

Voilà, en espérant que certains connaissent la cause de ce problème

[Invité]

Bonjour

http://access.developpez.com/faq/?pa...es#RequeteMemo

Je ne connais pas la solution, mais cela est normal.

Philippe

[azertix]

Ok, cela répond à la moitié de ma question.
Reste à savoir comment contourner cette restriction...

Si le problème vient du fait qu'il y ait un regroupement dans ma requête, je veux bien la modifier mais je crains que ce ne soit pas possible :

Code SQL :

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

1
2
3
SELECT DISTINCT N.NumNote, N.DateNote, C.NumContrat, Cl.NumCli, Cl.NomCli, C.DateEffetContrat, C.NatureContrat, V.NomVendeur, S.PrenomEmploye, A.NumAgence, S.TelEmploye, S.NomEmploye, A.NomAgence, N.ComNote
FROM CLIENT AS Cl INNER JOIN ((VENDEUR AS V INNER JOIN (AGENCE AS A INNER JOIN CONTRAT AS C ON A.NumAgence=C.NumAgence) ON V.NumVendeur=C.NumVendeur) INNER JOIN (SERV_ASSU AS S INNER JOIN NOTES AS N ON S.NumEmploye=N.NumEmploye) ON C.NumContrat=N.NumContrat) ON Cl.NumCli=C.NumCli
WHERE (((N.NumNote)=Forms!frmContratIrregulier!lstNotes));

[azertix]

Bonjour.
J'ai commencé à chercher des pistes du côté de la création dynamique de labels qui contiendraient tour à tour les différents morceaux de 250 caractères de mon champ mémo. J'ai ainsi trouvé un code utilisé pour récupérer du mémo dans Excel et je commençais à l'adapter quand j'ai pensé à une solution encore plus simple : renseigner la propriété Caption de mon contrôle (anc. zone de texte que j'ai transformée en label) directement avec la valeur correspondant au champ via DAO.

Je mets mon code pour ceux que ça intéresse, mais c'est pas bien original (à mettre sur l'évènement ouverture de l'état qui contient un label nommé lblCom) :

Code :

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

1
2
3
4
5
6
7
8
9
10
' Affectation du label lblCom
Dim bd As Database
Dim tNote As Recordset
Dim cNote As String
 
Set bd = CurrentDb
Set tNote = bd.OpenRecordset("NOTES", dbOpenDynaset)
cNote = "NumNote=" & Forms(Me.OpenArgs).lstNotes.Column(0)
tNote.FindFirst cNote
Me.lblCom.Caption = tNote![ComNote]

Et voici le code pour coller un champ mémo en différents morceaux en créant des TextBox (bien que je n'en aie pas eu besoin) :

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
Function MemoSplitter(strReportName As String, _
   strFieldName As String, lngMemoLength As Long, haut As Integer)
 
   Dim NewControl As Control
   Dim intLoopCount As Integer
   Dim gauche, largeur, hauteur As Integer
 
    gauche = 130
    largeur = 8800
    hauteur = 2170
 
   For intLoopCount = 0 To lngMemoLength / 250
 
      Set NewControl = CreateReportControl(strReportName, _
         acTextBox, acDetail, , "", gauche, haut, largeur, hauteur)
      NewControl.Name = intLoopCount & "MemoText"
      NewControl.ControlSource = "=Mid([" & _
         strFieldName & "]," & 250 * intLoopCount + 1 _
         & ",250)"
        haut = haut + (hauteur + 20)
   Next intLoopCount
 
End Function

J'avais ajouté un paramètre "haut" qui définit la position verticale du premier contrôle. Les variables "gauche, "largeur", "hauteur" définissent respectivement la distance par rapport au bord gauche, la largeur et la hauteur du contrôle, le tout en twips (1cm = 567 twips).
La ligne "haut = haut + (hauteur + 20)" sert à ajouter les contrôles les uns à la suite des autres.
Tous ces ajouts sont bien entendu supprimables si inutiles.