Discussion :

[sebinator]

bonsoir,

Je veux passer un filtre a sous formulaire.
Celui ci doit filtrer uniquement les enregistrements sans adresses mail.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Btn_mailmanquants_Click()
Dim filtremailvide As String
filtremailvide = "[SC_mail]='" & is Null & "' and"
 
Me.SF_Req_Societe_et_contact.Form.Filter = filtremailvide ' passe la valeur au filtre du sous formulaire
Me.SF_Req_Societe_et_contact.Form.FilterOn = True 'active le filtrage
End Sub

Ma prise de tête est sur la ligne : filtremailvide = "[SC_mail]='" & is Null & "' and"

J'ai du mal avec les '"[&()&]"'...

si une bonne ame peut me corriger, je la remercie d'avance

[mouaa]

essaye comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

filtremailvide = "[SC_mail] = '' and"

ça devrait t'aider

[Kloun]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

filtremailvide = "nz([SC_mail], '') = ''"

[sebinator]

cela me retourne une erreur

[SC_mail] = '' and

j'ai essayé en passant par une variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Btn_mailmanquants_Click()
Dim filtremailvide As String
Dim Nullval As String
Nullval = Null
filtremailvide = "[SC_mail] ='" & Nullval & "' AND "
 
Me.SF_Req_Societe_et_contact.Form.Filter = filtremailvide ' passe la valeur au filtre du sous formulaire
Me.SF_Req_Societe_et_contact.Form.FilterOn = True 'active le filtrage
End Sub

Ca me retourne une erreur 3075 erreur de syntaxe (opérateur absent) dans l'expression '[SC_mail]='' AND'.

[mouaa]

j'ai dit n'importe quoi !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

filtremailvide = "[SC_mail] like '' and"

évidemment, sur un champ texte c'est pas un "=" c'est un "like" !

[Kloun]

Il sert à quoi le AND à la fin ?

[mouaa]

ah oui t'as raison Kloun, le "and" il sert à rien !

ça donnerait ça en syntaxe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

filtremailvide = "[SC_mail] like ''"

et là je ne vois pas pourquoi ça ne fonctionnerait pas !

[sebinator]

Bonjour,

Ben ca ne retourne aucuns enregistrements.

Ce que je veux arriver à faire, c'est filtrer les enregistrements qui n'ont pas de mail.

Si je le fais manuellement (clik droit - filtrer par selection), j'obtiens le resultat que je veux. Le filtre du formulaire est renseigné avec : ((Tb_contact_sociètè.SC_mail Is Null))

Je veux la meme chose en cliquant sur un bouton de commande.

[sebinator]

WHoua !!! tros con je suis je viens de donner la reponse à mon probleme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Btn_mailmanquants_Click()
Dim filtremailvide As String
Dim filtreemailvideformater As String
filtremailvide = "((Tb_contact_sociètè.SC_mail Is Null))"
Me.SF_Req_Societe_et_contact.Form.Filter = filtremailvide ' passe la valeur au filtre du sous formulaire
Me.SF_Req_Societe_et_contact.Form.FilterOn = True 'active le filtrage
End Sub

et ca marche