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


3 participantes

    [Resolvido]Form continuo, não elimina

    avatar
    ARJ
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 67
    Registrado : 31/07/2022

    [Resolvido]Form continuo, não elimina Empty [Resolvido]Form continuo, não elimina

    Mensagem  ARJ 13/3/2023, 15:21

    Olá

    Coloquei este código num form continuo, num botão a frente de cada linha, para eliminar o registo selecionado.
    O que acontece é que questiona se pretende eleminar, dou o OK e não elimina.

    Código:
    Private Sub btnEliminar_Click()
    On Error GoTo Err_CmdExcluir_Click
    DoCmd.SetWarnings False
    If MsgBox("Deseja excluir o registro selecionado?", vbQuestion + vbYesNo, "Eliminar Registo Selecionado") = vbYes Then
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
    End If
    DoCmd.SetWarnings True

    Exit_CmdExcluir_Click:
    Exit Sub

    Err_CmdExcluir_Click:
    MsgBox Err.Description
    Resume Exit_CmdExcluir_Click
    End Sub

    Agradecia ajuda vossa. o meu muito obrigado.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5121
    Registrado : 20/04/2011

    [Resolvido]Form continuo, não elimina Empty Re: [Resolvido]Form continuo, não elimina

    Mensagem  Silvio 13/3/2023, 17:41

    Boas...

    Provavelmente seu formulário continuo deve estar baseado em uma consulta. Mude para a tabela de origem da consulta.

    Outra coisa que pode ser é....

    1- abra o formulário em modo design
    2- aba dados
    3-permitir exclusões: sim


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    ARJ
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 67
    Registrado : 31/07/2022

    [Resolvido]Form continuo, não elimina Empty Re: [Resolvido]Form continuo, não elimina

    Mensagem  ARJ 21/3/2023, 15:23

    Olá

    Silvio amigo desculpe a demora, mas era isso mesmo, ou seja baseado numa consulta. A minha questão será, não a forma de eliminar em consulta ?
    Obrigado.

    E uma vez mais desculpe a demora na resposta. Sorry mesmo.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Form continuo, não elimina Empty Re: [Resolvido]Form continuo, não elimina

    Mensagem  JPaulo 22/3/2023, 11:19

    Se utilizar o CurrentDb.Execute consegue isso;

    Código:
    If MsgBox("Deseja excluir o registro selecionado?", vbQuestion + vbYesNo, "Eliminar Registo Selecionado") = vbYes Then
        CurrentDb.Execute "DELETE * FROM SuaTabela WHERE SeuCampoID=" & Me.SeuCampoID
        Me.Requery
    End If


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Form continuo, não elimina Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Form continuo, não elimina Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Form continuo, não elimina Folder_announce_new Instruções SQL como utilizar...

    ARJ e BrunoReis gostam desta mensagem

    avatar
    ARJ
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 67
    Registrado : 31/07/2022

    [Resolvido]Form continuo, não elimina Empty Re: [Resolvido]Form continuo, não elimina

    Mensagem  ARJ 31/3/2023, 15:52

    Olá

    João, obrigado. Obrigado mesmo. resolveu.
    Beijinhos

    Obrigado
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Form continuo, não elimina Empty Re: [Resolvido]Form continuo, não elimina

    Mensagem  JPaulo 31/3/2023, 16:29

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Form continuo, não elimina Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Form continuo, não elimina Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Form continuo, não elimina Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Form continuo, não elimina Empty Re: [Resolvido]Form continuo, não elimina

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/12/2024, 04:07