怎么让输入的日期不重复？

哦少写了个参数。其实你自己也可以查一下帮助手册的。

If not isnull(dlookup("日期","表名", "日期", "#" & Me.日期.value & "#")) Then
    MsgBox "你输入的数据已经存在，请重新输入", vbCritical, "警告"
    Me.日期.SetFocus
    Exit Sub
End If  

以下摘自 Microsoft Access 2003 Help

DLookup 函数
使用 DLookup 函数可以从指定记录集（域）中获得特定字段的值。可以在 Visual Basic、宏、查询表达式或者窗体或报表上的计算控件中，使用 DLookup.

您可以使用 DLookup 函数为窗体或报表显示不在记录源中的字段的值。例如，假设您有一个基于“订单明细”表 (Orders Details) 的窗体。该窗体显示订单 ID、产品 ID、单价、数量以及折扣字段。然而产品名称字段在另一个表（“产品”(Product) 表）中。您可以在计算控件中使用 DLookup 函数，以便在同一个窗体中显示产品名称。

DLookup(expr, domain, [criteria])