... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Como criar contador por Dia em uma tabela

Usuário Regis:

Prezado,

tenho uma tabela de lançamentos que irá ser exportada para o Sistema Contábil da Nasajon.

Nesta tabela (tbLanc) tem os seguintes campos: (DtLanc, NumSeqLanc, ContaDebito, ContaCredito, Historico e ValLanc), com vários lançamentos por dia.

Exemplo :

No dia 01/07 tenho 5 lançamentos
No dia 02/07 tenho 3 lançamentos
No dia 03/07 tenho 2 lançamentos

a tabela deve ficar assim :

01/07 1  Blá Blá Blá
01/07 2  Blá Blá Blá
01/07 3  ...
01/07 4  ...
01/07 5  ...
     
02/07 1  ...
02/07 2  ...
02/07 3  ...
     
03/07 1  ...
03/07 2  ...

 

Ou seja, no campo NumSeqLanc é gravado um número seqüencial, cuja seqüência é quebrada por dia. A cada dia, o número seqüencial começa por 1, conforme exemplo acima.

Como posso fazer isso, via código?

Suporte:

Regis, experimente:

Public Function fncCriaLancNasajon()
Dim db As DAO.Database, rs As DAO.Recordset
Dim DataLanc as date
Dim K As Integer
Dim strSql as string

strSql = "SELECT * FROM TbTXT_Nasajon ORDER BY dtLanc;"
Set db = CurrentDb()
Set rs = db.OpenRecordset(strSql) 
DataLanc = rs!Dtlanc
k = 0
Do While Not rs.EOF
   if rs!Dtlanc = dataLanc then 
      k = k + 1
   else
      k = 1
      Datalanc = rs!Dtlanc
   end if
   rs.Edit
      rs("NumSeq") = k
   rs.Update
   rs.MoveNext
Loop
rs.Close
db.Close
set rs = nothing
End Function

Usuário Regis:

Avelino, muitíssimo obrigado pela sua ajuda. Funcionou legal!

 


 

 


Não há comentário

Envie seu comentário: