Discussion :

[chuspyto]

bonjour

comment faire pour avoir un retour a la ligne a chaque fois qu'une donnée est enregistrée dans la zone de texte pour avoir ce typre de resultat:

un
deux
trois
quatre
.....

merci

[minot83]

Salut,
CTRL+ ton texte.

Cordialement

[Philippe PONS]

CTRL+ENTREE

[minot83]

oui, j'ai oublié ENTREE.

[Philippe PONS]

Tu es pardonné si tu cliques sur Résolu

[chuspyto]

En vba cela donnerai?

Code :

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

Ctrl+me.texte1.value

[minot83]

en vba, on utilise Chr(13) & Chr(10)

[Philippe PONS]

Non, en VBA, c'est la constante intégrée vbCrLf qui permet d'ajouter un retour à la ligne à une chaine de caractères.

Code :

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

me.texte1.value & vbCrLf

[chuspyto]

voila ce que j'ai fait et cela ne fonctionne pas

Code :

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

1
2
 Me.Texte1.Value = Me.ceci_est_un_test.Caption
 Me.Texte1.Value = Me.Texte1.Value & vbCrLf

merci

[minot83]

et SI je viens de tester les 2 fonctionnent (du moins sous 2003)

Code :

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

Me.test = Me.controle1 & Chr(13) + Chr(10) & Me.controle2

Code :

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

Me.test = Me.controle1 & vbCrLf & Me.controle2

[chuspyto]

a quoi correspond le controle2?

[minot83]

a quoi correspond le controle2?

dans mon code, j'ai réuni 2 zones de texte (controle1 et controle 2) dans un troisième (test)

[chuspyto]

effectivement cela fonctionne mais ce que je desirerai c'est apres avoir selectionné une etiquette c'est elle qui s'affiche(apres l'appui sur ajout),et apres appui sur une aute etiquette ,elle s'ajoute également en desous...voici le code que j'ai fait

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
Private Sub ajout_Click()
 
Dim dbsdepart As Database
Dim rstdepart As Recordset
Dim bloc_note As String
Dim notes As String
Dim etiquette8 As Control
Dim etiquette9 As Control
Dim etiquette10 As Control
Dim etiquette11 As Control
 
Me.Texte1 = Me.Étiquette8.Caption & vbCrLf Or Me.Étiquette9.Caption & vbCrLf Or Me.Étiquette10.Caption & vbCrLf Or Me.Étiquette11.Caption
 
  Set dbsdepart = CurrentDb
  Set rstdepart = dbsdepart.OpenRecordset("bloc_note", dbOpenDynaset)
        With rstdepart
                .AddNew
                !notes = Me.Texte1.Value
                .Update
                .Bookmark = .LastModified
        End With
 
 
    rstdepart.Close
    dbsdepart.Close