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

    LENTIDÃO AO EDITAR FORMULÁRIOS

    rafantoninho
    rafantoninho
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 46
    Registrado : 03/11/2009

    LENTIDÃO AO EDITAR FORMULÁRIOS Empty LENTIDÃO AO EDITAR FORMULÁRIOS

    Mensagem  rafantoninho 4/11/2009, 14:28

    Boa tarde Srs.e Srtas., estou com um sério problema ao tentar editar formulários com o Access 2007 ou 2003: quando clico para edição (Design), fica lento para abrir os forms, ou para mexer com os controles, ou salvar. Trabalho com estrutura Front-end Back end, possuo umas 15 tabelas vinculadas em um servidor e tenho algumas tabelas locais do access, além de um vínculo com 2 arquivos TXT e CSV.
    Alguém tem alguma sugestão para otimizar este tempo de edição?

    Quando copio e colo as tabelas todas locais, fica bem rápido, porém é muito trabalhoso ficar fazendo isso toda hora, já que ainda existem muitas alterações a serem feitas. Se eu precisar ficar copiando e colando, tenho que fazer o vínculo com as tabelas vinculadas tudo de novo, e depois rodar o instalador de novo.

    Obrigado.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    LENTIDÃO AO EDITAR FORMULÁRIOS Empty Re: LENTIDÃO AO EDITAR FORMULÁRIOS

    Mensagem  JPaulo 4/11/2009, 14:37

    Ola seja bem vindo ao fórum.
    Se quiser continuar a trabalhar com tabelas vinculadas, desabilite a propriedade Subdatasheet Name de todas as tabelas do backend.
    Outra forma de trabalhar remotamente é abandonar as tabelas vinculadas no frontend e fazer o mesmo que os programadores em VB, PHP, ASP; ou seja, extraia os dados do backend via programação e preencha os campos dos forms e reports dinamicamente. Importante: Só traga os registros das tabelas do backend realmente necessários, abrindo e fechando as conexões ao backend a cada acesso. Isso dá um trabalhão, mas tem a vantagem da rapidez.
    Uma boa técnica seria criar algumas classes no frontend para gerenciar a abertura e fechamento de conexões, bem como de recordsets. Isso tornará mais simples a posterior implementação dentro dos forms do frontend.

    Veja esta ajuda da Microsoft:
    http://support.microsoft.com/?kbid=261000
    E tambem este de grande ajuda:
    http://officept.mvps.org/articles/accrede.htm

    Sucesso e abraço
    rafantoninho
    rafantoninho
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 46
    Registrado : 03/11/2009

    LENTIDÃO AO EDITAR FORMULÁRIOS Empty COMO FAZER CONEXÃO VIA CÓDIGO?

    Mensagem  rafantoninho 4/11/2009, 15:01

    Caro colega existe alguma fonte que possa pegar algum exemplo prático para trazer os dados via código?
    Não tenho nem idéia de como começar. Devo usar RecordSet?

    Obrigado.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    LENTIDÃO AO EDITAR FORMULÁRIOS Empty Re: LENTIDÃO AO EDITAR FORMULÁRIOS

    Mensagem  JPaulo 4/11/2009, 15:10

    Amigão, um exemplo de ir buscar dados a uma tabela de outro banco.

    Private Sub Campo1_AfterUpdate()
    Dim minhatab As DAO.Recordset
    strDbName = "C:\Dados.mdb"
    Set objaccess = New Access.Application
    Set db = objaccess.DBEngine.OpenDatabase(strDbName, False, False)
    Set minhatab = db.OpenRecordset("tblExemplo")
    minhatab.Index = "PrimaryKey"
    minhatab.Seek "=", Campo1
    If Not minhatab.NoMatch Then
    MsgBox "Número de Ocorrência está Duplicado. Verifique o Número do Campo1 e tente novamente!", 48
    Me.Campo1.SetFocus
    Campo1 = 0
    SendKeys "{ESC}{ESC}"
    End If
    minhatab.Close
    End Sub


    Sucesso e abraço

    Conteúdo patrocinado


    LENTIDÃO AO EDITAR FORMULÁRIOS Empty Re: LENTIDÃO AO EDITAR FORMULÁRIOS

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 04:49