[分享]组合框输入，以往有相似记录的自动下拉提示

smilingkiss

如题，实例中，在“地点”组合框中输入，如果之前的记录有相似的“地点名”，则会自动下拉提示，并且可以通过键盘上下键选择！
这个功能鄙人研究了几天，终于有了头绪，解决了操作过程的一些bug，总算差强人意的实现了相关的功能，希望对于新手可以有所启发，对于各位高人，如有方便之门指教，小弟愿闻其详，还请多加指点，谢谢！

fjh

实用，感谢分享

lijiejoy

谢谢分享，很实用的一个功能。

csi中国

很实用

cfedf

感谢分享，学习一下

djl52102

楼主辛苦了，谢谢分享

smilingkiss

huanghyd 发表于 2013-12-10 11:07
, 粗心了。改过来了，测试没有问题。非常感谢smilingkiss 。

不客气，有空多交流！

huanghyd

{:soso_e106:}, 粗心了。改过来了，测试没有问题。非常感谢smilingkiss 。

smilingkiss

huanghyd 发表于 2013-12-10 09:46
增加一句后问题解决了，很好用，能快速显示需要的东西，提高输入效率。现在我的当前窗体有2个组合框控件需 ...

      Me.Dye2 = Left(Me.Dye1, tt)

你自己看看这一句^_^

建议你复制代码到记事本，然后通过“替换”把控件名字全改过来先，然后在粘贴回去

huanghyd

增加一句后问题解决了，很好用，能快速显示需要的东西，提高输入效率。现在我的当前窗体有2个组合框控件需要运用这个功能，添加代码后测试发现第一个控件Me.Dye1可以快速显示需要的东西。第二个控件Me.Dye2却默认第一个控件显示的文字。哪里出问题？请看下图：
下面是第一个控件的代码：
Private Sub Dye1_Change()
Dim tt As Integer
   tt = Me.Dye1.SelStart
   If tt = 0 And Dye1.SelLength <> 0 Then
      Exit Sub
   End If
   Me.ParentNo.SetFocus
   Me.Dye1.SetFocus
   If Dye1 <> "" And tt > 0 Then
      Me.Dye1 = Left(Me.Dye1, tt)
      Me.Dye1.SelStart = tt
   End If
   Me.Dye1.RowSource = "SELECT distinct [PraDyeChem].DyeName FROM [PraDyeChem] WHERE ((([PraDyeChem].DyeName) Like '*' & '" & Me.Dye1 & "' & '*'))"
   If Me.Dye1.ListCount <> 0 Then
      Me.Dye1.Dropdown
   End If
End Sub

下面是第二个控件的代码：
Private Sub Dye2_Change()
Dim tt As Integer
   tt = Me.Dye2.SelStart
   If tt = 0 And Dye2.SelLength <> 0 Then
      Exit Sub
   End If
   Me.ParentNo.SetFocus
   Me.Dye2.SetFocus
   If Dye2 <> "" And tt > 0 Then
      Me.Dye2 = Left(Me.Dye1, tt)
      Me.Dye2.SelStart = tt
   End If
   Me.Dye2.RowSource = "SELECT distinct [PraDyeChem].DyeName FROM [PraDyeChem] WHERE ((([PraDyeChem].DyeName) Like '*' & '" & Me.Dye2 & "' & '*'))"
   If Me.Dye2.ListCount <> 0 Then
      Me.Dye2.Dropdown
   End If
End Sub

第一个控件Me.Dye1可以快速显示需要的东西，第二个控件Me.Dye2却默认第一个控件显示的文字。输入Nylosan B 时却显示Nylosan Y 的信息。