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]Adicionar registros em uma tabela a partir de um formulário

    alantaru
    alantaru
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 04/10/2018

    [RESOLVIDO]Adicionar registros em uma tabela a partir de um formulário Empty [RESOLVIDO]Adicionar registros em uma tabela a partir de um formulário

    Mensagem  alantaru em 6/12/2018, 11:03

    Bom dia.

    Possuo um formulário chamado frmRota do tipo "Vários Itens" que contém uma tabela: tabRota.
    Através deste formulário eu posso filtrar os itens dessa tabela e, com os itens filtrados, posso gerar um relatório com os mesmos.

    Quando eu clico em Gerar Rota (ou gerar relatório), preciso que o Access grave todos estes registros filtrados como novos registros na tabela frmEntregas. Cada um como uma entrega separada, com sua própria chave primária.

    É possível? Desde já muito obrigado pela ajuda!!

    PS.: Essa mesma pergunta havia sido feita neste tópico, porém achei melhor abrir um novo tópico exclusivamente para essa pergunta.

    Segue em anexo o banco de dados (é o mesmo que postei no tópico acima):

    alantaru.000webhostapp.com/BANCO_DE_DADOS/Filtro_em_cascata_Multiplo.zip


    Última edição por alantaru em 7/12/2018, 09:30, editado 3 vez(es)
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [RESOLVIDO]Adicionar registros em uma tabela a partir de um formulário Empty Re: [RESOLVIDO]Adicionar registros em uma tabela a partir de um formulário

    Mensagem  scandinavo em 6/12/2018, 17:33

    Coloquei o código em um botão para ficar mais fácil de entender

    no evento de um botão

    Dim db As Database
    Set db = CurrentDb()
    Dim rst, rsE As Recordset
    Set rst = Me.Recordset
    rst.MoveFirst
    Do While Not rst.EOF
    With rst
      'abre a tabela para adicionar as entregas
     Set rsE = db.OpenRecordset("tabEntregas")
    '****rsE!Campo da tabela = me!campo do formulario****'
     rsE.AddNew 'adiciona os dados
     rsE!Serie = Me!Serie
     rsE!Modelo = Me!Modelo
     rsE!Fila = Me!Fila
     rsE!PlantaInstalada = Me!PlantaInstalada
     rsE!Empresa = Me!Empresa
     'Agora basta voce adiciona os outros campos
     rsE.Update

    rst.MoveNext
    End With
    Loop

    MsgBox ("Registros adicionados  " & rst.RecordCount), vbInformation, "Aten??o"

    Set rst = Nothing
    Set rsE = Nothing



    sugestão de titulo

    "Adicionar registros em uma tabela a partir de um formulário"



    o filtro é independente

    Ate mais

    Anexos
    [RESOLVIDO]Adicionar registros em uma tabela a partir de um formulário AttachmentFiltro_em_cascata e adicionar registros.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.1 Mb) Baixado 16 vez(es)
    alantaru
    alantaru
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 04/10/2018

    [RESOLVIDO]Adicionar registros em uma tabela a partir de um formulário Empty Re: [RESOLVIDO]Adicionar registros em uma tabela a partir de um formulário

    Mensagem  alantaru em 6/12/2018, 18:07

    Amigo, muito obrigado!
    Funcionou perfeitamente! cheers
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [RESOLVIDO]Adicionar registros em uma tabela a partir de um formulário Empty Re: [RESOLVIDO]Adicionar registros em uma tabela a partir de um formulário

    Mensagem  scandinavo em 6/12/2018, 19:01

    Valeu pelo retorno

    Marque o tópico como resolvido

    Conteúdo patrocinado

    [RESOLVIDO]Adicionar registros em uma tabela a partir de um formulário Empty Re: [RESOLVIDO]Adicionar registros em uma tabela a partir de um formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 5/12/2019, 19:52