Félicitations !
+
0
points
En savoir plus
Actualités
Tests & Guides
Bons Plans
Forum
Premium
Rechercher sur le site
Connexion
Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
Réinitialiser le mot de passe
Retour connexion
Actualités
Tests & Guides
Bons Plans
GTA 6
iPhone 17
Copilot
Switch 2
Temu
ChatGPT
Tesla
Génération NT
Entraide
Applications
Microsoft Office
Access
filter on
filter on
1 réponse
pinochio
05/11/2003 à 14:12
Bonjour
N'etant pas tres fort, pourriez vous me donner
la procédure
1 toto=input pour entrer la variable?
2 faire jouer le filtre pour la sélection. par exemple selectionner les
villes par la variable toto.
merci
Partager
Facebook
Twitter
Reddit
Whatsapp
Email
Signaler
Signaler un problème avec ce contenu
Envoyer
1 réponse
Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Supprimer
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Envoyer
Xavier HUE
Signaler
05/11/2003 à 18:07
Bonjour pinochio,
Dans l'évènement Sur clic d'un bouton pour activer un
filtre:
Private Sub Commande5_Click()
Dim strCritere As String
strCritere = InputBox("Entrez le Code d'une ville")
If strCritere <> "" Then
Me.Filter = "CodeVille = '" & strCritere & "'"
Me.FilterOn = True
Else
Me.FilterOn = False
End If
End Sub
Cordialement.
Bonjour pinochio,
Dans l'évènement Sur clic d'un bouton pour activer un
filtre:
Private Sub Commande5_Click()
Dim strCritere As String
strCritere = InputBox("Entrez le Code d'une ville")
If strCritere <> "" Then
Me.Filter = "CodeVille = '" & strCritere & "'"
Me.FilterOn = True
Else
Me.FilterOn = False
End If
End Sub
Cordialement.
Vous avez filtré cet utilisateur ! Consultez son message
Bonjour pinochio,
Dans l'évènement Sur clic d'un bouton pour activer un
filtre:
Private Sub Commande5_Click()
Dim strCritere As String
strCritere = InputBox("Entrez le Code d'une ville")
If strCritere <> "" Then
Me.Filter = "CodeVille = '" & strCritere & "'"
Me.FilterOn = True
Else
Me.FilterOn = False
End If
End Sub
Cordialement.