[Resolvido]salvar apenas pelo botão salvar

boa noite pessoal tem uma coisa que esta pegando em meu sistema com Campos acoplado se eu abro e começo a preencher e depois fechar quando vou no último registro ele está la

no botão fechar estou usado
me.undo
so que mesmo assim não esta adiantando
,qual seria a forma mais segura pra não salvar sem ser no botão salvar

desde ja agradeço

A forma mais adequada de não salvar sem clicar no Botão é utilizar Formulário desacoplado!
Porem ja lhe adianto, que exige muito conhecimento em VB para ter exito! Existem aqui no Fórum, na sala de repositório alguns exemplos bem simples sobre o assunto!

Outra forma, seria ao Fechar, verificar o preenchimento de todos os campos do registro atual, se algum estiver em branco avisar ao usuário e perguntar se que abandonar a digitação... Se a afirmação for Sim, execute uma consulta exclusão (DELETE * FROM NomeTabela WHERE ID = " & Me.NomeCampoID & ") filtrando pelo ID do registro.

ola Fabio muito obrigado, vou tentar esta segunda opção

muito obrigado
vou tentar e te retorno

Veja esse Tópico aqui:
https://www.maximoaccess.com/t26998-gravar-registo-apos-preencimento-do-ultimo-campo-de-um-formulario#190254
Ele ja destaca os campos em branco, sem precisar digitar campo por campo! Pode utilizar a ideia para nao ter que digitar campo a campo!

bom dia Fabio vou tentar e retorno estava sem net

abraço

bom dia Fabio gostei muito deste código que você enviou de verificação de Campos em branco vale


em relação a fechar e excluir o registro em branco posso fazer assim?
if isnull(me.nome do subformulario!campo )then

DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings true
docmd.close
else
close
endif

abraço

Acredito que resolverá sim... Faça alguns testes antes... e retorne!

bom dia Fabio eu não estou conseguindo adaptar o código para os fins de não salvar sem ser pelo botão eu fiz como você sugeriu na mensagem 2 ele apaga todas as vendas estou enviando o meu bd talvez você tem outra ideia



obs:tentei colocar um botão para cancelar a venda mais somente se estivesse sem preencher os campos
também não consegui

deste ja obrigado

Vamos mudar de abordagem amigo... Pois seu problema e pouco diferente do relatado...


Apague o comando que tem no evento ao Fechar do Formulário!

No Botão de Fechar coloque:

Código:

Private Sub Btnfechar_Click()
Dim F As Integer

F = Nz(DCount("*", "Tbl_VendasDet", "CodigoVendas = " & Me.CodVenda & ""), 0)
If F = 0 Then
 If MsgBox("Deseja Fechar e Cancelar os Dados? ", vbYesNo + vbInformation, "Atenção!") = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.Close
End If
Else
DoCmd.RunCommand acCmdSaveRecord
DoCmd.Close
End If

O que o comando faz?
Simples, ele faz a contagem de registros na tabela Tbl_VendasDet Se nao tiver nenhum, significa que foi so o registro add automaticamente ao abrir o Formulário, então ele é excluído.

ola Fabio so tira uma dúvida minha se no formulário vendas tenho dois subformulario sendo aonde insiro os produtos e o outro aonde recebe o parcelamento minha dúvida e o seguinte devo fazer a verificação apenas no subformulario onde eu insiro os produtos como vc fez e se o usuário abrir o formulário e preencher os campos do formulário pai e preencher do subformulario onde insiro os produtos e fechar ele irá deixar o cadastro do registro incompleto e preciso fazer a verificação no subformulario contasreceber também?

muito obrigado pela sua ajuda

Por questão de organização deverá sim verificar a tabela Contas a Receber... Para evitar ficar em branco...

Porem para exclusão não... Pois não tem como ele inserir registros na tabela contas a receber sem ter nenhum produto/valor...

Mas coloque sim uma verificação no mesmo estilo... para evitar que ele saia para próximo registro sem lançar os títulos...

boa noite Fabio foi resolvido eu fiz uma verificação no formulário contas a receber
if isnull(me.nome do formulário! nome do campo) then
se for sim faço uma pergunta se deseja gerar a parcela se a resposta for sim ele emite um aviso para pressionar o botão gerar parcela
else
ele sai excluindo a venda atual


desde ja obrigado por mais uma vez e desculpa o trabalho

Grato pelo retorno amigo, até a próxima se Deus Quiser!