VBA - 在更新DB之前检查记录集是否已被删除

Question

我正在尝试使用VBA，我做了以下事情。

Dim rs1 As Recordset
Set rs1 = CurrentDb.OpenRecordset("TBL_Registratie")

With rs1
.AddNew
!leerling_Id = Me.leerling_Id
datum = DateValue(!datum_tijd)
tijd = TimeValue(!datum_tijd)
weekDag = Weekday(datum, vbMonday)


Select Case weekDag
    Case 1, 2, 4
        Select Case tijd
            Case "07:00:00" To "08:00:00"
                !score = !score + 1
            Case "16:00" To "16:30"
                !score = !score + 1
            Case "16:31" To "17:00"
                !score = !score + 2
            Case "17:01" To "22:00"
                !score = !score + 3
            Case Else
                Me.txt_resultaat.Caption = "Het is geen opvang"
                Me.txt_resultaat.Visible = True
                ( rs1.close ? ) 
        End Select

其他案例

 .Update
 .Close

问题：如何检查记录集中的最后一条记录是否添加了分数？如果没有，我想删除它并关闭Else Update＆amp;关闭

Answer 1

更简单的方法：在添加记录之前计算得分，将所有需要的数据保存在变量而不是记录集字段中。

然后只有得分＆gt; 0执行rs1.AddNew等。