Discussion :

[bruno28]

Bonjour à tous.

J'ai un form avec un objet ListView. Cet objet peut contenir environ 30 colonnes. C'est beaucoup. Je veut que l'utilisateur choisisse les colonnes à visualiser, et l'ordre dans lequel les visualiser.
J'ai donc un form qui enregistre dans une table les colonnes à visualiser à l'aide d'un champs 'Sélection' ( de type oui/non ) et un champs 'Tri' qui incrémente un nombre pour savoir dans quel ordre les champs sont sélectionnés

Je voudrais à la fermeture du formulaire enregistrer quels champs ont été sélectionnés

voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
    'Récupère le chemin de la base de donnée
Dim MaBD1
MaBD1 = Application.CurrentProject.Path 'chemin du fichier sans nom ni extension
 
Dim SélectionnésSélectionnés = "SELECT tblChampsAAfficher.* FROM tblChampsAAfficher WHERE (((tblChampsAAfficher.Selection) = True)) ORDER BY tblChampsAAfficher.Tri"
 
Dim chps1, chps2   'ect...
          'Ecrit dans fichier ini les champs sélectionnés
EcritDansFichierIni "Affichage", "aff1", "1erchamp", MaBD1 & "\configGCA.ini"
EcritDansFichierIni "Affichage", "aff1", "2èmechamp", MaBD1 & "\configGCA.ini"

ect.. où 1erchamp = nomtable.nomchamp pour création requête paramétrable
je n'arrive pas à lire les enregistrements de ma table

suis je clair?

[Kloun]

Pourquoi écrire dans un fichier ?
Il serait plus simple d'écrire l'ordre dans une table
IdChamp - NomChamp - blnSelectionne - IntOrdre

[bruno28]

C'est parce que j'enregistre dèjà d'autres infos.
Mais mon problème n'est pas là. Je sais lire et écrire dans un fichier

mon problème, c'est que

Code :

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

1
2
3
4
 
chps1 = "SELECT tblChampsAAfficher.[Champs a Afficher] FROM tblChampsAAfficher WHERE (((tblChampsAAfficher.Selection)=True) AND ((tblChampsAAfficher.Tri)=1))"
'Ecrit dans fichier ini les champs sélectionnés
  EcritDansFichierIni "Affichage", "aff2", chps1, MaBD1 & "\configGCA.ini"

chps1 a pour valeur l'instruction SQL au lieu d'avoir pour valeur le résultat de l'instruction ( en l'occurence, l'instruction n'aura obligatoirement qu'1 enregistrement, sur une seule colonne ) - > dans l'exemple, chps1 doit être égal au mot "Ville" (résultat de la requête)

[Kloun]

Code :

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

1
2
3
4
iStr_SQL = "SELECT [Champs a Afficher] " & _
"FROM tblChampsAAfficher " & _
"WHERE Selection " & _
"order by Tri"

Ca, c'est pour le SQL.
Ensuite, il faut faire un recordset (voir l'aide) et boucler sur les résultats pour écrire dans le fichier.

Code :

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

1
2
3
4
5
While not Rec.eof
'Ecriture dans le fichier avec les résultats du recordset
....
rec.movenext
wend

[bruno28]

Suis pas très fort. Je n'ai jamais utilisé ce genre de fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
'déclaré en en tête
' Dim dbb As DAO.Database
' Dim Rec As DAO.Recordset
 
    Set dbb = CurrentDb()
    Set Rec = dbb.OpenRecordset("SELECT tblChampsAAfficher.* FROM tblChampsAAfficher WHERE (((tblChampsAAfficher.Selection) = True)) ORDER BY tblChampsAAfficher.Tri")
 
While Not Rec.EOF
'Ecriture dans le fichier avec les résultats du recordset
    EcritDansFichierIni "Affichage", "aff2", Rec, MaBD1 & "\configGCA.ini"
    Rec.MoveNext
Wend

ce code provoque une erreur: Erreur de compilation : Type d'argument ByRef incompatible.
En français courant, ça donne quoi? (j'ai appuyé sur aide, mais ça m'a pas aidé.

[Kloun]

Le Rec, c'est un recordset.
Si tu veux accéder à la valeur d'un champ d'un tuple, c'est

Code :

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

rec.fields("LeChamp").value

[bruno28]

T'es un chef.

C'est ce que je voulais

Merci