[VBA] question de débutant comment obtenir la valeur d'un champ..

**dyree** · 10/08/2006, 11h50

bonjour,

la question est simple, je n'arrive pas a acceder aux valeurs des champs pourtant cela doit etre tres simple ...
autant tbd.fields(i).name fonctionne et je retire le nom du champs autant tbd.fields(i).values je ne peu rien en faire.

qqun aurait il une idée?

Code :

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

1
2
3
 
dim tbd As DAO.TableDef
debug.print tbd.fields("num_tri").values

**Muhad'hib** · 10/08/2006, 12h35

Salut,

De quel enregistrement veux tu retrouver la valeur ?

Regarde les recordset.

Petit exemple pour retrouver la valeur du champ "num_tri" d'un enregistrement :

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
 
Dim Rs As DAO.Recordset
Dim I As Integer
Set Rs = CurrentDb.OpenRecordset("nom_de_la_table_ou_de_la_requete", dbOpenSnapshot)
If Rs.EOF = False Then
      I = 1
      Do Until Rs.EOF = True
        Debug.Print "enregistrement N°" & I & "  : " & Rs("num_tri")
        I = I + 1
        Rs.MoveNext
      Loop
Else
      Debug.Print "aucun enregistrement"
End If
Set Rs = Nothing

**dyree** · 10/08/2006, 13h26

passé par Rs serait possible mais dans mon cas:

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
For Each tbd In Db.TableDefs
 
    If tbd.Name = "Fiche_recapitulative_SMS" Or tbd.Name = "Repertoire_SIM_et_mobile" Or tbd.Name = "SMS_MO" Or tbd.Name = "USSD" Then
 
         For j = 0 To tbd.RecordCount - 1
 
            For i = 0 To tbd.Fields.Count - 1
 
 
              La je voudrais afficher mes valeur de champs    
 
 
            Next i
 
 
 
         Next j
    End If
Next tbd

jte laccorde dans l'idée ca sert a rien mais comment faire ?

**random** · 10/08/2006, 13h37

dao.tabledef ne concerne pas le contenu de la table mais sa structure

pour obtenir la valeur d'un champ on met en oeuvre dao.recordset

encore faut il s'avoir de quelle ligne de la table on parle

la première sera atteinte par monrecordset.movefirst

mais si la table fait 8317418 enregistrements on a très peu de chance d'obtenir l'enregistrement souhaité

aussi généralement on met un filtre sur la table
par exemple
macléprimaire=XX

**dyree** · 10/08/2006, 13h53

ok je comprend

neanmoins je souhaite me balader sur plusieurs table.
pour le moment , mon programme parcours 4 table cherche tout les nom de champs qui commence par des chiffre, recupere le nom de champ enleve les chiffre et stock le résultat dans un variable. j'aimerai que cette variable soit rajouter dans la table dans un champ prévu a cette effet .
voici mon code se sera plus explicite :

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

reg.Pattern = "^[0-9]{1,3}"
reg.IgnoreCase = True


For Each tbd In Db.TableDefs

    If tbd.Name = "Fiche_recapitulative_SMS" Or tbd.Name = "Repertoire_SIM_et_mobile" Or tbd.Name = "SMS_MO" Or tbd.Name = "USSD" Then
         For j = 0 To tbd.RecordCount - 1
                   
                champ = ""   
            
                For i = 0 To tbd.Fields.Count - 1
              
                If reg.test(tbd.Fields(i).Name) = True Then
                
                 
                    If tbd.Fields(i).Value = True Then
                    
                       x = reg.Replace(tbd.Fields(i).Name, "")
                        
                       champ = x & "/" & champ
                        
                    End If
                End If
                
            Next i
            
            'num_tris = tbd.Fields(0).Value
         
            Mareq = "update " & tbd.Name & " set Gestion_des_caracteres ='" & champ & "';"
            
            'Db.Execute (Mareq)
            
         'Next j
    End If
Next tbd

c'est la ligne en bleu qui me pose probleme ...
j'aimerai que mon update n'update que la ligne en cours, donc je dois aussi a priori stocké la valeur de la clé primaire de la ligne

**Muhad'hib** · 10/08/2006, 14h08

Re,

Je comprends de moins en moins

Tu veux sur chacune des 4 tables :
1 - parcourir les enregistrements
2- si l'un des champs de cet enregistrement a un nom commancant par un chiffre
3- si ce champ a la valeur True

Et dans ce cas tu veux faire quoi ?

De toute façon, comme expliquer par Random, l'object tabledef ne contient aucunes données, uniquement la structure de la table. Pour regarder les données il te faut utiliser un objet Recordset.

Tabldef correspond aux infos qui te sont accessible en mode modification/création des table
Recordset correspond au infos qui te sont accessible en mode ouverture des tables.

Explique bien ce que tu veux faire.

A+

**dyree** · 10/08/2006, 14h18

mon code est la

je veux prendre le nom des champs de ces 4 table qui commence par des chiffres

12 a 13 b 14 c 15 d

Si la valeur du champ courant est egale a true :

j'extrait la partie du nom du champ sans le chiffre que je stocke dans une variable

s = a , s = b , s = c , s = d successivement
puis a la fin de chaque ligne,
x = x & s

donc x sera egale a : abcd

puis je veux updater un champ de la ligne courante par x.

je parcours donc : toute les table, tout les enregistrelement, tout les nom de champs, toute les valeurs des champs . dou mon besoin de tabledef

**Muhad'hib** · 10/08/2006, 14h35

Envoyé par dyree

je parcours donc : toute les table, tout les enregistrelement, tout les nom de champs, toute les valeurs des champs . dou mon besoin de tabledef

NON d'ou ton besoin de Recordset !

Modifie tu la structure d'une table ? Non => pas de tabledef !

teste donc ça plustôt et dis nous si c'est ce que tu veux faire :

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
 
 
reg.Pattern = "^[0-9]{1,3}"
reg.IgnoreCase = True
Dim Rs As DAO.Recordset
 
 
For Each tbd In Db.TableDefs
 
    If tbd.Name = "Fiche_recapitulative_SMS" Or tbd.Name = "Repertoire_SIM_et_mobile" Or tbd.Name = "SMS_MO" Or tbd.Name = "USSD" Then
         Set Rs = CurrentDb.OpenRecordset(tbd.Name, dbOpenDynaset)
         Do Until Rs.EOF = True
 
                Champ = ""
 
                For I = 0 To Rs.Fields.Count - 1
 
                If reg.test(Rs(I).Name) = True Then
                    If Rs(I).Value = True Then
 
                       x = reg.Replace(Rs.Fields(I).Name, "")
 
                       Champ = x & "/" & Champ
 
                    End If
                End If
 
                Next I
                Rs.Edit
                Rs("Gestion_des_caracteres") = Champ
                Rs.Update
 
 
         Loop
    End If
Next tbd
Set Rs = Nothing

A+