Bonjour,
j'ai un formulaire comprenant:
- Une zone de texte nomm=E9e txtSaisiePays
- Une zone de liste nomm=E9e ListePays
- Un bouton de commande nomm=E9 Commande0
=09
Une table appel=E9e tPays contenant entre autre le nom des=20
pays (NomPays).
Sur l'=E9v=E8nement clic du bouton, je remplis la zone de=20
liste avec tous les pays dont le nom commence par les=20
caract=E8res saisis dans la zone de texte txtSaisiePays.=20
Voici le code:
Private Sub Commande0_Click()
Dim strSQL As String
strSQL =3D "Select NomPays from tPays where NomPays=20
like '" & Me!
txtSaisiePays & "*' order by NomPays;"
Me!ListePays.RowSourceType =3D "Table/Requ=EAte"
Me!ListePays.RowSource =3D strSQL
End Sub
J'aimerais remplacer ma zone de liste par un sous=20
formulaire, quel serait le code?
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
3stone
Salut,
"Julien" Sur l'évènement clic du bouton, je remplis la zone de liste avec tous les pays dont le nom commence par les caractères saisis dans la zone de texte txtSaisiePays. Voici le code:
Private Sub Commande0_Click() Dim strSQL As String strSQL = "Select NomPays from tPays where NomPays like '" & Me! txtSaisiePays & "*' order by NomPays;" Me!ListePays.RowSourceType = "Table/Requête" Me!ListePays.RowSource = strSQL End Sub
J'aimerais remplacer ma zone de liste par un sous formulaire, quel serait le code?
Idem, sauf que:
pas de rowsourcetype et tu remplace la rowsource par:
Me!MonSousForm.Form.RecordSource= strSQL
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Salut,
"Julien"
Sur l'évènement clic du bouton, je remplis la zone de
liste avec tous les pays dont le nom commence par les
caractères saisis dans la zone de texte txtSaisiePays.
Voici le code:
Private Sub Commande0_Click()
Dim strSQL As String
strSQL = "Select NomPays from tPays where NomPays
like '" & Me!
txtSaisiePays & "*' order by NomPays;"
Me!ListePays.RowSourceType = "Table/Requête"
Me!ListePays.RowSource = strSQL
End Sub
J'aimerais remplacer ma zone de liste par un sous
formulaire, quel serait le code?
Idem, sauf que:
pas de rowsourcetype et tu remplace la rowsource par:
Me!MonSousForm.Form.RecordSource= strSQL
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
"Julien" Sur l'évènement clic du bouton, je remplis la zone de liste avec tous les pays dont le nom commence par les caractères saisis dans la zone de texte txtSaisiePays. Voici le code:
Private Sub Commande0_Click() Dim strSQL As String strSQL = "Select NomPays from tPays where NomPays like '" & Me! txtSaisiePays & "*' order by NomPays;" Me!ListePays.RowSourceType = "Table/Requête" Me!ListePays.RowSource = strSQL End Sub
J'aimerais remplacer ma zone de liste par un sous formulaire, quel serait le code?
Idem, sauf que:
pas de rowsourcetype et tu remplace la rowsource par:
Me!MonSousForm.Form.RecordSource= strSQL
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
