Ajout avec filtre date et heure
Bonjour à tous
je me tourne vers vous pour m'aider à résoudre mon problème qui est le suivant:
1- je récupère des fichiers CSV d'alarmes automate dans un répertoire
2- j'importe les CSV un par un dans une table temporaire [tba_TmpAl]
3- une requête sélection [qry_TmpAl] m'enlève les lignes inutiles (lignes vides, titres, etc), donc il me reste les champs qui m’intéressent:
[F1] = date
[F2] = heure déclenchement alarme
[F3] = texte d'alarme
[F4] = heure alarme acquittée
[F5] = heure alarme retombée
[F6] = variable d'alarme (nom dans l'automate)
Expr1: Format([tba_TmpAl]![F1] & " " & [tba_TmpAl]![F2];"mm/jj/aaaa\ hh:nn:ss")
donc le but de la manip est d'importer le résultat de la requête sélection dans la table définitive [tba_Alarme] qui comprend les champs suivant:
[numAlarme]
[DateAlarme]
[HeureAlarme]
[MessageAlarme]
[HeureAcqAlarme]
[HeureRetombeAlarme]
[NomVariableAlarme]
le hic c'est qu'on retrouve des alarmes identiques avec les même dates et heures dans différents fichiers CSV
mon idée est de filtrer sur les dates et heures en faisant un Format ("mm/dd/yyyy hh:nn:ss") mais je ne sais pas comment ajouter les alarmes sans faire de doublons
j'ai commencé un bout de code, mais sur la condition "Where" je sèche
Code:
1
2
3
4
5
6
7
8
9
|
SQL = "INSERT INTO tba_Alarme ( DateAl, HeureActifAl, MessageAl, HeureAcqAl, HeureRetombeAl, NomVariableAl ) " _
& "SELECT qry_TmpAl.F1, qry_TmpAl.F2, qry_TmpAl.F3, qry_TmpAl.F4, qry_TmpAl.F5, qry_TmpAl.F6 " _
& "FROM qry_TmpAl " _
& "WHERE (((qry_TmpAl.Expr1) ??????????? ));"
DoCmd.SetWarnings False
DoCmd.RunSQL SQL
DoCmd.SetWarnings True |
merci d'avance pour votre aide
