Pessoal bom dia, desenvolvi um aplicativo onde eu imprimo um relatório de débitos por data, onde digito a data de cobrança e ele faz o filtro trazendo só as cobranças naquela determinada data. Porém, existem algumas cobranças que são adiadas para o dia seguinte. Gostaria de saber se é possível alterar, de modo automático, pelo Visual Basic essas datas pendentes para a data atual por meio de uma substituição ou de algum outro modo. Agradecido.

As cobranças de data passam para outro dia ou continuam naquele dia mesmo?

  Pois é, o Cliente quer que essas datas sejam alteradas automaticamente para outro dia.

bom, não sei como vc marca os registros que não foram impressos e adiados para outro dia mas pode ser assim:

 

UPDATE TABELA SET DATA = " & FORMAT(DATE,"YYYY/MM/DD") &" WHERE DATA < #" & FORMAT(DATE,"YYYY/MM/DD") & "#"

 

Basicamente, as datas que são inferiores à atual são atualizadas para a data corrente. Deste modo deve entrar na sua pesquisa e o usuário possa ver aqueles registros de dias anteriores.

 

Bom, não sei se é exatamente isso que vc queria mas qq coisa pode postar

 

at+

   Esse código faz com que as datas anteriores sejam alteradas? Eu coloco ele onde? No envento Load do Form1?

Sim, só que é um código SQL e vc tem que passar assim:

 

DIM CONEXAO AS ADODB.CONNECTION

 SET CONEXAO = NEW ADODB.CONNECTION

 

'.... CÓDIGO

 

SQL = "UPDATE TABELA SET DATA = " & FORMAT(DATE,"YYYY/MM/DD") &" WHERE DATA < #" & FORMAT(DATE,"YYYY/MM/DD") & "#"

 

CONEXAO.EXECUTE SQL

 

Onde colocar varia muito. Depende de como está o seu sistema. Vc pode colocar no evento load do form principal ou ao carregar a tela de consulta. Para mim seria melhor colocar no load do form principal a não ser que vc precise destas datas antes. Como disse depende do seu sistema.

 

Qualquer dúvida posta.

 

at+