错误"2164"是怎么回事，怎么解决啊？

jz_lilei

我在窗体的一个按钮的单击事件中做了一个程序，内容是把该窗体中的一个子窗体的各个字段的可用设置为否，目的是只能查看；当再次点击该按钮是怎进行相反的处理，即可以编辑子窗体中的各个字段。程序写好后经过调试，可以使用，但有时会出现这个错误提示：

运行时错误“2164”

您无法使获得焦点的控件无效

但这种错误提示不是每次都有，但使用时不定期的会出现，造成无法使用，只能关闭重新打开！请问怎么解决啊！！急！急！急!急!急![em06][em06][em06][em06]

goodidea

方法1.   设置窗体属性Me.chdFormA.AllowAdditions = False

Me.chdFormA.AllowEdits = False

Me.chdFormA.AllowDeletions =False 方法2。  禁止所有控件

Public Function gfDisableFormAllControls(ByRef frm As Access.Form)

    On Error Resume Next

    Dim ctl As Access.Control

   

    frm.SetFocus

    DoCmd.RunCommand acCmdSelectRecord

   

    For Each ctl In frm.Controls

        ctl.enabled = False    '  

    Next

   

    Set ctl = Nothing

   

End Function

jz_lilei

第一种方法不行啊！因为在窗体上还有文本框，用来输入要查询的内容。第二种是什么意思我，看不太懂，可以细致解释一下吗？谢谢！比如：那是在什么控件，什么时候触发的事件啊！[em06]