/ Published in: Visual Basic
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
Public KeyRetroceso As Boolean Private Sub TDESCRIPCION_BREVE_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyBack Or KeyCode = vbKeyDelete Then ' ..si hay texto en el Textbox If Len(TDESCRIPCION_BREVE.Text) <> 0 Then KeyRetroceso = True End If End If End Sub Function Autocompletar_FlexGrid(TBox As Object, texto As String) 'buscar las coincidencias de las descripcion breves ya ingresadas al sistema _ si las carga en el textbox de pantalla Dim i As Integer Dim pos_SelStart As Integer Dim rst As ADODB.Recordset Set rst = New ADODB.Recordset rst.Open "select descripcion_breve from ot where descripcion_breve like '" & texto & "%'", cnt, adOpenStatic If rst.EOF <> True Then If (KeyRetroceso Or Len(TBox.Text) = 0) Then KeyRetroceso = False Exit Function End If pos_SelStart = TBox.SelStart TBox.Text = rst!DESCRIPCION_BREVE TBox.SelStart = pos_SelStart TBox.SelLength = Len(rst!DESCRIPCION_BREVE) - pos_SelStart End If rst.Close End Function