Discussion :

[label55]

Bonjour à tous,

alors j'ai une fonction qui me permet de charger les différentes combox d'une page. Cette fonction marche correctement lors du chargement de la page et même lorsque je l'appelle depuis cette même page mais lorsque je l'appelle depuis la méthode _click d'une combobox de cette page la comboBox où j'ai cliqué n'affiche rien. Je vais vous mettre le code des différente fonction que j'utilise

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
 
'la fonction qui gérer l'evenement de clique
Private Sub CboRef_Click(Index As Integer)
    If CboRef(Index).Text <> "" Then
        Dim idFourn As Long
        Dim oldRef As String
 
        idFourn = Fournisseur.getIdFournisseur(CboFourn(Index).Text)
        oldRef = Article.getRefFournActive(Article.idArticle, idFourn)
        'les lignes suivante permettent de modifier ma base de donné pour que
        'lorsque j'affiche ma page les combo box soit changé
        Article.modifReferenceActiveFourn idFourn, oldRef, False
        Article.modifReferenceActiveFourn idFourn, CboRef(Index).Text, True
        Article.effaceFournPrio
        Article.ajouteFournPrio idFourn
        'la fonction qui me permet d'afficher les différent elémént de ma page
        chargeReferenceArticleFourn
    End If
End Sub
'la fonction qui me permet de gérer les elémént de ma page
Private Sub chargeReferenceArticleFourn()
    Dim recordFournisseur As Recordset
    Dim recordReference As Recordset
    Dim i As Integer
 
    If Article.idArticle = 0 Then Exit Sub
    For i = 0 To Article.getNbFournArticle - 1
        CboFourn(i).Clear
        CboRef(i).Clear
    Next
    'je recupère le fournisseur prioritaire
    Set recordFournisseur = Fournisseur.getFournPrio(Article.idArticle)
    'je récupère les reference de ce fournisseur 
    Article.getReferenceFournisseur recordReference,recordFournisseur.Fields("idFourn")
    i = 0
    'je les affiches sur la première ligne
    afficheReference recordReference, i
    Puis je refais la meme chose pour les fournisseur non prioritaire
    Set recordFournisseur = Fournisseur.getFournNonPrio(Article.idArticle)
    If recordFournisseur.RecordCount <> 0 Then
        Do While Not recordFournisseur.EOF
            i = i + 1
            Article.getReferenceFournisseur recordReference, recordFournisseur.Fields("idFourn")
            afficheReference recordReference, i
            recordFournisseur.MoveNext
        Loop
    End If
End Sub
 
'la fonction qui s'occupe d'affiché chaque ligne i
Private Sub afficheReference(ByRef rec As Recordset, ByRef nb As Integer)
    Dim lastRef As String
    If rec.RecordCount <> 0 Then
 
        CboFourn(nb) = Fournisseur.getNomFournisseur(rec.Fields("idFourn"))
        Do While Not rec.EOF
            CboRef(nb).AddItem rec.Fields("refArt")
             CboRef(nb).Text = rec.Fields("refArt")
            TxtPrix(nb) = rec.Fields("Prix")
            TxtDelai(nb) = rec.Fields("delai")
            TxtUDC(nb) = rec.Fields("UDC")
            If rec.Fields("lstPrix") Then
                ChkLstPrix(nb).Value = 1
            Else
                ChkLstPrix(nb).Value = 0
            End If
            rec.MoveNext
        Loop
    End If
    If nb = 0 Then
        Option1(nb) = 1
    Else
        Option1(nb) = 0
    End If
End Sub

J'ai peur que ca ne soit pas tres parlant pour vous, mais bon je tente quand même, je vous met aussi un impr ecran de ma page vous comprendré peut etre mieux...
Mon problème arrive qd je clique sur un comboBox de référence mon but etant de changé la référence prioritaire pour un fournisseur.
En tout cas merci pour votre aide


Cordialement
Pierre