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? Obrigado ...
