Ms access 在中间部分。如果我在远程工具的代码中创建一个select语句，而不执行…..我可以将UPDATE SQL语句保存到WORD文档、xls文件、记事本等中吗…..VB对此有何用途？我同意这很奇怪……就是这样的情况。我真的等不及了，直到这些同事从现场回来，在他们

---

在中间部分。如果我在远程工具的代码中创建一个select语句，而不执行…..我可以将UPDATE SQL语句保存到WORD文档、xls文件、记事本等中吗…..VB对此有何用途？我同意这很奇怪……就是这样的情况。我真的等不及了，直到这些同事从现场回来，在他们回来时提取信息，因为我需要大约10组不同的数据（整个过程），而这些人已经离开了相当长的一段时间，典型的是Anks Philippe…我在这里得到的任何和所有建议都是有用的。我很感激！！这很复杂。这必须是一个简单的远程MDE，没有与表或网络的真正链接…只有在Associates笔记本电脑中。所以这是可能的，因为我已经看到了，事实上，已经有一个类似的MS Access工具在工作，由不同的部门使用。所以这些文本框、组合文本等都不会绑定到记录集……我想我必须用代码来完成这一切？我知道我正在尝试做的ppt自动化方面的所有代码（而且很多！！），我假设如果我可以将所有这些信息和代码用于ppt……那么我应该能够将所有这些值输入到txt文件中。我知道一些自动发送电子邮件……只是不知道如何工作的附件在中间。如果我在远程工具的代码中创建select语句，而不执行…..我可以将UPDATE SQL语句保存到WORD doc、xls文件、记事本等……VB用于该操作的是什么？我同意这很奇怪……就是这样的情况。我真的等不及了，直到这些同事从现场回来，在他们回来时提取信息，因为我需要大约10组不同的数据（整个过程），而这些人已经离开了相当长的一段时间，典型的是Anks Philippe…我在这里得到的任何和所有建议都是有用的。我很感激！！

Text1 - String
Text2 - Date
Text3 - True/False

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

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

SELECT CASE m_control.controlType