[Resolvido]Botão Salvar e Fechar

Galera,

Mais uma vez venho recorrer a ajuda de vocês novamente, pois já pesquisei e pesquisei e não encontrei uma solução para este problema.

Tenho um botão Salvar e outro Fechar, porém, quando eu clico no botão salvar ele salva e não limpa os campos e o botão fechar quando eu clico no botão fechar ou no X ele salvar a alteração, porém, que queria que ele perguntasse se pode ou não salvar a alteração, caso positivo ele salva, senão ele fecharia.

Tela da Aplicação

Segue abaixo o código do botão salvar.

Código:

'AO CLICAR NO BOTÃO SALVAR
Private Sub Btn_Salvar_Click()
DoCmd.RunCommand acCmdSaveRecord

'AO INICIAR TODOS OS CAMPOS ESTARÃO LIMPOS
DoCmd.GoToRecord acForm, "Frm_Agenda_Treinamento", acNewRec

'OS CAMPOS ESTARÃO HABILITADOS / DESABILITADOS
'DADOS DO COLABORADOR
Me.txt_matricula.Enabled = False
Me.txt_colaborador.Enabled = False
Me.txt_cargo.Enabled = False
Me.txt_setor.Enabled = False
Me.txt_nivel = False
Me.txt_empresa.Enabled = False

'AGENDAMENTO DA TURMA
Me.txt_turma.Enabled = False
Me.txt_data.Enabled = False
Me.txt_horario.Enabled = False
Me.txt_PCD = False

'AGENDAMENTO INICIAL
Me.txt_dt_cadastro.Enabled = False
Me.txt_resp_cad.Enabled = False

'AGENDAMENTO ALTERADO
Me.txt_dt_alteracao.Enabled = False
Me.txt_resp_alt.Enabled = False

'FILTRO DE CONSULTA
Me.txt_cdc_cons.Enabled = True
Me.txt_matricula_cons.Enabled = True
Me.txt_colaborador_cons.Enabled = True
Me.list_consulta_colaborador.Enabled = True

'O BOTÃO FICARÁ HABILITADO / DESABILITADO
Me.btn_alterar.Enabled = False
Me.btn_agendamento.Enabled = False
Me.Btn_Salvar.Enabled = False
Me.btn_fechar.Enabled = True

End Sub

Segue abaixo o código do botão fechar

Código:

'AO CLICAR NO BOTÃO FECHAR
Private Sub btn_fechar_Click()
DoCmd.Close
End Sub

Desde já agradeço a ajuda.

Bom dia...

No botão Fechar...
On Error Resume Next
If Not IsNull(Me.txt_matricula) Or (Me.colaborador) Or Me.NewRecord Then
  If MsgBox("O Cadastro foi incluído ou alterado. Deseja salvar?", vbQuestion + vbYesNo, Me.Caption) = vbYes Then
      DoCmd.RunCommand acCmdSaveRecord
       DoCmd.Close
           DoCmd.OpenForm "nome_do_formulário_a_ser_aberto"
   Else
   DoCmd.SetWarnings False
   Me.Undo
   DoCmd.CancelEvent
   DoCmd.Close
   DoCmd.OpenForm "nome_do_formulário_a_ser_aberto"
   

   DoCmd.SetWarnings True
   End If
End If


Teste esse antes e nos informe.

Silvio,

Funcionou parcial.

Ele esta perguntando até quando o meu campo esta em branco.

Ou seja, ele deveria fechar sem perguntar com os campos estão vazios e perguntar só quando tivesse informações no campo.

Tela da aplicação

Veja....veja essa linha de onde origina a mensagem..

If Not IsNull(Me.txt_matricula) Or (Me.colaborador) Or Me.NewRecord Then

Tradução livre: se não for vazio,nulo ( me.txt_matricula) ou (me.colaborador) ou me.NewRecorder ( novo registro ) então

Notou o que está em vermelho ? Caso o enduser abra o formulário e não faça nada, apenas abre por abrir o sistema avisa sobre o salvamento.

Caso queria, apague o que está em vermelho no teu sistema.

Silvio,

Agora se eu abro o formulário e não chamo informação nenhuma e o campo estiver vazio, o botão não fecha, somente o X.

Código:

'AO CLICAR NO BOTÃO FECHAR
Private Sub btn_fechar_Click()
On Error Resume Next
If Not IsNull(Me.txt_matricula) Or (Me.Colaborador) Then
If MsgBox("O Agendamento foi incluído ou alterado. Deseja salvar?", vbQuestion + vbYesNo, Me.Caption) = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
DoCmd.Close
Else
DoCmd.SetWarnings False
Me.Undo
DoCmd.CancelEvent
DoCmd.Close
DoCmd.SetWarnings True
End If
End If
End Sub

Manda o teu sistema para eu dar uma olhada nele...
Compacta o mesmo, e anexa ele aqui.
Grato.

Silvio

Segue abaixo o link.

Aplicação

Desabilite os campos ao abrir o formulário e ao clicar duas vezes na listbox. Os campos são os que estão no código. (txt_matricula e colaborador) .

Não sei se acontece contigo, mas tua listbox, está dando estouro ao clicar duas vezes.

Deu Certo!

Muito Obrigado!