oalfaro

StrSQL = "SELECT DISTINCT * FROM (HIST_Intergrupos_FILTRO)WHERE (Fecha >=DATEadd(NOW,-6,DATE()))" La Idea de esta consulta es que a partir de la fecha actual me devuelva los datos de 6 meses atrás , el problema es que me tira el error que no se a...

Set dbs =CurrentDb dbs.execute "Delete * From " Intergrupos" dbs.execute "Delete * From " Importar" dbs.execute "Delete * From " Intergrupos_filtro" ..... MiDir = Dir("c:\Intergrupo\Cargabales\B00051" & txt_fecha & ".txt") If miDir <> "" Then...