MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Carregar as informações

    avatar
    robertonl
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 86
    Registrado : 21/12/2016

    [Resolvido]Carregar as informações Empty [Resolvido]Carregar as informações

    Mensagem  robertonl 4/10/2023, 01:00

    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
    Anexos
    [Resolvido]Carregar as informações AttachmentDizimo_Liturgia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (112 Kb) Baixado 8 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3449
    Registrado : 13/12/2016

    [Resolvido]Carregar as informações Empty Re: [Resolvido]Carregar as informações

    Mensagem  Alexandre Fim 4/10/2023, 13:51

    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


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Carregar as informações Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    robertonl
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 86
    Registrado : 21/12/2016

    [Resolvido]Carregar as informações Empty Re: [Resolvido]Carregar as informações

    Mensagem  robertonl 5/10/2023, 00:15

    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



    Conteúdo patrocinado


    [Resolvido]Carregar as informações Empty Re: [Resolvido]Carregar as informações

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/10/2024, 07:00