窗体的字段录入有效性设置问题

smilingkiss

Henry D. Sy 发表于 2013-9-24 11:35

Henry老师，想请教一下，我的窗体设置了：
Me.AllowEdits = Me.NewRecord，
如果不是新增记录，只是修改，那么文本框需要双击才能编辑，实现方法如下：
设置一个复选框check32，然后在窗体成为当前的事件上：
Private Sub Form_Current()
  Me.AllowEdits = Me.NewRecord
  Me.Check32 = False
  
  If Me.NewRecord Then
    Me.Check32 = True
  End If
End Sub

然后在文本框的控件上通过双击调用如下函数：
Private Sub DoubleClick_for_Edit()
  If Not Me.NewRecord Then
    Me.AllowEdits = True
  End If
End Sub

编辑完毕退出文本框，则有一下函数确保重新锁定：Private Sub Combo10_Exit(Cancel As Integer)
   If Me.Check32 = False Then
     Call Exit_for_Edit
   End If
End Sub


Private Sub Exit_for_Edit()
  If (Not Me.NewRecord) And Me.AllowEdits = True Then
    Me.AllowEdits = Me.NewRecord
    Me.Refresh
  End If
End Sub

以上功能一旦在窗体的“更新前”事件作出了“cancel＝true”，则全部失效，
所以特意请教Henry老师是什么回事，如果确实有必要运行窗体的“更新前”事件，并且有“cancel＝true”，应该如何恢复之前需要双击才能编辑的功能呢？谢谢！