Discussion :

[chuspyto]

bonjour,
j'ai une table ou sonr stockees mes donnees ,et a l'aide d'un bouton j'aimerai l'afficher dans une textbox,mais rien ne s'affiche
y a t'il une autre methode que je peux utiliser a la place de " for next " car je ne peux pas systematiquement modifier les valeurs (1 to 100)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Commande1_Click()
 
Dim bloc_note As String
Dim Texte1 As String
Dim i As Integer
 
For i = 1 To 100
Me.Texte1 = Nz(DLookup("notes", "bloc_note", "[n°] = " & i))
 
Next i
End Sub

merci

[jimbolion]

chuspyto,

Si je comprends bien tu cherchers à connaître le nombre d'enregistrements dans une table afin d'en extraire les valeurs :

Cette fonction te retournera le nombre d'enregistrements dans ta table

Code :

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

Nb_Records = DCount("MonChamp", "MATable")

JimBoLion

[jimbolion]

chuspyto,

Tu peux également utiliser une boucle do...loop

Code :

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

1
2
3
4
5
6
7
8
 Set rst = C_Db.OpenRecordset("Select * from bloc_note;")
'
        rst.MoveFirst
        Do Until rst.EOF
        Me.Texte1 = rst![notes]
        rst.MoveNext
        Loop
        rst.Close

JimBoLion

[chuspyto]

merci cela fonctionne.
est ce qu'il y a la possibilite que quand une valeur est affichée,elle soit gardée dans ma textbox;et quand je selectionne une nouvelle valeur elle s'ajoute dans la textbox dans la ligne en dessous ,et non en ecrasant la 1ere valeur.

merci

[jimbolion]

chuspyto

De cette manière

Me.Texte1 = Me.Texte1 & rst![notes] & vbcrlf

Vérifie que la valeur par défaut contient bien une chaîne vide.
Le vbcrlf envoie un retour à la ligne

JimBoLion

[chuspyto]

ou dois je verifier que la valeur par défaut contient bien une chaîne vide
car pour le moment je n'arrive pas a avoir l'ajout de ligne supplementaire.

[jimbolion]

chuspyto,

Oui si ta valeur par défaut est nulle çà ne vas pas concaténer

Sinon tu peux faire directement l’agrégation du champ dans ton code et envoyer ta valeur directement dans ton champ

JimBoLion

[chuspyto]

ma zone texte au debut est vide,mais quans je selectionne une valeur cela s'ajoute bien dans ma textbox.mais quand je veux rajouter une valeur elle ne s'incremente pas

[jimbolion]

chuspyto,

Envoie moi le bout de code qui te permet de faire çà, je regarde et te renvoie le correctif

Merci

JimBoLion

[chuspyto]

voci le code:

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
Private Sub Commande1_Click()
 
Dim bloc_note As String
Dim Texte1 As String
Dim i As Integer
Dim dbsdepart As Database
Dim rstdepart As Recordset
 
  Set dbsdepart = CurrentDb
  Set rstdepart = dbsdepart.OpenRecordset("Select * from bloc_note;")
 
  rstdepart.MoveFirst
        Do Until rstdepart.EOF
        Me.Texte1 = rstdepart![notes] & vbCrLf
        rstdepart.MoveNext
        Loop
       rstdepart.Close
 
 
End Sub
 
 
Private Sub Étiquette10_Click()
Dim dbsdepart As Database
Dim rstdepart As Recordset
 
 
  Set dbsdepart = CurrentDb
  Set rstdepart = dbsdepart.OpenRecordset("bloc_note", dbOpenDynaset)
        With rstdepart
                .AddNew
                !notes = Me.Étiquette10.Caption
                .Update
                .Bookmark = .LastModified
        End With
 
 
    rstdepart.Close
    dbsdepart.Close
 
 
End Sub
 
Private Sub Étiquette11_Click()
Dim dbsdepart As Database
Dim rstdepart As Recordset
 
 
  Set dbsdepart = CurrentDb
  Set rstdepart = dbsdepart.OpenRecordset("bloc_note", dbOpenDynaset)
        With rstdepart
                .AddNew
                !notes = Me.Étiquette11.Caption
                .Update
                .Bookmark = .LastModified
        End With
 
 
    rstdepart.Close
    dbsdepart.Close
 
End Sub
 
Private Sub Étiquette8_Click()
 
Dim dbsdepart As Database
Dim rstdepart As Recordset
 
 
  Set dbsdepart = CurrentDb
  Set rstdepart = dbsdepart.OpenRecordset("bloc_note", dbOpenDynaset)
        With rstdepart
                .AddNew
                !notes = Me.Étiquette8.Caption
                .Update
                .Bookmark = .LastModified
        End With
 
 
    rstdepart.Close
    dbsdepart.Close
 
End Sub
 
Private Sub Étiquette9_Click()
Dim dbsdepart As Database
Dim rstdepart As Recordset
 
 
  Set dbsdepart = CurrentDb
  Set rstdepart = dbsdepart.OpenRecordset("bloc_note", dbOpenDynaset)
        With rstdepart
                .AddNew
                !notes = Me.Étiquette9.Caption
                .Update
                .Bookmark = .LastModified
        End With
 
 
    rstdepart.Close
    dbsdepart.Close
 
End Sub

[jimbolion]

chuspyto,

Tu ne faisais pas l'agrégation. J'ai corrigé en faisant la concaténation directement dans le code (ainsi peu importe la valeur par défaut dans le textBox)

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 Commande1_Click()
 
Dim bloc_note As String
Dim Texte1 As String
Dim i As Integer
Dim dbsdepart As Database
Dim rstdepart As Recordset
Dim note As String
Dim Notes As String
  Set dbsdepart = CurrentDb
  Set rstdepart = dbsdepart.OpenRecordset("Select * from bloc_note;")
  Notes = "" ' initialise une châine vide
  rstdepart.MoveFirst
        Do Until rstdepart.EOF
        note = Nz(rstdepart![Notes], "")  ' transformation d'une valeur nulle en chaine vide
        If note <> "" Then
          Notes = Notes & note & vbCrLf   ' agrégation de la variable notes sir la valeur n'est pas vide
        End If
        rstdepart.MoveNext
        Loop
       rstdepart.Close
       Set rstdepart = Nothing ' Vide le container (libération de la mémoire)
 
       Me.Texte1 = Notes  ' Mise à jour du champ
End Sub

JimBoLion

[chuspyto]

je te remercie,
derniere petite chose qui me vient, est ce que je peux avoir un bouton qui me nettoye ma textbox,peux tu me dire si cela fait l'affaire :
private sub commande2_click()
me.texte1.value=""
end sub

car quand ma liste s'efface de la textbox et que je veux rentrer une nouvelle valeur toute la liste anterieure reapparait d'un coup

[jimbolion]

chuspyto

Pas de soucis, tu peux procéder ainsi

JimboLion