Как найти кхмерский Unicode в текстовом поле сравнить со списком в доступе VBA? - PullRequest
Новая
       20

Как найти кхмерский Unicode в текстовом поле сравнить со списком в доступе VBA?

0 голосов
/ 30 мая 2019

не может найти текстовое поле строки юникода кхмера для сравнения со списком 

txtSearchFor = textbox
lstresult = listbox

Seng Piseth, [30.05.19 10:57]
Option Compare Database

Public Function kh(ByVal st As String) As String
    Dim x As String
    Dim i As Integer
    For i = 1 To Len(st)
        x = x & AscW(Mid(st, i, 1))
    Next
    kh = x
End Function

Private Sub txtSearchFor_KeyUp(KeyCode As Integer, Shift As Integer)
    Dim rs As New ADODB.Recordset
    Dim cnn As New ADODB.Connection
    With rs
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockReadOnly
        .Open "SELECT * FROM tbentryletter WHERE kh(let_name) LIKE '%" & kh(Me.txtSearchFor.Text) & "%'", cnn
        Set Me.lstresult.Recordset = rs
        .Close
    End With

End Sub

Ошибка времени выполнения '3709'

Соединение не может быть использовано для выполнения этой операции. В этом контексте он либо закрыт, либо недействителен

...