访问 VBA 将表值与常量进行比较并更新它

Question

好的，所以我正在尝试编写 VBA 代码以尽可能地自动化。我需要它做的是从表中的字段中读取，如果它满足条件，则将其复制到新表中。这是为了旋转的目的。如果CurrentDate 等于NextDateOut 而不是该项目的任何值，我想转到某个表但也想更新当前表中的值。 NextDateOut 将是表中的新 LastDateOut 值，NextDateIn 将是 NextDateIn 后 10 天，NextDateOut 将是 10 天后。我可以编写此数学逻辑，它只是将我的表中的值与我现在为 CurrentDate 的常量进行比较，并在条件满足时更新值并将值写入某个表。

这是目前为止的代码，在试图弄清楚它时也有很多错误。

Option Explicit
Sub Run()
    'Declarations for grabbing data from the database for the VBA
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim strSQL As String

    'Open connection to current Access database
    Set db = CurrentDb()

    'Declarations for variables to deal with dates
    Dim CurrentDate As Date
    Dim NextDateOut As Date
    Dim NextDateIn As Date
    Dim LastDateOut As Date
    Dim LastDateIn As Date

    'Setting a consistant value, technically not a constant value since there's no "const"
    CurrentDate = Date

    'Will take this out eventually
    MsgBox (CurrentDate)

    strSQL = "SELECT Next Date Out FROM Tapes Where Next Date Out = CurrentDate"
    Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)
    With rst
    If .RecorCount > 0 Then
        .MoveFirst
        .Edit
        !Next Date Out = (CurrentDate+20)
      .Update
    End If
    End With
End Sub

提前谢谢！！！我正在取得进展，但在路上碰壁了。再次感谢！！！

Answer 1

我认为您可以通过查询直接解决此问题。

让我们把这个问题分成几个步骤：

如果NextDateOut（表中的字段）等于currentDate（代码中的变量），则：

1. 您需要将条件为真的所有记录移至新表中
2. 对于保留在表中的记录，您需要将LastDateOut更新为currentDate，nextDateIn更新为currentDate + 10和nextDateOut更新为currentDate + 20

如果正确，你可以试试这个：

dim strSQL as String
dim currentDate as Date
...
' Step 1: Copy the records to a new table '
strSQL = "insert into otherTable " & _
         "select * from tapes " & _
         "where [nextDateOut]=" & CDbl(currentDate)
doCmd.runSQL strSQL

' Step 2: Delete the records just copied '
strSQL = "delete from tapes where [nextDateOut]=" & CDbl(currentDate)
doCmd.runSQL strSQL

' Step 3: Update the dates in ALL the records remaining the "tapes" table '
strSQL = "update tapes " & _
         "set [lastDateOut]=" & CDbl(currentDate) & ", " & _
         "set [nextDateIn]=" & CDbl(currentDate + 10) & ", " & _
         "set [nextDateOut]=" & CDbl(currentDate + 20)
doCmd.runSQL strSQL
...

注意：我使用CDbl(currentDate) 来避免日期格式问题（MS Access 将日期存储为双精度值，整数部分表示天数，小数部分表示天数）

希望对你有帮助