当子窗体为有数据字段值为空时，如何让其在为空位置获得焦点

stvent

当子窗体为有数据字段值为空时，如何让其在为空位置获得焦点！以下代码只能检查到有空字段值
If Not (rs.EOF) Then
   For i = 1 To rs.RecordCount
     If IsNull(rs!数量) Then
        MsgBox "数量为空"
       在这里如何可以加代码，让检查到空的字段获取焦点！
        Exit Sub
     End If
    rs.MoveNext
   Next i
End If

li08hua

学习制作

aslxt

你把检查的过程放在窗体的更新前事件就可以了
Private Sub Form_BeforeUpdate(Cancel As Integer)
    if isnull(me.[xxx])=true then
        ‘不符合规范的处理过程
        msgbox ""
        Cancel = True
        DoCmd.RunCommand acCmdUndo
    else
       '符合规范的处理过程
    ....
    end if
End Sub

stvent

把数据库字段属性设定为 NOT NULL，从后台控制
djt 发表于 2009-9-2 15:47

后台控制弹出的信息用户看不懂，也不知道错在那里！所以用自定义msgbox就最好！

djt

把数据库字段属性设定为 NOT NULL，从后台控制

stvent

stvent

目的就是如果有字段空，提示并不作保存

stvent

这条新记录还没保存到数据库
djt 发表于 2009-9-2 14:08

不能先检验再保存吗？

djt

这条新记录还没保存到数据库

stvent

aslxt,可以是可以，但我发觉有点小问题！
请尝试在窗体中把所有记录删除后，再输入，特意留空字段，当窗体在编辑状态时，点击是没反应的，必须先关闭，再打开，方有反应，这是为什么呢？