通过设置表单上的控件和数据集来防止自动切换。可以使用以下代码示例来实现:
在表单打开事件中添加以下代码,以防止在表单中自动切换到不同的数据集:
Private Sub Form_Open(Cancel As Integer) Me.RecordsetType = dbOpenDynaset End Sub
在表单中对应的控件事件中添加以下代码,以防止在控件上选择时切换到不同的数据集:
Private Sub Combo1_GotFocus() Me.Recordset = Me.RecordsetClone End Sub
这些代码将在表单和控件上设置数据集,以防止在表单意外切换到不同的数据集。