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

    Verificação de registros na tabela

    Compartilhe
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    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?
    avatar
    XPTOS
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 537
    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.]




    avatar
    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: Ter 26 Set 2017, 06:41