Bonjour
Encore moi![]()
Dans une liste déroulante, lorsque je clic sur un choix puis sur le bouton "Afficher la liste", une boite "CHOIX" me propose [Clubs]=Nom du club et un bouton OK, quand je clic sur OK une autre boite s'affiche et me donne la fonction
SELECT*FROM Stade WHERE [Clubs]=Nom du club OREDER BY Stade.Club
Je ne comprend pas pourquoi ces boites sont là.
Dans un précédent post, vous m'avez dit de supprimer les requêtes, mais justement je n'est pas de requête pour cette liste. Et en plus toute la procédure vient d'une autre application, qui elle fonctionne très bien, je n'est juste changer que les nom de champs.
Je vous joins une parti de la procédure, si cela suffit ?
Merci de votre aide,... pour moi très précieuse
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 Private Sub AfficherListe_Click() 'Crée une clause WHERE en utilisant le critère recherche entré par l'utilisateur 'et définit la propriété Source (RecordSource) du Liste_Liste_ToutClub Dim strMoncritère As String, strMonJeuEnreg As String Dim intNbrArg As Integer 'Initialise le compteur d'argument. intNbrArg = 0 'Initialise l'instruction SELECT. MonSQL = "SELECT * FROM Stade WHERE " strMoncritère = "" 'Utilise les valeurs entrées dans les zones de texte de l'en-tête de formulaire 'pour créer les critères de la clause WHERE. If Me!Votre_Choix = 1 Then strMoncritère = "": GoTo Saut01 If Me!Votre_Choix = 2 Then If Me![UnClub] = "" Then MsgBox "Vous devez sélectionnez un club", 64, "Erreur" Me![UnClub].SetFocus Exit Sub Else AjouteràWhere [UnClub], "[Clubs]", strMoncritère, intNbrArg: GoTo Saut01 End If End If Saut01: 'Si aucun critère n'est spécifié, renvoie tous les enregistrements. If strMoncritère = "" Then strMoncritère = "True" 'Crée l'instruction SELECT. MsgBox strMoncritère, 64, "Choix" strMonJeuEnreg = MonSQL & strMoncritère & " " & "ORDER BY Stade.Clubs" 'Défini la propriété RecordSource du Liste_Liste_ToutClub. MsgBox strMonJeuEnreg, 64, "Choix" Me![Liste_ToutClub].Form.RecordSource = strMonJeuEnreg
@ +
Ric21
Partager