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]Código botão excluir

    Compartilhe

    Henry Airlie
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 16/08/2014

    [Resolvido]Código botão excluir

    Mensagem  Henry Airlie em Ter 18 Nov 2014, 14:31

    Bom dia Amigos,
    Em um botão excluir coloquei o seguinte código:

    Private Sub btexcluir_Click()
    If IsNull(Me!cli_Nome) Then Exit Sub
    If MsgBox("Confirma a exclusão do cliente " & vbCrLf & vbCrLf & Me!cli_Nome, vbQuestion + vbYesNo, "Confirmação") = vbNo Then Exit Sub
    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdDeleteRecord
    DoCmd.SetWarnings True
    DoCmd.ShowAllRecords
    Me!cli_Nome.SetFocus
    End Sub

    Estava funcionando perfeitamente, mas agora está dando o seguinte erro:
    Erro em tempo de execução '2046'
    O comando ou ação 'Excluir registro' não está disponível no momento.

    Não sei o que aconteceu, alguem pode me ajudar??
    grato

    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 920
    Registrado : 05/02/2010

    Código botão excluir

    Mensagem  good guy em Ter 18 Nov 2014, 15:22

    Olá Henry,

    Procure sempre tornar o seu código o mais legível possível. Veja como poderia ficar com maior legibilidade:


    Código:
    Private Sub btexcluir_Click()
    If IsNull(Me!cli_Nome) Then
    Exit Sub
    Else
    If MsgBox("Confirma a exclusão do cliente " & vbCrLf & vbCrLf & Me!cli_Nome, vbQuestion + vbYesNo, "Confirmação") = vbNo Then
    Exit Sub
    Else
    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdDeleteRecord
    DoCmd.SetWarnings True
    DoCmd.ShowAllRecords
    Me!cli_Nome.SetFocus
    End If
    End If
    End Sub

    Henry Airlie
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 16/08/2014

    Re: [Resolvido]Código botão excluir

    Mensagem  Henry Airlie em Ter 18 Nov 2014, 15:33

    Olá Good Guy
    Obrigado pelo retorno e desculpe pelo código vou tomar mais cuidado da próxima vez, coloquei o código conforme orientou mas continua dando erro.
    Att

    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 920
    Registrado : 05/02/2010

    Código botão excluir

    Mensagem  good guy em Ter 18 Nov 2014, 18:23

    Olá Henry,

    Comigo funfa direitinho. Verifique se o nome do campo está correto. Um pequeno detalhe pode alterar tudo.

    Henry Airlie
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 16/08/2014

    Re: [Resolvido]Código botão excluir

    Mensagem  Henry Airlie em Qua 19 Nov 2014, 09:46

    Ok Obrigado

      Data/hora atual: Sex 09 Dez 2016, 09:33