Commande SQL de base

Bonjour,

Dans la continuité des mes précédents posts, je bute encore sur des commandes SQL, et là je sais que c'est un problème où il y a un tuto dessus :lol: mais je le retrouve plus...

Bon voila mon soucis:

Code:

---

1 2 3

If MsgBox("Mettre à jour le champ [Email envoyé le] ?", vbYesNo, "Vous souhaitez...") = vbYes Then DoCmd.RunSQL "UPDATE [Formulaire ouvert] SET [Formulaire ouvert].[Email envoyé le] = Date();" End If

---

Voila je cherche la commande qui remplacerait [Formulaire ouvert] dans mon code, c'est-à-dire qui ne modifie que les enregistrement qui sont sur le formulaire.

J'ai testé avec le me.filter et ca n'a pas marché (j'ai peut être mal fait).

Merci d'avance!

Bonjour,

Si le code s'exécute à partir du formulaire en question, voici une méthode avec recordset DAO.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim rs As DAO.Recordset   If MsgBox("Mettre à jour le champ [Email envoyé le] ?", vbYesNo, "Vous souhaitez...") = vbYes Then Set rs = Me.RecordsetClone If Not rs.EOF Then rs.MoveFirst Do While Not rs.EOF rs.Edit rs("Nom_du_Champ") = Date ' remplacer Nom_du_Champ par le vrai nom rs.Update rs.MoveNext Loop Set rs = Nothing End If

---

Remplacer Nom_du_Champ par le nom du champ (voir propriété "source contrôle" du contrôle [Email envoyé le]).

Le code met à jour les données en passant par le recordset du formulaire.
Cela met à jour le formulaire et les données sous-jacentes de la base de données.

A+

Citation:

---

Envoyé par LedZeppII

Le code met à jour les données en passant par le recordset du formulaire.
Cela met à jour le formulaire et les données sous-jacentes de la base de données.

---

WAAAH !

Déjà cette phrase me montre que t'as totalement compris ce que je voulais faire !

MErci de ta réponse je test et je met résolu si j'y arrive!

Super MERCI ENORMEMENT!

Mais ta procédure ne fonctionne que quand on vient d'ouvrir le formulaire, dès qu'on est sur un enregistrement ca marche plus...

Bon je sais j'abuse un peu mais comme j'ai deux autres questions sur les commandes SQL je vais pas mettre résolu :P

1ere question:

Code:

---

1 2 3

Dim oDB As DAO.Database   Set oDB = CurrentDb

---

J'aimerais connaître les instructions qui me permettrait de prendre uniquement les enregistrements de mon formulaire et non l'ensemble de ma "currentDB"... Donc je suppose qu'il faut changer ces instructions? Et comme je fais un recordset sur le champ Email de mon formulaire, voici la deuxième question:

2ème question:

Code:

---

1 2 3

Dim oRst1 As DAO.Recordset   Set oRst1 = oDB.OpenRecordset("SELECT * FROM InfosClients")

---

Déjà, oRst1 peut il rester définit ainsi (dans l'esprit de la premiere question)? Et comment faire pour qu'au lieu de la totalité de ma base InfosClients, seul mon formulaire en cours soit pris en compte? (ca je sais que c'est vraiment une question de base, mais je retrouve pas le tuto)...

Réponse à ta première question.
CurrentDb représente seulement la base de données en cours, et sert à renvoyer un objet de type Database.
Voir modèle objet DAO.

L'objet Database permet d'accéder aux données de la base, en créant des objets Recordset, avec la méthode OpenRecordset(..).

On peut faire un rapprochement entre un recordset (jeu de données) et une requête qui affiche des données dans une feuille de données.

Réponse à ta deuxième question.
Ton code ouvre un recordset sur une table ou une requete (FROM InfosClients).
InfosClients est le nom de cette table ou de cette requête.

Maintenant, pour savoir avec exactitude quels sont les enregistrements affichés par un formulaire, ça n'est pas si évident.
En effet le formulaire peut être filtré.
Il faut prendre en compte la source du formulaire (propriété source).
Ça pourra être le nom d'une table, d'une requête, ou directement une instruction SQL.
Et il faut prendre en compte l'éventuel filtre (propriété Filter).

C'est pour ça que je préfère utiliser la propriété RecordsetClone du formulaire.
Elle permet de référencer un recordset qui est déjà ouvert et qui ne contient que les données affichées par le formulaire.

Si je devais moi-même créer un recordset identique à celui du formulaire, je devrai :

• récupérer le contenu de sa propriété source
• évaluer si c'est un objet table/requête ou bien une instruction SQL
  
  • Si c'est une table ou une requête je peux faire "SELECT * FROM NomObjet"
    Si la propriété Filter n'est pas vide, je rajoute " WHERE conditions_du_filtre" à mon "SELECT * FROM NomObjet"
  • Si c'est une instruction SQL je la garde telle quelle. Il y a déjà SELECT ... FROM
    Si la propriété Filter n'est pas vide, il faut que j'évalue si mon instruction SQL n'a pas déjà une clause WHERE.
    
    • S'il y a déjà un WHERE. Il faut que j'insère les critères du filtre. Pas forcément simple s'il y a des parenthèse, sans parler qu'il faut tenir compte d'un éventuel point-virgule.
    • S'il n'y a pas de WHERE, ajouter "WHERE conditions_du_filtre", toujours en faisant attention à la présence ou pas du point-virgule

Tu vois que dans le cas où la source est une instruction SQL ça devient compliqué.

Pour conclure
Pour n'obtenir dans un recordset, que les enregistrements d'un formulaire, il faut recréer les mêmes restrictions que lui avec la clause SQL WHERE.

Par exemple si je sais que mon formulaire n'affiche que les clients de l'ain :

Code:

---

1 2 3 4 5

Dim oDB As DAO.Database Dim oRst1 As DAO.Recordset   Set oDB = CurrentDb Set oRst1 = oDB.OpenRecordset("SELECT * FROM InfosClients WHERE CodePostal LIKE '01*'")

---

A+

Ok merci de ta réponse ca marche parfaitement, même si c'est un peu bête de devoir retaper les critères de mes requêtes je fais avec :D

D'ailleurs, comment faire en SQL des requètes de date? (du style:

Set oRst1 = oDB.OpenRecordset("SELECT * FROM InfosClients WHERE {Champs [Email envoyé le] est compris entre date d'aujourd'hui +- 6mois})

Bonjour,

Hummmm...

Code:

---

1 2 3 4

SELECT * FROM InfosClients WHERE [Email envoyé le] BETWEEN NOW() AND DATEADD("m", 6, now())

---

;)