遍历表记录以基于键标识符更新另一个表记录

Question

我对这个查询一直有疑问，说没有回音，但我知道有，因为我在看桌子。 我想遍历一个表，以通过单击按钮后的几个参数找到某些列信息。

因此，当我单击我的按钮时，它将遍历表一，根据ID查找所需的字段，并使用这些字段更新另一个表。

Private Sub GetResults_Click()
  Dim strSQL As String
  Dim SQL As String
  Dim dba As Database
  Dim tbl As Recordset
  Dim rst1 As Recordset
  Dim tstdt As Date

  tstdt = Me.Date.Value

  Set dba = CurrentDb
  Set tbl = dba.OpenRecordset("tbl_Results", dbOpenDynaset, dbSeeChanges)

  strSQL = "SELECT * FROM tbl_Results"
  Set tbl = dba.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges)

  If Not tbl.EOF Then
    With tbl
      .MoveFirst
      Do Until tbl.EOF
        Call getDataRecords(tbl!SystemAssignedPersonID, tstdt)
        .MoveNext
      Loop
    End With
  End If

  Set rst1 = Nothing
  Set tbl = Nothing
  Set dba = Nothing

End Sub

Function getDataRecords(PersonID As Variant, TestDate As Date)
  Dim dba As Database
  Dim rst As Recordset
  Dim rst1 As Recordset
  Dim SQL As String

  Set dba = CurrentDb
  Set rst = dba.OpenRecordset("tbl_Results", dbOpenDynaset, dbSeeChanges)
  Set rst1 = dba.OpenRecordset("dbo_tbl_Random", dbOpenDynaset, dbSeeChanges)
  SQL = "SELECT * FROM dbo_tbl_Random WHERE SystemAssignedPersonID = " & PersonID & " AND Date = " & Date & " AND MenuUsed = 'RandomResult'"

  Set rst1 = dba.OpenRecordset(SQL, dbOpenDynaset, dbSeeChanges)

  rst.AddNew
  rst.Fields("FileSent") = rst1!FileSent
  rst.Fields("Result") = rst1!Result
  rst.Update

End Function

在我发疯之前先帮忙！ 谢谢！

Answer 1

您在这里使事情变得过于复杂。 所有这些都可以在1条SQL语句中完成

Update tbl_Results as Res
Inner join dbo_tbl_Random as rand 
 on Res.PersonID = Rand.SystemAssignedPersonID and Res.[Date] = Rand.[Date] 
set Res.FileSent = Rand.FileSent ,
 Res.Result = Rand.Result
Where Rand.MenuUsed = 'RandomResult'

你可以这样执行

dim sql as string
sql = "Update tbl_Results as Res " & _
"Inner join dbo_tbl_Random as rand  " & _
" on Res.PersonID = Rand.SystemAssignedPersonID and Res.[Date] = Rand.[Date]  " & _
"set Res.FileSent = Rand.FileSent , " & _
" Res.Result = Rand.Result " & _
" Where Rand.MenuUsed = 'RandomResult' "
CurrentDb.Execute(sql)

更新：

这就是我期望您的表已建立的方式

tbl_results

dbo_tbl_Random

我如何在设计器中设置查询以确认其正常工作