Discussion :

[DUMEDO]

Bonjour

je désire remplir une MSFlexGrid à partir d'une base acess
Le petit code joint fonctionne mais il ne m'affiche qu'une réponse alors qu'il y a plusieur réponse....

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
Set db = DBEngine.Workspaces(0).OpenDatabase("C:\DOSSIER\BASE.mdb") 
sql = "SELECT * FROM TOTO where NUMERO like '" & Text1.Text & "*'" 
Set ds = db.CreateDynaset(sql) 
If ds.EOF Then 
Titre = "RECHERCHE JOURNEE" 
Message = "Aucune fiche avec ce N°, réessayer ?" 
Reponse = MsgBox(Message, 48 + 4, Titre) 
If Reponse = 7 Then Unload ME 
 
End If 
ligne = 1 
Do Until ds.EOF 
MSFlexGrid1.Rows = 0 
MSFlexGrid1.Cols = 3 
MSFlexGrid1.ColWidth(0) = 1500 
MSFlexGrid1.ColWidth(1) = 1800 
MSFlexGrid1.ColWidth(2) = 500 
MSFlexGrid1.AddItem ds("CHAMPS1") & Chr(9) & ds("CHAMPS2") & Chr(9) & ds("CHAMPS3") 
ds.MoveNext 
MSFlexGrid1.Rows = ligne + 1 
Loop 
End If

Comment alterner la couleur des lignes (1 bleu puis 1 jaune et ainsi de suite)

Comment bloquer le clique dans la seconde colonne ?

Merci d'avance

dumedo

[Pascal Lob]

En général je fais comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
do while not rs.eof 'Pour parcourir tous tes enregistrements
MSFlexGrid1.Rows = MSFlexGrid1.Rows +1 'Pour ajouter une ligne à l grille
MSFlexGrid1.Row = MSFlexGrid1.Rows -1 'Pour te placer sur la dernière ligne
MSFlexGrid1.col = 0 'première colonne
MSFlexGrid1.text = rs.fields("CHAMPS1") 'ecrit dans la cellule
MSFlexGrid1.col = 1
MSFlexGrid1.text = rs.fields("CHAMPS2")
MSFlexGrid1.col = 2
MSFlexGrid1.text = rs.fields("CHAMPS3")
rs.mouvenext 'Pour passer au record suivant 
loop

[DUMEDO]

bonjour

j'ai testé le code et j'ai le même problème, il ne m'affiche que la dernière réponse de ma requete sql.
Les données affichées sont celle du dernier enregistrement...

Merci d'avance

[Pascal Lob]

Dans ton code, tu remet ta grille à 0 ligne a chaque enregistrement.
Dans le mien non.
Par contre est tu sur que ta requette te renvoie bien plusieurs enregistrements ?

[DUMEDO]

Après vérification, j'arrive à ce que je désire.
Par contre je ne peux pas cliquer par exemple dans la seconde ligne. Je ne peux cliquer que sur la cellulle A1 en haut à gauche.
Je désire récuper la valeur de n'importe quelle cellule afin de faire une recherche
Quelle option a activer ou désactiver ?

Merci de ton aide

dumedo

[Pascal Lob]

FlexGrid1.SelectionMode = flexSelectionFree

puis tu dois récupérer dans col et row la cellule sélectionnée.

[DUMEDO]

bonjour

super cela fonctionne.
Par contre si vous connaissez un petit code pour alterner de couleur une ligne sur deux, je suis preneur....

merci d'avance

[OhMonBato]

Bonjour,

le forum est là pour répondre aux questions, certes, mais ça n'empêche pas un minimum de recherche personnelle au départ.
En utilisant l'aide de VB tu verrais qu'il y a une propriété CellBackColor qui devrait te mettre la puce à l'oreille.
Il y a également une fonction "rechercher" sur ce forum et en tapant "couleur flexgrid" on tombe entre autre sur ce sujet : http://www.developpez.net/forums/d43...nd-msflexgrid/

Si ton problème est résolu, merci ensuite de cliquer sur le bouton "Résolu" en bas de cette page.