1 2 3 4 5 6 7 8 9 10
|
cSQL = "insert into [TAB_TEMP_EDITION] ([EMPLACEMENT],[NUM_CONTENANT],[NIP],[NUM_ARCHIVES],[SECTEUR],[SERVICE],[NOM_DE_FAMILLE],[NOM_D_USAGE],[PRENOM],[DATE_NAISS],[DATE_LIV_ATT],[SEXE],[DESCRIPTIF],[UG_DEST],[COMM],[INFOS_COMPL], [NUM_DEMANDE],
[VAL_SPE], [SPE_FINALE], [VAL_UG], [UG_FINALE], [ARMOIRE], [SALLE])"
cSQL = cSQL & "select [TAB_IMPORT.EMPLACEMENT],[TAB_IMPORT.NUM_CONTENANT],[TAB_IMPORT.NIP],[TAB_IMPORT.NUM_ARCHIVES],[TAB_IMPORT.SECTEUR],[TAB_IMPORT.SERVICE],[TAB_IMPORT.NOM_DE_FAMILLE],[TAB_IMPORT.NOM_D_USAGE],[TAB_IMPORT.PRENOM],[TAB_IMPORT.DATE_NAISS],[TAB_IMPORT.DATE_LIV_ATT],[TAB_IMPORT.SEXE],[TAB_IMPORT.DESCRIPTIF],left([TAB_IMPORT.UG_DEST],8),[TAB_IMPORT.COMM],[TAB_IMPORT.INFOS_COMPL],[TAB_IMPORT.NUM_DEMANDE],[TAB_SPE.VAL_SPE],[TAB_IMPORT.SERVICE] & ' - ' & [TAB_SPE.VAL_SPE],[TAB_UG.VAL_UG], [TAB_IMPORT.UG_DEST] & ' - ' & [TAB_UG.VAL_UG],[TAB_IMPORT.ARMOIRE],[TAB_IMPORT.SALLE] "
cSQL = cSQL & "from ([TAB_SPE] right join [TAB_UG] on TAB_SPE.SPE = TAB_UG.SPE) right join [TAB_IMPORT] ON TAB_UG.UG = TAB_IMPORT.UG_DEST"
cSQL = cSQL & " where TAB_IMPORT.EMPLACEMENT like '*NT*' "
cSQL = cSQL & " order by TAB_IMPORT.EMPLACEMENT"
cSQL = cSQL & ";"
DoCmd.RunSQL cSQL
DoCmd.Requery |
Partager