Discussion :

[modus57]

Bonsoir

Comment suprimer en VBA le critère "Est Pas Null' pour un champ d'une requête

Voilà ce que j'ai testé mais çà marche pas

Code :

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

1
2
3
4
5
Private Sub Modification_DblClick(Cancel As Integer)
Dim strSQL As String
strSQL = Replace("Requête Contrats", "WHERE (((Contacts.DateContrat) Is Not Null));", "")
CurrentDb.QueryDefs("Requête Contrats").SQL = strSQL
End Sub

Et comment créer en VBA le critère "Est Pas Null' pour le même champ de cette même requête

Voilà ce que j'ai testé mais çà marche pas

Code :

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

DoCmd.RunSQL "WHERE (((Contrats.DateContrat) Is Not Null));", -1

Pourriez-vous m'aider à corriger svp, merci d'avance

[psykodumarteau]

Bonjour,

Il me semble que ta fonction replace est male écrite. Teste le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim qdfsource As QueryDef
Dim qdfBR As QueryDef
 
Set qdfsource = CurrentDb.QueryDefs("Requête Contrats")
 
'nomreqcible correspond au nom de la requete à créer
Set qdfBR = CurrentDb.CreateQueryDef(nomreqcible, Replace(qdfsource.SQL, "WHERE (((Contacts.DateContrat) Is Not Null))",""))
 
Set qdfsource = Nothing
Set qdfBR = Nothing

Juste un petit truc très utile pour débugger tes applications, utilise régulièrement dans ton code des MsgBox pour contrôler les valeurs de tes variables. Exemple si tu avais placé un msgbox strsql tu aurais obtenu "Requête Contrats" au lieu d'une chaine sql.

Cordialement

[modus57]

Bonjour.

Merci pour ta réponse.

J'ai exploré une autre piste en appliquant un filtre sur activation d'un formulaire

Code :

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

1
2
3
Private Sub Form_Open(Cancel As Integer)
DoCmd.OpenForm "Formulaire Contrats", acNormal, , "RéfContrat>0"
End Sub

Jusque là ça tourne.

Sur ce formulaire, un contrôle filtre tous les champs RéfContact vide sur clic.

Code :

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

1
2
3
4
5
Private Sub Filtre_Click()   
DoCmd.ShowAllRecords
DoCmd.ApplyFilter , "RéfContrat=0"
RéfContrat.SetFocus
End Sub

Et là le filtre n'est pas appliqué ???

Peux-tu m'apporter une réponse à +

[psykodumarteau]

bonjour,

Quand tu dis :

Et là le filtre n'est pas appliqué

Cela signifie-t-il que rien ne se passe ou que aucun enregistrement aparraît?

si aucun enregistrement n'aparraît c'est peu etre parce que "vide" est different de "=0"

Cordialement

[modus57]

Bonsoir.

Cela signifie-t-il que rien ne se passe ou que aucun enregistrement aparraît?

si aucun enregistrement n'aparraît c'est peu etre parce que "vide" est different de "=0"

Effectivement aucun enregistrement n'aparraît, alors comment passer le paramêtre = "vide", par exemple :

Code :

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

DoCmd.ApplyFilter , "RéfContrat= """

Je l'ais tester çà fonctionne pas, @ +.

[modus57]

Re bonsoir

J'ai testé ce

Code :

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

DoCmd.ApplyFilter "[Contacts].[RéfContrat] = 0"

et

Code :

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

DoCmd.ApplyFilter "[Contacts].[RéfContrat]"

Dans les 2 cas les champs sont filtrés comme suis:
en premier les champs vides et ensuite les champs contenant une valeur > à 0.

[modus57]

Bonjour.

Après avoir testé plusieures possibilités, j'ai réussi a filtrer tous les enregistrements "RéfContrat" vides en utilisant la fonction "Filtrer par formulaire" dans le menu "Enregistrements" => "Filtre", explication dans le fichier PDF ci-joint.

Mais comment faire la même chose en vba ???