[Resolvido]Desfazer Preenchimento em SubFormulário Continuo

Boa Tarde Pessoal,

Tenho um Formulário Principal, e nele um SubFormulário continuo com os campos acoplados, nesse subformulario possui 5 colunas, sendo que em uma delas o usuário pode digitar uma data, pois bem, supomos ao abrir o formulário, foi mostrado no subformulario 10 registros (linhas), e o usuário preencheu a data em 5 dessas linhas, porém ao invés dele clicar em aplicar (para confirmar o salvamento dessas datas) ele clicou em sair.

Feito isso eu gostaria que ao clicar em sair todas as datas que ele preencheu fossem apagadas, uma vez que como os campos do formulário continuo são acoplados, esses dados já estão salvos na tabela, independente do usuário clicar em aplicar.

Parece algo simples de resolver, mas procurei bastante aqui no fórum e não consegui, o Undo não funciona em subformulário, tentei através de consultas e nada também.

Desde já agradeço pela ajuda.

Rodrigo

Experimente isso:

Na folha de propriedades do subformulário - aba Dados

em Permitir Adições (caso o subformulário estiver recebendo novo registro) = não

em Permitir Edições (ser for edição) = não

Com isso o comportamento padrão do formulário será não salvar.

No código Ao clicar do botão aplicar, reverta essa(s) propriedade(s) para sim.

me.AllowAdditions = true

ou

me.AllowEdits = true


Veja se funfa !!

[ ]'s

Bom dia Noobezinho,

Obrigado pela ajuda, sua ideia foi bem interessante, mas ainda não funcionou.

Uma vez que eu coloco a opção de editar como Não, o usuário não consegue digitar nenhuma data no campo que deveria receber a data.

Estou tentando modificar o meu formulário de maneira a tentar eliminar o sub-formulário, e tentar utilizar a função Undo, caso eu consiga eu posto aqui.

Por hora se alguém tiver mais alguma ideia eu agradeço.

Um pitaco.

Como os registos já estão gravados na tabela, você poderá usar SQL para atualizar os registos alterados.

Por exemplo:

Código:

Dim strSQL$
strSQL = "UPDATE SuaTabela SET SeuCampoData="" WHERE SeuCampoChave=" & Forms!SeuFormulario.Form!SeuCampoChave
DoCmd.RunSQL (strSQL)

Atenção que eu não estou a ver a estrutura do seu banco.

O usuário vai digitar uma primeira vez?

Isso significa que os campos estão limpos.

Evitar editar se os campos tiver dados.

Se for isso, no evento ao entrar da caixa de texto:

Private Sub Texto5_Enter()
If Not IsNull(Me.Texto5) Then
Me.Texto5.Locked = True
End If
End Sub

Se ainda não for isso, explique.

Obrigado pela ajuda JPaulo e Noobezinho,

JPaulo: Com uma consulta eu não consigo "limpar" esses campos, porque devido a estrutura do minha tabela, quando o usuario preenche a data (que pode ser qualquer uma) eu não consigo diferenciar os registros para o banco de dados entender o que ele deve limpar, esse foi o meu grande problema em resolver isso com uma consulta, pelo menos na minha pouca experiência não deu certo.

Noobezinho: Acabei não testando sua ultima dica, mas acredito que não iria funcionar, pois alguns dados do registro já estão digitados, faltando somente a data para o usuário preencher, pelo que eu entendi o seu código bloqueia a caixa de texto, e esse não é o intuito, a caixa de texto tem que estar liberada para ele preencher, e somente limpar caso ele clique em sair.

Bom pessoal, de qualquer maneira quero agradecer a ajuda de você e desculpe se eu não entendi alguma coisa.

Consegui eliminar o subformulário continuo e fiz um formulário continuo com isso implementei o código abaixo que achei aqui no fórum, e agora quando o usuário clica para sair do formulário, os dados que ele preencheu são apagados e só serão gravados se ele clicar em aplicar.

Código:

Private Sub Comando14_Click()
Dim rs As Recordset
Set rs = Me.Recordset
rs.MoveFirst
Do While Not rs.EOF
With rs
Me.Texto57 = ""
rs.MoveNext
Me.Recalc
End With
Loop
Set rs = Nothing
DoCmd.Close acForm, "Cad_Data_Aplic_Atu"
End Sub

Muito Obrigado Mais uma vez.

Já que resolveu, ótimo

Mas para finalizar, o código que passei, só faz

uma coisa, impedir que os dados de uma caixa de texto seja alterado, caso

essa caixa de texto já tenha dados, independente de outros dados do registro.

Procure ler e entender códigos VBA ou ficará difícil  para você

programar.