Office中国论坛/Access中国论坛

标题: 请教版主：一个表单允许编辑与否的问题？ [打印本页]

作者: qpzm 时间: 2004-4-24 01:38
标题: 请教版主：一个表单允许编辑与否的问题？
下面的表单在打开时是禁止编缉的，我想点下“编辑出入明细”按钮时可使子表单进入编辑状态，并且光标跳到子表单的新增记录上，当子表单丢失焦点时恢复不可编辑状态，请问用代码怎么实现？谢谢！

[attach]4394[/attach]

作者: goodidea 时间: 2004-4-24 03:42
大致如下：（网吧里面没有access，请原谅没有调试）
private sub cmd编辑出入明细_click()
me.chd明细.allowedit = true
me.chd明细.allowappend = true
dim rst as dao.recordset
set rst = me.chd明细.forms.recordset
rst.movelast
me.chd明细.forms.recordset.bookmark = rst.bookmark
end sub

private sub chd明细_lostfocuse()
me.chd明细.allowedit = false
end sub

作者: yodong 时间: 2004-4-24 05:34
Me.发货明细.Form.AllowEdits = True
Me.发货明细.Form.AllowAdditions = True
Set rst = Me.发货明细.Form.Recordset
rst.MoveLast
rst.AddNew

作者: qpzm 时间: 2004-4-24 16:21

以下是引用yodong在2004-4-23 21:33:47的发言：
Me.发货明细.Form.AllowEdits = True
   Me.发货明细.Form.AllowAdditions = True
  Set rst = Me.发货明细.Form.Recordset
   rst.MoveLast
   rst.AddNew

我试了YoDong朋友的方法，能通过，还有两个问题：
1。当我点下“编辑出入明细”按钮时，光标在新增记录的日期字段内闪烁等待编辑。
2。当子表单失去焦点后禁止编辑。这一点我试了goodidea朋友的方法，但没成功。
请指教，谢谢！

作者: Roadbeg 时间: 2004-4-24 17:33
在主窗体写一个方法:
publiuc sub SetSubFrmAllowEdit(Value as boolean)
me.子窗体名.allowedits=value
end sub

在子窗体的 lostfocus事件中写代码.
Me.Parent.sestsubfrmallowedit false

其它的,已经有人给你回答了,我就不写了.
但我不建议使用:
Set rst = Me.发货明细.Form.Recordset
rst.MoveLast
rst.AddNew
这样的方法,
你可以使用 docmd.GoToRecord 这样的方法.

作者: qpzm 时间: 2004-4-24 22:13
子表单问题解决了，但我想编辑主表单时，用AllowEdits属性修改不了已有的资料，用AllowAdditions倒可以新增，不知为什么？

作者: 宿命的风 时间: 2004-4-25 09:46
我觉得楼主应该查看一下帮助文件关于alloweditions的描述。真正自己掌握，这个问题不难，你可以搞定的。如果一直让别人帮你写好代码，永远也学不会。
我的一点建议，希望别见怪！：）

作者: qpzm 时间: 2004-4-25 16:30
问题已解决，多谢"宿命的风"！说实在的，我的代码还没入门，当遇到代码问题时不知从何下手，看来以后要多学习帮助文件，再次感谢各位！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)