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

    [Resolvido]Atualizar Tabela automaticamente

    avatar
    Robert_2012
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 07/03/2012

    [Resolvido]Atualizar Tabela automaticamente Empty [Resolvido]Atualizar Tabela automaticamente

    Mensagem  Robert_2012 26/2/2019, 23:55

    Boa noite,
    Tenho no meu banco duas tabelas
    Base_Importada e crono.
    Seria possível a atualização de forma automática da Tabela BASE_IMPORTADA campo LEITURA buscando os dados na Tabela CRONO?

    TABELA BASE_IMPORTADA
    ID_BASE Situação                    LEITURA
    1        20180412201812

    TABELA CRONO
    ID_CRONO CONC                 LEIT
    1                2017013201701 1ª leitura

    No campo LEITURA teria que trazer os dados do campo LEIT da tabela crono.
    Anexos
    [Resolvido]Atualizar Tabela automaticamente AttachmentSCTB .zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (43 Kb) Baixado 6 vez(es)
    avatar
    Robert_2012
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 07/03/2012

    [Resolvido]Atualizar Tabela automaticamente Empty Atualizar Tabela automaticamente

    Mensagem  Robert_2012 27/2/2019, 01:28

    Caros,
    Consegui fazer o código, agora o que precisaria saber é como fazer ele rodar automaticamente quando eu gravar dados na Base Importada.
    Como executar o ATUALIZA_LEITURA automaticamente.
    Anexos
    [Resolvido]Atualizar Tabela automaticamente AttachmentSCTB .zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (76 Kb) Baixado 12 vez(es)
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4453
    Registrado : 06/11/2009

    [Resolvido]Atualizar Tabela automaticamente Empty Re: [Resolvido]Atualizar Tabela automaticamente

    Mensagem  Assis 27/2/2019, 08:50

    Bom dia

    Teste

    No formulario aonde regista novos dados, coloca no evento ao fechar o formulários.

    DoCmd.SetWarnings False ' aqui evita o aviso do Access que vai adicionar novos registos
    DoCmd.OpenQuery "ATUALIZA_LEITURA"
    DoCmd.SetWarnings True ' Aqui volta a ativar os avisos do Access



    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Robert_2012
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 07/03/2012

    [Resolvido]Atualizar Tabela automaticamente Empty Atualizar Tabela automaticamente

    Mensagem  Robert_2012 27/2/2019, 10:39

    Bom dia
    Quando falo que atualizo o banco, não é através de formulário, mas sim, através de código VBA do Excel.
    Tenho os dados em uma planilha e uso um código para importar para o Access.

    Uso esse código abaixo

    Sub importar_Bo_extraidas()

    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim r As Long
    Dim LastRow As Long

    strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\SCTB .accdb"
    Set cn = CreateObject("ADODB.Connection")
    cn.Open strCon

    LastRow = Plan3.Range("A" & Rows.Count).End(xlUp).Row

    scn = "[Excel 8.0;HDR=YES;DATABASE=" & ActiveWorkbook.FullName & "]"
    strSQL = "INSERT INTO SCTB " _
    & "SELECT * FROM " & scn & ".[INTER$A1:K" & LastRow & "]"

    cn.Execute strSQL

    cn.Close
    Set rs = Nothing
    Set cn = Nothing

    End Sub
    avatar
    Robert_2012
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 07/03/2012

    [Resolvido]Atualizar Tabela automaticamente Empty Atualizar Tabela automaticamente

    Mensagem  Robert_2012 27/2/2019, 11:09

    Consegui fazer o código com a ajuda do See

    Obrigado

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4453
    Registrado : 06/11/2009

    [Resolvido]Atualizar Tabela automaticamente Empty Re: [Resolvido]Atualizar Tabela automaticamente

    Mensagem  Assis 27/2/2019, 19:22

    Boa tarde

    Nas duas primeiras mensagens não se refere ao Excel.

    Aqui ninguém tem varinha mágica.

    Se está resolvido, então marque como tal.


    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: 16/6/2021, 15:07