BUSCA CONTAS A PAGAR/PAGAS
Olá Galera!
Estou uma sub que pesquisa se a conta está no contas a PAGAR ou a RECEBER...
Se tiver na tabela contas pagas, irá colocar no list view contas pagas, se não tiver, irá colocar a pagar...
Fiz assim:
ContaPagarTemp = 0
Dim T1
T1 = rs!valor
--------------------------------------------------------------------------------------------
Sub Verifica_Vlr_Conta_Paga()
Set rsPG = Arq.OpenRecordset([Ô]Select * From ContasPagas where ValorPago=[Ô] & T1)
If (rsPG.EOF And rsPG.BOF) Then
ContaPagarTemp = 0 [ô]Conta Paga
Else
ContaPagarTemp = 1 [ô]Com contas a pagar
End If
Set rsPG = Nothing
end sub
--------------------------------------------------------------------------------------------
Ao executar, funcionou perfeitamente, mas ao lançar uma conta a pagar, e depois quitar ela, não aparece no contas pagas, ou seja, funcionou com os dados que tinham no banco de dados, ao adicionar, não funcionou... Já olhei no banco, lá está adicionando tudo ok...
Estou uma sub que pesquisa se a conta está no contas a PAGAR ou a RECEBER...
Se tiver na tabela contas pagas, irá colocar no list view contas pagas, se não tiver, irá colocar a pagar...
Fiz assim:
ContaPagarTemp = 0
Dim T1
T1 = rs!valor
--------------------------------------------------------------------------------------------
Sub Verifica_Vlr_Conta_Paga()
Set rsPG = Arq.OpenRecordset([Ô]Select * From ContasPagas where ValorPago=[Ô] & T1)
If (rsPG.EOF And rsPG.BOF) Then
ContaPagarTemp = 0 [ô]Conta Paga
Else
ContaPagarTemp = 1 [ô]Com contas a pagar
End If
Set rsPG = Nothing
end sub
--------------------------------------------------------------------------------------------
Ao executar, funcionou perfeitamente, mas ao lançar uma conta a pagar, e depois quitar ela, não aparece no contas pagas, ou seja, funcionou com os dados que tinham no banco de dados, ao adicionar, não funcionou... Já olhei no banco, lá está adicionando tudo ok...
Ops... copiei errado...
O certo é
------------------------------------------------------------------------------------------------------
Sub Verifica_Vlr_Conta_Paga()
ContaPagarTemp = 0
Dim T1
T1 = rs!valor
Set rsPG = Arq.OpenRecordset([Ô]Select * From ContasPagas where ValorPago=[Ô] & T1)
If (rsPG.EOF And rsPG.BOF) Then
ContaPagarTemp = 0 [ô]Conta Paga (paga)
Else
ContaPagarTemp = 1 [ô]Com contas a pagar
End If
Set rsPG = Nothing
End Sub
------------------------------------------------------------------------------------------------------
O certo é
------------------------------------------------------------------------------------------------------
Sub Verifica_Vlr_Conta_Paga()
ContaPagarTemp = 0
Dim T1
T1 = rs!valor
Set rsPG = Arq.OpenRecordset([Ô]Select * From ContasPagas where ValorPago=[Ô] & T1)
If (rsPG.EOF And rsPG.BOF) Then
ContaPagarTemp = 0 [ô]Conta Paga (paga)
Else
ContaPagarTemp = 1 [ô]Com contas a pagar
End If
Set rsPG = Nothing
End Sub
------------------------------------------------------------------------------------------------------
Obrigado GOODSPEAKERS... Realmente vi que é por aà mesmo...
Mas depois de olhar e testar, vi que funciona somente com intervalo de datas mesmo... Como ficaria um SQL com intervalo de datas? A data inicial e final seriam iguais, pois a pesquisa é dentro daquele dia...
Mas depois de olhar e testar, vi que funciona somente com intervalo de datas mesmo... Como ficaria um SQL com intervalo de datas? A data inicial e final seriam iguais, pois a pesquisa é dentro daquele dia...
Tópico encerrado , respostas não são mais permitidas