Discussion :

[blandinais]

Bonjour
J’ai un formulaire basé sur requête pour afficher des comptes rendu de réunions avec des clients.
Ce formulaire affiche pour 1 client les comptes rendu des différentes réunions (un enregistrement par réunion et environ 3 enregistrements en visualisation à l’écran)
Ces commentaires sont stockés dans une table dans un champ de type memo

Lors de l’affichage certains commentaires sont trop longs et n’apparaissent pas en entier dans le champ du formulaire.
Comment par un double clic dans ce champ faire apparaitre un sous formulaire plein écran pour avoir le texte en entier

Merci pour vos suggestions

[loufab]

Bonjour,

Tu crées le sous-formulaire avec 2 champs, le champ clef et le champ memo.
Tu l'insère dans le formulaire contenant le champ clef, les champs pere et fils devraient se régler seuls.

Tu le place à l'endroit ou tu veux le voir apparaitre et tu règle sa propriété Visible à Faux.

Ensuite sur l'événement de ton choix, clic sur un champ par exemple tu ouvre un événement et tu passe en mode Visible.

Code :

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

me.moncontrolesousform.visible=true

Sur Sortie du container de ce sous-form tu mets

Code :

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

me.moncontrolesousform.visible=false

Cordialement,

[nico84]

Bonjour,

Comme d'habitude, la solution de Loufab me plait bien, mais en voici une autre qui permet d'ouvrir notepad pour afficher / modifier le memo :

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
'Edition d'un mémo dans notepad - fonction à copier dans un module de classe
'source : http://support.microsoft.com/kb/96544/fr 
public Function EditMemo(MyEditBox As Control)
      Dim X%, LineInFile$, NewLine$, FileNum%, CarriageReturn_LineFeed$
 
      CarriageReturn_LineFeed$ = Chr$(13) & Chr$(10)
      FileNum% = FreeFile
      Open "TEMP.TXT" For Output As #FileNum%
 
      'Save the text to temporary file for Microsoft Word for WINDOWS
 
      If Not IsNull(MyEditBox) Then
         Print #FileNum%, MyEditBox
      Else
         Print #FileNum%, ""
'         MsgBox "There is no text to edit. Abort."
'         Exit Function
      End If
      Close #FileNum%
 
      X% = Shell("NOTEPAD.EXE TEMP.TXT", 1)  '3 pour plein écran, 1 pour écran réduit
      MsgBox "Appuyer sur enter..." ' required to pause the function
 
      'Assume completion of the edits in Microsoft Word. Now read the text
      'and place it back into the edit control.
 
      FileNum% = FreeFile
      Open "TEMP.TXT" For Input As #FileNum%
 
      NewLine$ = ""
      Do While Not EOF(FileNum)
         Line Input #FileNum%, LineInFile$
         If NewLine$ <> "" Then
            NewLine$ = NewLine$ & CarriageReturn_LineFeed$
         End If
         NewLine$ = NewLine$ & LineInFile$
      Loop
      MyEditBox = NewLine$
 
      Close #FileNum%
End Function

Ensuite il suffit de mettre =editmemo([MonMemo]) sur double-clic de tous tes champs memo ;-)

[blandinais]

Merci à tout les deux

j'ai essayé la solution de "nico84" (par fainéantise ) cela fonctionne très bien

je l'ai donc adopté

cela correspond exactement à ce que je désirai

cordialement