Discussion :

[BERRACHED SAID]

bonjour le forum

Au début j'avais met un Datagrid et ça fonctionné très bien seulement l'inconvénient c'est que l'impression pour ce contrôle n'est pas fameuse alors j'ai
opté de remplacé le DataGrid par un Flexigrid en gardant les même structures du code apparemment ça fonctionne sauf qu'il m'affiche qu'un seul enregistrement le premier enregistrement de la table alors qu'il existe plusieurs enregistrements.

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
39
40
41
42
43
44
45
46
47
Dim rs1 As String
'On Error Resume Next
StartDate = Format(StartDate, "dd/mm/yyyy")
If StartDate = "" Then
MsgBox "Il vous faut une date de Début de Période"
Exit Sub
End If
StopDate = Format(StopDate, "dd/mm/yyyy")
If StopDate = "" Then
MsgBox "Il vous faut une date de Fin de Période"
Exit Sub
End If
If StartDate = Format(StartDate, "dd/mm/yyyy") < StopDate = Format(StopDate, "dd/mm/yyyy") Then
MsgBox "la Date de début Doit étre Superieur a la Date Fin"
Exit Sub
End If
With LblSigne
.Caption = "Reglement de La Période Allant du : " & (StartDate.Text) & "  Au : " & (StopDate.Text)
.Visible = True
End With
Set conn = New ADODB.Connection
conn.Provider = "Microsoft.jet.OLEDB.3.51"
conn.ConnectionString = App.Path & "\GRentes.mdb"
conn.Open
Set rsReglement = New ADODB.Recordset
rs1 = "Select * From TReglement WHERE [DateReglement] BETWEEN #" & StartDate & "#  And  #" & StopDate & "#"
rsReglement.Open rs1, conn, adOpenKeyset, adLockOptimistic, adCmdTex
           If Not rsReglement.BOF Then
            'rsReglement.MoveNext
MSFlexGrid1.Row = MSFlexGrid1.Rows - 1 'Pour ce placer sur la dernière ligne
MSFlexGrid1.Col = 0 'première colonne
MSFlexGrid1.Text = rsReglement.Fields("Rente") 'Intitulé des colonnes
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = rsReglement.Fields("Nom")
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = rsReglement.Fields("Prenom")
MSFlexGrid1.Col = 3
MSFlexGrid1.Text = rsReglement.Fields("Echeance")
MSFlexGrid1.Col = 4
MSFlexGrid1.Text = rsReglement.Fields("Annee")
MSFlexGrid1.Col = 5
MSFlexGrid1.Text = rsReglement.Fields("Montant")
 rsReglement.MoveNext
 MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1 'Pour ajouter une ligne à l grille
Else
MsgBox "Aucun Reglement Pour cette Période"
End If

Merci d'avance pour ceux qui veulent m'éclairé

[SfJ5Rpw8]

Revoit la structure de ton code .. il manque la boucle de parcours des enregistrements.

[BERRACHED SAID]

Bonjour bbil

oui Visiblement ça manque un Next

Merci

[BERRACHED SAID]

Salut bbil

j'ai réussi a afficher le résultat simplement il y a ce message"MsgBox Aucun Reglement Pour cette Période" qui s'affiche alors que normalement ne devrait s'affiché que s'il y a pas d'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
16
17
18
19
20
Do Until rsReglement.EOF
MSFlexGrid1.Row = MSFlexGrid1.Rows - 1 'Pour te placer sur la dernière ligne
MSFlexGrid1.Col = 0 'première colonne
MSFlexGrid1.Text = rsReglement.Fields("Rente") 'ecrit dans la cellule
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = rsReglement.Fields("Nom")
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = rsReglement.Fields("Prenom")
MSFlexGrid1.Col = 3
MSFlexGrid1.Text = rsReglement.Fields("Echeance")
MSFlexGrid1.Col = 4
MSFlexGrid1.Text = rsReglement.Fields("Annee")
MSFlexGrid1.Col = 5
MSFlexGrid1.Text = rsReglement.Fields("Montant")
 rsReglement.MoveNext
 MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1 'Pour ajouter une ligne à l grille
 Loop
'Else
MsgBox "Aucun Reglement Pour cette Période"
'End If

Merci

[SfJ5Rpw8]

.....

j'ai réussi a afficher le résultat simplement il y a ce message"MsgBox Aucun Reglement Pour cette Période" qui s'affiche.....

Et dans ton code tu as mis quelque chose qui conditionne l'affichage de ce message au fait qu'il y ait ou pas des enregistrement dans ta base ???

Essai de comprendre le code que tu écris ...

[BERRACHED SAID]

Salut bbil

j'ai contourné le probléme en ajoutant cette condition et qui semble fonctionner parfaitement :

Code :

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

1
2
3
If MSFlexGrid1.Text = "" Then
  MsgBox "Aucun Reglement Pour cette Période"
End If

Merci

[SfJ5Rpw8]

tu pourrai aussi tester le nombre d'enregistrement de ton RecordSet :

http://vb.developpez.com/bidou/recor...ordset#LVI-A-9