× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > 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 !


Les bons plans du moment PC Astuces

Tous les Bons Plans
140,67 €Kit de 32 Go (2 x 16 Go) de mémoire DDR4 Corsair Vengeance LPX 3200 MHz à 140,67 € livré
Valable jusqu'au 10 Juillet

Amazon Allemagne fait une belle promotion sur le kit de 32 Go (2x16 Go) de mémoire DDR4 Corsair Vengeance LPX 3200 MHz CL16 qui passe à 136,03 € (avec la TVA ajustée). Comptez 4,64 € pour la livraison en France soit un total de 140,67 € livré. alors qu'on le trouve ailleurs à plus de 170 €.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre
47,99 €Kit de démarrage Philips Hue White E27 (3 ampoules LED + pont) à 47,99 €
Valable jusqu'au 10 Juillet

Amazon fait une belle promotion sur le kit de démarrage Philips Hue White qui passe à 47,99 € livré gratuitement au lieu de 89 €.  Ce kit de démarrage comporte 3 ampoules LED connectée (culot E27) et un pont de connexion Hue. Avec ce kit, vous pourrez contrôler et programmer l'éclairage des lampes avec votre smartphone sous Android ou iOS (compatible avec le HomeKit d'Apple). 


> Voir l'offre
402,99 €SSD SanDisk Ultra 3D 4 To à 402,99 € livré
Valable jusqu'au 10 Juillet

Amazon Espagne fait une belle promotion sur le SSD SanDisk Ultra 3D d'une capacité de 4 To qui passe à 400 €. Comptez 4,64 € pour la livraison en France soit unt toal de 404,64 € livré. On le trouve ailleurs autour de 510 €. Une bonne affaire pour ce SSD performant qui offre des débits de 560 Mo/s en lecture et 530 Mo/s en écriture. Cette version est garantie 3 ans.


> Voir l'offre

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