如何设置查看窗体不能修改

小叶　发表于：2009-07-16 11:00:57 　

在主窗体中我是用如下代码控制的，但是运行起来还是可以修改，谢谢热心的老师指教

Private Sub viewData()
DoCmd.OpenForm "frm产品送交单_child_Edit", acNormal, , , acFormReadOnly
Forms!frm产品送交单_child_Edit.Caption = "查看产品送交单"
End Sub

Top

点燃一支烟发表于：2009-07-16 11:44:44

Form_frm产品送交单_child_Edit.AllowEdits = False '加个这个试

Top

雪风发表于：2009-07-25 20:26:56

我是用这代码来控制窗体的只读及读写阻止的!!!

Private Sub Form_Open(Cancel As Integer)
If DLookup("工作组", "passwd", "用户=[Forms]![login]![mc]") = "合同组" Then
Me.AllowAdditions = False
Me.AllowDeletions = False
Me.AllowEdits = False
End If
End Sub

Top

高峰发表于：2009-07-28 23:26:48

窗体属性里把编辑/修改/删除都选“否”

Top

高峰发表于：2009-07-28 23:27:30

修改属性就可以做到的，何必要去写代码？

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

[5分]如何设置查看窗体不能修改