MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Erro no código Botão

    Compartilhe

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Erro no código Botão

    Mensagem  Mylton em Dom 21 Fev 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

    [Você precisa estar registrado e conectado para ver este link.]

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em Dom 21 Fev 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
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em Dom 21 Fev 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
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Mylton em Dom 21 Fev 2016, 20:55

    Ok
    Obrigado

      Data/hora atual: Dom 04 Dez 2016, 14:14