'**************************************************************************************************************
    '当前窗体中同一控件类型（文本框：acTextBox；组合框：acComboBox；命令按钮：acCommandButton）的批量组合框自动下拉
    '用法: 在窗体加载事件中写入以下代码 (OnGotFocus获得焦点时下拉)
    Dim ctrl   As Control
    For Each ctrl In Me.Controls
        If ctrl.ControlType = acComboBox Then ctrl.OnChange = "=AutoDropDown定期检查()"
    Next
    '*************************************************************************************************************

Public Function AutoDropDown定期检查()
        Dim h As String
        Dim A As String
        Dim AA As String
        Dim sq As String
        A = Me.RecordSource '默认当前窗口记录源名称：
'        A = "tbl定期检查"  '自己指定表名： tbl定期检查"
'        MsgBox A, vbInformation
        AA = A & "." & Me.ActiveControl.Name
'        MsgBox AA, vbInformation
        h = "*" & Me.ActiveControl.Text & "*"
'        MsgBoxEx h, vbInformation

   If IsNull(Me.ActiveControl) Then
        sq = "select distinct " & AA & " from " & A & ""
   Else
        sq = "select distinct " & AA & " from " & A & " where ((((" & AA & ") like '" & h & "')))"
   End If

'        MsgBox sq, vbInformation
        Me.ActiveControl.RowSource = sq
        Me.ActiveControl.Dropdown
End Function