1 2 3 4 5 6 7 8 9 10
| Sub CQ_TAB_BAS()
DoCmd.RunSQL ("SELECT TAB_BAS.COUNTRY AS PAYS,TAB_BAS.CENTER AS CENTRE, TAB_BAS.PATIENT, TAB_BAS.BIRTH_D AS DATE_NAISS, TAB_BAS.GENDER AS SEXE, TAB_BAS.TYPE_VIH, TAB_BAS.HIVP_D AS DATE_SEROP, TAB_BAS.HEIGHT AS TAILLE, TAB_BAS.HIST_TB AS TUBERCULOSE, TAB_BAS.F_ART_ID AS COMBINAISON_ARV, TAB_BAS.PMTCT AS PTME, TAB_BAS.HAART_D AS DATE_ARV, TAB_BAS.NAIVE_Y AS NAIVE_Y INTO ERREUR_TAB_BAS FROM TAB_BAS WHERE (((TAB_BAS.PATIENT) Is Null)) OR (((TAB_BAS.GENDER) Is Null))")
'DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel11, "ERREUR_TAB_BAS", Application.CurrentProject.Path, "ERREUR_TAB_BAS", False
'DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel10, "ERREUR_TAB_BAS", _
'"C:\merger\ERREUR_TAB_BAS.xlsx", True
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "ERREUR_TAB_BAS", _
"C:\merger\ERREUR_TAB_BAS1.xls", True
End Sub |
Partager