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

    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 : 132
    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 9 vez(es)
    avatar
    RenatoL
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    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

    https://drive.google.com/file/d/1SBFX94RFTybRFF9M6Q04x3PmSQ-yQQOk/view?usp=sharing

      Data/hora atual: 15/8/2022, 14:40