pas de donnees dans une textbox

Version imprimable

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:

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

06/04/2013, 16h29
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:

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

JimBoLion

chuspyto,

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

Code:

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

06/04/2013, 16h55
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
06/04/2013, 17h00
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
06/04/2013, 17h16
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.
06/04/2013, 17h22
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
06/04/2013, 17h29
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
06/04/2013, 17h33
jimbolion

chuspyto,

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

Merci

JimBoLion

voci le code:

Code:

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

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:

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

06/04/2013, 19h28
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
07/04/2013, 03h30
jimbolion

chuspyto

Pas de soucis, tu peux procéder ainsi

JimboLion