在 Access 2007 中访问 Field2

2023-12-03

我正在尝试编写一个简单的小例程来通过电子邮件发送存储在 Access 2007 数据库中的附件。由于某种原因,我无法使其最简单的部分发挥作用。

我在以下行中收到一条错误消息“用户定义的类型未定义”:

Dim attachmentField As DAO.Field2

到目前为止,我还没有访问任何 DAO 对象,但我的假设是我只需要添加相关引用。问题是,我似乎对那个参考是什么有误解。我尝试过“Microsoft DAO 3.6 Object Library”,这是有道理的,但我仍然收到相同的错误消息。然后我尝试了 3.5 个相同的版本,然后是 JET,然后又尝试了一些毫无意义的版本。

这是完整的列表,以防我错过了其他真正基本的东西。我知道它需要大量的清理工作,但我想先让它工作。

Private Sub Command4_Click()
  Dim appOutLook As Outlook.Application
  Dim MailOutLook As Outlook.MailItem
  Set appOutLook = CreateObject("Outlook.Application")
  Set MailOutLook = appOutLook.CreateItem(olMailItem)

  With MailOutLook
    .To = Description.Value
    .Subject = "Confirmation of " & ID.Value

    'Error on the next line
    Dim attachmentField As DAO.Field2
    attachmentField = Recordset("Att")
    attachmentField.SaveToFile "C:\Temp\" & Att.FileName
    Attachments.Add "C:\Temp\" & Att.FileName, olByValue, 1, "Document"

    '.DeleteAfterSubmit = True
    .Send
  End With
End Sub

有任何想法吗?


您需要对 DAO 版本 12 的引用 - 它支持新的 FIELD2 对象

尝试添加此引用 - “Microsoft Office 12.0 Access 数据库引擎”

本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)

在 Access 2007 中访问 Field2 的相关文章

  • vba Excel 中的多个查找请求(在查找中查找)

    我正在尝试执行一种嵌套查找请求 用例是我需要在一个工作表上查找组 如果找到 则从找到的行中的单独列中获取用户 ID 值 然后在另一张纸 然后它应该执行一系列操作 然后在第一张表中找到下一个出现的组 我的代码是 LookupGroup Spl
  • 在Excel中过滤后打印可见区域的宏

    我有一个根据过滤表的宏column A价值观 现在我想打印only过滤器后的可见行 但遗憾的是它打印了所有行 包括过滤期间隐藏的顶部和底部行 在我的工作表中 有来自的数据Column A I 但打印区域只能是Columns C I 过滤后的
  • 如果单元格包含 1 个或多个关键字,则更改不同单元格的值

    我有一个列 其中包含一些字符串描述 例如 Bob davids mowing the lawn tipping cows 此外 我将在不同的工作表或列上列出关键字列表 例如工作关键字列表1 davids work 播放关键字列表 mowin
  • 根据不同的列数据范围隐藏行

    我对使用 VBA 相当陌生 我正在尝试创建一个代码 该代码将查看具有不同数据范围的两个不同列 并隐藏最后一个数据点之外的行 引用两列 目前我有这个 Private Sub Worksheet PivotTableUpdate ByVal T
  • 连续工作表切换循环

    我有一个 Excel 电子表格来显示 SQL 数据图表 这些图表将显示在我们机加工车间的显示器上 该电子表格有 45 个选项卡 我需要在选项卡之间切换 每个选项卡间隔 10 秒 然后返回到第一个选项卡并重复循环 I found 如何使用 V
  • 如何通过VBA代码修复仅在Excel共享模式下发生的运行时错误400

    我真的不知道400错误是什么原因造成的 下面的代码在正常模式下运行得很好 但是一旦我在共享模式下启用 Excel 并尝试使用用户表单 它就会给我 VBA 400 我在这里尝试做的是在向用户显示用户表单后更改形状的文本并禁用其 OnActio
  • 在 Excel 中的文件夹内的所有文件上添加一列

    我在一个文件夹内有 250 个不同的 excel 文件 具有相同的布局 其中包含列A to F 我需要在列上添加新列G 传统的方法是打开每个文件并在以下位置添加新列G 有没有使用 Excel 宏或任何其他工具的简单过程来完成此任务 这个链接
  • 查询从同一表中的另一条记录获取值并按大于间隙阈值的差异进行过滤

    我将数据导入到 MS Access 中的临时表中 如下所示 我添加了需要使用 SQL 查询计算的 Gap 和 Previous Current 列 间隙阈值 是用户输入或范围提供给查询和例如是 300 GlobalID 对 ItemID 进
  • 如何使用 Alter Table 在 Access 中创建小数字段?

    我想以编程方式在 MS Access 表中创建一个新列 我尝试过很多排列ALTER TABLE MyTable Add MyField DECIMAL 9 4 NULL 并得到 字段定义中的语法错误 我可以轻松创建一个数字字段Double类
  • 从VBA中的数组批量插入到sql中

    我正在尝试在 Excel 中构建一个按钮 将所选区域上传到 SQL Server 中的表中 第一行将自动视为列标题 这件事该怎么继续下去呢 我想要的是简单和超快的上传 这是我的想法 我将选择选定的区域 然后将其保存为 txt 文件 然后对其
  • 如何VBA等待Windows保存对话框和发送密钥

    我正在创建一个宏文件 用于下载并保存从 SAP 旧版本 7 20 中提取的数据 当出现保存对话框时 未检测到 Windows 对话框 因为我的客户端 SAP 版本是旧版本 7 20 现在我对此的解决方案是发送密钥 但问题是某些数据包含大量数
  • 正在使用的 VBA 监视文件

    我正在寻找一些东西 Win API 调用或其他 来在文件可供编辑 即不再使用 时通知我 我应该设置一个计时器来按一定时间间隔检查文件还是有一个好方法对文件设置监视 FileSystemWatcher 没有帮助 Win32 FindFirst
  • 使用 FileSystemObject 读取和写入 csv 文件

    是否可以使用 VBA 中的 FileSystemObject 读取和写入 csv 文件 必然是 基本语法如 Set objFSO CreateObject scripting filesystemobject create a csv fi
  • 通过 Excel VBA 保存并关闭 powerpoint

    下面的代码根据定义的名称创建多个图表 然后打开具有这些定义的名称的 powerpoint 文件并转储到图表中 除了最后一部分之外 一切都正常 保存并关闭文件 我已将尝试保存和关闭文件的尝试标记为绿色 任何帮助表示赞赏 Sub Slide19
  • 将 CSV 导入 Excel - 自动“文本到列”和“插入表格”

    我想在 Excel 2010 上打开 CSV 逗号分隔 文件并自动将文本转换为列 然后选择所有活动单元格并插入带标题的表格 是否可以在我的功能区中添加一个按钮来为我完成这一切 我经常使用不同大小的 CSV 文件 我发现每次手动执行此操作有点
  • 规范化现有的 MS Access 数据库

    我有一个大型访问数据库 需要将其规范化为五个表和一个查找表 我了解标准化背后的理论 并且已经勾勒出表格的外观 但我不知道如何转换我的表格以使数据库标准化 表分析器没有提供我想要的细分 如果您只有一个表 请向其中添加自动编号字段 然后创建其他
  • 自动计算Excel VBA UDF与单元格属性相关

    我编写了一个 UDF 来计算特定颜色和特定线条样式的单元格 我发布了整个函数 Function CountTime rData As Range cellRefColor As Range As Variant Dim indRefColo
  • 使用 Excel 2010 通过存储过程读取/写入 SQL Server 2008 数据库

    我们有一个 SQL Server 2008 数据库 它有存储过程来处理读 写等 这些过程由各种应用程序内部使用 需要一个人直接更新数据库中名为 Employee 的表 更新非常简单 更新 VARCHAR 和 INT 外键 字段 问题是 Sh
  • VBA删除列中的单元格并根据单元格的值左移?

    如果单元格为空 如何删除 B 列 和左移 中的单元格 下面是我所拥有的 但它给出了 应用程序定义或对象定义的错误 Sub DeleteCellShiftLeft For i 1000 To 1 Step 1 If Cells i B Val
  • 将应用程序从 Microsoft Access 迁移到 VB 或 C#.NET

    我目前正试图说服管理层需要将我们的应用程序之一移植到 NET 该应用程序已经发展成为 Access 中的一个庞然大物 SQL 后端 拥有 700 个链接表 650 个表单 子表单 130 个模块和 850 个查询 我几乎知道这样做的所有主要

随机推荐

  • php中的时区转换

    谁能建议一种简单的方法来将 php 中的日期和时间转换为不同的时区 您可以为此使用 datetime 对象或其函数别名 例子 摘自 PHP 手册 date default timezone set Europe London datetim
  • 如何在迭代容器时修改容器? [复制]

    这个问题在这里已经有答案了 我指的是容器本身 而不是容器的内容 我想插入 删除 追加等 我对我的问题进行了抽象如下 fn f let mut numbers vec 10 11 12 14 15 for index in 0 numbers
  • 当垃圾收集器消除该对象时,该对象去了哪里?

    假设垃圾收集器已识别出一个类 对象 的实例 Java 程序未使用该实例 因此 垃圾收集器决定消除该对象 因为它没有在代码中的任何地方使用 现在 当一个对象被消除时 该对象在内存中去了哪里 内存中的该对象实际上发生了什么 一般来说 当物体被消
  • 仅使用注释使用 Spring AOP 拦截方法

    在我的 Spring 上下文文件中 我有这样的内容
  • 我们可以使用 jquery 更改 html 或 body 高度吗?

    我正在尝试运行这个语句 body height 100 但当我再次检查高度时 我发现它没有变化 有没有办法改变高度 文档正文是一个神奇的元素 其行为方式与其他 HTML 元素不同 你的代码 body height 100 是正确的 它与以下
  • 扭曲过程中的用户交互

    我正在运行一个扭曲的进程 需要与用户交互 而不阻塞 这个想法是 将要求用户输入一些数据 一旦输入完整的行 程序将对其进行处理 最终触发事件 在用户输入数据期间 反应器必须保持正常运行 扭曲中有对此的支持吗 您可以使用从标准输入读取扭曲互联网
  • 在汇总的 SSRS 组中包含一次值

    我有一个数据源 用于提取活动出席信息 如下表所示 请注意 一次预订可能包含多名与会者 从而导致重复Amount column Date Booking Booking Price Attendee 01 01 2011 Booking 1
  • 按组合并另一个数据框中的最近日期和相关变量

    我有两个数据框 每个数据框每个 ID 有多行 我需要根据第一个数据帧的 ID 和日期从第二个数据帧返回最接近的日期和相关数据 将相关数据添加到第一个数据帧 这也必须与NAs 存在于第二个数据帧中 示例数据 set seed 42 df1 l
  • iOS 8 Mapkit Objc 无法获取用户位置

    我正在 iOS 8 中使用 Obj C 而不是 SWIFT 来使用 Map Kit 我无法获取设备位置 它设置为 0 00 0 00 并且收到错误 Trying to start MapKit location updates withou
  • 离子运行/构建不工作

    当执行 ionic run android 时什么也没有发生 没有错误 没有消息 会发生什么 我遇到了同样的问题 将 Node 版本降低到 4 2 1 修复了它 See 离子运行什么也不做
  • 使用Python将CSV转换为JSON(特定格式)

    我想使用 python 2 7 将 csv 文件转换为 json 文件 下面是我尝试过的 python 代码 但它没有给我预期的结果 另外 我想知道是否有比我的简化版本 任何帮助表示赞赏 这是我的 csv 文件 SampleCsvFile
  • 如何在 iOS 应用程序中导入和读取文件?

    这是我的文本文件导出和导入困境的第二部分 现在 我有编写代码和导出代码 难题的最后一部分是导入代码和读取代码 我想从电子邮件中获取附件并将 其导入到应用程序中 以便我可以阅读它 我有基本的阅读代码 IBAction func readBut
  • Rails 中更新方法出现奇怪的 AbstractController::ActionNotFound 错误

    I have 家庭控制器通过这些行动 def edit family Family find params id end def update family Family find params id family update attri
  • 在Rails中通过has_many同时分配不同的角色

    我正在尝试在地址和行程之间创建关系 但我不确定如何建立这种关系 每个行程都有两个地址 起始地址和结束地址 地址可以在许多不同的行程中使用 并且根据行程 它们可以是起始地址或结束地址 我的设想是 当用户创建新行程时 他们可以从所有地址的下拉列
  • 如何通过索引从列表框中获取文本?

    我正在尝试按索引从 winForms ListBox 中的条目获取文本 但我似乎被难住了 我能想到的唯一合乎逻辑的事情是 listBox Items index ToString 但这并没有返回期望的结果 有谁知道如何做到这一点 你的列表框
  • 如何直接创建一个String?

    有什么办法可以避免打电话 to string 当我需要一根绳子时 例如 fn func1 aaa String gt 而不是 func1 fdsfdsfd to string 我可以做这样的事情吗 func1 s fdsfdsfd TL D
  • 实体框架 6 + C# 传递组合框.SelectedValue 作为 context.CreateQuery 的参数,我缺少一些简单的东西?

    ObjectContext context IObjectContextAdapter db ObjectContext string queryString SELECT VALUE c FROM Product AS c WHERE c
  • JasperReports - xls文件生成行和列未正确显示

    我正在使用 Java 在 Jasper 报告中生成 xls 格式的发票账单 该文件已使用正确的值创建 但行和列未正确对齐 下面是输出的屏幕截图 我需要做什么才能使列正确对齐 None
  • 正则表达式不会将空白字符与 [\r\n\t\f\s] 匹配

    这可能是一个非常简单的修复 但我无法弄清楚 我正在尝试在给定以下文本的情况下连续匹配 最多 3 个大写单词 Russell Lake West 匹配项应包含全部 3 个单词 此正则表达式将匹配前 2 个单词 但不匹配第三个 演示在这里 A
  • 在 Access 2007 中访问 Field2

    我正在尝试编写一个简单的小例程来通过电子邮件发送存储在 Access 2007 数据库中的附件 由于某种原因 我无法使其最简单的部分发挥作用 我在以下行中收到一条错误消息 用户定义的类型未定义 Dim attachmentField As