Sou muito básico em VBA e estou a tentar criar uma pesquisa para preencher um campo indo buscar o que pretendo a outro. O que escrevi está assim:
Private Sub formando_n_doc_LostFocus()
Set formando = CurrentDb.OpenRecordset("formando")
Dim controlo As Integer
With formando
Do Until .EOF
.Edit
If Me.formando_n_doc = formando.formando_n_doc Then
Me.formando_id = formando.formando_id
Me.formando_nome = formando.formando_nome
controlo = 1
End If
.Update
.MoveNext
Loop
If controlo = 0 Then
Me.formando_nome = ("O Formando não existe!")
Me.formando_id = ""
Me.formando_n_doc = ""
End If
End With
End Sub
Está a funcionar. O meu problema é que sendo uma base de dados dividida e que se encontra em rede para ser utilizada por vários utilizadores, sempre que está mais do que um utilizador demora perto de um minuto a mostrar os resultados.
Existe alguma forma de fazer com que funcione mais rápido?
Pergunta
Neowarp
Sou muito básico em VBA e estou a tentar criar uma pesquisa para preencher um campo indo buscar o que pretendo a outro. O que escrevi está assim:
Está a funcionar. O meu problema é que sendo uma base de dados dividida e que se encontra em rede para ser utilizada por vários utilizadores, sempre que está mais do que um utilizador demora perto de um minuto a mostrar os resultados.
Existe alguma forma de fazer com que funcione mais rápido?
Obrigado ...
Editado por kuroiAdicionar tag CODE
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.