MaximoAccess

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

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
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1038
    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
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1038
    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: Seg 25 Set 2017, 03:29