Access关联SQL Server表单：设计视图自动生成RecordSource损坏问题

问题场景 #

使用Access表单关联SQL Server链接表时，通过Form_Load事件的VBA代码设置记录集：

Set Me.Recordset = CurrentDb.OpenRecordset("some SQL")

运行正常，但每次进入设计视图修改（如移动文本框）后，表单属性窗口中自动生成的RecordSource会被截断损坏。例如原SQL：

Select field1,field2,field3 from Table where field4="test data"

会被修改为：

Select field1,field2,field3 from Table where field4="te

每次修改后都需手动删除属性窗口的RecordSource才能恢复正常，效率极低。

解决方法 #

• 彻底清空并禁用表单的RecordSource属性
  在设计视图中直接清空属性窗口的RecordSource字段并保存表单，后续完全依赖Form_Load事件的VBA代码设置记录集。需确保表单控件绑定的字段名与SQL返回的字段名完全一致，避免控件数据源丢失。

• 使用查询作为中间层
  创建Access查询（可关联SQL Server链接表），将筛选逻辑写入查询中，然后在VBA中调用查询：

  Set Me.Recordset = CurrentDb.OpenRecordset("YourQueryName")
  

  若需动态筛选，可在查询中设置参数，或在VBA中动态修改查询的SQL语句后再打开记录集。这种方式能避免Access直接篡改VBA中的SQL文本。

• 自动清空RecordSource（卸载表单时）
  在Form_Unload事件中添加代码，每次关闭表单时自动清空RecordSource属性，避免损坏的SQL残留：

  Private Sub Form_Unload(Cancel As Integer)
      Me.RecordSource = ""
  End Sub
  

  这样修改设计并保存后，关闭表单时会自动清除属性中的RecordSource，下次运行时由Form_Load重新生成，无需手动操作。

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