Olá Pessoal ajudem-me com urgência por favaor!!!!
Estou criando uma BD de gestão escolar, e eu tenho uma tela que contêm um lista de alunos e uma Edit text, que quando começo a digitar ela filtra os resultados na lista, só que após inserir mais de dois caracteres ela dá um erro, vou colocar aqui o código que estou utlizando
Private Sub txtPesquisarNome_Change()
'Cria uma váriável do tipo String
Dim vSearchString As String
'Preenche a variável com o texto digitado na txtPesquisarNome
vSearchString = txtPesquisarNome.Text
'Pass the value contained in the string variable to the hidden text box SrchText,
'that is used as the sear4ch criteria for the Query QRY_SearchAll
SrchText.Value = vSearchString
'Requery the List Box to show the latest results for the text entered in Text Box SearchFor
Me.listAluno.Requery
'Tests for a trailing space and exits the sub routine at this point
'so as to preserve the trailing space, which would be lost if focus was shifted from Text Box SearchFor
If Len(Me.SrchText) <> 0 And InStr(Len(SrchText), SrchText, " ", vbTextCompare) Then
Exit Sub
End If
'Set the focus on the first item in the list box
Me.listAluno.SetFocus
Me.listAluno = Me.listAluno.ItemData(1)
'Requery the form to refresh the content of any unbound text box that might be feeding off the record source of the List Box
DoCmd.Requery
'Returns the cursor to the the end of the text in Text Box SearchFor
Me.txtPesquisarNome.SetFocus
If Not IsNull(Len(Me.txtPesquisarNome)) Then
Me.txtPesquisarNome.SelStart = Len(Me.txtPesquisarNome)
End If
End Sub
Estou criando uma BD de gestão escolar, e eu tenho uma tela que contêm um lista de alunos e uma Edit text, que quando começo a digitar ela filtra os resultados na lista, só que após inserir mais de dois caracteres ela dá um erro, vou colocar aqui o código que estou utlizando
Private Sub txtPesquisarNome_Change()
'Cria uma váriável do tipo String
Dim vSearchString As String
'Preenche a variável com o texto digitado na txtPesquisarNome
vSearchString = txtPesquisarNome.Text
'Pass the value contained in the string variable to the hidden text box SrchText,
'that is used as the sear4ch criteria for the Query QRY_SearchAll
SrchText.Value = vSearchString
'Requery the List Box to show the latest results for the text entered in Text Box SearchFor
Me.listAluno.Requery
'Tests for a trailing space and exits the sub routine at this point
'so as to preserve the trailing space, which would be lost if focus was shifted from Text Box SearchFor
If Len(Me.SrchText) <> 0 And InStr(Len(SrchText), SrchText, " ", vbTextCompare) Then
Exit Sub
End If
'Set the focus on the first item in the list box
Me.listAluno.SetFocus
Me.listAluno = Me.listAluno.ItemData(1)
'Requery the form to refresh the content of any unbound text box that might be feeding off the record source of the List Box
DoCmd.Requery
'Returns the cursor to the the end of the text in Text Box SearchFor
Me.txtPesquisarNome.SetFocus
If Not IsNull(Len(Me.txtPesquisarNome)) Then
Me.txtPesquisarNome.SelStart = Len(Me.txtPesquisarNome)
End If
End Sub