MaximoAccess

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

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"
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2807
    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.
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2807
    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: Sex 23 Jun 2017, 21:34