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


    Atualizar varios dados no Access usando o excel

    avatar
    MORCELI
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 15/10/2013

    Atualizar varios dados no Access usando o excel Empty Atualizar varios dados no Access usando o excel

    Mensagem  MORCELI 16/10/2013, 01:52

    Boa noite a todos no forum, sou novo aqui, preciso de uma força de voces. Vamos lá, cheguei em ponto do meu projeto que preciso mesmo da seguinte função , eu tenho um filtro de critérios de datas que pucha os dados do banco de dados do Access da tabela tbLançamentos para o excel, e no excel eu altero esses dados que não são poucos, dai umas 100 linhas a cada filtro que realizo, gostaria de saber se tem como eu devolver esses dados para o access no seu devido lugar, sobrepondo no lugar onde se encontra o registro atual no Access, ou seja, na mesma linha que ele se encontra no access.

    Se alguem sabe como fazer, ou tem algum exemplo ou código que faça isso, fico no aguardo pela ajuda

    obrigado att
    avatar
    MORCELI
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 15/10/2013

    Atualizar varios dados no Access usando o excel Empty Re: Atualizar varios dados no Access usando o excel

    Mensagem  MORCELI 16/10/2013, 14:34

    Bom dia Pessoal, então estou tentando chegar num acordo só que sem sucesso, eu to tentando montar uma macro que analisa os registros através da chave primaria para sobrepor os dados no seu local de origem no Access, só que sem sucesso, não manjo muito de Access...

    segue a macro
    Código:
    Sub Exportar()
          Dim Tabela As RANGE
          Dim Array1 As Variant
          Dim x As Variant
          sql = "SELECT * FROM tbLançamentos ORDER BY Numero, Numero"
    Conectar
          Set Tabela = Plan7.RANGE("A5").CurrentRegion.Offset(1, 0)
          Set Tabela = Tabela.Resize(Tabela.Rows.Count - 1, Tabela.Columns.Count)
          Tabela.Select
          Array1 = Tabela.Value
          For x = 6 To UBound(Array1, 1)
          If Array1(x, 1) = rs.Fields.Item(1) Then
                With rs
                   
                      .Fields(1) = Array1(x, 1)
                      .Fields(2) = Array1(x, 2)
                      .Fields(3) = Array1(x, 3)
                      .Fields(4) = Array1(x, 4)
                      .Fields(5) = Array1(x, 5)
                      .Fields(6) = Array1(x, 6)
                      .Fields(7) = Array1(x, 7)
                      .Fields(8) = Array1(x, 8)
                      .Fields(9) = Array1(x, 9)
                      .Update
                End With
                End If
          Next
       
          Desconectar

    End Sub

      Data/hora atual: 8/11/2024, 13:36