Discussion :

[domik]

Bonjour

Je souhaiterai lancer une requête de création de table sous certaines conditions :
J’ai plusieurs tables : « nom », « r1 », » r2 » que je fusionne en une seule grâce à cette requête où je récupère les champs dont j’ai besoin .

Code :

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

1
2
3
4
SELECT r1.date, r2.date2, Nom.nom, r1.nb, r1.Temps, r2.nbr2, r2.tps2 INTO tfusion
FROM (Nom INNER JOIN r1 ON Nom.nom = r1.nom) INNER JOIN r2 ON Nom.nom = r2.nom
WHERE (((r1.nb)>0)) OR (((r2.nbr2)>0))
GROUP BY r1.date, r2.date2, Nom.nom, r1.nb, r1.Temps, r2.nbr2, r2.tps2

Comment vérifier que les champs [date] de la table « r1 » et [date2] de la table « r2 » sont bien identiques avant d’autoriser l’exécution de la requête , et ainsi prévenir l’utilisateur

*les tables r1 et r2 n'ont pas forcément le même nb d'enregistrements

Par la suite cette requête deviendra une requête ajout pour alimenter cette même table avec la même condition

Merci pour votre aide

[marot_r]

Avec du SQl seulement je en penses pas que tu puisses.

Ce que tu peux faire c'est écrire une requête qui ne s'éxécute QUE si tes 2 dates sont identiques en mettant cette condition dans la clause WHERE mais sans alerte à l'utilisateur.

ou écrire du VBA qui va faire les tests dont tu as besoin et alerter ton utilisateur.

voici comment tu pourrais procéder pour le contrôle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
public function EstDateIdentique() as boolean
 
dim result as boolean
 
dim db as dao.database:set db=currentdb
dim r1 as dao.r1:set r1=db.openrecordset("r1")
dim r2 as dao.r2:set r2=db.openrecordset("r2")
 
if not r1.eof and not r2.eof then
 
      if r1![date]=r2![Date2] then
          result=true
        else
          result=false
      end if
 
   else
     result=false
end if
 
db.close:set db=nothing
r1.close:set r1=nothing
r2.close:set r2=nothing
 
EstDateIdentique=result
 
end function

Le code ci-dessous est à mettre dans un formulaire ou un module selon ton besoin.

Code :

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

1
2
3
4
5
if not EstDateIndentique() then
    msgbox "Dates différente"
  else
    'lancer la requête de création
end if

a+

[LedZeppII]

Bonjour,

Et si tu mets une jointure sur les champs nom et date entre r1 et r2 ?

Code :

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

FROM (Nom INNER JOIN r1 ON Nom.nom = r1.nom) INNER JOIN r2 ON r1.nom = r2.nom And r1.date = r2.date2

A+

[domik]

bonjour
marot_r :
j'ai essayer d'introduire ton code et j'ai une erreur de compilation sub ou fonction non definie

Code :

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

1
2
3
4
5
6
7
Private Sub Commande2_Click()
If Not EstDateIndentique() Then
    MsgBox "Dates différente"
  Else
    'lancer la requête de création
End If
End Sub

j'ai peu être oublié un truc ...

LedZeppII:
j'ai également essayer ta solution en modifiant sql

Code :

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

1
2
3
4
SELECT r1.date, r2.date2, Nom.nom, r1.nb, r1.Temps, r2.nbr2, r2.tps2 INTO tfusion
FROM (Nom INNER JOIN r1 ON Nom.nom = r1.nom) INNER JOIN r2 ON (r1.nom = r2.nom) AND (r1.date = r2.date2)
WHERE (((r1.nb)>0)) OR (((r2.nbr2)>0))
GROUP BY r1.date, r2.date2, Nom.nom, r1.nb, r1.Temps, r2.nbr2, r2.tps2;

cela ne marche pas, en effet les mêmes noms ne sont pas forcement ds les 2 tables.

Merci à vous
A+

[LedZeppII]

LedZeppII:
j'ai également essayer ta solution en modifiant sql

Code :

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

1
2
3
4
SELECT r1.date, r2.date2, Nom.nom, r1.nb, r1.Temps, r2.nbr2, r2.tps2 INTO tfusion
FROM (Nom INNER JOIN r1 ON Nom.nom = r1.nom) INNER JOIN r2 ON (r1.nom = r2.nom) AND (r1.date = r2.date2)
WHERE (((r1.nb)>0)) OR (((r2.nbr2)>0))
GROUP BY r1.date, r2.date2, Nom.nom, r1.nb, r1.Temps, r2.nbr2, r2.tps2;

cela ne marche pas, en effet les mêmes noms ne sont pas forcement ds les 2 tables.

Salut Domik,

Ben là je comprends plus
Tu avais déjà une jointure sur le champ Nom dans ta requête initiale.

Si tu veux consolider les tables r1 et r2 dans une autre table, il faut de toutes façons plusieurs requêtes, à mon avis.

• Ce que r1 et r2 ont en commun
• Ce qui est dans r1 et pas dans r2
• Ce qui est dans r2 et pas dans r1

A+

[domik]

Salut LedZeppII

En fait tu as complètement raison! comme d’hab…
Ce sont les tables r1 et r2 qui peuvent avoir des tailles différents avec des mêmes Noms issuent de la table « nom »
si je change une date parmi celles de R1 ou R2, donc au moins une date est différente j’obtiens un enregistrement de plus ds le resultat car le [nb] correspondant au nom est ds ce cas par exemple nb>0, avec cette date différente .
Nb et Nbr2 représentent une activité ds différents domaines que sont les tables R1 et R2 qui sont liées excel.
nb=0 pas d'activité
nb>0 total d'activité
Le but c’est d’alimenter la table tfusion chaque jour avec une verification des dates identiques correspondant aux divers resultats pour un même jour.

Je pense, comme dit marot_r :

Avec du SQl seulement je en penses pas que tu puisses

Alors avec le code c’est une autre histoire..., bien que je le comprenne
mais je n’arrive pas à l’intégrer…

A+

[LedZeppII]

Bonjour Domik,

Je ne comprends toujours pas où est le souci.

Ta requête initiale correspond à

Code :

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

1
2
3
4
5
Table : Nom      r1       r2
=====   =====    ======   ======
Champ : nom ---- nom ---- nom
                 date     date2
                 nb       nbr2

Ta deuxième jointure était entre Nom et r2, mais comme les deux jointures sont le même champ nom
et que ce sont des jointures INNER, ça revient au même que ce que j'ai représenté ci-dessus.
Nom.nom = r1.nom ET Nom.nom = r2.nom <=> Nom.nom = r1.nom ET r1.nom = r2.nom

Tu écris :

Comment vérifier que les champs [date] de la table « r1 » et [date2] de la table « r2 » sont bien identiques avant d’autoriser l’exécution de la requête , et ainsi prévenir l’utilisateur

Et là je réponds : en mettant un champ supplémentaire dans la jointure entre r1 et r2.

Code :

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

1
2
3
4
5
Table : Nom      r1       r2
=====   =====    ======   ======
Champ : nom ---- nom ---- nom
                 date --- date2
                 nb       nbr2

On ne sélectionne bien, que les enregistrements de r1 et r2 pour une même date,
et pour un nom appartenant à la table Nom.

Si ça ne convient pas, c'est peut être que ta requête initiale ne correspond pas à ce que tu souhaites faire.
Je me trompes peut-être, mais j'ai le sentiment que tu veux faire en une seule requête
ce que je pressent comme nécessitant plusieurs requêtes, ou une sous-requête union (pour avoir tous les couples nom/date de r1+r2).

A+

[domik]

Bonjour LedZeppII

oui ta requête marche très bien
J’ai rajouté une table avec une date d’extraction à la date souhaitée comme ceci :

Code :

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

1
2
3
4
SELECT r1.date, r2.date2, Nom.nom, r1.nb, r1.Temps, r2.nbr2, r2.tps2
FROM Table1 INNER JOIN ((Nom INNER JOIN r1 ON Nom.nom = r1.nom) INNER JOIN r2 ON (r1.nom = r2.nom) AND (r1.date = r2.date2)) ON Table1.date = r1.date
WHERE (((r1.nb)>0)) OR (((r2.nbr2)>0))
GROUP BY r1.date, r2.date2, Nom.nom, r1.nb, r1.Temps, r2.nbr2, r2.tps2;

il y a certainement un autre moyen que d'ajouter une table ...

La requête s’exécute en retirant les données avec une date différente

Le seule pb c’est que, si une date ne correspond pas alors que les données eux sont bien à la date qui devrait correspondre à la date de la table 1 (si si c’est possible…), l’extraction de ces valeurs ne seront pas prisent en compte ( les table sont des fichiers excel liés qui ont été retravaillés ) …

j'ai malgré tout fait un control au niveau d'excel sur les 1ere dates de chaque fichier par securité, en fait il y en a plus que 2...

D’où l’importance de déceler une anomalie avant l’exécution de la requête
A+

[LedZeppII]

Bonjour Domik,

Les enregistrements en anomalie devraient ressortir dans cette requête.

Code :

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

1
2
3
4
5
6
7
8
SELECT r1.date, r2.date2, Nom.nom
FROM (Nom INNER JOIN r1 ON Nom.nom = r1.nom) INNER JOIN r2 ON r1.nom = r2.nom
WHERE (
      ((r1.date)<>[date2]) 
  AND (([r1].[nb]+[r2].[nbr2])>0) 
  AND ((Exists (SELECT * FROM r2 As Tmp2 Where Tmp2.nbr2>0 and Tmp2.Date2=r1.date))=False) 
  AND ((Exists (SELECT * FROM r1 As Tmp1 Where Tmp1.nb>0 and Tmp1.date=r2.date2))=False)
);

([r1].[nb]+[r2].[nbr2])>0 est une version réduite de ([r1].[nb])>0 OR ([r2].[nbr2])>0

Les deux sous-requêtes Exists éliminent respectivement :

• Les enregistrements de r1 ayant une correspondance valide (nbr2>0) nom/date dans r2
• Les enregistrements de r2 ayant une correspondance valide (nb>0) nom/date2 dans r1

A+

[marot_r]

bonjour
marot_r :
j'ai essayer d'introduire ton code et j'ai une erreur de compilation sub ou fonction non definie

Code :

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

1
2
3
4
5
6
7
Private Sub Commande2_Click()
If Not EstDateIndentique() Then
    MsgBox "Dates différente"
  Else
    'lancer la requête de création
End If
End Sub

j'ai peu être oublié un truc ...

Où as-tu l'erreur ?

A+

[domik]

Salut LedzeppII,

Désolé , mais ça marche pas comme je veux..

Les fichiers r1 et r2 représentent des activités différentes
Un « Nom » peut être ou ne pas être sur une activité (that is the question)
Il peut faire partie d’une liste de nom dédiéc à R1 mais pas à R2 mais on le retrouvera par contre ds une autre R3 etc…tous les noms appartiennent à la table nom mais ne sont pas forcément commun aux fichiers, on en trouvera ds r1 ds r2 etc...

C’est pourquoi les jointures de ma 1ere requête ont pour origine la table « nom »

Je pense que je ne n’ai pas été clair dès le départ désolé…

*les tables r1 et r2 n'ont pas forcément le même nb d'enregistrements

Un même nom n’est pas forcément ds les 2 fichiers ou plus

A+

[LedZeppII]

Salut Domik,

Je crois que là il faudrait donner des exemples de données de r1 et r2, et de ce que ça doit donner au final dans tfusion.

Par rapport à ce que j'avais écrit ...

Si tu veux consolider les tables r1 et r2 dans une autre table, il faut de toutes façons plusieurs requêtes, à mon avis.

• Ce que r1 et r2 ont en commun
• Ce qui est dans r1 et pas dans r2
• Ce qui est dans r2 et pas dans r1

... pour l'instant la discussion n'a porté que sur le cas "Ce que r1 et r2 ont en commun",
et ta requête initiale aussi.

A+

[domik]

bonjour,
je crois que finalement le contrôle des fichiers excel suffira avant la mise à jour par ajout.
merci pour vos propositions
A+

[domik]

bonjour marot_r,

Où as-tu l'erreur ?

finalement je me suis appercu qu'un "end sub" etait à tort ds le code dû certainement à un copier coller malheureux..

apres retification j'ai qd même une autre erreur
à cette ligne

Code :

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

Dim r1 As DAO.r1: Set r1 = db.OpenRecordset("r1")

erreur de compilation : type defini par l'utilisateur non défini

A+

[marot_r]

Oups :-( mon erreur.

Code :

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

Dim r1 As DAO.Recordset

A+

[domik]

bonjour marot_r,

j'ai corrigé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public Function EstDateIdentique() As Boolean
 
Dim result As Boolean
 
Dim db As DAO.Database: Set db = CurrentDb
Dim r1 As DAO.Recordset
Dim r1 As DAO.Recordset
 
If Not r1.EOF And Not r2.EOF Then
 
      If r1![Date] = r2![Date2] Then
          result = True
        Else
          result = False
      End If
 
   Else
     result = False
End If
 
db.Close: Set db = Nothing
r1.Close: Set r1 = Nothing
r2.Close: Set r2 = Nothing
 
EstDateIdentique = result
 
End Function

j'ai placé ce code ds un module


mais cette fois il y a une autre erreur ici:
code du formulaire

Code :

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

1
2
3
4
5
6
7
Private Sub Commande2_Click()
If Not EstDateIndentique() Then
    MsgBox "Dates différente"
  Else
   MsgBox "ok"
End If
End Sub

erreur de compilation sub ou fonction non definie


A+

[marot_r]

Tu as bien défini la fonction EstDateIdentique() public tel que tu l'as posté ?

Si oui, je ne vois d'où cela peut venir mais essaye en mettant tout ton code d'appel en commentaire et demande une compilation. Parfois l'erreur signalée n'est pas celle qui est la vraie cause du problème.

A+

[domik]

non pas tout à fait
ds le code que j'ai envoyé j'avais mis 2 fois r1

Code :

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

1
2
Dim r1 As DAO.Recordset
Dim r1 As DAO.Recordset

j'ai bien en realité

Code :

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

1
2
Dim r1 As DAO.Recordset
Dim r2 As DAO.Recordset

j'ai mis le code d'appel en commentaire ( celui du formulaire)
plus d'erreur
A+

[marot_r]

Là, je ne vois vraiment pas.

Je vais t'envoyer un message privé avec mon email. Peux-tu m'envoyer ta BD que je regarde cela à la maison ?

A+

[LedZeppII]

Bonsoir,

Code :

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

1
2
3
4
5
6
7
Private Sub Commande2_Click()
If Not EstDateIndentique() Then
    MsgBox "Dates différente"
  Else
   MsgBox "ok"
End If
End Sub

erreur de compilation sub ou fonction non definie

C'est pas une simple faute de frappe ? Il y a un "n" en trop
A+