Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > IHM
IHM Ce forum est dédié aux questions relatives à la création de formulaires et d'états, avec ou sans code VBA, et macros.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 09/05/2011, 20h32   #1
Nouveau Membre du Club
 
Stéphane FISCHBACH
Inscription : janvier 2009
Messages : 165
Détails du profil
Informations personnelles :
Nom : Stéphane FISCHBACH
Âge : 40
Localisation : Belgique

Informations forums :
Inscription : janvier 2009
Messages : 165
Points : 39
Points : 39
Par défaut besoin d'aide pour faire un filtre de selection

Bonsoir le forum

j'aurais besoin de petit renseignement pour faire un filtre de selection

je m'explique

dans un formulaire en tabulaire j'ai un champ que je nommerai " champ1"

dans mon en tete de formulaire j'ai un champ 2

dans mon pied du formulaire j'ai un bouton 1

je souhaite lorsque j'appuie sur le bouton 1 qu'il fasse un tri de selection sur le champ1 d'apres la valeur du champ2

donc verifier la valeur dans le champ2 et puis rechercher les memes valeur dans le champ1 et les afficher

merci pour votre aide
revemane est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 10/05/2011, 14h42   #2
Membre Expert
 
Homme Jacques Petiot
Indépendant développeur et formateur
Inscription : octobre 2007
Messages : 891
Détails du profil
Informations personnelles :
Nom : Homme Jacques Petiot
Âge : 51
Localisation : France

Informations professionnelles :
Activité : Indépendant développeur et formateur
Secteur : Conseil

Informations forums :
Inscription : octobre 2007
Messages : 891
Points : 1 333
Points : 1 333
hello
Code :
1
2
3
4
Private bouton_1_Click()
    Me.filter = "champ1 = " & champ2
    Me.FilterOn = True
End Sub
sauf si champ2 est un texte, alors
Code :
1
2
3
4
Private bouton_1_Click()
    Me.filter = "champ1 = '" & champ2 & "'"
    Me.FilterOn = True
End Sub
ou bien si on ne sait pas
Code :
1
2
3
4
5
6
7
8
9
Private bouton_1_Click()
if IsNumeric(champ2) then
    Me.filter = "champ1 = " & champ2
    Me.FilterOn = True
Else
    Me.filter = "champ1 = '" & champ2 & "'"
    Me.FilterOn = True
End If
End Sub
__________________
-------------------Simplifi----------comme si tout était simple--------
Simplifi est déconnecté   Envoyer un message privé Réponse avec citation 10
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 11h07.


 
 
 
 
Partenaires

Hébergement Web