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

    [Resolvido]Apagar registos de uma tabela com base em duas condições

    avatar
    pjjpm
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 73
    Registrado : 17/09/2014

    [Resolvido]Apagar registos de uma tabela com base em duas condições Empty [Resolvido]Apagar registos de uma tabela com base em duas condições

    Mensagem  pjjpm 27/8/2019, 15:24

    Olá Maltinha Smile

    Necessito de ajuda com o seguinte código:


    Tenho aberto um formulário com base numa consulta ( pesquisa por CodMp ) e pretendo aparar todos os registos da tabela DetalheFichPre onde o CodFichPrep =0 (zero ) e CodMp = ao valor do campo CodMp desse formulário aberto.

    Tentei mas sem  sem sucesso  Sad  

    Private Sub LimpaAcertos_Click()

    Dim Rst As DAO.Recordset

    If MsgBox("Confirma a transferência do Acerto?" & vbCr & NomeManip, vbYesNo + vbDefaultButton2) = vbYes Then
          'Limpa acertos anteriores na tabela DetalheFichprep

    CurrentDb.Execute "DELETE *DetalheFichPrep (WHERE DetalheFichPre.CodFichPrep=0 AND DetalheFichPrep.CodMp=CodMp & " ')", dbFailOnError

    MsgBox "acertos anteriores apagados"
    Me.Refresh

    End If

    End Sub
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1621
    Registrado : 17/03/2011

    [Resolvido]Apagar registos de uma tabela com base em duas condições Empty Re: [Resolvido]Apagar registos de uma tabela com base em duas condições

    Mensagem  Cláudio Machado 27/8/2019, 16:35

    Boa tarde.
    Crie uma consulta de exclusão já com os dados filtrados e execute.
    Funcionará da mesma forma e você terá certeza do que realmente está excluindo.
    Abraço


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Apagar registos de uma tabela com base em duas condições 90dssg para agradecer a dica que solucionou seu problema.
    avatar
    pjjpm
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 73
    Registrado : 17/09/2014

    [Resolvido]Apagar registos de uma tabela com base em duas condições Empty Re: [Resolvido]Apagar registos de uma tabela com base em duas condições

    Mensagem  pjjpm 27/8/2019, 23:39

    Olá boa noite,

    Obrigado pela resposta mas, como não sei fazer isso, perfeita fazer deste modo, mesmo porque será a primeira parte de uma sequência de passos (que já está pronta)

    Smile
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1621
    Registrado : 17/03/2011

    [Resolvido]Apagar registos de uma tabela com base em duas condições Empty Re: [Resolvido]Apagar registos de uma tabela com base em duas condições

    Mensagem  Cláudio Machado 28/8/2019, 02:06

    Se precisar de ajuda para criar.
    Posta o que precisa que a gente te ajuda.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Apagar registos de uma tabela com base em duas condições 90dssg para agradecer a dica que solucionou seu problema.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2892
    Registrado : 22/11/2016

    [Resolvido]Apagar registos de uma tabela com base em duas condições Empty Re: [Resolvido]Apagar registos de uma tabela com base em duas condições

    Mensagem  DamascenoJr. 29/8/2019, 22:43

    Código:
    ...
    CurrentDb.Execute "delete * from DetalheFichPrep where CodFichPrep = 0 and CodMp = " &Me.NomeDoCampoComValorPraSerUsado
    ...


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    pjjpm
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 73
    Registrado : 17/09/2014

    [Resolvido]Apagar registos de uma tabela com base em duas condições Empty Re: [Resolvido]Apagar registos de uma tabela com base em duas condições

    Mensagem  pjjpm 7/9/2019, 12:58

    Boas!

    Fica então:

    CurrentDb.Execute "delete * from DetalheFichPrep where CodFichPrep = 0 and CodMp = " & Me.CodMp

    e fica melhor do que o que tinha feito entretanto:

    Private Sub TransfereAcerto_Click()

    Dim Rst As DAO.Recordset

    If MsgBox("Confirma a transferência do Acerto?" & vbCr & NomeManip, vbYesNo + vbDefaultButton2) = vbYes Then

    ' desactiva mensagem da consulta exclusáo

    DoCmd.SetWarnings (WarningsOff)


    'Limpa acertos anteriores


    DoCmd.OpenQuery "ExclusaoAcertos", , acViewNormal



    'acrescenta na tabela DetalheFichprep
    CurrentDb.Execute "INSERT INTO DetalheFichPrep (CodFichPrep,CodMp,Quantidade,Estado) Values('0','" & CodMp & "','" & Texto37 & "',#" & Format(Date, "mm/dd/yyyy") & "#)", dbFailOnError

    End If




    Set Rst = Nothing

    Dim stDocName As String
    Dim stLinkCriteria As String


    MsgBox "Concluido", vbInformation, "Aviso"

    DoCmd.Close
    stDocName = "AcertosDataActual"

    DoCmd.OpenForm stDocName, , , stLinkCriteria

    DoCmd.GoToRecord , , acLast



    End Sub


    sendo a consulta (de eliminação )ExclusaoAcertos:

    DELETE DetalheFichPrep.CodFichPrep, DetalheFichPrep.Reagente, DetalheFichPrep.CodMp, DetalheFichPrep.Quantidade, DetalheFichPrep.Desc, DetalheFichPrep.Estado, [Quantidade]*(1-[Desc]/100) AS Expr1
    FROM DetalheFichPrep
    WHERE (((DetalheFichPrep.CodFichPrep)=0) AND ((DetalheFichPrep.CodMp)=[Formulários]![xxx]![CodMp]));




    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2892
    Registrado : 22/11/2016

    [Resolvido]Apagar registos de uma tabela com base em duas condições Empty Re: [Resolvido]Apagar registos de uma tabela com base em duas condições

    Mensagem  DamascenoJr. 7/9/2019, 21:20

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7998
    Registrado : 05/11/2009

    [Resolvido]Apagar registos de uma tabela com base em duas condições Empty Re: [Resolvido]Apagar registos de uma tabela com base em duas condições

    Mensagem  Alexandre Neves 8/9/2019, 13:48

    Boa tarde, Pedro

    Faltou o "Resolvido"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    pjjpm
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 73
    Registrado : 17/09/2014

    [Resolvido]Apagar registos de uma tabela com base em duas condições Empty Re: [Resolvido]Apagar registos de uma tabela com base em duas condições

    Mensagem  pjjpm 9/9/2019, 12:38

    Tens razão Alexandre Smile

    Esqueci me de marcar como resolvido
    Mais uma vez, obrigado pela ajuda.

    Abraços

      Data/hora atual: 24/7/2021, 08:50