如何从两个数据源创建可编辑的RecordSource

你的核心需求很明确：让表单里的auswahl复选框默认显示为No（对应False），Zieladresse文本框默认空值（Null），同时支持用户编辑这两个字段。当前代码的问题在于没正确设置默认值，且otherRS的循环匹配逻辑不够严谨，容易导致赋值混乱。

关键修正步骤： #

1. 填充基础数据时直接设置默认值
   在向cpRS添加每条基础记录时，就给auswahl和Zieladresse赋初始默认值，确保即使tbl_Auswahl里没有对应记录，字段也有合理的初始状态。

2. 通过关联字段匹配赋值
   不要直接同步循环两个记录集，而是用唯一标识（比如val1这类主键字段）从otherRS中精准查找对应记录，再覆盖默认值。这样能避免两个数据集行数、顺序不一致导致的错误赋值。

3. 确保表单控件与记录集绑定
   将表单的RecordSource设置为cpRS，同时把复选框的ControlSource设为auswahl，文本框的ControlSource设为Zieladresse，实现控件与字段的双向绑定，这样用户的编辑操作才能同步到记录集。

修改后的代码示例： #

Dim cpRS As New ADODB.Recordset, rs As DAO.Recordset, otherRS As DAO.Recordset
Dim addr As String, matchFound As Boolean

' 创建支持编辑的记录集
Set cpRS = New ADODB.Recordset
With cpRS
 .Fields.Append "val1", adInteger
 .Fields.Append "val2", adInteger
 ' 其他需要的字段...
 .Fields.Append "auswahl", adBoolean
 .Fields.Append "Zieladresse", adVarChar, 50, adFldIsNullable
 .CursorLocation = adOpenKeyset
 .Open , , adOpenDynamic, adLockOptimistic, 8
End With

' 从分组查询加载基础数据
Dim restrictedQuery As String
restrictedQuery = "some SQL"
Set rs = CurrentDb.OpenRecordset(restrictedQuery, dbOpenSnapshot)

If rs.RecordCount = 0 Then
 MsgBox "error", vbOKOnly, "error"
 DoCmd.Close acForm, Me.Name
 Exit Sub
End If

' 填充基础数据并设置默认值
Do Until rs.EOF
 cpRS.AddNew
 cpRS.Fields("val1") = rs("val1")
 ' 其他字段赋值逻辑...
 ' 设置默认值：复选框默认No（False），地址默认Null
 cpRS.Fields("auswahl") = False
 cpRS.Fields("Zieladresse") = Null
 cpRS.Update
 rs.MoveNext
Loop

' 从tbl_Auswahl加载已有数据（通过val1匹配关联）
Set otherRS = CurrentDb.OpenRecordset("tbl_Auswahl")
cpRS.MoveFirst
Do Until cpRS.EOF
 matchFound = False
 otherRS.MoveFirst
 Do Until otherRS.EOF
 ' 假设val1是两个数据集的关联主键
 If otherRS("val1") = cpRS("val1") Then
 cpRS.Edit
 cpRS.Fields("auswahl") = otherRS("auswahl")
 cpRS.Fields("Zieladresse") = otherRS("Zieladresse")
 cpRS.Update
 matchFound = True
 Exit Do
 End If
 otherRS.MoveNext
 Loop
 cpRS.MoveNext
Loop

' 将表单绑定到记录集（确保表单已设计好对应控件）
Set Me.Recordset = cpRS

' 清理临时对象
Set rs = Nothing
Set otherRS = Nothing
' 注意：cpRS不要在这里释放，表单绑定依赖它

额外优化建议： #

• 如果tbl_Auswahl数据量较大，建议用Seek方法或者带条件的查询来查找匹配记录，比全表循环更高效。
• 检查表单的AllowEdits、AllowAdditions属性是否设为True，这是用户能编辑字段的前提。
• 用户完成编辑后，你可以遍历cpRS把修改后的数据批量写回tbl_Auswahl或其他目标表。

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