[Resolvido]Fução para desmarcar caixa de seleção.

Olá gente,

estou tentando desmarcar uma caixa de seleção automaticamente
mas não estou conseguindo.

A caixa de seleção se chama [Pagando] ela está marcada atualmente, até
onde sei, marcada é o numero "1" certo?

pois é, estou tentando desmarca-la com o "0" mas não faz nada.

Vejam o codigo.
==========================================================

  If Me.[Data_vencimento] = Me.Parent.CONTRATOS![Data_ultimo_pagamento] Then
           Me.Parent.CONTRATOS![Prox_Pagamento] = Null
           Me.Parent.CONTRATOS![Pagando] = 0
           Else: Me.Parent.CONTRATOS![Prox_Pagamento] = Me.Parent.CONTRATOS![Dia_para_Pagamento] & Format((Me.[Data_vencimento] + 31), "/mm/yyyy")
       End If

==========================================================

Tem uma imagem em anexo que pode ajudar.

Obrigado a quem puder ajudar.

Olha que coisa estranha

Adiconei um campo e usei como fonte a caixa de verificação [Pagando]

Ela desmarcada = 0
Marcada = -1

Porque "-1" seria 1?

sera que isto tem algo a ver com o problema?

Vejam o anexo.

Olá, o 0 representa "não" e o -1 o "sim"

Olá amigo! No VBA O valor Verdadeiro (True) = -1 e o valor Falço (False) = 0

Seu código ficaria assim:

If Me!Data_vencimento = Me.Parent.CONTRATOS![Data_ultimo_pagamento] Then
Me.Parent.CONTRATOS![Prox_Pagamento] = Null
Me.Parent.CONTRATOS!Pagando.Value = 0
Else
Me.Parent.CONTRATOS![Prox_Pagamento] = Me.Parent.CONTRATOS![Dia_para_Pagamento] & Format((Me.[Data_vencimento] + 31), "/mm/yyyy")
End If

Ok,

então estou fazendo correto, usando o zero,

porém mesmo assim não consigo desmarcar a caixa.


Pode me ajudar?

Está esquecendo do Value, conforme minha mensagem nº4.

Amigo Beto, não havia visto que já tinha postado...

Sem problema Marcelo, acontece.

lgdelai tem como postar a parte envolvida no teu pedido de ajuda?

Marcelo, não deu certo cara.

Estou enviando o banco de dados em anexo para que de uma olhada.

O eu quero:
que após preencher o ultimo pagamento, ele desmarque a caixa PAGANDO

pois o cliente não vai mais ter nada para pagar.

Como ele sabe que não tem mais nada a pagar? comparando os campos de vencimento
e data de ultimo pagamento.

O código é executado após atualizar a caixa DATA_PAGAMENTO.

Segue bd, completo.

Obrigado por me ajudar.

Não citaste o nome do formulário somente o nome do campo, deduzi que o formulário é "filtragem pagamento', verifica se é isso que quer.

Não funcionou, você testou ai?

O Nome do formulário é: CONTRATOS eu citei sim.

No meu primeiro post:
===========================================
If Me.[Data_vencimento] = Me.Parent.CONTRATOS![Data_ultimo_pagamento] Then
Me.Parent.CONTRATOS![Prox_Pagamento] = Null
Me.Parent.CONTRATOS![Pagando] = 0
Else: Me.Parent.CONTRATOS![Prox_Pagamento] = Me.Parent.CONTRATOS![Dia_para_Pagamento] & Format((Me.[Data_vencimento] + 31), "/mm/yyyy")
End If
===========================================


e depois de que o marcelo me deu a dica eu modifiquei e ficou assim
===========================================
If Me.[Data_vencimento] = Me.Parent.CONTRATOS![Data_ultimo_pagamento] Then
Me.Parent.CONTRATOS![Prox_Pagamento] = Null
Me.Parent.CONTRATOS!Pagando.Value = 0
Else: Me.Parent.CONTRATOS![Prox_Pagamento] = Me.Parent.CONTRATOS![Dia_para_Pagamento] & Format((Me.[Data_vencimento] + 31), "/mm/yyyy")
End If
===========================================

Mas em nenhuma das duas formas deu certo.

Boa noite Amigo, no formulário que você mencionou fiz um pequeno exemplo no botão "teste"

vai em anexo o Arquivo espero ter podido ajudar.

Ótimo.

mas veja que o botão teste está no Formulário-Pai "CONTRATOS".

e o meu código está no Sub-formulário pagamentos.

Faça um teste para mim, coloque o botão teste dentro do sub-formulário "PAGAMENTOS"

Para eu ver como fica o código.

Baixa novamente do mesmo lugar acima e faça o teste

Continua do mesmo jeito, o botão teste está no Formulário pai.

Amigo o evento ocorre quando vc sai do campo obs.

Perfeito meu amigo,

Porém os dados que preciso comparar são:
[Data_vencimento] do formulário PAGAMENTOS
e
[Data_ultimo_pagamento] do formulário CONTRATOS

Consegue fazer isto?

Não entendi, como seria essa comparação?

Consegui.

Como no meu código ele já apagar o campo [Prox_Pagamento]
eu coloquei a caixa de seleção para verificar se este campo está
vazio, pois se ele estiver e se sim desmarcar.

e deu certo.

=================================================
Private Sub Data_pagamento_Exit(Cancel As Integer)
If IsNull(Me.Parent.CONTRATOS!Prox_Pagamento) = True Then
   Me.Parent.CONTRATOS![Pagando] = 0
End If
End Sub
=================================================

Muito obrigado a todos.