Discussion :

[docjo]

Bonjour

Je souhaite recopier les valeurs des champs d'une table (T_Examens avec champ autonumber ID_examen) de la date de la veille dans ceux de la date du jour (Date_Prescription)

Code :

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

1
2
3
 
UPDATE  T_examens SET T_examens.NFS_J0 = [T_examens]![NFS_J0]
WHERE (((T_examens.ID_Examen)=[Formulaires]![F_prescriptions]![SF_Traitement].[Formulaire]![ID_examen]) AND ((T_examens.date_prescription)=[Formulaires]![F_prescriptions]![SF_Traitement].[Formulaire]![date_prescription]-1));

Mais bien sûr cela ne fonctionne pas. J'imagine plutot un truc du style:

Code :

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

1
2
3
4
5
6
7
8
 
UPDATE  Matable
SET (Champ1, Champ2) = (SELECT Champ1, Champ2 
          FROM Matable
                    WHERE ID_Examen = ID_Examen à modifier )
WHERE EXISTS(SELECT Champ1, Champ2
          FROM Matable
                    WHERE ID_Examen = ID_Examen à copier )

Merci pour vos suggestions

[nico84]

Bonjour,

Il faut utiliser des alias pour distinguer les 2 emplois de la même table :

Code :

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

1
2
3
4
UPDATE  Matable A
SET (Champ1, Champ2) = (SELECT Champ1, Champ2 
          FROM Matable B WHERE B.Date_Prescription = A.Date_Prescription-1)
WHERE A.Date_Prescription=date()

C'est à affiner pour que le select trouve 1 et un seul enregistrement par ligne de A...

[docjo]

Merci Nico pour ton conseil mais je croyais que les alias étaient caractérisés par "AS" ?

[nico84]

C'est exact mais je crois que c'est accepté aussi sans AS

[docjo]

Je comprends progressivement la logique. Voici donc la mienne

Code :

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

1
2
3
4
5
6
 
UPDATE R_Examens AS A SET NFS_J0 = (SELECT NFS_J0 FROM R_Examens
 AS B WHERE  B.Date_Prescription=([Formulaires]![F_prescriptions]![SF_Traitement]![Date_Prescription])-1
 AND B.ID_sejour= [Formulaires]![F_prescriptions]![SF_Traitement]![ID_sejour])
WHERE A.Date_Prescription=[Formulaires]![F_prescriptions]![SF_Traitement]![Date_Prescription] 
AND A.ID_sejour= [Formulaires]![F_prescriptions]![SF_Traitement]![ID_sejour];

Malheureusement, il me dit qu'i faut que j'utilise une requête qui peut être mise à jour. Pourtant, le code suivant fonctionne:

Code :

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

1
2
3
4
 
UPDATE R_Examens AS A SET NFS_J0 = "Ca marche"
WHERE A.Date_Prescription=[Formulaires]![F_prescriptions]![SF_Traitement]![Date_Prescription] 
AND A.ID_sejour= [Formulaires]![F_prescriptions]![SF_Traitement]![ID_sejour];

Donc la partie en erreur est dans le SELECT. Erreur de syntaxe ?

[f-leb]

bonsoir,

on peut essayer une solution avec auto-jointure:

Code sql :

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

1
2
3
4
5
6
7
UPDATE R_Examens AS A
       INNER JOIN R_Examens AS B
               ON A.ID_sejour = B.ID_sejour
SET    A.NFS_J0 = B.NFS_JO
WHERE  A.Date_Prescription = [Formulaires]![F_prescriptions]![SF_Traitement]![Date_Prescription]
       AND B.Date_Prescription = ( [Formulaires]![F_prescriptions]![SF_Traitement]![Date_Prescription] ) - 1
       AND A.ID_sejour = [Formulaires]![F_prescriptions]![SF_Traitement]![ID_sejour];

[docjo]

Bingo ! C'est excellent !
Mais simplement si je dois traiter plusieurs champs

Code :

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

1
2
3
4
5
 
UPDATE R_Examens AS A INNER JOIN R_Examens AS B ON A.ID_sejour = B.ID_sejour SET A.NFS_J0 = B.NFS_J0, A.NFS_J1 = B.NFS_J1
WHERE A.Date_Prescription = [Formulaires]![F_prescriptions]![SF_Traitement]![Date_Prescription]
       AND B.Date_Prescription = ( [Formulaires]![F_prescriptions]![SF_Traitement]![Date_Prescription] ) - 1
       AND A.ID_sejour = [Formulaires]![F_prescriptions]![SF_Traitement]![ID_sejour];

Cela fonctionne mais s'il y a 20 champs, il faut écrire 20 fois le signe égal ou n'y a-t-il pas plus simple ?

[f-leb]

en SQL je ne vois pas d'autres solutions.

On peut toujours bidouiller en VBA avec des recordset en bouclant: rst.fields(i).value= ... avec i=0,1,2, ...

dire que c'est plus "simple"...