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


4 participantes

    Inserir dados em massa

    lindomar.silva
    lindomar.silva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 137
    Registrado : 27/08/2010

    Inserir dados em massa Empty Inserir dados em massa

    Mensagem  lindomar.silva 4/8/2022, 00:22

    Olá amigos,

    Juro que procurei, mas ainda não achei aqui no Forum como fazer o que eu preciso.
    Acredito que seja com SQL (Insert Into) ou VBA, porém não consegui avançar.
    Até sei fazer lançamento de dados via VBA registro por registro... mas esse não é o caso.

    Mensalmente preciso lançar algumas informações para vários clientes, porém fazer um a um está demorando muito.

    A ideia é preencher os campos com dados que terão que ser lançados (Data, Categoria e Valor) e selecionar os clientes que irão receberam esses dados.

    Em anexo um rascunho, sem nenhuma função, apenas para facilitar para quem for me ajudar..

    Agradeço desde já.
    Anexos
    Inserir dados em massa AttachmentLançamentos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (34 Kb) Baixado 13 vez(es)
    avatar
    RenatoL
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 14/07/2022

    Inserir dados em massa Empty Resposta

    Mensagem  RenatoL 9/8/2022, 00:23

    ola amigo tive este mesmo desafio pois queria cadastrar treinamentos ou seja um treinamento para vários colaboradores.
    no meu caso eu tinha que associar a um banco diferente porem acho que não é seu caso correto.

    segue o que eu fiz espero que ajude

    coloquei em um botão,
    no meu caso a data , o tema e a duração seria os mesmos
    só os colaboradores que mudariam.


    Private Sub Salvar_Click()

    Dim bd As DAO.Database
    Dim rst As DAO.Recordset
    Dim strBd As String
    'seleciona o banco de dados que vc quiser
    strBd = "K:\05-GESTÃO DE PESSOAS\03- Grade de Flexibilidade\1- SETUP\Grade de Flexibilidade - v11-30-04-14 - MFSC.mdb"
    'abre o banco

    Set bd = OpenDatabase(strBd)
    'seleciona a tabela onde deve salvar
    Set rst = bd.OpenRecordset("Treinamentos")
    'adiciona um novo registro
    With rst
     .AddNew
       ![Data_Treinamento] = Me.Txt_data
       ![Tema] = Me.Txt_tema
       ![Duração] = Me.Txt_duração
       ![Chapa] = Me.Txt_01
     .Update
     'pula para proxima linha
     rst.MoveNext
     ' novo cadastro
     
     .AddNew
       ![Data_Treinamento] = Me.Txt_data
       ![Tema] = Me.Txt_tema
       ![Duração] = Me.Txt_duração
       ![Chapa] = Me.TxT_02
       
     .Update
     
     rst.MoveNext
     ' novo cadastro
     .AddNew
       ![Data_Treinamento] = Me.Txt_data
       ![Tema] = Me.Txt_tema
       ![Duração] = Me.Txt_duração
       ![Chapa] = Me.TxT_03
     .Update
     
     rst.MoveNext
     ' novo cadastro
     .AddNew
       ![Data_Treinamento] = Me.Txt_data
       ![Tema] = Me.Txt_tema
       ![Duração] = Me.Txt_duração
       ![Chapa] = Me.TxT_04
     .Update
     
     rst.MoveNext
     ' novo cadastro
     .AddNew
       ![Data_Treinamento] = Me.Txt_data
       ![Tema] = Me.Txt_tema
       ![Duração] = Me.Txt_duração
       ![Chapa] = Me.TxT_05
     .Update
     
     rst.MoveNext
     ' novo cadastro
     .AddNew
       ![Data_Treinamento] = Me.Txt_data
       ![Tema] = Me.Txt_tema
       ![Duração] = Me.Txt_duração
       ![Chapa] = Me.TxT_06
     .Update
     
     rst.MoveNext
     ' novo cadastro
     .AddNew
       ![Data_Treinamento] = Me.Txt_data
       ![Tema] = Me.Txt_tema
       ![Duração] = Me.Txt_duração
       ![Chapa] = Me.TxT_07
     .Update
     
     rst.MoveNext
     ' novo cadastro
     .AddNew
       ![Data_Treinamento] = Me.Txt_data
       ![Tema] = Me.Txt_tema
       ![Duração] = Me.Txt_duração
       ![Chapa] = Me.TxT_08
     .Update
     
     rst.MoveNext
     ' novo cadastro
     .AddNew
       ![Data_Treinamento] = Me.Txt_data
       ![Tema] = Me.Txt_tema
       ![Duração] = Me.Txt_duração
       ![Chapa] = Me.TxT_09
     .Update
     
     rst.MoveNext
     ' novo cadastro
     .AddNew
       ![Data_Treinamento] = Me.Txt_data
       ![Tema] = Me.Txt_tema
       ![Duração] = Me.Txt_duração
       ![Chapa] = Me.TxT_10
     .Update
     
     
     
    End With
    rst.Close
    Set rst = Nothing
    bd.Close
    Set bd = Nothing
    MsgBox "Desejá realizar o cadastro", vbOKCancel




    End Sub


    se for fazer em um só banco substitua



    Dim bd As DAO.Database
    Dim rst As DAO.Recordset
    Dim strBd As String
    'seleciona o banco de dados que vc quiser
    strBd = "K:\05-GESTÃO DE PESSOAS\03- Grade de Flexibilidade\1- SETUP\Grade de Flexibilidade - v11-30-04-14 - MFSC.mdb"
    'abre o banco

    Set bd = OpenDatabase(strBd)
    'seleciona a tabela onde deve salvar
    Set rst = bd.OpenRecordset("Treinamentos")
    'adiciona um novo registro
    With rst

    Por :

    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("sua planilha")
    With rst


    Segue exemplo na sua planilha do código acima

    Código:
    https://drive.google.com/file/d/1SBFX94RFTybRFF9M6Q04x3PmSQ-yQQOk/view?usp=sharing
    Anexos
    Inserir dados em massa AttachmentLançamentos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (87 Kb) Baixado 2 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7998
    Registrado : 15/03/2013

    Inserir dados em massa Empty Re: Inserir dados em massa

    Mensagem  Alvaro Teixeira 6/11/2022, 18:53

    Olá Lindomar,

    Como ficou a situação, não deu o feedback.
    Se já esclareceu a dúvida, não se esqueça de dar o tópico como Resolvido.

    Abraço a todos
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3501
    Registrado : 13/12/2016

    Inserir dados em massa Empty Re: Inserir dados em massa

    Mensagem  Alexandre Fim 6/11/2022, 22:59

    Olá Lindomar,

    O formulário de lançamentos ficou assim:

    Inserir dados em massa Lcto111

    Vc pode selecionar 1 ou mais clientes, ou no checkbox "Selecionar Todos".
    Inserir dados em massa Lcto211


    Após selecionar o sclientes e preencher os campos, o sistema grava os dados e emite a mensagem:
    Inserir dados em massa Lcto311

    E na tabelw ficou assim:
    Inserir dados em massa Lcto410



    OBS: O sistema verifica se os clientes foram selecionados e se os campos foram preenchidos corretamente antes de gravar.
    Veja no código comentado.

    OBS2: O sistema NÃO verifica se já existe lançamento para a data (ou competência) e categoria informadas.
    É necessário criar uma rotina de verificação para não gravar lançamentos duplicados.

    É isso.

    Segue versão atualizada.

    Att,

    Alexandre Fim
    Anexos
    Inserir dados em massa AttachmentLançamentos_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (48 Kb) Baixado 19 vez(es)


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Inserir dados em massa Setinf11
    Sistemas e Tecnologia Ltda

    Conteúdo patrocinado


    Inserir dados em massa Empty Re: Inserir dados em massa

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/12/2024, 00:44