[求助]如何锁定窗体上的记录不被修改

mrl

在窗体上如何锁定已绑定源对象的控件不被编辑，则是只有未绑定的控件可以编辑，就象快照一样，但在窗体上设置RecordsetType属性时记录总是跳转回第一个记录上，请教各位有没有可以实现同样效果但记录又不会跳转的方法？

p51219

22222222222222222222222

cxz123

开卷有益，学到了不少

suve

常读论坛 开卷有益

BBBBBBBBB

andymark

以下是引用mrl在2006-5-9 11:20:00的发言：



可行，但是如果无邦定的控件多时，那每个都要写上代码了……

如果无邦定的控件多,楼主的方法是简单的,我试尝用BOOKMARK跳转,但没能成功

一点通

最蠢的办法也可能是最可行的办法

mrl

以下是引用一点通在2006-5-9 11:12:00的发言：
20楼的方法不行吗？

可行，但是如果无邦定的控件多时，那每个都要写上代码了……

一点通

20楼的方法不行吗？

mrl

谢谢各位的回复和指教

http://www.office-cn.net/forum.php?mod=viewthread&tid=35677

有感于以上文章用 变更记录类型+返回原记录解决了问题，不过再请教下各位：如果数据量大时 DoCmd.GoToRecord acForm, Me.Form.Name, acGoTo, f 的跳转速度如何？

Dim f As String
Dim Dirt As Boolean

Private Sub 修改_Click()
    f = Me.CurrentRecord    '记录当前记录号
    Me.RecordsetType = 0
    DoCmd.GoToRecord acForm, Me.Form.Name, acGoTo, f    '返回原记录号
End Sub

Private Sub 保存_Click()
   
If Dirt Then
    Dirt = False
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    Me.RecordsetType = 2
    DoCmd.GoToRecord acForm, Me.Form.Name, acGoTo, f    '返回原记录号
End If

End Sub

Private Sub Form_Dirty(Cancel As Integer)
    Dirt = True
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Dirt Then Cancel = True
End Sub