[Resolvido]caixa de seleção

Caro colegas estou de volta a pedir ajuda.

tenho um formulário que tem varias caixa de seleção, o que eu quero deve ser bem simples para vcs mas para mim esta ficando complicado

vamos o que eu gostaria, é que quando fosse marcado esta caixa de seleção no lado dela aparecesse a data e a hora.

no aguardo

Marcos

Obrigado

A data e a hora que ela foi marcada ou a data e a hora atual? Se for data e hora que ela foi marcada, você irá precisar de um campo na tabela para armazenar esse dados e então exibi-lo em um campo ou label ao lado dela.

Desculpa

a data seria a atual

no aguardo

Marcos

Abrigado

Coloque um campo texto na frente da caixa e na origem dele:

=Iif([NomeDaCaixa].[Value] = -1; Date & " - " & Time;"")

Não deu da erro, será que é porque ela é uma consulta mas ela abre um formulário
Access 2003


no aguardo

Marcos

Abrigado

Abra e feche parênteses na frente de Date() e Time()

Perfeito não seu como te agradecer, só neste forum mesmo

Obrigado Mesmo

Abraço

Marcos

Caro Criquio
 Me desculpe mas eu falei errado eu gostaria que a data ficasse fixa e não mudando a cada atualização.


no aguardo

Marcos

Obrigado

Então é o que falei anteriormente. Insira um campo na tabela para a data ficar armazenada. No evento "Ao clicar" do select você coloca:

Código:

If Me.NomeDoSelect.Value = -1 Then
        Me.NomeDoCampoDaData = Date
End If


Pronto. Quando você marcar a select, a data atual será inserida no campo e gravado na tabela. Para isso, não se esqueça de vincular o campo do formulário ao campo criado na tabela.

Caro Criquio

Desculpa a demora este codigo é quase o que eu queria,  demorei para responder por eu tava tentando por conta mas não deu, vamos la eu gostaria de colocar não só a data mas também a hora e quando desmarcasse a caixa ele apagasse.


Obrigado




No aguardo



Marcos 

Acrescente o Time igual eu passei na proposta anterior e um Else para quando o valor for 0 e não -1.

Eu usei este codgo para limpar no evento Após atualizar

Private Sub Sim_AfterUpdate()
        Me.hora = Null
End Sub

deu certo

Mas sou leigo a onde eu acrescento o data.

Código:

Private Sub Sim_Click()
If Me.Sim.Value = -1 Then
        Me.hora = time
End If
End Sub




Alguém pode me ajudar

no aguardo

Marcos

Qual a sua dificuldade que ainda persiste ?

Caro amigos já esquentei minha cabeça e resolvi o problema, para a gente aprender não devemos ganhar tudo mastigado, temos que pensar um pouco.
agradeço a ajuda se não fosse voces eu não aprenderia.

Obrigado a todos

Abraço

Esse é o espírito de um fórum. Ficamos felizes que tenha conseguido.