MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Deletar linhas de registro de um Formulário por um botão de outro Formulário.

    Compartilhe

    kaiuviny
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 14/09/2015

    [Resolvido]Deletar linhas de registro de um Formulário por um botão de outro Formulário.

    Mensagem  kaiuviny em Ter 03 Nov 2015, 16:54

    Pessoal, to com mais uma dúvida mas essa é simples.

    Eu tenho um formulario "FCadastro" com o "cod_produto" e "descricao_produto", que ao quando coloco dados no campo cod_produto e clico em salvar, ele adiciona de 3 ou mais linhas de dados no outro Formulário "FVendas" que é so para consulta...

    Então queria que ao exlcuir o cod_produto ele também excluisse as linhas que foi adicionado no outro formulário "FVEndas" pelo cod_produto do primeira formulário "FCadastro"

    Ai eu fiz o seguinte código, mas está dando ERRO de sintaxe no primeiro "DELETE" dentro do WHILE, e o último DELETE, que delete a linha do fomulario "FCadastro" funciona normal...

    Private Sub btnExlcuirRegistro_Click()
    Dim Sql As String
    Dim rs As Recordset

    Set Database = CurrentDb

    Let Sql = "SELECT * FROM Tab_GV"
    Set rs = Banco.OpenRecordset(Sql)
    rs.MoveFirst

    'Faça enquanto o record set percorrer todas as linhas
    Do While rs.EOF = False
    Let Sql = "DELETE * FROM Tab_GV WHERE cod_produto = " & Me.cod_produto
    Banco.Execute Sql
    rs.MoveNext
    Loop

    'Excluindo o dado da tabela cadastro
    Sql = "DELETE * FROM Tab_Cadastro_Produto_Beneficiamento WHERE ID = " & Me.ID
    CurrentDb.Execute Sql
    MsgBox ("O Registro foi Excluido com Sucesso!"), vbInformation, "Exclusão"


    Por favor se vocês puderem me ajudar, agradeceria muito.

    kaiuviny
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 14/09/2015

    Re: [Resolvido]Deletar linhas de registro de um Formulário por um botão de outro Formulário.

    Mensagem  kaiuviny em Ter 03 Nov 2015, 16:59

    Esse Erro pelo jeito do cod_produto...

    Let Sql = "DELETE * FROM Tab_GV WHERE cod_produto = " & Me.cod_produto

    Queria deleter todas as linhas da tabela Tab_GV quando o cod_produto desta tabela for igual aos dados digitado na caiax de texto cod_produto


    o segundo formulário de consulta "FVendas", tem os campos da "Tab_GV"
    o primeiro formulário de cadastro "FCadastro" , tem os campos da "Tab_Cadastro_Produto_Beneficiamento"

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2483
    Registrado : 29/06/2012

    Re: [Resolvido]Deletar linhas de registro de um Formulário por um botão de outro Formulário.

    Mensagem  Noobezinho em Qua 04 Nov 2015, 11:20

    Caio

    Verifique se o cod_produto da tabela Tab_GV é numérico ou texto.

    Desconfio que seja texto, dai o erro de sintaxe, pois deveria estar

    entre aspas simples.

    [ ]'s


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    kaiuviny
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 14/09/2015

    Re: [Resolvido]Deletar linhas de registro de um Formulário por um botão de outro Formulário.

    Mensagem  kaiuviny em Qua 04 Nov 2015, 14:40

    Caramba noobezinho, é isso mesmo cheers

    Matou ...

    Cara muito Obrigado mesmo, Abençoado seja ti...

    Deu tudo certo aqui

    kaiuviny
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 14/09/2015

    Re: [Resolvido]Deletar linhas de registro de um Formulário por um botão de outro Formulário.

    Mensagem  kaiuviny em Qua 04 Nov 2015, 14:42

    Muito obriagado pela atenção e por toda ajuda.

    Deus te abençoe.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2483
    Registrado : 29/06/2012

    Re: [Resolvido]Deletar linhas de registro de um Formulário por um botão de outro Formulário.

    Mensagem  Noobezinho em Qua 04 Nov 2015, 14:58

    Que bom que pude ajudar

    Valeu o retorno!

    Boa sorte!


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

      Data/hora atual: Sab 03 Dez 2016, 02:26