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]Atualizar Tabela automaticamente

    avatar
    Robert_2012
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 112
    Registrado : 06/03/2012

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

    Mensagem  Robert_2012 em Ter 26 Fev 2019, 20: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 4 vez(es)
    avatar
    Robert_2012
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 112
    Registrado : 06/03/2012

    [Resolvido]Atualizar Tabela automaticamente Empty Atualizar Tabela automaticamente

    Mensagem  Robert_2012 em Ter 26 Fev 2019, 22: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 10 vez(es)
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Qua 27 Fev 2019, 05: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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 112
    Registrado : 06/03/2012

    [Resolvido]Atualizar Tabela automaticamente Empty Atualizar Tabela automaticamente

    Mensagem  Robert_2012 em Qua 27 Fev 2019, 07: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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 112
    Registrado : 06/03/2012

    [Resolvido]Atualizar Tabela automaticamente Empty Atualizar Tabela automaticamente

    Mensagem  Robert_2012 em Qua 27 Fev 2019, 08:09

    Consegui fazer o código com a ajuda do See

    Obrigado

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Qua 27 Fev 2019, 16: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 ***

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Ter 21 Maio 2019, 10:14