MaximoAccess

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

Obrigado

Administração do MaximoAccess

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]Consulta eliminar

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4225
    Registrado : 06/11/2009

    [Resolvido]Consulta eliminar Empty [Resolvido]Consulta eliminar

    Mensagem  Assis em 26/1/2020, 12:32

    Bom dia

    Precisava de ajuda na consulta eliminar desta BD

    Ao executar a consulta não anula ?
    Obrigado
    Anexos
    [Resolvido]Consulta eliminar AttachmentRequesicao.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (322 Kb) Baixado 6 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Consulta eliminar Empty Re: [Resolvido]Consulta eliminar

    Mensagem  DamascenoJr. em 26/1/2020, 16:20

    Execute a macro "Anular" e veja se é o que pretende.

    Excluindo registros da tabela PedidoCompras onde não tenha registros relacionados na tabela PedidoComprasDetalhes OU que o campo fornecedor esteja vazio
    Código:
    DELETE *
    FROM tblPedidosCompras AS a
    WHERE Nz(a.Fornecedor)="" OR (select count(*) from tblPedidosComprasDetalhes as b where a.NumPedido = b.NumPedido)=0;

    Excluindo registros da tabela PedidoComprasDetalhes onde o campo NumPedido ou CodProduto seja nulo
    Código:
    DELETE *
    FROM tblPedidosComprasDetalhes AS b
    WHERE (b.NumPedido Is Null) OR (b.CodProduto Is Null);
    Anexos
    [Resolvido]Consulta eliminar AttachmentRequesicao_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (142 Kb) Baixado 10 vez(es)


    .................................................................................
    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.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4225
    Registrado : 06/11/2009

    [Resolvido]Consulta eliminar Empty Re: [Resolvido]Consulta eliminar

    Mensagem  Assis em 27/1/2020, 09:07

    Bom dia DamascenoJr.


    A macro "Anular" ficou perfeito .

    Para fechar o poste tenho esta situação. Ver imagem :

    Obrigado

    [Resolvido]Consulta eliminar Forum12


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4225
    Registrado : 06/11/2009

    [Resolvido]Consulta eliminar Empty Re: [Resolvido]Consulta eliminar

    Mensagem  Assis em 30/1/2020, 00:04

    up


    .................................................................................
    *** Só sei que nada sei ***
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Consulta eliminar Empty Re: [Resolvido]Consulta eliminar

    Mensagem  DamascenoJr. em 30/1/2020, 01:02

    Assis escreveu:Informar que não tem produtos registrados
    Código:
    Dim objRS As DAO.Recordset
       
        Set objRS = Me!SeuSubFormulario.Form.RecordsetClone
        If objRS.RecordCount = 0 Then
            Call MsgBox("Não foi inserido nada no subformulário")
            Set objRS = Nothing
            Exit Sub
        End If
        Set objRS = Nothing

    Assis escreveu:... e não gravar.
    Infelizmente o pedido da compra já fica gravado automaticamente na tabela origem se passar o foco para o subformulário (PedidoCompraDetalhe), mas isso você já resolveria executando a macro Anular rotineiramente.


    .................................................................................
    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.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4225
    Registrado : 06/11/2009

    [Resolvido]Consulta eliminar Empty Re: [Resolvido]Consulta eliminar

    Mensagem  Assis em 30/1/2020, 08:39

    Bom dia DamascenoJr.

    Perfeito

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Consulta eliminar Empty Re: [Resolvido]Consulta eliminar

    Mensagem  DamascenoJr. em 30/1/2020, 21:22

    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.

      Data/hora atual: 20/10/2020, 21:59