[Resolvido]Não salvar caso o formulário esteja em branco

Boa Noite,

Mais uma vez venho buscar orientação neste site, que hoje considero essencial para conclusão de alguns trabalhos e pesquisas.

Vamos lá.

Um dos formulários de cadastros que tenho, tem guias, quando entro no formulário, abre com o primeiro registro efetuado. Para adicionar novo registro, clico no botão correspondente, até aí tudo bem. O problema é que, ao ir para novo registro e passar de uma guia para outra, mesmo sem inserir nenhum dado, e clicar em sair, ele salva o registro como se tivesse adicionado algo, já com o botão salvar, quando abro o formulário ele cai no primeiro registro efetuado, mesmo sem alterar nada, sai a mensagem que coloquei quando há alteração. Coloquei no botão salvar : para novo registro: "Registro cadastrado com sucesso"
e em caso de alteração: "Registro alterado com sucesso".
Finalizando, sem querer abusar, é sobre uma LISTBOX com os registros cadastrados, coloquei em meu form de cadastro um campo onde lista os itens cadastrados, a medida que vou salvando os registro ele atualiza essas informações, ficando com a possibilidade de clicar em um deles carregando-o no formulário de cadastro para alteração ou visualização dos dados.

Há possibilidade de:

Caso 1 : Se os campos estiverem em "branco" limpos, sair sem salvar. ou informar que nenhum registro foi feito, se deseja adicionar novo registro, se sim
vai para o campo inicial se não fecha o formulário;

Caso 2: Ao abrir no primeiro registro ou qualquer que seja selecionado e não tiver alterado nada e mesmo assim clicar no botão salvar, informar que nenhuma alteração foi feita.

Caso 3: ter um campo acima da listbox para digitação do item que quero alterar ou visualizar em meu cadastro, ou seja, a medida que vou digitando as letras ele vai filtrando e ao clicar no item na lisbox, abrir os dados no formulário de cadastro, para alteração ou visualização.

Me desculpem por pedir auxílio em tantos itens, mas estou há muito tempo tentando e não consigo concluir meu banco de dados por essas questões.
Quem puder ajudar, agradeço imensamente.

Sandro - Goiânia

1. Use este comando para saber se todos os campos estão nulos ou vazios:

Código:


Public Function VerificaCampos (frm as form)
For Each ctl In frm.Controls
        Select Case ctl.ControlType
        Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
If ctl.value = "" or IsNull(ctl.Value) Then Go to Proximo
Else
     msgbox "Existe campo com dados"
ctl.Setfocus
End If
Proximo:
Next ctl

'Aqui você coloca o que deseja fazer caso tudo tiver vazio:

Exit Function


Chame está função no formulário que deseja manipular: Call VerificaCampos(Me)

2. Para você saber se nenhum campo foi alterado use o código VBA:

Código:


If Me.Campo.Oldvalue = Me.Campo.Value then
msgbox "Este campo possui o mesmo valor"
Else
msgbox "Este campo teve seus valores alterados..."
End if


3. No filtro da sua listbox ou combobox,

Coloque no evento ao listar combo box (DropList) ou no campo onde está digitando ao alterar ou (Dirty)

Código:


Dim sql as string
Me.CampoBoxouList.RowSource = "SELECT Campo1, Campo2 FROM Tabela WHERE Campo1 LIKE '*' & '" & me.CampoFiltro & "' & '*'"


Valeu pela força, mas em nenhum dos casos que vc postou dica, funcionou.

Por exemplo, nos meus formulários de cadastro, o botão salvar já tem um código vba para quando incluir novo registro sair a mensagem : registro incluído com sucesso e em caso de alteração sai: registro alterado com sucesso, o que preciso é que quando abrirem o formulário e clicarem em salvar mesmo sem ter alterado nenhum registro, informar que nenhum registro foi alterado para que possa ser salvo. Já em caso da pessoa clicar em novo registro e passar para outra guia mesmo sem inserir nada e clicar em sair o registro está salvando em branco o que não pode ocorrer, se caso estiver em branco a pessoa pode até sair, mas que não haja adição no registro. O que vem ocorrendo em Cadastro de clientes e fornecedores (ambos tem guias)
Referente a lista do itens cadastrados, nos formulário de cadastros tem um caixa a qual sempre que adiciono novo registro já atualiza e fica visível nela, caso clique em algum item carrega os dados no formulário para visualização ou alteração. O que eu queria é que logo abaixo da caixa (listbox - sei lá o nome) coloque uma caixa de texto onde a medida que digite vá filtrando os nomes nessa box e ao clicar carregue no formulário, para alteração ou visualização. Tentei adequar cada código seu mas infelizmente não tive sucesso.
Estou enviando o bd para avaliação.

No cadastro de fornecedores ainda não coloquei a caixa listbox, só nos Cadastro de frota de veículo e Cadastro de Clientes. Onde poderá ter uma ideia.

Amigo entendi o conceito seu, mas desta maneira vai salvar sempre um novo registro mesmo...

Você manda ir para um novo registro, e manda pegar o valor que está na caixa de texto que você usou o DMax para somar, porém quando faz isto você já está dando valor, por isso que sempre vai salvar um novo registro... porém se você apertar ESC não vai salvar as alterações. Você também usa alguns eventos que preenche alguns campos ao sair do campo, tudo isso conta como inserção de dados.

Para acrescentar o número de cadastro usa o Número Automático do Access da própria tabela, é melhor e ainda é indexado ajuda a agilizar as consultas.

Vou ver o que posso fazer por você neste seu programa, se eu entender vou dar uma reformada nele.

Valeu pelas dicas, mas adequei vários códigos e consegui exito nas questões do salvar ou alterar registro e não salvar caso esteja em branco ou qualquer outra coisa que faça e não clicar no botão salva e clicar direto em sair, saio sem salvar. Só falta a list box de pesquisa, que não estou conseguindo.
Abaixo segue o código para o botão salvar.

Private Sub Sair_Click()
Dim strMsg As String
If IsNull(Me.Contato) Then

strMsg = "Deseja sair do Cadastro de Fornecedores sem efetuar alterações?"
If MsgBox(strMsg, vbQuestion + vbYesNo, "Fechar?") = vbYes Then
DoCmd.CancelEvent
Me.Undo
DoCmd.Close
End If
Else
strMsg = "Deseja sair do Cadastro de Fornecedores?"
If MsgBox(strMsg, vbQuestion + vbYesNo, "Fechar?") = vbYes Then
DoCmd.CancelEvent
Me.Undo
DoCmd.Close
End If
End If
End Sub

  Valeu pela força, mas já consegui finalizar todos os itens que estavam pendentes, tanto nos códigos para os botões, quanto a listagem de pesquisa.

Posteriormente irei postar os códigos para exemplo de ajuda à quem precisar

Até mais,

Sandro