MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Verificação de registros na tabela

    Compartilhe

    biligo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 10/04/2014

    Verificação de registros na tabela

    Mensagem  biligo em Sab 03 Out 2015, 08:13

    Boas pessoal,

    Dei uma olhada e não achei como comparar tabelas via vba, com certeza deve ter alguns exemplos mas não achei ¬¬.
    Então decidi fazer eu mesmo, mas, o problema é que o jeito que fiz me parece muiiito muito lento.
    Segue o código caso alguém possa indicar como melhorar ou até mesmo indicar a maneira mais apropriada para fazer agradeço.


    Y = DLast("ID", "tblPesquisa")
    ID = DLookup("ID", "tblPesquisa")

    X = 1
    'MsgBox "Sera feita a remoção de pesquisas antigas"

    Do While X < Y

    AA = DLookup("A", "tblPesquisa", "ID= " & ID + X & "")
    BB = DLookup("B", "tblPesquisa", "ID= " & ID + X & "")
    CC = DLookup("C", "tblPesquisa", "ID= " & ID + X & "")
    DD = DLookup("D", "tblPesquisa", "ID= " & ID + X & "")
    EE = DLookup("E", "tblPesquisa", "ID= " & ID + X & "")
    FF = DLookup("F", "tblPesquisa", "ID= " & ID + X & "")

    Sequencia = G & ";" & H & ";" & I & ";" & J & ";" & K & ";" & Z
    SequenciaVerific = AA & ";" & BB & ";" & CC & ";" & DD & ";" & EE & ";" & FF

    If Sequencia = SequenciaVerific Then
    'MsgBox "Esta sequencia foi localizada em pesquisas anteriores: " & SequenciaVerific
    Z = Z + 1
    GoTo LineVerifica
    End If


    X = X + 1

    Loop


    São mais de 1.500 pesquisas na tabela e alem deste loop existem mais 3 rodando no mesmo click, dai a lentidão, mas esta parte em particular demora
    muito pra rodar. Existe alguma maneira de verificar se minha Sequencia já esta cadastrada na tabela mais fácil?

    XPTOS
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 460
    Registrado : 20/01/2014

    Re: Verificação de registros na tabela

    Mensagem  XPTOS em Sab 03 Out 2015, 16:11

    Da uma olhada na mensagem 11, e veja se ajuda...

    [Você precisa estar registrado e conectado para ver este link.]





    roberval
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 69
    Registrado : 17/05/2015

    Re: Verificação de registros na tabela

    Mensagem  roberval em Sex 09 Out 2015, 14:01

    Bom dia,
    Você poderia informar o código desde as declarações de variaveis?
    E qual o objetivo do código? Não entendi direito...


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Qui 08 Dez 2016, 14:03