ms-access - 如何在 Access 中搜索表中的字段

Question

如何使用 VBA 在名为 "ServiceYES" 的表中的 "字段中搜索文本字符串，例如 "CHIR"服务”。

之后，我想为表"ServicesYES" 中存在"CHIR" 的所有行保存相邻字段。 "ServiceYES" 表如下:

基本上，我想在“服务”列中找到所有“CHIR”，然后保存 CHIR 左侧的名称，例如 “FRANKL_L”, "SANTIA_D" 作为一个数组。

提前感谢您的所有帮助。

Answer 1

首先创建一个 SELECT 查询。

SELECT Code_Perso
FROM ServicesYES
WHERE Service = 'CHIR';

如果您只需要唯一值，请使用 SELECT DISTINCT Code_Perso。

如果您希望它们按字母顺序排序，请添加 ORDER BY Code_Perso。

一旦您有一个满意的查询，打开一个基于该查询的 DAO 记录集，并循环遍历它返回的 Code_Perso 值。

您不需要将它们直接加载到您的最终数组中。将它们添加到以逗号分隔的字符串中可能更容易。之后您可以使用 Split() 函数(假设您的 Access 版本 >= 2000)来创建您的数组。

这是帮助您入门的示例代码。它主要是标准的样板，但它可能确实有效......一旦你给它“yourquery”。

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strItems As String
Dim varItems As Variant
Set db = CurrentDb
Set rs = db.OpenRecordset("yourquery", dbOpenSnapshot)
With rs
    Do While Not .EOF
        strItems = strItems & "," & !Code_Perso
        .MoveNext
    Loop
    .Close
End With
If Len(strItems) > 0 Then
    ' discard leading comma '
    strItems = Mid(strItems, 2)
    varItems = Split(strItems, ",")
Else
    MsgBox "Oops.  No matching rows found."
End If
Set rs = Nothing
Set db = Nothing