Discussion :

[Eric26]

Bonjour à tous, j'ai fais mon post dans le forum ACCESS, et on m'a conseillé de le faire sur ce forum ; voilà pourquoi je suis ici.

Mon problème est le suivant :

Sous ACCESS 2003, j'ai deux tables CONTRATS et AVENANTS ayant des champs identiques nommés différemment, et cela parce que je souhaite ajouter des enregistrements de la table CONTRATS vers la Table AVENANTS sous certaines conditions ; je schématise :
Voici mes deux tables :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
CONTRATS
N°_Ct   Type_Ct   Debut_Ct   Fin_Ct       Heure_Ct   DateAvenant_Ct
-------  -------    --------    --------  ---------   ---------------- 
     1         CDD       10/08/06   31/08/06       35         
     2         CDI        01/01/06                      35        06/08/06
     3         CDI        02/03/06                      30
 
AVENANTS
N°_Av    NumCt_Av   TypeCt_Av   DebutCt_Av   FinCt_Av       HeureCt_Av   Avenant_Av
-----     --------    ---------    --------    --------      ---------   ----------------

Ce que j'aimerais, c'est ajouter les enregistrements pour lesquels N°_Ct et DateAvenant_Ct ne se trouvent pas déjà dans la table AVENANTS.
Ce qu'il faut comprendre, c'est que quand je rempli ou que je modifie le champ DateAvenant_Ct, l'enregistrement correspondant doit s'ajouter à la table AVENANTS pour que, juste après, je puisse modifier le même enregistrement.
C'est le principe des modifications de contrat (ou plus communément appelé avenants au contrat de travail).

j'espère que j'était clair, sinon je m'explique à nouveau.

Merci

[finesse20]

Bonsoir Eric26

A quoi correspondent N°_Av et NumCt_Av ?
Quel est le lien avec le N°_Ct de la table CONTRATS?

[Eric26]

Bonsoir finesse20,

N°_Av = numéro de l'enregistrement dans la table AVENANTS
NumCt_Av = numéro du contrat ayant subi un avenant (=une modif)
En fait N°_Ct = NumCt_Av
les deux tables sont liées par le numéro de contrat
N°_Ct = NUMERO AUTO
NumCt_Av = NUMERIQUE

[finesse20]

Est-ce que ce code correspond à ce que tu veux obtenir?


1.INSERT INTO Avenants ( NumCt_Av, Type_Av, Debut_Av, Fin_Av, Heure_Av, DateAvenant_Av )
2.SELECT Contrats.Num_ct, Contrats.Type_Ct, Contrats.Debut_Ct, Contrats.Fin_Ct, Contrats.Heure_Ct, Contrats.DateAvenant_Ct
3.FROM Contrats
4.WHERE (((Contrats.Num_ct) Not In (select Avenants.[NumCt_Av] from Avenants)) or ((Contrats.DateAvenant_Ct) Not In (select Avenants.[DateAvenant_Av] from Avenants)));

[Eric26]

Est-ce que ce code correspond à ce que tu veux obtenir?


1.INSERT INTO Avenants ( NumCt_Av, Type_Av, Debut_Av, Fin_Av, Heure_Av, DateAvenant_Av )
2.SELECT Contrats.Num_ct, Contrats.Type_Ct, Contrats.Debut_Ct, Contrats.Fin_Ct, Contrats.Heure_Ct, Contrats.DateAvenant_Ct
3.FROM Contrats
4.WHERE (((Contrats.Num_ct) Not In (select Avenants.[NumCt_Av] from Avenants)) or ((Contrats.DateAvenant_Ct) Not In (select Avenants.[DateAvenant_Av] from Avenants)));

Dis moi, pour l'executer, c'est bien comme ça hein ?

Code :

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

1
2
3
4
5
6
7
8
Private Sub Av_Ct_AfterUpdate()
    Dim SQL As String
        SQL = "INSERT INTO Avenants ( NumCt_Av, Type_Av, Debut_Av, Fin_Av, Heure_Av, DateAvenant_Av )" & _
                 "SELECT Contrats.Num_ct, Contrats.Type_Ct, Contrats.Debut_Ct, Contrats.Fin_Ct, Contrats.Heure_Ct, Contrats.DateAvenant_Ct" & _
                 "FROM Contrats" & _
                 "WHERE (((Contrats.Num_ct) Not In (select Avenants.[NumCt_Av] from Avenants)) or ((Contrats.DateAvenant_Ct) Not In (select Avenants.[DateAvenant_Av] from Avenants)));"
    DoCmd.RunSQL SQL
    End Sub

[finesse20]

Private Sub Av_Ct_AfterUpdate()

Dim strSQL As String
strSQL = "INSERT INTO Avenants ( NumCt_Av, Type_Av, Debut_Av, Fin_Av, Heure_Av, DateAvenant_Av )" & _
"SELECT Contrats.Num_ct, Contrats.Type_Ct, Contrats.Debut_Ct, Contrats.Fin_Ct, Contrats.Heure_Ct, Contrats.DateAvenant_Ct" & _
"FROM Contrats" & _
"WHERE (((Contrats.Num_ct) Not In (select Avenants.[NumCt_Av] from Avenants)) or ((Contrats.DateAvenant_Ct) Not In (select Avenants.[DateAvenant_Av] from Avenants)));"
CurrentDB.Execute(strSQL)
End Sub

si la chaîne SQL est trop longue tu peux faire comme ça :

strSQL="INSERT INTO Avenants ( NumCt_Av, Type_Av, Debut_Av, Fin_Av, Heure_Av, DateAvenant_Av )"
strSQL= strSQL & "SELECT Contrats.Num_ct, Contrats.Type_Ct, Contrats.Debut_Ct, Contrats.Fin_Ct, Contrats.Heure_Ct, "

etc jusqu'à la fin de la requête

sinon tu peux enregistrer ta requête normalement et l'exécuter avec

DoCmd.OpenQuery("Nomdela requete")

[Eric26]

J'ai toujours le même problème : quelque soit le champ que je modifie, il m'execute la requête alors que normalement, il devrait l'executer seulement après mise à jour du champ Av_Ct, et pas sur un autre champ (ça, j'avoue que je n'arrive pas à comprendre).

En plus ça ne marche pas : il ajoute tout, même les enregistrements qui ont déjà été ajouté à la table AVENANTS, ce qui fait que je me retrouve avec des doublons, chose que je ne veux pas justement.