[Resolvido]Carregar as informações

Boa noite.
Realizei alguns teste e não consegui carregar quando eu clico em cancelar.
Neste caso ele limpa todo o conteúdo do formulário.  O que tentei fazer é com que ao clicar ele limpa todos os campos mas a listbox permanece preenchida

Roberto bom dia,

Fiz um ajuste no procedimento abaixo. Copie e cole:

Código:



Private Sub Btn_Cancelar_Click()
    On Error GoTo trata_erro
Dim X As Integer

    If iCmd = 0 Then Exit Sub

    If Me.Dirty Then
        X = MsgBox("Deseja realmente cancelar?", vbQuestion + vbYesNo, NOMESYS)
        '-- Executa função genérica para limpar controles do formulário ativo
        'Limpar_CadastroLeitor
        'CarregaLista
        'Me.Lst_Responsavel.Requery
       
        '-- OBS: Esta função ela também limpa o listbox.
        '-- Caso tenha que preencher novamente a lista, coloque a rotina abaixo desta função, conforme OBS2
        Call fnClearControl(Me)
        'Form_Load
        'DoCmd.RunCommand acCmdRecordsGoToNew
   
        '-- OBS2 - Recarregar a lista
        Call CarregaLista
   
    End If
   
    If X = 0 Or X = 6 Then
        Me.Undo
        iCmd = Me.Btn_Cancelar.Tag
        Me.Lst_Responsavel.Requery
        'Call fnClearControl(Me)
        Call fnEnableButton(Me, iCmd)
        Call fnBlockControl(Me)
    End If
   
    '-- Executa o Form Load e limpa os campos usando NewRecord
    Form_Load
   
    iCmd = 0

    Exit Sub
    'Me.Lst_Responsavel.Requery
trata_erro:
'Call fnClearControl(Me)
    MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
    Exit Sub
  'Limpar_CadastroLeitor
  'Call fnClearControl(Me)
  Me.Lst_Responsavel.Requery
End Sub



É isso

Att,

Alexandre Fim

Boa noite.
Consegui que funcionasse do jeito necessário utilizando o código abaixo.
Ao cicar em novo e decidir não continuar o código ele limpa algum camó com alguma informação e a caixa de listagem não será limpa

Código:


Private Sub Btn_Cancelar_Click()
  On Error GoTo trata_erro
Dim X As Integer

    If iCmd = 0 Then Exit Sub

    If Me.Dirty Then
        X = MsgBox("Deseja realmente cancelar?", vbQuestion + vbYesNo, NOMESYS)
        '-- Alexandre Fim - 13/12/2021
        '-- Executa função genérica para limpar controles do formulário ativo
        'Limpar_CadastroLeitor
        'Call fnClearControl(Me)
        'Form_Load
        'DoCmd.RunCommand acCmdRecordsGoToNew
    End If
   
    If X = 0 Or X = 6 Then
        Me.Undo
        iCmd = Me.Btn_Cancelar.Tag
        'Call fnClearControl(Me)
        Call fnEnableButton(Me, iCmd)
        Call fnBlockControl(Me)
    End If
   
    '-- Executa o Form Load e limpa os campos usando NewRecord
    Form_Load
   
    iCmd = 0

    Exit Sub

trata_erro:
    Call fnClearControl(Me)
    MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
    Exit Sub
  CarregaLista


End Sub