Discussion :

[Ric21]

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 ?

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

Merci de votre aide,... pour moi très précieuse

@ +
Ric21

[Ric21]

Re :

J'ai oublier de préciser que je suis actuellement sur Access 2003 et que l'autre application était sur 2000, et qu'elle n'ont aucune relation

Ric21

[Ric21]

Bonjour

J'ai résolut mon problème, mais je suis incapable de savoir comment

L'essentiel est que ça MARCHE

Merci quand même

@ +
Ric21