Question

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

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

例如，以下是试图读取＆＃34;用户＆＃34;的代码。子/函数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函数中

。

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

1 个答案: