> Tous les forums > Forum Autres langages
 Access 2010 filtre sur formulaire
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
ACN
  Posté le 08/10/2010 @ 12:32 
Aller en bas de la page 
Nouvel astucien

Bonjour,

J'aimerais que l'on trouve une solution au problème suivant.
Je suis sous Access 2010. Un formulaire "Choix_Naissances" lié à la table "Naissances".
Dans ce formulaire j'ai 4 champs indépendants pour faire des filtres: Rnom...(voir code). Le filtre étant déclenché par un bouton "Recherche"
Cette fonction donne bien les résultats souhaités.
Je voudrais recopier la sélection effectuée avec ses filtres dans une autre table "Temp_Naissances" mais je n'arrive pas à trouver la solution.
Merci de me dépanner.
code VBA du bouton "Recherche"

Private Sub CmdFiltre_Click()
On Error GoTo Err_CmdFiltre_Click
Dim f As String

f = ""

'recherche nom
If Not IsNull(Me.RNom) And Me.RNom <> "" Then
f = "Nom LIKE ""*" & Me.RNom & "*"""
End If

'recherche prenom
If Not IsNull(Me.RPrenom) And Me.RPrenom <> "" Then
If f <> "" Then
f = f & " AND Prenom LIKE ""*" & Me.RPrenom & "*"""
Else
f = "Prenom LIKE ""*" & Me.RPrenom & "*"""
End If
End If

'recherche nom mère
If Not IsNull(Me.RNomM) And Me.RNomM <> "" Then
If f <> "" Then
f = f & " AND Prenom LIKE ""*" & Me.RPrenom & "*"""
f = f & " AND NomM LIKE ""*" & Me.RNomM & "*"""
Else
f = "NomM LIKE ""*" & Me.RNomM & "*"""
End If
End If

'recherche commune
If Not IsNull(Me.RLieu) And Me.RLieu <> "" Then
If f <> "" Then
f = f & " AND Prenom LIKE ""*" & Me.RPrenom & "*"""
f = f & " AND NomM LIKE ""*" & Me.RNomM & "*"""
f = f & " AND Lieu LIKE ""*" & Me.RLieu & "*"""
Else
f = "Lieu LIKE ""*" & Me.RLieu & "*"""
End If
End If

Me.Filter = f
Me.FilterOn = True

Exit_CmdFiltre_Click:
Exit Sub
Err_CmdFiltre_Click:
MsgBox Err.Description
Resume Exit_CmdFiltre_Click
End Sub

Publicité
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
Formulaire dynamique Access
syntaxe zone de liste déroulante dans excel 2010
Tutoriel access
recuperé ds données d'un formulaire dans un autre
Comment Récupérer un Tag sous Visual Basic 2010
Problème Access avec 2 inner join
code vb permettant d'enregistrer en access
Créer formulaire de notations en HTML pour Blog ?
Assistant formulaire de données dans VS 2005
Visual Basic for Access ( VBA )
Plus de sujets relatifs à Access 2010 filtre sur formulaire
 > Tous les forums > Forum Autres langages