Discussion :

[ThieBEN]

Bonjour à tous,

Quelqu'un pourrait-il me donner des pistes pour pouvoir ajouter dans une combobox de nouveaux enregistrements.

Ma combo marche mais elle se comporte pas normalement.
1 Elle affiche bien les enregistrements anciens, mais refuse les nouveaux.
2 Quand je fais défilé les enregistrements elle reste figé sur le dernier sélectionné.

Voici le code que j'utilise adapté de la commandbar de Raymond Seneque.

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
Option Compare Database
Option Explicit
Dim Db As DAO.Database
Dim Rs    As DAO.Recordset
Dim StrEpiFabric As String
Dim StrSQL          As String
Dim CB          As CommandBar
Dim CBBouton  As CommandBarControl
Dim CBSous_Menu As CommandBarControl
Const Bt20 = "Sélection"
 
Private Sub Form_Activate()
On Error Resume Next
        CBBouton.Text = Me!EpiReference & ", " & Me!EpiFabric
    Select Case Me.CurrentRecord
     End Select
End Sub
 
Private Sub Form_AfterUpdate()
   If Me.NewRecord Then Creer_Selection
End Sub
Function Action_Bouton()
Set Rs = Forms!frmEpi.Recordset
    Set CBBouton = Application.CommandBars.ActionControl
    If CBBouton Is Nothing Then Exit Function
    Select Case CBBouton.Parameter
 
 
        Case "Selection"
 
            StrEpiFabric = Left$(CBBouton.Text, InStr(CBBouton.Text, ",") - 1)
            Rs.FindFirst "EpiReference = '" & StrEpiFabric & "'"
 
   End Select
 
 
End Function
 
Function Remplir_Selection(CBBouton As CommandBarComboBox)
   StrSQL = "SELECT EpiFabric, EpiReference FROM tblEpi ORDER BY EpiReference"
   Set Db = CurrentDb
   Set Rs = Db.OpenRecordset(StrSQL)
   Rs.MoveFirst
   Do Until Rs.EOF
       CBBouton.AddItem Rs.Fields("EpiReference") & ", " & Rs.Fields("EpiFabric")
       Rs.MoveNext
   Loop
   Rs.MoveFirst
         Set CBBouton = Application.CommandBars(CB_Nom).Controls(Bt20)
        CBBouton.Text = Me!EpiReference & ", " & Me!EpiFabric
End Function
Function Creer_Selection()
On Error Resume Next
   Set CBBouton = CommandBars(CB_Nom).Controls(Bt20)
   CBBouton.Delete
 
    Set CB = CommandBars.Add(CB_Nom)
    With CB
        Set CBBouton = .Controls.Add(msoControlComboBox)
        With CBBouton
            .Enabled = True
            .BeginGroup = True
            .Style = msoComboLabel
            .Width = 220
            .Caption = Bt20
            .OnAction = "=Action_Bouton()"
            .Parameter = "Selection"
        End With
   End With
   Call Remplir_Selection(CBBouton)
End Function

Merci de votre aide

[FreeAccess]

Bonjour,

...des pistes pour pouvoir ajouter dans une combobox de nouveaux enregistrements

As tu pensé a faire une petite recherche....

Ces différents posts correspondent-ils à ton problème...
http://www.developpez.net/forums/sho...=absence+liste
http://www.developpez.net/forums/sho...=absence+liste
http://www.developpez.net/forums/sho...=absence+liste

.......Bonne lecture......

[ThieBEN]

Oui j'ai déjà fait des recherches mais je n'ai rien trouvé qui correspond à une combobox. Ma liste est faite uniquement par le code apparemment les discussions que tu m'as indiqué correspondent à des zones de listes déroulante. Moi je n'ai pas accès à limité la liste etc.
En revanche si tu as un bout de code par rapport à ma combobox
Merci d'avance

[FreeAccess]

Au plus simple avec une Zone de liste....

-1)....sur ton formulaire, un bouton permettant l'ouverture d'un form pour la saisie du nouvel enregistrement

-2)....après vérification que tu n'entre pas un doublon, enregistrement dans ta table.

-3)....mise à jour de ta ZdL en sortie de validation du nouvel enregistrement.

Maintenant, il y a peut-être plus simple...ou plus rapide......

[ThieBEN]

Au plus simple avec une Zone de liste....

Je ne recherche pas le plus simple puisque ma zone de liste est dans la barre de menu. Ce que je voudrais c'est qu'access veuille bien m'afficher les nouveaux enregistrements et que ma liste défile lorsque je change d'enregistrement via les bouton de navigation.
En tout cas merci de ton aide

[FreeAccess]

Re,

je viens de tester l'application de R. SENEQUE....

...Ce que je voudrais c'est qu'access veuille bien m'afficher les nouveaux enregistrements et que ma liste défile lorsque je change d'enregistrement via les bouton de navigation

Les nouveaux enregistrements sont correctement pris en compte (ZdL mise à jour)

Pas d'erreur de sélection dans cette même ZdL.

La liste se synchronise correctement sur changement d'enregistrement......

[Domi2]

Bonjour,

Essaie de mettre cette partie de code sur l'événement Activation (Form_Current) et non Sur activé (Form_Activate)

Code :

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

1
2
3
4
5
6
Private Sub Form_Current()
On Error Resume Next
        CBBouton.Text = Me!EpiReference & ", " & Me!EpiFabric
    Select Case Me.CurrentRecord
     End Select
End Sub

Normalement, l'enregistrement apparaissant dans la liste devrait se synchroniser avec celui du formulaire quand tu changes d'enregistrement...

Pour ce qui des nouveaux enregistrements, à voir si cela a un effet...

Domi2

[ThieBEN]

Salut Domi 2
Effectivement elle se synchronise avec le formulaire, mais la liste n'affiche pas tous les enregistrements du moins ceux qui ont été rajoutés après la création de la barre de menu c'est étrange. Lorsque j'ai adapté la liste à mon appli elle à tout de suite affiché les enregistrements présents dans la table pourquoi pas les nouveaux?
Merci