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


2 participantes

    [Resolvido]Exlcuir dados de um sub formulários

    avatar
    Bessa_SP
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 221
    Registrado : 06/11/2013

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

    Mensagem  Bessa_SP Sáb 27 Abr 2019, 09: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
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  scandinavo Sáb 27 Abr 2019, 10: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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 221
    Registrado : 06/11/2013

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

    Mensagem  Bessa_SP Sáb 27 Abr 2019, 10: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
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  scandinavo Sáb 27 Abr 2019, 11:08

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 221
    Registrado : 06/11/2013

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

    Mensagem  Bessa_SP Sáb 27 Abr 2019, 11: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 9 vez(es)
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  scandinavo Sáb 27 Abr 2019, 13: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 11 vez(es)
    avatar
    Bessa_SP
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 221
    Registrado : 06/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 Seg 29 Abr 2019, 07: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
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  scandinavo Seg 29 Abr 2019, 10: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
    avatar
    Bessa_SP
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 221
    Registrado : 06/11/2013

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

    Mensagem  Bessa_SP Qua 22 maio 2019, 08:43

    Obrigado

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sex 26 Abr 2024, 18:07