子窗体有数据提示无数据

刘贵平　发表于：2008-09-19 22:59:14 　

Dim rsTemp As DAO.Recordset
    Dim intRec As Integer
    Set rsTemp = CurrentDb.OpenRecordset("tblsbccmx_temp")
    intRec = rsTemp.RecordCount
    If intRec < 1 Then
        MsgBox "此单没有数据"
        Debug.Print intRec
        Me.frmsbccmx_temp.SetFocus
        Exit Sub
    End If

用这一段代码来判断子窗体是否有数据,如果没有数据那是不会错的!如果有数据,但是最后一条数据没有输入以后就点保存.提示最后一条数据要输入,输入以后保存提示"此单没有数据"怎是怎么回事啊?

Top

竹笛发表于：2008-09-19 23:03:18

提示最后一条数据要输入时，就用exit sub退出程序执行。

Top

刘贵平发表于：2008-09-19 23:22:14

解决了，在退出事件写入代码

Private Sub cw_Exit(Cancel As Integer)
If IsNull(Me.cw) Then
        MsgBox "请输入仓位", vbCritical, "提示"
        Me.cw.SetFocus
        Exit Sub
    End If
End Sub

Top

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

Access交流中心

子窗体有数据提示无数据