时间戳

首页 > 解决方案 > Access 中的 VBA 返回方法

vba - Access 中的 VBA 返回方法

问题描述

我不确定如何实现在 vba 中返回字符串的方法。例如，在 c# 中，我可以调用类似的方法；

public string ReturnString()
{
    return "Hi";
}

但是，如果我想在 VBA 中调用也会返回字符串的代码，我该如何实现呢？例如，如果我希望我的 onclick 事件返回一串电子邮件；

Public Function EmailAll() As String
    Dim employeeSQL As String
    Dim employeeRS As DAO.Recordset

    'Define SQL to loop
    employeeSQL = "SELECT * FROM Employees"
    Set employeeRS = CurrentDb.OpenRecordset(employeeSQL)

    If Not employeeRS.BOF And Not employeeRS.EOF Then
        employeeRS.MoveFirst
        While (Not employeeRS.EOF)
            If Nz(employeeRS.Fields("email"), "") <> "" Then
                'Fields to return
                EmailAll = EmailAll & email & ";"
            End If
            employeeRS.MoveNext
        Wend
    End If

    employeeRS.Close
    Set employeeRS = Nothing
End Function

标签： vbams-access

解决方案

在 VBA 中使用函数时，与函数同名的变量的值就是返回的值。

例如，下面的代码将返回“返回值”：

Public Function Testing() As String
    Testing = "Returned Value"
End Function

推荐阅读