BUSCA VENCIMENTO

IRENKO 10/09/2014 21:30:40
#441130
Marcelo, acho que agora eu resolvi a parada:

mSql = [Ô][Ô]
mSql = [Ô] SELECT Dados.Locatario, Dados.VencimentoMes, Dados.valor [Ô] + _
[Ô] FROM Dados WHERE (((Dados.VencimentoMes) < now()-1)) [Ô] + _
[Ô] GROUP BY Dados.Locatario, Dados.VencimentoMes, Dados.valor ORDER BY Dados.Locatario;[Ô]

O DateDiff estava no local errado, tirei o mesmo do select. Bom ao menos agora esta dando certo.

Grato.
MARIOANDRADE 10/09/2014 22:25:16
#441131
Eu tenho um controle de pagamento simples onde eu coloco só o dia de vencimento e dá certo, veja se ajuda:
uso este código no load do form para que o campo [Ô]Vencido[Ô] seja marcado como verdadeiro no banco de dados:

     Dim DiaAtual As Integer
        DiaAtual = Day(DateValue(Now))
        
 ConexaoBD
   rs.Open [Ô]select *from TBClientes[Ô], db, 3, 3
      Do Until rs.EOF
          If rs(2).Value < DiaAtual And rs(3).Value = 0 Then [ô]Verifica se está vencido e se não foi pago
             rs(6).Value = 1 [ô]Marca o campo [Ô]Vencido[Ô] como verdadeiro
             rs.Update
          Else
            rs(6).Value = 0 [ô]Desmarca o campo vencido caso esteja marcado e não esteja vencido
             rs.Update
          End If
          rs.MoveNext
      Loop
   rs.Clone: Set rs = Nothing
   db.Close: Set db = Nothing


Depois eu uso este código no itemclick da listview :

    If lstAlterar.SelectedItem.SubItems(3) = [Ô]SIM[Ô] Then chkAPago.Value = 1
    If lstAlterar.SelectedItem.SubItems(3) = [Ô]NÃO[Ô] Then chkAPago.Value = 0
    If lstAlterar.SelectedItem.SubItems(5) = [Ô]SIM[Ô] Then chkAAtivo.Value = 1
    If lstAlterar.SelectedItem.SubItems(5) = [Ô]NÃO[Ô] Then chkAAtivo.Value = 0


Não sei se te ajuda em alguma coisa, só queria te mostrar que pode sim trabalhar apenas com o dia de vencimento.
Página 2 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar