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

成功

请教各位老师，窗体字段在录入结束时如何自动检测全部字段已录入？即要求全部字段要有相应内容，不能有不填的空字段，如未填写某字段会有提示出现那一字段没有录入，请填写！先谢谢各位长期对我的支持！

access学习交流

在字段属性设置不为空即可！

Henry D. Sy

1. Private Sub Form_BeforeUpdate(Cancel As Integer)
   
2.     Dim ctl As Control
   
3.     For Each ctl In Me.Controls
   
4.         If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
   
5.             If IsNull(ctl) Then
   
6.                 MsgBox ctl.Name & "不可为空！"
   
7.                 ctl.SetFocus
   
8.                 Exit Sub
   
9.             End If
   
10.         End If
    
11.     Next
    
12. End Sub
    

复制代码

Henry D. Sy

1. Private Sub Form_BeforeUpdate(Cancel As Integer)
   
2.     Dim ctl As Control
   
3.     For Each ctl In Me.Controls
   
4.         If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
   
5.             If IsNull(ctl) Then
   
6.                 MsgBox ctl.Name & "不可为空！"
   
7.                 ctl.SetFocus
   
8.                 Cancel = True
   
9.                 Exit Sub
   
10.             End If
    
11.         End If
    
12.     Next
    
13. End Sub
    

复制代码

成功

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

非常感谢“苹果”头老师！问题搞定了！谢谢！

成功

access学习交流 发表于 2013-9-24 10:06
在字段属性设置不为空即可！

谢谢！没找到呀！模糊！

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”，应该如何恢复之前需要双击才能编辑的功能呢？谢谢！