Access 2013追加查询，仅在日期尚未存在时添加新记录。
创始人
2024-05-16 00:54:50
0次

在Access 2013中，你可以使用VBA代码来实现追加查询并在日期尚未存在时添加新记录。以下是一个示例代码：

Sub AppendQueryIfDateNotExists()
    Dim strSQL As String
    Dim rs As Recordset
    Dim checkDate As Date
    Dim newDate As Date
    
    ' 设置要检查的日期和要添加的新日期
    checkDate = #1/1/2022#
    newDate = #1/1/2022#
    
    ' 检查日期是否存在
    strSQL = "SELECT COUNT(*) AS DateCount FROM YourTableName WHERE YourDateField = #" & Format(checkDate, "yyyy\/mm\/dd") & "#"
    
    Set rs = CurrentDb.OpenRecordset(strSQL)
    
    ' 如果日期不存在，则添加新记录
    If rs!DateCount = 0 Then
        strSQL = "INSERT INTO YourTableName (YourDateField) VALUES (#" & Format(newDate, "yyyy\/mm\/dd") & "#)"
        CurrentDb.Execute strSQL
        MsgBox "新记录已添加。"
    Else
        MsgBox "日期已存在。"
    End If
    
    rs.Close
    Set rs = Nothing
End Sub

请将上述代码中的YourTableName和YourDateField替换为你的表名和日期字段名。然后，你可以调用AppendQueryIfDateNotExists子过程来执行追加查询。在上面的示例中，我们假设你要检查和添加的日期都是2022年1月1日。

上一篇：Access 2013中的日期数据类型-错误的结果

下一篇：Access 2013，在使用LoadfromText加载表单过程中出现错误2128。

相关内容

热门资讯

玻璃硬盘原理图 玻璃硬盘原理 玻璃硬盘，又称为磁头悬浮硬盘（Magnetic Head Flying Disk，MHFD），是一种...
闲鱼搜索规则与技巧 闲鱼最新特... 在闲鱼这个二手交易平台上，有很多用户都希望能够找到一些特殊的东西，比如一些罕见的收藏品、独特的手工艺...
家里监控最长能保存多少天的记录... 家里监控一般保存多久 随着科技的发展，家庭监控系统已经成为了许多家庭的必备设备，它不仅可以帮助我们...
QQ音乐提示代理模式可能无法正... QQ音乐提示代理模式可能无法正常访问，如上图所示，是怎么回事呢？ 这个可能和你的网络设置有关系，首先...
别人打电话听不见我说话怎么回事... 当我们在使用手机时，可能会遇到别人打电话过来听不见声音的情况，这种情况可能是由多种原因导致的，下面我...
华为tag有用吗 华为tag-... 华为Tag是华为手机中的一种功能，它可以帮助用户更好地管理自己的手机数据和应用，通过使用华为Tag，...
ps5手柄可用手机快充充电吗 ... PS5手柄，即PlayStation 5的DualSense手柄，是索尼公司为PlayStation...
frp内网穿透配置 HTTP ... HTTP 类型的代理相比于 TCP 类型，不仅在服务端只需要监听一个额外的端口 vhost_http...
hwid是永久激活吗 hwid... HWID，全称Hardware ID，是硬件识别码的缩写，它是计算机硬件制造商为了区分每一台设备而分...
广电4k机顶盒怎么连接 广电网... 四广电网络，即四家主流的广播电视网络运营商，包括中国电信、中国移动、中国联通和中国广电，这些运营商为...