1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
|
' Mettre les données de la tables des résultats dans une tables temporaire
' afin d'améliorer les performance des requêtes l'utilisant.
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM BIO_TB_TREA_RESULTAT_ANALYSE_tempo IN '" & COQUILLE & "'"
' La commande qui génère les erreurs lorsqu'il y a beaucoup de données pour un paramètre donné
DoCmd.RunSQL "INSERT INTO BIO_TB_TREA_RESULTAT_ANALYSE_tempo ( Username, NoParam, NoTest, NoTestString, DateHrModif, Noechantillon, ModifiePar, Valeur ) in '" & COQUILLE & "' " & _
"SELECT CurrentUser() AS Username, Resultat_dAnalyse.NoParam, Resultat_dAnalyse.NoTest, CStr([Resultat_dAnalyse].[notest]) AS NoTestString, Resultat_dAnalyse.DateHrModif, Resultat_dAnalyse.Noechantillon, Resultat_dAnalyse.ModifiePar, Resultat_dAnalyse.Valeur " & _
"FROM Resultat_dAnalyse " & _
"WHERE (((Resultat_dAnalyse.NoParam)=[Formulaires]![BIO_TREA_CONTROLE_DUPLICATA]![parametre]) AND ((CStr([Resultat_dAnalyse].[notest])) Like [Forms]![BIO_TREA_CONTROLE_DUPLICATA]![test]) AND ((Resultat_dAnalyse.DateHrModif)>=[Forms]![BIO_TREA_CONTROLE_DUPLICATA]![date1] And (Resultat_dAnalyse.DateHrModif)<=[Forms]![BIO_TREA_CONTROLE_DUPLICATA]![date2])); "
DoCmd.SetWarnings True
DoCmd.OpenQuery "BIO_TREA_CONTROLE_DUPLICATA_RESULTATS_NEW", , acReadOnly
'DoCmd.OpenQuery "BIO_TREA_CONTROLE_DUPLICATA_RESULTATS", , acReadOnly |
Partager