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]Exlcuir dados de um sub formulários

    avatar
    Bessa_SP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 219
    Registrado : 07/11/2013

    [Resolvido]Exlcuir dados de um sub formulários Empty [Resolvido]Exlcuir dados de um sub formulários

    Mensagem  Bessa_SP em 27/4/2019, 13:29

    Bom dia Senhores

    Estou com um problema, tenho um Formulario Principal (Frm_Entradas) - Tbl_Entradas, e um sub formulário (Frm_Itens_Entradas), aonde os campos ligados são do Frm_Entradas (NF_Entrada), Frm_Itens_Entradas (cod_nf).
    Bom quando eu clicar em excluir queria que tantos os dados do formulário principal referente a nf especifica quando da sub fosse excluídos.
    Tentei o seguinte código.

    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
    CurrentDb.Execute "DELETE * FROM Tbl_itens_Entrada WHERE cod_nf=" & Me.Frm_itens_Entrada!cod_nf
    Me.Frm_itens_Entrada.Form.Requery

    Está dando erro de Sintaxe (Operador faltando) na expressão de consulta 'cod_nf.

    Por gentileza alguém pode me ajudar a encontrar aonde está meu erro?

    Obrigado...
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 809
    Registrado : 11/11/2009

    [Resolvido]Exlcuir dados de um sub formulários Empty Re: [Resolvido]Exlcuir dados de um sub formulários

    Mensagem  scandinavo em 27/4/2019, 14:09

    adapta ai

    CurrentDb.Execute ("DELETE * from registro where fcodigo =" & txt_fcodigo & "") ' se for campo numero

    CurrentDb.Execute ("DELETE * from registro where fcodigo ='" & txt_fcodigo & "'") ' se for campo texto
    avatar
    Bessa_SP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 219
    Registrado : 07/11/2013

    [Resolvido]Exlcuir dados de um sub formulários Empty Exlcuir dados de um sub formulários

    Mensagem  Bessa_SP em 27/4/2019, 14:18

    Amigo Scandinavo

    Obrigado pela ajuda!!

    Está dando o mesmo erro..

    O campo é numérico..

    CurrentDb.Execute ("DELETE * from registro where fcodigo =" & txt_fcodigo & "") ' se for campo numero

    Está dando erro de Sintaxe (Operador faltando) na expressão de consulta 'codigo.


    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 809
    Registrado : 11/11/2009

    [Resolvido]Exlcuir dados de um sub formulários Empty Re: [Resolvido]Exlcuir dados de um sub formulários

    Mensagem  scandinavo em 27/4/2019, 15:08

    tem como postar o exemplo
    avatar
    Bessa_SP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 219
    Registrado : 07/11/2013

    [Resolvido]Exlcuir dados de um sub formulários Empty Exlcuir dados de um sub formulários

    Mensagem  Bessa_SP em 27/4/2019, 15:23

    Amigo Scandinavo

    Criei rapidamente um modelo

    coloque o codigo dentro do botão atualizar por favor...
    Anexos
    [Resolvido]Exlcuir dados de um sub formulários AttachmentCadastro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (66 Kb) Baixado 7 vez(es)
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 809
    Registrado : 11/11/2009

    [Resolvido]Exlcuir dados de um sub formulários Empty Re: [Resolvido]Exlcuir dados de um sub formulários

    Mensagem  scandinavo em 27/4/2019, 17:35

    Veja o simples como diz JPaulo

    CurrentDb.Execute ("DELETE * from Tbl_itens_Entrada where Cod_nf =" & Me.Txt_NF_Entrada & "")
    Me.Form!Frm_itens_Entrada.Requery
    Anexos
    [Resolvido]Exlcuir dados de um sub formulários AttachmentCadastro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (74 Kb) Baixado 9 vez(es)
    avatar
    Bessa_SP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 219
    Registrado : 07/11/2013

    [Resolvido]Exlcuir dados de um sub formulários Empty Excluir dados do Formulário Principal e do Sub Formulário

    Mensagem  Bessa_SP em 29/4/2019, 11:47

    Bom dia amigo Scandinavo

    Primeiro mais uma vez obrigado pela sua ajuda...
    Professor é o seguinte ele está excluindo somente os dados do sub-formulário, (Tbl_itens_Entrada), porém eu necessito que exclua também do formulário principal (Tbl_Entrada).
    Obrigado.
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 809
    Registrado : 11/11/2009

    [Resolvido]Exlcuir dados de um sub formulários Empty Re: [Resolvido]Exlcuir dados de um sub formulários

    Mensagem  scandinavo em 29/4/2019, 14:52

    O titulo da pergunta não condis com a solução


    'op??o 1 sem integridade referencial no relacionamento
    'deleta das duas tabelas
    CurrentDb.Execute ("DELETE * from Tbl_itens_Entrada where Cod_nf =" & Me.Txt_NF_Entrada & "")
    CurrentDb.Execute ("DELETE * from Tbl_Entrada where NF_Entrada =" & Me.Txt_NF_Entrada & "")
    Me.Form.Requery





    'op??o 2 com integridade referencial no relacionamento
    'so deleta da tabela principal
    CurrentDb.Execute ("DELETE * from Tbl_Entrada where NF_Entrada =" & Me.Txt_NF_Entrada & "")
    Me.Form.Requery[Resolvido]Exlcuir dados de um sub formulários Relaci10
    Anexos
    [Resolvido]Exlcuir dados de um sub formulários AttachmentCadastro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (149 Kb) Baixado 5 vez(es)
    avatar
    Bessa_SP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 219
    Registrado : 07/11/2013

    [Resolvido]Exlcuir dados de um sub formulários Empty Exlcuir dados de um sub formulários

    Mensagem  Bessa_SP em 22/5/2019, 12:43

    Obrigado

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