• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• This will act as a searchable combo using text box and listbox control

This will act as a searchable combo using text box and listbox control

This will act as a searchable combo using text box and listbox control

API Declarations


Regards
Abhilash Cherukat



Rate This will act as a searchable combo using text box and listbox control

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Dim minlen As Integer
Function Compare(str1 As String, str2 As String) As Boolean

    minlen = Len(str2)

For i = 0 To minlen
If str1(i) = str2(i) Then
Compare = True
Else
Compare = False
End If
Next
End Function



'Form code
Dim val, lft As String
Dim obj As New Class1
'   Change the name of DataEnvironment1 to Denv
Private Sub Command1_Click()
MsgBox Text1.Text
End Sub

Private Sub List1_Click()
Text1.Text = List1.Text
Text1.SetFocus
End Sub




Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If (Text1.Text <> "") Then
    List1.Clear

    Denv.rsCommand2.Open
    Denv.Commands.Item("Command2").CreateParameter "Name", , , , Text1.Text
       Denv.Commands.Item("Command2").Execute
        For i = 1 To Denv.rsCommand2.RecordCount
            val = Denv.rsCommand2.Fields(1).Value
            lft = Left(val, Len(Text1.Text))
            If UCase(lft) = UCase(Text1.Text) Then
             List1.AddItem val
             End If
             Denv.rsCommand2.MoveNext
        Next
       Denv.rsCommand2.Close
       List1.Visible = True
End If
End Sub

Private Sub Text1_LostFocus()
List1.Visible = False
End Sub