限制在本条记录上

不务实　发表于：2009-09-18 19:16:48 　

复制

数据表视图的子窗体,
如果本条记录文本框控件A、B、C、D中有空值，
限制它不保存数据到表中
且让鼠标定位在空值的控件上不能离开
也不能到主窗体中，也不能关闭窗体

Top

不务实发表于：2009-09-18 21:41:36

怎没人理我?

Top

hong 发表于：2009-09-19 09:28:33

请参考附件，看看是不是你要的效果。

只要在子窗体中任意控件中输入内容，将无法移出子窗体，除非四个控件都有内容。

下次最好能附上你自己的例子，别人才会去帮忙改，要不然太费时间。

Top

hong 发表于：2009-09-19 09:29:39

附件好像没传上，重传如下

点击下载此附件

Top

不务实发表于：2009-09-19 10:54:17

谢谢你

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim O As String

On Error GoTo Err_Click

    If IsNull(Me!控件A) Then
       MsgBox "请输入控件A内容！"
       Me!控件A.SetFocus
       Cancel = True
    ElseIf IsNull(Me!控件B) Then
        MsgBox "请输入控件B内容！"
        Me!控件B.SetFocus
        Cancel = True
    ElseIf IsNull(Me!控件C) Then
        MsgBox "请输入控件C内容！"
        Me!控件C.SetFocus
        Cancel = True
    ElseIf IsNull(Me!控件D) Then
        MsgBox "请输入控件D内容！"
        Me!控件D.SetFocus
        Cancel = True
End If

Exit_Click:
Exit Sub

Err_Click:
    MsgBox Err.Description
    Resume Exit_Click

End Sub

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

限制在本条记录上