[Resolvido]Listbox com Select

Olá Pessoal,

Estou alimentando meu form pelo nome dos funcionarios que seleciono no Listbox. Mais quando seleciono um funcionario o listbox pisca some os nome e retorna depois com tds nomes e o fomr preenchido. Ate ae ta funcionando.

gostaria de saber se tem como ficar estatico os nomes dentro do listbox, nao piscar. Parece que está usando um Me.refresh

Segue código:
Private Sub Lista_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String

If Lista.Value > 0 Then
strSQL = "SELECT * FROM tbCurriculos WHERE Código = " & Lista.Value

Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
If Not rs.BOF Then

Me.Código = rs("Código")
Me.TxtPrimeiroNome = rs("Primeironome")
Me.TxtNomeCompleto = rs("Nome")
Me.TxtCPF = rs("CPF")
Me.TxtRG = rs("rg")
Me.TxtPIS = rs("pis")
Me.TxtNascimento = rs("Nascimento")
Me.TxtCEP = rs("cep")
Me.TxtTipo = rs("Tipo")
Me.TxtEndereco = rs("endereco")
Me.TxtNumero = rs("numero")
Me.TxtComplemento = rs("Complemento")
Me.UF = rs("UF")
Me.Txtbairro = rs("Bairro")
Me.Cidade = rs("Cidade")
Me.TxtTelRes = rs("Telresidencial")
Me.TxtTelCom = rs("Telcomercial")
Me.TxtTelCel = rs("Telcelular")
Me.TxtEmail = rs("Email")
Me.MemoObs = rs("Obs")
Me.Perfil = rs("Perfil")
Me.QdIndicacao = rs("Indicacao")
Me.QdBlackList = rs("BlackList")
Me.FotoCandidato = rs("Foto")
Me.CaminhoCurriculo = rs("Curriculo")
If IsNull(Me.FotoCandidato) = False Then '(Atualiza Foto no Formulário)
Me.ImgCurriculo.Picture = Me.FotoCandidato
Else
Me.ImgCurriculo.Picture = "C:\Users\User\Pictures\ImagemCandidato.jpg"
End If

End If
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End If

Boas Murilo.. não estou a entender o que explicou... se possível post aqui a parte do bd, para que possamos ver.

Cumprimentos.

PILOTO,

Quando eu seleciono um Nome no Listbox, ao executar a consulta para preencher o Form ele aparemtemente dar um refresh no Listbox e os nomes somem e voltam. É muito rapido mais, nao teria como eu ir selecionando os nomes, atualizando o form sem o Listbox dar essas piscadas de atualização?

Quando eu utilizava o ApplyFilter não aocntecia isso. Resolvi mudar p o SQl.

Segue o Codigo

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String


If Lista.Value > 0 Then
strSQL = "SELECT * FROM tbCurriculos WHERE Código = " & Lista.Value

Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
If Not rs.BOF Then
'Me.Código = rs("Código")
Me.Cod = rs("Código")
Me.TxtCPF = rs("CPF")
'Me.meucampo3 = rs("Origemmeucampo3")
'Me.meucampo4 = rs("Origemmeucampo4")
'Me.meucampo5 = rs("Origemmeucampo5")
'Me.meucampo6 = rs("Origemmeucampo6")
End If
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End If

No código não vejo problemas conectos a essa "Piscada" que está falando.. não vejo conexão...

So testando o teu BD para ver... mas a principio não vejo no codigo nada que interfira nisso.


Cumprimentos.

Piloto,

Acho que pode ser o processamento do computador. Testei em outra maquina e funcionou legal, sem refresh.

Mais valeu pela atenção.. Como sempre a galera sempre disposta a ajudar.

Abçs.

O Fórum agradece o retorno.