[Resolvido]Pesquisa com Combobox

Mandy715 18/3/2020, 12:15

Mandy715: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 62
Registrado : 23/12/2019

Mensagem nº1

[Resolvido]Pesquisa com Combobox

Mensagem Mandy715 18/3/2020, 12:15

Olá! tenho um formulário que tem uma combobox de consulta, entretanto, as vezes ela não funciona, está com a consulta de macro mesmo.. alguém poderia me ajudar a modificá-lo para que funcione através de um código VBA?

Anexos

banco.zip: Você não tem permissão para fazer download dos arquivos anexados.; (46 Kb) Baixado 25 vez(es)

cleverson_manaus 18/3/2020, 15:54

cleverson_manaus

cleverson_manaus: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1022
Registrado : 23/09/2011

Mensagem nº2

Re: [Resolvido]Pesquisa com Combobox

Mensagem cleverson_manaus 18/3/2020, 15:54

bom dia,

Aplica esse código na sua combo, no Evento Após Atualizar:

Código:: Private Sub BuscaMov_AfterUpdate() ' Encontrar o registro que coincide com o controle. Me.RecordsetClone.FindFirst "[ID_MOV] = " & Me![BuscaMov] & "" Me.Bookmark = Me.RecordsetClone.Bookmark Me.DATA_MOV.SetFocus Me.BuscaMov = Null End Sub

Abraços,

.................................................................................
afro