Discussion :

[curt]

Bonsoir à tous,

J'ai un formulaire contenant une liste (ListeClient) de choix multiple et un bouton de validation.
J'ai crée un ruban avec un bouton qui reprend (à peu de chose près) le code du bouton du formulaire dont voici le code :

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
Public Sub btnAjouterClient(ByVal control As IRibbonControl)
 
On Error GoTo Err_btnAjouterClient
 
Dim i As Variant
    With ListeClient
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                CurrentDb.Execute "INSERT INTO TblVisaClient (NumClient,NumIndice) VALUES ('" & .Column(0, i) & "','" & ValeurVarIndice() & "' );"
            End If
        Next i
    End With
 
Exit_btnAjouterClient:
    Exit Sub
 
Err_btnAjouterClient:
    'MsgBox Err.Description
    Resume Exit_btnAjouterClient
 
End Sub

ça fonctionne très bien comme ça avec le bouton sur le formulaire, mais je voudrais profiter du Ruban et déplacer le bouton du formulaire.

J'ai modifier la ligne :

Code :

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

With ListeClient

par

Code :

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

With [Forms]![FrmVisaClient].[ListeClient]

et... ça ne fonctionne pas. Les valeurs de ma requête ne sont pas ajoutés à la table.

Un p'tit coup de main serait le bien venu !!!

Merci
Curt

[curt]

Bon... j'ai avancé un petit peu.

Finalement le code ci-dessus fonctionne très bien à un détail près qui m'a induit en erreur : Le formulaire ne se met pas à jour après la requête contenue dans le code.

Donc, nouvelle question : Comment rafraîchir le formulaire après l'exécution de la requête ? (Me.refresh et Me.requery ne fonctionnent pas dans un module).

Merci et bonne soirée.
Curt