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]Não exclui...não deleta...não apaga.....não sei mais o que fazer !

    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Não exclui...não deleta...não apaga.....não sei mais o que fazer ! Empty [Resolvido]Não exclui...não deleta...não apaga.....não sei mais o que fazer !

    Mensagem  Silvio 24/1/2014, 16:18

    Prezados, estou acertando um banco de dados que não é de minha autoria, mas o meu cliente já tem ele há algum tempo.
    O que acontece e o que eu desejo fazer para evitar registros em branco na tblprodutos....é que ao salvar qualquer produto, o código execute um delete onde não há dados no campo de texto chamado produto.

    Estou nisso desde as seis horas de hoje e os meus recursos já esgotaram.

    Espero contar com a ajuda dos colegas.

    Projeto ( tbls, qrys e forms ) em anexo.

    Grato


    .................................................................................
    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."
    Uilson Brasil
    Uilson Brasil
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1037
    Registrado : 23/04/2013

    [Resolvido]Não exclui...não deleta...não apaga.....não sei mais o que fazer ! Empty Re: [Resolvido]Não exclui...não deleta...não apaga.....não sei mais o que fazer !

    Mensagem  Uilson Brasil 24/1/2014, 16:24

    Silvio,

    O que você quer é excluir o registro atual caso não tenha dados no campo "Produto" ou percorrer toda a tabela realizando exclusões de registro cujo o campo "Produto" seja nulo???


    Abraços,


    .................................................................................
    ::: Uilson Brasil
    ::: Design in Microsoft Access
    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 709
    Registrado : 07/05/2010

    [Resolvido]Não exclui...não deleta...não apaga.....não sei mais o que fazer ! Empty Re: [Resolvido]Não exclui...não deleta...não apaga.....não sei mais o que fazer !

    Mensagem  Jungli 24/1/2014, 16:30

    Boa tarde,

    Apagar todos os registros cujo campo Produto estiver em branco. Disparado pelo botão Salvar.

    Private Sub bt_salvar_Click()

    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.RunCommand acCmdRefresh

    CurrentDb.Execute ("DELETE tblprodutos.CodProduto, " & _
    "tblprodutos.CodFornecedor, " & _
    "tblprodutos.Fornecedor, " & _
    "tblprodutos.Produto, " & _
    "tblprodutos.IPI, " & _
    "tblprodutos.TipodeEmbalagem, " & _
    "tblprodutos.PrecoReal, " & _
    "tblprodutos.PrecoDollar " & _
    "FROM tblprodutos " & _
    "WHERE (((tblprodutos.Produto) Is Null)) " & _
    "OR (((tblprodutos.Produto)=''));")

    MsgBox " Cadastro salvo com sucesso !", vbOKOnly, Me.Caption

    End Sub
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Não exclui...não deleta...não apaga.....não sei mais o que fazer ! Empty Re: [Resolvido]Não exclui...não deleta...não apaga.....não sei mais o que fazer !

    Mensagem  Silvio 24/1/2014, 16:35

    Boa tarde colegas....

    Era exatamente isso, deletar todos os campos. Matou a pau Jungli......Uilson, o código do Jungli faz exatamente o que eu preciso.

    O que é mais estranho, tentei dessa forma também...mas não funfou, acho que devo ter comido bronha em algum lugar.

    Abraços aos dois.. e muito obrigado pela ajuda.

    Silvio


    .................................................................................
    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."
    Uilson Brasil
    Uilson Brasil
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1037
    Registrado : 23/04/2013

    [Resolvido]Não exclui...não deleta...não apaga.....não sei mais o que fazer ! Empty Re: [Resolvido]Não exclui...não deleta...não apaga.....não sei mais o que fazer !

    Mensagem  Uilson Brasil 24/1/2014, 16:39

    Ótimo ...


    .................................................................................
    ::: Uilson Brasil
    ::: Design in Microsoft Access
    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 709
    Registrado : 07/05/2010

    [Resolvido]Não exclui...não deleta...não apaga.....não sei mais o que fazer ! Empty Re: [Resolvido]Não exclui...não deleta...não apaga.....não sei mais o que fazer !

    Mensagem  Jungli 24/1/2014, 16:48

    Razz  Fico Feliz
    alien  Em ajudar

    Abraço aos colegas.

      Data/hora atual: 1/12/2022, 23:07