ongke0711 > 23-08-19, 12:08 PM
Noname > 23-08-19, 05:59 PM
tranthanhan1962 > 23-08-19, 07:19 PM
ongke0711 > 23-08-19, 09:05 PM
tranthanhan1962 > 23-08-19, 11:01 PM
ongke0711 > 23-08-19, 11:39 PM
tranthanhan1962 > 24-08-19, 08:12 AM
lehongduc > 24-08-19, 09:33 PM
Private Sub TenKH_KeyDown(KeyCode As Integer, Shift As Integer)
Dim RwSrc As String, St As String, nStart As Integer
Dim sObj
Select Case KeyCode
Case vbKeyF4
nStart = Me.TenKH.SelStart
Me.TenKH.SelLength = Me.TenKH.Width - nStart
St = Trim(Me.TenKH.SelText)
'Chuyen con tro ve dau cau
Me.TenKH.SelStart = 0
Me.TenKH.SelLength = nStart
St = Trim(Me.TenKH.SelText)
If Len(St) > 0 Then
RwSrc = "SELECT DISTINCTROW DSKhachhang.TenKH, DSKhachhang.MSKH FROM DSKhachhang"
RwSrc = RwSrc & " WHERE((DSKhachhang.TenKH) Like '*" & St & "*')"
RwSrc = RwSrc & " ORDER BY DSKhachhang.MSKH;"
Me.TenKH.RowSource = RwSrc
End If
End Select
End Sub
lehongduc > 24-08-19, 10:09 PM
ongke0711 > 26-08-19, 04:56 PM