请教版主：一个表单允许编辑与否的问题？

qpzm

下面的表单在打开时是禁止编缉的，我想点下“编辑出入明细”按钮时可使子表单进入编辑状态，并且光标跳到子表单的新增记录上，当子表单丢失焦点时恢复不可编辑状态，请问用代码怎么实现？谢谢！

goodidea

大致如下： （网吧里面没有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

    Me.发货明细.Form.AllowEdits = True
    Me.发货明细.Form.AllowAdditions = True
Set rst = Me.发货明细.Form.Recordset
    rst.MoveLast
    rst.AddNew

qpzm

以下是引用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

在主窗体写一个方法:
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

子表单问题解决了，但我想编辑主表单时，用AllowEdits属性修改不了已有的资料，用AllowAdditions倒可以新增，不知为什么？

宿命的风

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

qpzm

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