Discussion :

[curt]

Bonsoir à tous,

je cherche à alimenter une variable tableau avec la valeur d'un champs contenu dans une table.

Pour l'instant, j'ai ça :

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
Dim MaBD As DAO.Database
Dim MonChamp As DAO.Field
Dim NomTable As DAO.TableDef
Dim Lot() As Variant
 
Set MaBD = CurrentDb
Set NomTable = MaBD.TableDefs("Tbl_Lot")
Set MonChamp = MaBD.TableDefs("Tbl_Lot").Fields("Lot")
 
Dim NombreDeLot As Integer  'Nombre de Lot contenu dans la table Tbl_Lot
    NombreDeLot = CurrentDb.TableDefs("Tbl_Lot").RecordCount
ReDim Lot(NombreDeLot)      'Redimensionnement du Tableau des Lots
 
i = 0
 
' Remplissage du tableau Lot avec les Lots concernés
 
    For Each MonChamp In NomTable.Fields
        Lot(i) = MonChamp.Value
        i = i + 1
    Next
 
etc...

Et là, j'obtiens une erreur 3219 sur la ligne

Code :

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

Lot(i) = MonChamp.Value

Où est l'astuce (sans doute toute bête ) à côté de laquelle je suis passé ?

Merci d'avance.

Curt

[robyseb]

j'ai lu d'autre forum et il semble y avoir un problème sur le update de ta table .... l'erreur 3219 est levé puisque

"L'opération demandée par l'application n'est pas autorisée dans ce contexte.
"

[f-leb]

Salut Curt, Robyseb

l'intention ne me semble pas claire...

je cherche à alimenter une variable tableau avec la valeur d'un champs contenu dans une table.

Tu veux récupérer la valeur du champ "Lot" pour chaque enregistrement (parcours en ligne)?

Mais ici

Code :

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

For Each MonChamp In NomTable.Fields

tu parcoures tous les champs de la table (parcours en colonnes), mais sans parcourir les enregistrements (d'où l'erreur d'ailleurs sur .value)

En attendant de lever le voile, as-tu regardé du côté de getrows ?

[curt]

Bonsoir F-Leb,

je ne connaissais pas getrows

J'essaie de suite.... résultat demain.

Merci
Curt

[Access Newbie]

Bonjour,

Je vais peut-etre dire une betise mais ne faudrait-il pas utiliser un recordset ?

Avec quelque chose du style :

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
Dim MaBD As DAO.Database
Dim rst As DAO.Recordset
Dim Lot() As Variant
Dim i As Integer
Dim sChamp As String
Dim sTable As String
Dim NombreDeLot As Integer  'Nombre de Lot contenu dans la table Tbl_Lot
 
'initialisation
sTable="Tbl_Lot"
sChamp="Lot"
 
'recuperation du nombre de lots
ReDim Lot(DCount(sChamp, sTable)) 
 
i = 0
 
Set MaBD = CurrentDb
Set rst = MaBD.OpenRecordset("select [" & sChamp & "] from [" & sTable & "]")
 
' Remplissage du tableau Lot avec les Lots concernés
Do While Not rst.EOF
    Lot(i) = rst(0)
    i = i + 1
    rst.MoveNext
Loop

[curt]

Bonsoir à tous,

je réponds (et solde) ma question un peu tardivement...

il suffisait de mettre ça :

Code :

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

1
2
3
4
5
6
' Remplissage du tableau Lot avec les Lots concernés
 
    For i = 0 To NombreDeLot - 1
        Lot(i) = rstTbl_Lot!Lot
        rstTbl_Lot.GetRows
    Next i

Quant au "Pourquoi faire un tableau plutôt qu'une table ?" : Tout simplement parce que je ne souhaite pas surcharger la base avec des créations de tables temporaires qu'il faut ensuite effacer... Tout reste en mémoire et le "ménage" est fait à la fermeture de l'appli. (cet avis et façon de faire n'engage que moi....)


merci à f-leb pour GetRows et à tous ceux qui ont amené leur contribution.

Bon week-end.
Curt