ms access vba显示表单中复合键的所有字段

Question

我正在寻找一种方法来显示表单字段中复合键涉及的所有字段。这是为了帮助用户在输入多个记录时跟踪他们正在处理的记录。目前，Access 将仅显示在复合键的字段上。

在表单上，​​我当前有一个查找字段链接到 HeaderData 表。我想从中获取值并在表单字段中查找并显示关联的记录，以便用户知道他们已经输入了正确的输入，并且在数据输入过程中不会丢失其位置。

这是我尝试过的，但没有显示任何结果：

Private Sub ProviderName_LostFocus()
  Dim db As DAO.Database
  Dim rs As DAO.Recordset
  Dim strSQL As String
  Dim vcatch As String
  strSQL = "SELECT ID, AgencyID, ProviderName, AssessmentPeriod FROM HeaderData"
  Set db = CurrentDb
  Set rs = db.OpenRecordset("strSQL", dbOpenDynaset)

  If Not (rs.BOF And rs.EOF) Then
    rs.MoveFirst
    Do While Not rs.EOF
      If Me.ProviderName.Value = rs.Fields(ProviderName) Then
         vcatch = rs.Fields(ID) + " " + rs.Fields(AgencyID) + " " + rs.Fields(ProviderName) + " " + rs.Fields(AssessmentPeriod)
         Me.Text22 = vcatch
         rs.MoveLast
      Else
        rs.MoveNext
      End If
    Loop
    Me.Tally1.SetFocus
  End If

  rs.Close
  db.Close
End Sub

我查看了所有内容，但找不到有关显示所有字段的任何内容。任何帮助将不胜感激。

Answer 1

您需要删除 OpenRecordset 第一个参数中的引号：

Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)

此外，您需要将 rs.fields() 参数括在引号中：

If Me.ProviderName.Value = rs.Fields("ProviderName") Then

最后，我不会更改 CurrentDb 的状态。你发现它打开了，就让它打开。
（删除倒数第二行）

---

所以，稍微清理一下：

Private Sub ProviderName_LostFocus()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim vcatch As String
strSQL = "SELECT ID, AgencyID, ProviderName, AssessmentPeriod FROM HeaderData"
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)

If Not (rs.BOF And rs.EOF) Then
   rs.MoveFirst
   Do While Not rs.EOF
     If Me.ProviderName.Value = rs.Fields("ProviderName") Then
       vcatch = rs.Fields(ID) + " " + rs.Fields(AgencyID) + " " + rs.Fields(ProviderName) + " " + rs.Fields(AssessmentPeriod)
       Me.Text22 = vcatch
       Exit Do
     Else
       rs.MoveNext
     End If
   Loop
   rs.close
   Me.Tally1.SetFocus
End If
End Sub