Advanced Search

Return to Snippet

Revision: 19006
at October 14, 2009 10:16 by tanerliq
Initial Code 
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
Initial URL 

                                

                                                            

                                    

                                        

                                        Initial Description
                                        

                                    

                                    

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
Auto completar un textbox desde una BD

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
Visual Basic