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

    avatar
    Henry Airlie
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Código botão excluir Empty [Resolvido]Código botão excluir

    Mensagem  Henry Airlie 18/11/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
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Código botão excluir Empty Código botão excluir

    Mensagem  good guy 18/11/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
    avatar
    Henry Airlie
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Henry Airlie 18/11/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
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Código botão excluir Empty Código botão excluir

    Mensagem  good guy 18/11/2014, 18:23

    Olá Henry,

    Comigo funfa direitinho. Verifique se o nome do campo está correto. Um pequeno detalhe pode alterar tudo.
    avatar
    Henry Airlie
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Henry Airlie 19/11/2014, 09:46

    Ok Obrigado

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 16:05