有一个关于时间的编程问题

我设计ACCESSS数据库，想让表的某个字段的默认值为“明年的1月1日”

请问该在设计视图中，字段的默认值如何用函数表达？

我用format(date(),"yyyy-1-1")函数，结果默认为今年的1月1日

我用鼠标单击此文件夹时？我不知道如何作到单点不打开的情况也能监视，反正肯定你只有靠 WINDOWS API去实现它了。 以下是我对双点文件夹打开后如何实现操作。 需要监视 在WINDOWS窗口中是否有 标题为 SYSTEM.EXE 的窗口运行，假如有则删除 E盘下那个文件。 需要用到 WINDOWS API的~ 给你看个代码，是关闭指定窗口的： Private Declare Function PostMessage Lib "User32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long '发送消息，用来关闭指定程序 Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long '查找窗体 Private Const WM_CLOSE = &H10 '关闭程序 Private Sub Command1_Click() Dim winHwnd As Long Dim RetVal As Long winHwnd = FindWindow(vbNullString, "腾讯网迷你首页") '找到窗口 Debug.Print winHwnd '用来调试 在立即窗口中输入winhnd If winHwnd <> 0 Then '这里是判断窗口是否启动 如果窗口不存在那么值为0 RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&) '关闭窗口 Else Form1.Caption = "未找到QQ新闻！" End If End Sub Private Sub Command2_Click() Dim winHwnd As Long Dim RetVal As Long winHwnd = FindWindow(vbNullString, "系统消息") '找到窗口 Debug.Print winHwnd '用来调试 在立即窗口中输入winhnd If winHwnd <> 0 Then '这里是判断窗口是否启动 如果窗口不存在那么值为0 RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&) '关闭窗口 Else Form1.Caption = "未找到系统消息窗口！" End If End Sub 你的没这么复杂，你得靠 FIND WINDOW 查找 D盘下那个文件家是否被打开了，然后删除E盘下的文件 FindWindow VB声明 Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 说明 寻找窗口列表中第一个符合指定条件的顶级窗口（在vb里使用：FindWindow最常见的一个用途是获得ThunderRTMain类的隐藏窗口的句柄；该类是所有运行中vb执行程序的一部分。获得句柄后，可用api函数GetWindowText取得这个窗口的名称；该名也是应用程序的标题） 返回值 Long，找到窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastError 参数表 参数 类型及说明 lpClassName String，指向包含了窗口类名的空中止（C语言）字串的指针；或设为零，表示接收任何类 lpWindowName String，指向包含了窗口文本（或标签）的空中止（C语言）字串的指针；或设为零，表示接收任何窗口标题 注解 很少要求同时按类与窗口名搜索。为向自己不准备参数传递一个零，最简便的办法是传递vbNullString常数 示例 Dim hw&, cnt& Dim rttitle