访问VBA在模块之间传递变量

Question

我有两个模块.一个运行一个过程(各种查询等),另一个应该写入表,例如用户名,所做的更改等.

我已经成功编写了一个写入表的脚本和一个从表中读取的脚本.但是,我无法将该变量从一个传递到另一个.

例如,以下是尝试从子/函数读取"用户"值的代码 ReadSystemTbl()

Sub Testing()

  Dim x As String

  x = ReadSystemTbl("User")

  MsgBox x

End Sub

以下是找到值并返回值的代码:

Public Function ReadSystemTbl(FindField As String)

Dim db As Database
Dim rs As Recordset
Dim SystemField As Field, SystemValue As Field
Dim results As String

Set db = CurrentDb()
Set rs = db.OpenRecordset("SystemTbl")
Set SystemField = rs.Fields("SystemField")
Set SystemValue = rs.Fields("SystemValue")

Do Until rs.EOF
 If SystemField = FindField Then
    results = SystemValue
 End If
 rs.MoveNext
Loop

End Function

Answer 1

我想你只是失踪了

ReadSystemTbl = results

在ReadSystemTbl函数中.