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]Erro no código Botão

    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1042
    Registrado : 23/08/2010

    [Resolvido]Erro no código Botão Empty [Resolvido]Erro no código Botão

    Mensagem  Mylton 21/2/2016, 01:01

    Boa noite
    Nessa aplicação tem 2 form.
    1 - o botão excluir não roda.
    2- o local onde tenho que digitar o número do processo pede um controle que já existe, e não permite localizar digitando os números.
    O que fiz de diferente?
    Obrigado

    https://www.dropbox.com/s/ii8h1di4xb66tq3/Pagamento.accdb?dl=0
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Erro no código Botão Empty Re: [Resolvido]Erro no código Botão

    Mensagem  FabioPaes 21/2/2016, 15:40

    Nao entendi bem a rotina do seu Formulario... Mas troque o comando do Botao excluir por esse e veja se é isso que precisa...

    Código:

    Private Sub ComandoExcluir_Click()
            'Exclui o registro
            If IsNull(Me.Codigo_Pagamento) Then
            MsgBox "Não há dados para excluir", vbInformation, "Exclusão"
            Else
            If MsgBox("Você está excluindo um Cadastro de Pagamento Processual, tem certeza disso ?", vbYesNo + vbDefaultButton1 + vbInformation, " PCH Marcol - Cadastros de Funcionários!") = vbYes Then
            DoCmd.SetWarnings False
            DoCmd.RunCommand acCmdSelectRecord
            DoCmd.RunCommand acCmdDeleteRecord
            DoCmd.SetWarnings True
            End If
            DoCmd.Close acForm, "Cadastro Pagamento Processo"
            DoCmd.OpenForm "Cadastro Pagamento Processo"
            End If
    End Sub

    A principio, so vi errado o nome do campo que estava Me.Codigo_Pagamento_Processo mas na verdade esse campo NO FORMULARIO tem o nome Codigo_Pagamento
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Erro no código Botão Empty Re: [Resolvido]Erro no código Botão

    Mensagem  FabioPaes 21/2/2016, 16:01

    No formulario de pesquisa, voce errou basicamente na mesma coisa... Nome do campo errado.

    Mude o comando que esta no evento ao alterar da cxpesquisa para:

    Código:

    Private Sub TextoProcuraProcesso_Change()
        ListaPagamentoProcesso.Requery
    End Sub


    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1042
    Registrado : 23/08/2010

    [Resolvido]Erro no código Botão Empty Re: [Resolvido]Erro no código Botão

    Mensagem  Mylton 21/2/2016, 20:55

    Ok
    Obrigado

    Conteúdo patrocinado


    [Resolvido]Erro no código Botão Empty Re: [Resolvido]Erro no código Botão

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 17:36