读取参数表的 MS Access qry

Question

我有2张桌子 Tbl_Alldata（这是一个固定宽度文本文件的 .txt 导入，它有 1 列名为 AllData） Tbl_Specs（这是一个有 5 列的表

• Qry_name
• 字段名称
• 开始位置
• 长度
• Field_Filtered)

我正在尝试使用查询参数的规格表来解析表 tbl_alldata。

我有以下代码

Public Function ParseData()
    ' Loop through TBL_Specs to create multiple queries
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT DISTINCT QRY_Name FROM TBL_Specs")

    Do While Not rs.EOF
        ' Create a query based on QRY_Name
        Dim strSQL As String
        strSQL = "SELECT TBL_AllData.* INTO " & rs("QRY_Name") & " FROM TBL_AllData WHERE LEFT(Mid(" & rs("Field_Name") & ", " & rs("Begin_Position") & ", " & rs("Length") & "), Len('" & rs("Field_Filtered") & "')) = '" & rs("Field_Filtered") & "'"

        ' Execute the query
        CurrentDb.Execute strSQL

        ' Move to the next record in TBL_Specs
        rs.MoveNext
    Loop

    ' Clean up
    rs.Close
    Set rs = Nothing
End Function

我的编码不是很好，我不知道这是否有不正确的地方。