[Resolvido]Acionar um campo e colocar data.

olá pessoal estou fazendo em meu formulário de contas a pagar, uma função automática. no caso o seguinte tenho caixa de seleção e a data de venda.
Fiz um botão de dar baixa onde automaticamente ele coloca a data de hoje, e gostaria que ele acionasse a caixa de seleção.
a data já deu certo mas o caixa de seleção esta dando errada.
fiz assim

Private Sub btn_darBaixa_Click()
If Me.txt_baixado = 1 Then
Else

Me.txt_dt_baixa.Enabled = True
Forms![frm_contas]![txt_dt_baixa] = Date


End Sub

Tente assim

Private Sub btn_darBaixa_Click()

If Me.txt_baixado = -1 Then 'verdadeiro

Me.txt_dt_baixa.Enabled = True
me.seucampodata= date


Else ' se não for verdadeiro não faz nada




End Sub

-1 é igual a verdadeiro e
0(zero) é igual a falso


Boa sorte

olá amigo,
Não funcionou,

quando clico em dar baixa, ele não aciona a caixa de seleção.

para colocar a data assim que clicar em dar baixa isso já funciona.

o que estou precisando é que ele acionasse a caixa de seleção.

Grato
se puder ajudar!

João

O Scandinavo está correto na explicação.

Mas analisando o pedaço de código que postou, verifico:

Private Sub btn_darBaixa_Click()

If Me.txt_baixado = 1 Then    
' O controle é uma caixa de texto ? E o valor é texto? Verifique.  
E aqui está faltando o código se acontecer a condição o if
Else

Me.txt_dt_baixa.Enabled = True
Forms![frm_contas]![txt_dt_baixa] = Date

Noto que o código está verificando se existe uma condição  X primeiro( e está faltando algo se houver essa condição) para depois colocar os valores.
Verifique os nomes dos controles.
Inverta a verificação desse If..then..End if
Coloque a condição que deseja (no caso a data e a caixa de seleção)  por primeiro e depois as outras condições

[]'s

Noob

bom dia, Então amigo

a caixa de texto sim uso como um controle para saber se já foi pago (no formulário aparece todos)

coloco em anexo o arquivo zipado, para poder entender o que estou fazendo.

grato!

João

Pode me dizer onde está essa caixa de texto "txt_baixado" ?

Disse que usa ela como controle, porque não usa a caixa de seleção "baixado" para esse controle?


Aguardo

Noob

Bom é assim meu amigo

tenho o botão Dar Baixa - logo na frente tenho uma caixa de seleção - e depois a data de baixa.

o que preciso é que quando clicar no botão ele acione a caixa de seleção e coloque a data de baixa. no caso a data de baixa já consegui fazer mas fazer com que ele acione a caixa de seleção não.

Entendeu?

Simples !

Private Sub btn_darBaixa_Click()
Me.txt_baixado = -1
Me.txt_dt_baixa.Enabled = True
Me.txt_dt_baixa = Date
End Sub

[]'s

Noob

nossa era isso mesmo, então não precisava ter o IF, podia ser direto. e outro erro foi preciso mandar primeiro liberar a o outro campo para depois mandar colocar a data.

legal gostei.

MUITO OBRIGADO AMIGOS...

Ótimo amigo

Valeu ter retornado!

Feliz 2015 !


Noob