Olá, sou novo aqui, essa é minha primeira mensagem.
Estou aprendendo a mexer no access agora, não entendo muito de vba.
Fiz uma agenda telefônica, coloquei uma caixa de listagem e um botão de pesquisa,
inseri um código para buscar pelas primeiras letras, blz, funciona legal,
o problema são as palavras com acento, eu tenho José com acento e sem acento,
quando eu busco José com acento o Jose sem acento não aparece.
Teria alguma código para ignorar os acentos?
Obrigado!
Desculpe! Ainda não consegui resolver!
Eu fiz como na mensagem nº10 desse tópico, mas não consegui resultado.
Meu código:
Option Compare Database
Dim VarEspaco
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
VarEspaco = 1
End If
End Sub
Private Sub Horário_Automático_BeforeUpdate(Cancel As Integer)
End Sub
Private Sub Form_Timer()
Me.txttempo.Requery
End Sub
Private Sub txt_pesquisa_Change()
If VarEspaco = 1 Then
VarEspaco = 0
Else
Me.Recalc
SendKeys "{F2}"
End If
End Sub
Private Sub txt_pesquisa_LostFocus()
Me.txt_pesquisa = ""
End Sub
Obs: Ele funciona blz, o problema é quando eu digito José na minha caixa txt_pesquisa,
ela só me retorna os nomes com acento, o Jose sem acento ela não me retorna.
Algume pode me ajudar? Estou usando o access 2007.
É uma agenda simples....
Estou aprendendo a mexer no access agora, não entendo muito de vba.
Fiz uma agenda telefônica, coloquei uma caixa de listagem e um botão de pesquisa,
inseri um código para buscar pelas primeiras letras, blz, funciona legal,
o problema são as palavras com acento, eu tenho José com acento e sem acento,
quando eu busco José com acento o Jose sem acento não aparece.
Teria alguma código para ignorar os acentos?
Obrigado!
Desculpe! Ainda não consegui resolver!
Eu fiz como na mensagem nº10 desse tópico, mas não consegui resultado.
Meu código:
Option Compare Database
Dim VarEspaco
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
VarEspaco = 1
End If
End Sub
Private Sub Horário_Automático_BeforeUpdate(Cancel As Integer)
End Sub
Private Sub Form_Timer()
Me.txttempo.Requery
End Sub
Private Sub txt_pesquisa_Change()
If VarEspaco = 1 Then
VarEspaco = 0
Else
Me.Recalc
SendKeys "{F2}"
End If
End Sub
Private Sub txt_pesquisa_LostFocus()
Me.txt_pesquisa = ""
End Sub
Obs: Ele funciona blz, o problema é quando eu digito José na minha caixa txt_pesquisa,
ela só me retorna os nomes com acento, o Jose sem acento ela não me retorna.
Algume pode me ajudar? Estou usando o access 2007.
É uma agenda simples....
Última edição por alesaqua em 17/8/2015, 02:56, editado 1 vez(es)