Discussion :

[jncoffy]

Je sollicite votre aide pour m'aider à résoudre un problème sur un
formulaire.

J'utilise un formulaire nommé 'Devis' pour enregistrer les séjours effectués
par des groupes d'enfant dans un centre de vacance. Ce formulaire est basé
sur les données d'une table 'Séjours'.

Dans ce formulaire, j'utilise un sous-formulaire basé sur certains champs
des tables 'Restauration' et 'DétailRestauration'.. Ce sous formulaire me
permet d'enregistrer les différentes formules de restauration d'un groupe
donné pendant son séjour. Ces différentes formules sont toutes listées dans
la table 'Restauration'.

Jusque là, pas de problème tout marche.

Là ou ça se complique pour moi qui ne connait pas VBA : Un groupe choisi
pendant son séjour un seul lieu de restauration. Et les formules de
restauration changent selon le lieu choisi (centre internat ou restaurant).
Un groupe de 2 boutons radios placé dans le formulaire me permet de
sélectionner le lieu de restauration.
Je souhaiterai pouvoir filtrer le combo placé dans mon sous formulaire de
manière à ce qu'il n'affiche que les codesRestauration basés sur le
LieuDeRestauration sélectionné. Les deux champs CodeRestauration et
LieuDeRestauration sont dans la table Restauration.

Conscient de ma difficulté à exposer mon problème, je joint un exmple de ma
base de données. Tout se joue dans le formulaire 'Devis'.

Merci d'avance à tous ceux qui voudraient m'apporter leur aide

Jean Noël

[boubignole]

Salut

tu peux rajouter un truc du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim SourceListe As String
 
Select Case Cadre30
Case 1
SourceListe = "SELECT CodeRestauration, [Formule de Restauration] FROM Restauration Where [Lieu de Restauration] like " & Chr(34) & "Centre*" & Chr(34)
Forms![Devis]![DétailRestauration sous-formulaire].Form!CodeRestauration.RowSource = SourceListe
 
Case 2
SourceListe = "SELECT CodeRestauration, [Formule de Restauration] FROM Restauration Where [Lieu de Restauration] like " & Chr(34) & "Restau*" & Chr(34)
Forms![Devis]![DétailRestauration sous-formulaire].Form!CodeRestauration.RowSource = SourceListe
 
End Select

dans l'évènement Arès mise à jour du cadre des boutons radio

[jncoffy]

Ca c'est de l'efficacité.
Merci Boubignole (drôle de pseudo tout de même...) pour l'aide que tu m'a apporté. Tout fonctionne nickel

Merci également à ceux qui ont pris le temps de lire mon message

Jean Noël