modifier le code SQL d'une requête

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:

---

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:

---

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

---

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

Bonjour,

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

Code:

---

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

Bonjour. :)

Merci pour ta réponse.

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

Code:

---

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:

---

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 à +

bonjour,

Quand tu dis :

Citation:

---

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

Bonsoir.

Citation:

---

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:

---

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

---

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

Re bonsoir

J'ai testé ce

Code:

---

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

---

et

Code:

---

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. :?8O

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 ??? :roll: