SELECT Table1.ID, Table1.idVivendas, Table1.idPersonas, Table1.ChekIN, Table1.ChekOUT,
 IIf(Date()-30 Between chekin And chekout,"R","") AS d1,
 IIf(Date()-29 Between chekin And chekout,"R","") AS d2,
 IIf(Date()-28 Between chekin And chekout,"R","") AS d3,
 IIf(Date()-27 Between chekin And chekout,"R","") AS d4,
 IIf(Date()-26 Between chekin And chekout,"R","") AS d5,
..........
 IIf(Date()-3 Between chekin And chekout,"R","") AS d31,
 IIf(Date()-2 Between chekin And chekout,"R","") AS d32,
 IIf(Date()-0 Between chekin And chekout,"R","") AS d33,
 IIf(Date()+1 Between chekin And chekout,"R","") AS d34,
 IIf(Date()+2 Between chekin And chekout,"R","") AS d35,
 IIf(Date()+30 Between chekin And chekout,"R","") AS d36
FROM Table1;