hi there.
I use greek languaged office and at a table my surname field contains values writtern at Greek.
At a from i created a text box and a list box. The list box shows all values from surname field. When i start typing something at text box, then there is a filtering at the list box - like its trying to find what i am writing at the text box.
The code at the text box is at change event:
Dim vSearchString As String
vSearchString = textbox_name.text
SrchText.Value = vSearchString
Me.listbox_name.Requery
If Len(Me.SrchText) <> 0 And InStr(Len(SrchText), SrchText, " ", vbTextCompare) Then
Exit Sub
End If
Me.listbox_name = Me.listbox_name.ItemData(1)
Me.listbox_name.SetFocus
DoCmd.Requery
Me.textbox_name.SetFocus
If Not IsNull(Len(Me.textbox_name)) Then
Me.textbox_name.SelStart = Len(Me.textbox_name)
End If
End Sub
i start typing only greek letters.
When i try to enter specifically the greek letter t (τ) then at the text box i see a phrase τα (ta at greek) and i cannot erase it
Any suggestions?
I use greek languaged office and at a table my surname field contains values writtern at Greek.
At a from i created a text box and a list box. The list box shows all values from surname field. When i start typing something at text box, then there is a filtering at the list box - like its trying to find what i am writing at the text box.
The code at the text box is at change event:
Dim vSearchString As String
vSearchString = textbox_name.text
SrchText.Value = vSearchString
Me.listbox_name.Requery
If Len(Me.SrchText) <> 0 And InStr(Len(SrchText), SrchText, " ", vbTextCompare) Then
Exit Sub
End If
Me.listbox_name = Me.listbox_name.ItemData(1)
Me.listbox_name.SetFocus
DoCmd.Requery
Me.textbox_name.SetFocus
If Not IsNull(Len(Me.textbox_name)) Then
Me.textbox_name.SelStart = Len(Me.textbox_name)
End If
End Sub
i start typing only greek letters.
When i try to enter specifically the greek letter t (τ) then at the text box i see a phrase τα (ta at greek) and i cannot erase it
Any suggestions?