Bonjour a tous
Voici mon petit probleme

J'ai une appli ou l'utilisateur doit choisir le nom d'une personne dans une combobox et grace a ca, je desire mettre des info du nom choisi dans un flexgrid :

ma combobox fonctionne mais aucune info ne s'affiche dans mon flexgrid :

je ne voi pa ou est mon erreur... peut etre a l'annonce de ma requete sql...(jessaye de afficher ma requete a lecran mais rien ne se passe)
si quelqu'un voit ou est mon erreur ca serait sympa

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
 
 
Public rs As Recordset
Public db As Database
Public nb_colonne As Integer
Public nb_ligne As Integer
Public strsql As String
 
Private Sub form_load()
Set db = OpenDatabase("aaa.mdb")
Set rs = db.OpenRecordset("select * from projet")
Call ChargeCombo
End Sub
 
Sub ChargeCombo()
    Dim NbCcb As Integer
    Dim NbLcb As Integer
    Dim RSCombo As Recordset
 
Set RSCombo = db.OpenRecordset("select * from projet")  'Ouverture du RecordSet projet
If RSCombo.EOF Or RSCombo.BOF Then 'Vérification de l'éxistence de données ds la base
    MsgBox "Aucun élément trouvé pour le combo"
    Exit Sub
End If
 
RSCombo.MoveLast   ' Positionne le curseur
RSCombo.MoveFirst  ' de déplacement
 
NbCcb = RSCombo.Fields.Count 'Compte le nombre d'attributs
NbLcb = RSCombo.RecordCount  'Compte le nombre d'enregistrements
For i = 0 To NbLcb - 1
    liste_ressource.AddItem RSCombo.Fields(3) '& " " & RSCombo.Fields(4)   'Charge la liste déroulante avec le champ
                                                                           'le 3 soit le nom et 4 le prenom
    RSCombo.MoveNext 'Passe à l'enregistrement suivant
Next
 
End Sub
 
Sub remplir_grid()
 
Dim i As Integer
Dim j As Integer
 
'Requête SQL de recherche des éléments
strsql = "Select client.num_client, nom_projet, responsable_projet, date_debut_mission, date_fin_mission, lieu_mission, nom_client, resposable_client "
strsql = strsql & " from client,projet "
strsql = strsql & " where client.num_client=projet.num_client "
strsql = strsql & " and nom_ressource = " & "'" & liste_ressource.Text & "'"
'Affichage de la requête
MsgBox strsql
'Exécution de la requête
Set rs = db.OpenRecordset(strsql)
 
rs.MoveLast
rs.MoveFirst
 
nb_colonne = rs.Fields.Count
nb_ligne = rs.RecordCount
MSFlexGrid1.Cols = nb_colonne  ' Affectation du nbre de colonnes à la Flexgrig
MSFlexGrid1.Rows = nb_ligne  ' Affectation du nbre de lignes à la Flexgrig
Call videgrid(nb_ligne, nb_colonne) ' On vide la Flexgrid sil existe des données
 
If rs.EOF Or rs.BOF Then 'Msg si aucun élément trouvé ds la base
    MsgBox "aucun élément trouvé" 'STOP
    Call videgrid(nb_ligne, nb_colonne)
    Exit Sub
End If
 
rs.MoveFirst 'Placement du curseur sur le 1er enregistrement
 
For i = 0 To rs.RecordCount - 1
    MSFlexGrid1.Row = i
    For j = 0 To rs.Fields.Count - 1 'Affichage des données ds flexgrid
        MSFlexGrid1.Col = j
        If IsNull(rs.Fields(j)) Then
            MSFlexGrid1.Text = ""
        Else
            MSFlexGrid1.Text = rs.Fields(j)
        End If
    Next
    rs.MoveNext
Next
 
End Sub
 
Private Sub liste_ressource_Change() 'Affiche les enregistrements correspondant à cette catégorie
 
Call remplir_grid
End Sub