Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Ouvrir un formulaire avec une clause where

Ouvrir un formulaire avec une clause where

1 réponse
Avatar
NetChris
Bonjour,

Je cherche à ouvrir un formulaire affichant la liste des homonymes.
S'il trouve alors :
DoCmd.OpenForm "F_HOMONYMES", , , "NOM_SOUSCRIPTEUR = '" & Nom_Homo &
"'", , , 1


Dans le formulaire, j'ai (sur ouverture) :

Private Sub Form_Open(Cancel As Integer)
Select Case Me.OpenArgs
Case 1
Me.RecordSource = "SELECT * FROM PROSPECTS_BULLETIN"
Case 2
Me.RecordSource = "SELECT * FROM SOUSCRIPTEUR order by PRENOM"
End Select
End Sub

Mais il m'affche tous les enregistrements !! (et pas seulement ceux dont le
Nom_Souscripteur = Nom_Homo)
OpenArgs me sert à choisir la table source.
Je ne voit pas mon erreur.
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
NetChris
J'ai (une fois de plus) contourné le problème en me servant de OpenArgs avec
2 paramètres.

Merci à tous.

"NetChris" a écrit dans le message de
news:bj9lj4$dn0$
Bonjour,

Je cherche à ouvrir un formulaire affichant la liste des homonymes.
S'il trouve alors :
DoCmd.OpenForm "F_HOMONYMES", , , "NOM_SOUSCRIPTEUR = '" & Nom_Homo
&

"'", , , 1


Dans le formulaire, j'ai (sur ouverture) :

Private Sub Form_Open(Cancel As Integer)
Select Case Me.OpenArgs
Case 1
Me.RecordSource = "SELECT * FROM PROSPECTS_BULLETIN"
Case 2
Me.RecordSource = "SELECT * FROM SOUSCRIPTEUR order by PRENOM"
End Select
End Sub

Mais il m'affche tous les enregistrements !! (et pas seulement ceux dont
le

Nom_Souscripteur = Nom_Homo)
OpenArgs me sert à choisir la table source.
Je ne voit pas mon erreur.