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

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

stvent

早晨啊！

aslxt

见附件里的【Command3_Click】

stvent

见附件里的【Command3_Click】
aslxt 发表于 2009-9-2 08:43

谢谢aslxt又一次帮忙！

stvent

aslxt,我个疑问，如果查询空字段不只一个，又该如何？事例中只有“数量”一字段

stvent

Private Sub Command3_Click()
  DoCmd.GoToControl "表1子窗体"
  DoCmd.GoToControl "数量"
  DoCmd.GoToControl "Text"
  DoCmd.GoToRecord , , acFirst
  For i = 1 To Me.表1子窗体!Text6
    If IsNull(Me.表1子窗体!数量) = True Then
      MsgBox "数量为空"
      Exit Sub
    End If
  '  DoCmd.GoToRecord , , acNext
  'Next i
' For i = 1 To Me.表1子窗体!Text6
    If IsNull(Me.表1子窗体!text) = True Then
      MsgBox "text为空"
      Exit Sub
    End If
    DoCmd.GoToRecord , , acNext
  Next i
End Sub

多了一个字段后，焦点只停留在最后空字段中

aslxt

试一试，没有测试过
If IsNull(Me.表1子窗体!数量) = True Then
      MsgBox "数量为空"
      DoCmd.GoToControl "数量"
      Exit Sub
elseif IsNull(Me.表1子窗体!text) = True Then
   MsgBox "text为空"
      DoCmd.GoToControl "text"
      Exit Sub
End If

stvent

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

djt

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

stvent

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

不能先检验再保存吗？