如何基于tbl_Property的Col3字段限制frm_Rent和frm_Buy的Col2可选值？

核心需求回顾 #

两个表单frm_Rent、frm_Buy共享记录源tbl_Property，需根据Col3字段值限制Col2的可选范围：

• frm_Rent仅显示Col3为Rent或Both的Col2值（300b、300G、300F、300A）
• frm_Buy仅显示Col3为Buy或Both的Col2值（300V、300Z、300A）
• tbl_Property数据更新后，表单的可选值需自动同步

方案1：带参数的通用查询+表单事件赋值 #

这种方法复用性强，适合后续扩展其他表单：

1. 创建通用查询Q_Col2_Options，SQL语句如下：

   SELECT DISTINCT Col2
   FROM tbl_Property
   WHERE Col3 = [FormType] OR Col3 = 'Both'
   ORDER BY Col2;
   

2. 给两个表单添加Form_Load事件代码，传递筛选参数：
   • frm_Rent的VBA代码：

     Private Sub Form_Load()
         Me.Col2.RowSource = "Q_Col2_Options"
         ' 指定当前表单对应的Col3筛选值
         Me.Col2.RowSourceArgs = "Rent"
     End Sub
     

   • frm_Buy的VBA代码：

     Private Sub Form_Load()
         Me.Col2.RowSource = "Q_Col2_Options"
         Me.Col2.RowSourceArgs = "Buy"
     End Sub
     

3. 实时同步数据更新：在表单的Form_Current事件添加代码，确保切换记录或数据更新后选项自动刷新：

   Private Sub Form_Current()
       Me.Col2.Requery
   End Sub
   

方案2：表单加载时动态生成SQL #

无需额外创建查询，直接在表单事件中拼接筛选逻辑：

• frm_Rent的VBA代码：

  Private Sub Form_Load()
      Dim strSQL As String
      strSQL = "SELECT DISTINCT Col2 FROM tbl_Property WHERE Col3='Rent' OR Col3='Both' ORDER BY Col2"
      Me.Col2.RowSource = strSQL
  End Sub
  

• frm_Buy的VBA代码：

  Private Sub Form_Load()
      Dim strSQL As String
      strSQL = "SELECT DISTINCT Col2 FROM tbl_Property WHERE Col3='Buy' OR Col3='Both' ORDER BY Col2"
      Me.Col2.RowSource = strSQL
  End Sub
  

• 同样添加Form_Current事件的Requery代码，实现数据更新后的实时同步。

关键注意事项 #

• 确保Col2控件的RowSourceType属性设置为Table/Query
• 若需要忽略大小写匹配（比如数据中的300b和显示的300B），可修改SQL为：

  SELECT DISTINCT Col2 FROM tbl_Property WHERE UCase(Col3)='RENT' OR UCase(Col3)='BOTH' ORDER BY Col2
  

• 若Col2是绑定控件，需保证控件类型与tbl_Property中Col2的字母数字类型匹配

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