如何在MS Access窗体中按输入顺序显示字段值为下拉列表？

方法一：针对现有单字段存储的临时下拉实现 #

如果不想修改现有表结构，可通过窗体事件+VBA代码实现点击字段时弹出按输入顺序的下拉列表：

• 在窗体设计视图中，选中目标日期文本框控件，将其OnClick事件设置为「事件过程」。
• 按Alt+F11打开VBA编辑器，在对应窗体的代码模块中添加以下代码：

Private Sub DateField_Click()
    Dim dateArray() As String
    Dim i As Integer
    Dim tempCombo As ComboBox
    
    ' 分割当前字段的日期字符串
    dateArray = Split(Me.DateField.Value, ", ")
    
    ' 创建临时组合框
    Set tempCombo = CreateObject("Forms.ComboBox")
    tempCombo.Top = Me.DateField.Top
    tempCombo.Left = Me.DateField.Left
    tempCombo.Width = Me.DateField.Width
    tempCombo.Visible = True
    
    ' 按输入顺序添加日期选项
    For i = LBound(dateArray) To UBound(dateArray)
        tempCombo.AddItem dateArray(i)
    Next i
    
    ' 展开下拉列表
    tempCombo.DropDown
    
    ' 若需要替换原字段值，可保留以下代码
    Me.DateField.Value = tempCombo.Value
    tempCombo.Visible = False
    Set tempCombo = Nothing
End Sub

注意：将代码中的DateField替换为你窗体中实际的日期控件名称；这种方法属于临时实现，关闭窗体后临时组合框会自动消失。

方法二：规范表结构（推荐） #

从数据库设计规范角度，更建议拆分数据，新建随访日期表，结构如下：

• PatientId关联原表的Id字段，InputOrder用于记录日期的输入顺序（每次新增日期时自动递增）。
• 原表移除多日期字段，在窗体中添加组合框，设置其行来源为：

  SELECT FollowUpDate FROM 随访日期表 WHERE PatientId = Forms!你的窗体名!Id ORDER BY InputOrder;
  

  点击组合框时，会自动按输入顺序显示对应患者的随访日期，且数据存储更规范，便于后续查询和维护。

补充说明 #

• 方法一适合临时需求，若数据量大或需频繁维护，方法二的扩展性和稳定性更优。
• 使用方法二时，可通过VBA自动给InputOrder赋值为当前患者的最大序号+1，确保顺序准确。

内容的提问来源于stack exchange，提问作者KApril