查询遗漏的日期有没有更好的方法

我心飞扬　发表于：2013-08-23 10:16:14 　

我有一个数据表，每天会生成一行数据，因为需要多人输入，有时候会有遗漏。我用笨办法设计了一个查询。先做了一个日期表，将每天的日期都输进去，然后与数据表的日期连接，在窗体组合框里显示数据表内遗漏的日期，提示补充。
请高手指点，是否有简便的方法，谢谢！

点击下载此附件

Top

沧海桑田发表于：2013-08-23 11:38:39

你很聪明，集思广益，滴水成河，呵呵

1.你的办法一点也不笨，很实用

2.无需查询，直接在窗体或表中提前不间断加好日期（如一次加一个月），然后每天往里填记录，打开表一看哪天有空的就是漏了

3.在日期栏加代码，自动在前面的日期+1就行了

请老师和版友们继续出招

Top

煮江品茶发表于：2013-08-23 13:05:27

示例

Function GetDateList(ByVal y As Long, ByVal m As Long) As String
    Dim str As String
    Dim ssql As String
    Dim i As Long
    Dim d0 As Date
    Dim d1 As Date

    ssql = "select * from 数据表 where year(日期)=" & y & " and month(日期)=" & m
    Me.数据表.RowSource = ssql

    If Year(Date) = y And Month(Date) = m Then
        d1 = Date
    Else
        d1 = DateSerial(y, m + 1, 0)
    End If

    str = ""
    d0 = DateSerial(y, m, 1)
    Do While d0 <= d1
        If DCount("*", "数据表", "日期=#" & d0 & "#") = 0 Then
            str = str & d0 & ";"
        End If
        d0 = DateAdd("d", 1, d0)
    Loop
    str = Left(str, Len(str) - 1)
    GetDateList = str
End Function