[Resolvido]Ao escreve o nome do PDF na caixa texto a listbox não actualiza

Bom dia,

Não estou a conseguir fazer a pesquisa quando escreve o nome do PDF na caixa de texto como está na imagem.

[url=]

O meu Código é esse:

Option Compare Database
Option Explicit
Dim VarTecla

Private Sub Comando20_Click()
DoCmd.Close
DoCmd.OpenForm "M_Principal"
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
VarTecla = 1
End If
End Sub

Private Sub Form_Open(Cancel As Integer)
Me.KeyPreview = True
Me.Lista11 = ""
Dim strArquivo As String
Dim strCaminho As String
Me!Lista11.RowSource = ""
strCaminho = "C:\Documents and Settings\User\Ambiente de trabalho\Gestão de Saúde RG\artigos\"
strArquivo = Dir$(strCaminho & "*.pdf")
Do While Len(strArquivo) > 0
   Me!Lista11.AddItem strArquivo
   strArquivo = Dir$()
Loop
Me.txt1 = ""
Me.KeyPreview = True
Me.Lista11 = ""
Me.AcroPDF0.Width = 400 * 22
Me.AcroPDF0.Height = 400 * 15.5

End Sub


Private Sub Lista11_Click()
Dim strCaminho$
strCaminho = "C:\Documents and Settings\User\Ambiente de trabalho\Gestão de Saúde RG\artigos\"
Me!AcroPDF0.LoadFile strCaminho & Me.Lista11.Column(0)
Me!txt1 = Me.Lista11.Column(0)

End Sub

Private Sub Texto13_AfterUpdate()
If IsNull(Me.Texto13) Then
   'Me.lstcliente.RowSource = ""
   Me.Lista11.Requery
   End If
   Me.Lista11.Requery

End Sub

Private Sub Texto13_Change()
If VarTecla = 1 Then
VarTecla = 0
Else
Me.Recalc
Me.Texto13.SelStart = 255
End If
End Sub

Alguém pode me ajudar?

Ola;

De onde o amigo copiou o código, reveja este seu trecho;

Private Sub Texto13_AfterUpdate()
If IsNull(Me.Texto13) Then
   'Me.lstcliente.RowSource = ""
   Me.Lista11.Requery
   End If
   Me.Lista11.Requery

End Sub

Tirei de um exemplo que estava aqui no forum

Mestre Avelino obrigado! Estou a utilizar o teu código e funciona perfeito.

Código:

Option Compare Database
Dim strLimpo$

Private Sub Form_Open(Cancel As Integer)
strLimpo = Me!Lista.RowSource
End Sub

Private Sub Texto8_Change()
Dim j, k%, strFiltro$
Me!Lista.RowSource = strLimpo$
j = Split(Me!Lista.RowSource, ";")
If Len(Me!Texto8.Text & "") = 0 Then Exit Sub
For k = 0 To UBound(j)
    If InStr(j(k), Me!Texto8.Text) > 0 Then strFiltro = strFiltro & ";" & j(k)
Next
If InStr(strFiltro, ";") = 1 Then strFiltro = Mid(strFiltro, 2)
Me!Lista.RowSource = strFiltro
End Sub

Mas estou com um problema que não sei como isso está acontecer, apaguei dois PDF e quando tento fazer uma 2º pesquisa na minha listbox vai buscar os dois PDF que já não tenho na pasta ou seja quando abre o formulário a minha listbox aparece todos os PDF que tenho na pasta e faço a 1 pesquisa aparece lindamente o PDF que pretendo visualizar mas na 2º pesquisa a minha listbox já não me dá a lista de todos os PDF e tenta ir buscar PDf que já não existe na pasta.

Não sei se perceberam o que está acontecer.

 Obrigado Mestre Avelino já está a funcionar!