MS Access 2003 - 从表单输出到文本文件的信息

Question

所以我有一个包含大量文本框、组合框等的表单。表单模块中有 VB 来检查是否有重复项，然后运行一些更新查询以将信息保存到表中.一切都很好。

我的问题是我可以在这个表单模块中使用什么 VB 方法从所有这些对象（txt、cmb 等）中获取信息并将其输出/保存到文本文件中？

我只是以一个带有以下三个文本框的表单为例：

Text1 - String
Text2 - Date
Text3 - True/False

我知道用于将其添加到数据库表的 vb，但我希望能够将信息保存在文本文件中，然后使用 SendObject 方法允许将这些文本文件从字段通过电子邮件发送到总部，然后放在一个更大的数据库中。

outlook sendobject 我认为我对这部分有很好的处理，只需要弄清楚如何创建一个包含数据的文本文件。感谢您的帮助！

Answer 1

您可以遍历表单上的控件集合， 获取控件的名称并使用 select case 获取控件的类型并从中获取适当的值。

您可以将这些对写入字符串/文本文件，然后将其制成邮件正文。

或者使用 Access DoCmd.SendObject

DoCmd.SendObject acSendQuery, QueryName, acFormatXLS, emailAddress, "", "", "Form Data", "", 0

其中 QueryName 是提取您需要的所有信息的查询。 这会将其作为附加的 XLS 文件发送到电子邮件。

Answer 2

您想打开一个文本文件并使用 write # 或 print # 语句。进入 Access VBA 并在写入帮助中搜索。您将找到 Write # 语句，该语句将为您提供必要的示例代码。根据您的要求，您可能需要 print # 语句。

Answer 3

您的控件、文本框、组合框等是否绑定到记录集？在这种情况下，您是否更愿意将相关的表记录发送给任何相关人员或任何相关人员，而不是通过文本文件收集控件的值？我的意思是这可以做到，但我真的觉得很奇怪！

编辑：遵循@galleySlave cmets，一个想法是编写类似于此的代码：

Dim m_dataInForm as string, _
    m_control as control

m_dataInForm = "Page Header"
for each m_control in screen.activeForm.section(1)
    m_dataInForm = m_dataInForm & m_control.caption & ": " & m_control.value & vbCr & vbLf
Next m_control
m_dataInForm = "Details"
for each m_control in screen.activeForm.section(o)
    m_dataInForm = m_dataInForm & m_control.caption & ": " & m_control.value & vbCr & vbLf
Next m_control
m_dataInForm = "Page footer"
for each m_control in screen.activeForm.section(2)
    m_dataInForm = m_dataInForm & m_control.caption & ": " & m_control.value & vbCr & vbLf
Next m_control

m_dataInForm 将包含所有数据标题 (.caption) 和值 (.value)。您可能需要一些额外的代码来避免在没有标题（如行）或值（如标签）的控件上出现错误和/或以预期格式（“是”而不是 -1）获取值。这将花费您一些额外的说明，例如

SELECT CASE m_control.controlType

然后您就可以通过短信发送m_dataInForm 值或将其保存为文件。