Connekta Informatica 20/11/2014, 18:49
Boa Tarde
Reabrir o topico, pois a função parou de funcionar.
Bom o problema é o seguinte: Seleciono um cliente na LstClientes, e depois seleciono a lstReceitas. Mais só aparece a mensagem "Atenção ... Tem Parcelas mais antigas ".
Exemplo: seleciono um cliente "Codigo: 127 Nome do cliente: Aleildes Teles de Castro".
Sendo que o (a) cliente Aleildes Teles de Castro tem 12 parcelas.
Data de Vencimento: 01/01/2015
Descrição da Receita: Configuração de Micro e Computadores
...
Data de Vencimento: 01/02/2015
Descrição da Receita: Configuração de Micro e Computadores
...
Data de Vencimento: 01/03/2015
Descrição da Receita: Configuração de Micro e Computadores
...
Posso selecionar qualquer uma das parcelas que emite a mensagem( citada acima).
O código do botão que esta sendo usado é esse:
- Código:
On Error Resume Next
If IsNull(Me.lstReceitas) Then
MsgBox " Nada está selecionado!", vbCritical, "Aviso"
Exit Sub
End If
If Me.lstReceitas.Column(12) = "A Receber" Then
If Me.lstClientes.Column(0) = Me.lstReceitas.Column(3) And (DLookup("[DataVencimento]", "tbl_ReceitasC", "[DataVencimento] < #" & Format(Me.lstReceitas.Column(2), "mm/dd/yyyy") & "#")) Then
MsgBox "Atenção ... Tem Parcelas mais antigas ", vbInformation, "Aviso"
Else
DoCmd.OpenForm "frm_BaixaReceita"
End If
Else
If Me.lstReceitas.Column(12) = "Recebido" Then
MsgBox "Está parcela já foi baixada.", vbInformation, "Baixa de Parcela"
End If
End If
Alguém pode me ajudar?
Obrigado.
.................................................................................
Untitled DocumentConnekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.