Dao数据库中的格式化字段- Access VBA
Dao数据库中的格式化字段是指在Dao数据库中定义的具有特定格式的字段。Access VBA是一种用于访问Microsoft Access数据库的编程语言。
格式化字段可以定义数据的显示方式，使其符合特定的格式要求。这有助于提高数据的可读性和一致性。在Dao数据库中，可以使用不同的格式化选项来定义字段的格式，如日期/时间格式、货币格式、百分比格式等。
优势：
- 提高数据的可读性：格式化字段可以使数据以一种易于理解的方式显示，使用户更容易阅读和理解数据。
- 维护数据的一致性：通过定义格式化字段，可以确保数据以一致的格式存储和显示，避免数据的混乱和错误。
应用场景：
- 日期/时间字段：可以使用格式化字段来定义日期/时间字段的显示格式，如年-月-日、月/日/年等。
- 货币字段：可以使用格式化字段来定义货币字段的显示格式，如货币符号、小数位数等。
- 百分比字段：可以使用格式化字段来定义百分比字段的显示格式，如小数位数、百分比符号等。
推荐的腾讯云相关产品和产品介绍链接地址：
腾讯云提供了多种云计算相关产品，如云数据库 TencentDB、云服务器 CVM、云原生容器服务 TKE 等。这些产品可以帮助用户在云上快速搭建和管理数据库、服务器等基础设施，提供稳定可靠的云计算服务。
腾讯云数据库 TencentDB：https://cloud.tencent.com/product/cdb
腾讯云云服务器 CVM：https://cloud.tencent.com/product/cvm
腾讯云云原生容器服务 TKE：https://cloud.tencent.com/product/tke
请注意，以上链接仅供参考，具体的产品选择应根据实际需求和情况进行评估和决策。
相关·内容
我的一个用户有一个Microsoft Access数据库，并且在表中有一个附件字段。在他的一个查询中，他希望返回该字段包含的附件数量。我试图让它工作，但没有用。我曾尝试创建一个VBA模块并将字段传递给它，但它在我身上出错。我已经尝试将参数创建为DAO.Recordset、DAO.Field、附件等。
我也尝试过像这样的MyField.AttachmentCount查询字段。
浏览 9提问于2011-08-26得票数 5
我正在转换一些在access中使用VBA开发的遗留代码，并使用DAO执行数据库查询、更新等。我需要转换一些非GUI功能，以便它可以在没有Access运行的情况下无人值守地运行。因此，我已经将VBA代码移植到VB.net，使用Access数据库引擎对象库来提供DAO接口。 它在一定程度上是有效的:在创建和打开(然后关闭)记录集的特定(未知)次数之后，它开始返回具有正确记录数的记录集，但它的Fields集合中没有成员。因此，尝试使用Fields("Name").Value获取字段的值时会抛出"Item not found in this collection“异常。 这不
浏览 19提问于2021-04-15得票数 0
回答已采纳
项目简介: Excel界面，用于打开/编辑/关闭access数据库，使用VBA语言中的变量类型DAO.Database和DAO.Recordset。
问题陈述:某些用户在Access中没有正确的动态链接库映射(ACEDAO.dll)。这意味着"Microsoft Office 15.0 Access数据库引擎对象库“不是Access VBA窗口中”工具“下的可用参考。
故障排除的当前进展:我可以在受影响的用户PC上打开一个空白的Access数据库，映射到正确的dll，引用将出现并被检查。只有当“虚拟”数据库已经打开时，excel界面才能正常工作。“虚拟”数据库可以被关闭和重新打开，并且
浏览 3提问于2015-07-11得票数 0
我有一个数据库Database和一个Table表。我在网上找到了如何在MS Access中从VBA中新创建的数据库和表中创建字段，但在宏运行之前数据库和表已经存在时，我不知道如何创建字段。
若要在没有预先存在的数据库和表的情况下执行此操作，我可以运行以下命令：
Sub CreateTable()
Dim db As DAO.Database
Dim table1 As DAO.TableDef
Set db = CurrentDb
Set table1 = db.CreateTableDef("ExampleTable")
Wit
浏览 6提问于2016-07-18得票数 1
回答已采纳
当多个用户尝试使用DAO更新共享MS-Access数据库中的同一个表时，Excel崩溃，VBA出现错误3218“无法更新”记录锁定错误。
我有一个特殊的配置，像这样:一个MS-Access数据库位于共享网络文件夹中，多个用户使用建立在Excel文件上的VBA DAO进行连接以更新该数据库。每个Excel文件中的VBA代码都是相同的。当有两个用户同时单击更新按钮时，问题就会发生。用户Excel文件挂起，或显示错误3218“无法更新”。
Sub ExportToAccess()
Dim oSelect As Range, i As Long, j As Integer, sPath As
浏览 1提问于2019-07-24得票数 0
谁知道允许VBA访问窗体底层DAO记录集中的字段的设置是什么？我知道这是可能的，正如上的答案所证明的那样
由于某些原因，我不能再在我的VBA代码中使用底层DAO记录集(恰好是一个查询)的字段名。
所以我以前能做的
myvalue = FieldName
而不是
myvalue = Me.Recordset.Fields("FieldName").Value
我意识到这可能不是最好的做法，但我有很多遗留代码像这样工作，现在数据库表单经常倒下，所以我面临着大量意想不到的清理工作来让它重新工作。
我认为这是我的想象，所以我恢复了数据库的一个旧副本，果然我能够使用它自己的字段名，但不是
浏览 2提问于2014-10-31得票数 1
总结一下我的设置，我使用Excel/VBA前端和Access数据库(accdb)后端。前端有许多GUI，它们使用VBA对数据库进行读/写。当应用程序启动时，它使用ACE DAO打开数据库，这个“连接”一直打开，直到用户关闭应用程序。
我遇到的问题是，其他用户无法立即看到对记录的更新。我相信这是因为正在缓存对记录的更新/更改，而不是立即写入。我发现清除此缓存并应用更改的唯一方法是关闭连接。
关闭连接并不是一个真正的选择，因为它需要频繁地完成(然后我需要不断地重新连接，这需要时间)。我目前正在使用的简化代码是：
打开数据库：
Set oDB = DBEngine.OpenDatabase(TARG
浏览 6提问于2017-06-06得票数 1
我在Excel 2007中使用下面的vba代码成功地查询Access 2007 accdb数据库。信用(摘自Michael Alexander的“Excel分析师访问指南”)。然而，当我用Access 2010 accdb数据库尝试Excel 2010时，我遇到了问题。首先，系统说DAO.Database不是在Excel2010VBA中定义的。所以我去参考资料，勾选了道3.6。接下来，系统表示它不承认DBEngine.OpenDatabase上的数据库(“M：\SVRData\订票2801_BE.accdb")。请帮帮忙
Sub RunAccessQuery()
'Step
浏览 0提问于2015-02-09得票数 1
我正在尝试获取用于在access数据库中生成查询的表和字段的列表。我能够识别在查询输出中找到的字段，但不能识别用于设计查询的字段。
换句话说，是否可以获得Access中查询的设计视图的query部分中指定的表和字段名？
我已经找到并开发了一些VBA代码，这些代码获取了查询输出中的所有字段(如下所示)，但这并没有得到我需要的信息。是否有可能达到我正在寻找的目标？
Function listQueryFields() As String
Dim db As DAO.Database
Dim qry As DAO.QueryDef
Dim fld As Field
浏览 0提问于2015-09-23得票数 0
回答已采纳
1回答
我有一个Access数据库，有将近200个表，每个表大约有150个字段。我需要更改大部分字段名，并正在编写一些VBA代码，以编程方式更新我所分配的名称。问题是，并非所有的表都有完全相同的字段(某些字段在某些表中丢失)。是否有一种方法可以在代码中编写更改，但如果某个字段不存在于特定表中，则只需跳过更改即可？
我使用的基本代码来自这个站点：
这是我的实际代码。我是VBA的新手，所以请温柔点。
Option Compare Database
Option Explicit
Public Sub changeFieldName()
Dim db As DAO.Database
Dim table
浏览 1提问于2013-11-07得票数 2
回答已采纳
Microsoft Access无法更新ODBC链接的SQLite表上的大备注字段(长文本)。限制在2300到5152个字符之间。它可以是一个更新查询，DAO或ADO rs.Edit或手动复制粘贴使用Ctrl-C / Ctrl-V + mouse直接到链接表-这并不重要。
错误消息：
更新查询或手动复制粘贴：
ODBC-update on a linked table 'Adobe_AdditionalMetadata' failed.
sequence error (#-1)
rs.Edit行上的DAO、VBA：
Run-time error '3027':
浏览 5提问于2016-12-12得票数 1
我正在尝试使用DAO.database/DAO.recordset从新的excel vba工作簿访问ms access表。
然而，在opendatabase("path.accdb")行中，我得到了“无法识别的数据库格式”。
Dim a As DAO.Database
Dim b As DAO.Recordset
Set a = OpenDatabase("C:\Users\Sweety\Desktop\Database2.accdb")
Sql = "SELECT Name1,Age FROM Table2 "
Sql = Sql &
浏览 0提问于2018-07-08得票数 0
我的项目使用微软SQL Server 2012 Express作为后端，Access 2016作为前端。我以前的代码在Access 2003和SQL Server 2000数据库中。现在，我将后端迁移到SQLServer2012Express。还将.mdb转换为.accdb文件格式。我的项目中有DAO和ADO的记录集。软件安装在我客户所在的几个节点上。为了使使用DAO.recordset和ADO.Recordset的记录集声明更容易，在VBA代码的引用窗口中，在ADO引用之前有DAO引用。但是现在，当我升级到Access 2016时，我想使用aceDAO记录集而不是DAO。
我试图为我尝试过的
浏览 4提问于2016-11-30得票数 0
回答已采纳
2011年2月2日:在我的M$ technet关于它的帖子死了的印象下，我开始了这个帖子。但是有一个关于这个主题的新帖子，请看一下：。这不是一个解决方案，而是确认7、14和mde的组合是至关重要的。
--原文：
由于我们仍有使用Office9 (2000)的客户端，因此我们为所有Access版本9到14 (2010)以.mde文件格式(数据库格式Access 2000)部署前端，而不是为较旧的Access版本“编译”.mde，为较新的Access版本“编译”.accde。由于他们的经济状况，我们经常在一家公司的客户工作站上发现所有Office和Windows版本的混合，所以我们的答案是最小的可
浏览 2提问于2011-01-27得票数 1
我想将一个参数传递给MS Access 2010中保存的查询，然后从查询中获得结果:它是我保存的查询：
SELECT Count(*)
FROM tb_KonzeptDaten
WHERE ( Konzept=[fzg_ID] and (DCMFile is null or (DCMFile='')));
下面是调用此查询的VBA代码：
Dim db As DAO.Database
Dim qry As DAO.QueryDef
Set qry = db.QueryDefs("Test_qr_emptyDCM")
qry.Parameters("fzg_
浏览 3提问于2013-06-21得票数 1
回答已采纳
我正在使用DAO在Access数据库上执行SQL语句。如果我使用的是VBA，那么如果更新查询失败，我可以使用dbFailOnError抛出一个错误，如下所示：
function updateTable(db as DAO.Database) as boolean
on error goto errHandler
db.execute "update testTable set name='xyz' where name='abc'",dbFailOnError
updateTable=true
exit function
errha
浏览 2提问于2013-03-01得票数 3
回答已采纳
3回答
似乎所有直接从VBA项目访问SQL Server数据库的方法都已被否决：
带有ODBCDirect的DAO : Access 2007中删除了支持。
喷气式刀:你不是认真的吧？不管怎样，这是微软的。
使用SQLOLEDB提供程序的ADO：。
使用Server本机OLEDB提供程序的ADO：。
：“不支持Server (MSDASQL)”。
我错过了什么？微软批准的从VBA访问SQL Server数据库的官方方法是什么(毕竟，VBA不是不推荐的，仍然是Office 2013附带的官方开发语言)？
浏览 3提问于2014-10-14得票数 15
以下VBA代码将允许您在当前access数据库中运行sql查询
我在通过ODBC Connector连接到MySQL数据库的MS Access文件中尝试了这一点。然而，这段代码不能工作，大概是因为它不是一个普通的access DB。
如何使用现有的ODBC连接查询数据库？
编辑:我总是得到一个“运行时错误3024找不到文件”
尝试1
Dim mydb As Database
Dim myrs As DAO.Recordset
Set mydb = CurrentDb
Set myrs = mydb.OpenRecordset("select from blah blah...&#
浏览 2提问于2020-06-24得票数 0
1回答
我是VBA的新手，但有一些编程经验，所以我正在慢慢地开始学习。我的access数据库中有两个表，每个表都有一个相同的字段。一个表是可能值(“TOSITEXREF”)的独特列表，这些值可能显示在另一个表("Trans_Earned")的相同字段中。我尝试创建的这个函数将在宏中运行，以确定通过查询追加的数据在ToLocn字段中是否有不在可能值列表中的实例。以下是我到目前为止所拥有的，但不起作用：
Function TESTING()
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("TransEarned&
浏览 1提问于2015-06-11得票数 1
我需要从excel表中导入一行数据到Access数据库表。
我已经预先配置了数据线，以便单元格与Access表中的字段相对应。数据已被命名为范围。
使用Access，我可以追加一个表，它给了我一个导入范围的选项，而不是一个表。
有没有办法通过VBA做到这一点？
浏览 1提问于2016-01-26得票数 0
回答已采纳
1回答
我正在尝试运行一个Access报告，其中字段的值取决于查询。我对此有一个子报告。
如果在第一个查询中未找到该值，则必须运行另一个查询，直到找到该值为止。如何在Access 2003 +中完成此操作。在VBA中使用DAO或ADO执行此操作是最佳选择。
浏览 1提问于2011-04-05得票数 0
回答已采纳
2回答
我目前正在处理Access中的一个数据库，其中有一个表(Pro_Cons)，用于比较不同产品类型的优缺点。此表有3列:类型(Product_type)、Pros (Pro)和Cons。对于每个产品类型，我创建了一个表单，其中包括相应类型的pro-和cons-字段。为了向该字段添加新文本，我创建了一个VBA函数，该函数由单击按钮触发。
因为一切都不能正常工作，所以我创建了以下函数，它应该只替换产品type1 to change1的Pro -field。
Access不会抛出错误，但表中没有任何更改。
有人知道这里发生了什么吗？
Sub Change_Pos_Inf()
Dim db As DA
浏览 2提问于2017-11-15得票数 0
我一直在向VBA添加一个MS Access数据库，以便对船舶进行一些分析。然而，数据库现在已经更改为SQlite，我不知道如何从VBA访问它。我试过使用GitHub的SQLiteForExcel，但我不明白它是如何工作的，即使是使用示例。我访问Access数据库的代码如下：( db_path是我的Access数据库的超链接)
Sub query_db()
On Error GoTo Errorhandler
Dim v_db As DAO.Database
Dim rst As DAO.Recordset
Dim vessels_db As Variant
Dim strSQL As Str
浏览 1提问于2017-02-28得票数 7
回答已采纳
1回答
我在Excel中有一个VBA宏，它调用Access数据库(.mdb)中的查询。但是，已经更新了对.accdb文件的访问，并且我不知道如何更改宏(和/或包含任何库，因为我还没有真正理解该部分)，以便代码能够工作。
下面是当前的"header“代码：
'Step 1: Declare your variables
Dim MyDatabase As DAO.Database
Dim MyQueryDef As DAO.QueryDef
Dim MyRecordset As DAO.Recordset
'Step 2: Identify the database and
浏览 1提问于2013-03-19得票数 1
2回答
我有一个表，在该表上运行导出到Excel的查询。
下面是一个示例：
表:食品
Item | Price | Limit_Date |
-------------------------------
Carrot | 0.80 | 08/07/2015 |
Salmon | 4.30 | 01/07/2015 |
Biscuits | 2.40 | 15/12/2015 |
Milk | 1.00 | 25/06/2015 |
我在vba中运行这段代码：
码
Dim cdb as DAO.Database
Dim qdf as DAO.QueryDef
Set
浏览 5提问于2015-06-23得票数 1
回答已采纳
1回答
我正在尝试在vba中复制一个集合数据库来访问2010数据库，下面是一个工作代码。但我想知道的是，是否有更简单或更快的方法来完成这项工作，特别是当我将有大量的no或字段和记录时。
Dim plist As New partlist 'plist is a class
Dim plcol As New Collection
Sub DBInsert1()
' this function will add add 2 records from a collection to access database
Dim DB As DAO.Database
Dim RS As DAO.R
浏览 0提问于2016-03-11得票数 0
1回答
好吧，我是新来的，这将是我的第一个问题，我正忙着处理我的代码。我一直碰到与Runtime错误有关的相同错误: Access Visual Basic中的3129，现在它是在我的代码下面的Public Sub中设置的导入按钮函数：
Public Sub ImportDataTablebtn_Click()
Dim strSQL As String
Dim db As DAO.Database
Dim tbl1 As DAO.TableDef
Dim tbl2 As DAO.TableDef
Dim fld1tbl1 As DAO.Field
Dim fld2tbl1 As DAO.Field
D
浏览 2提问于2016-02-25得票数 1
回答已采纳
在执行格式检查时需要帮助。好了，现在我的access窗体上有一个按钮，当单击它时，它会将结果导出到一个新的空白Excel文件中。我现在要做的是添加一些代码，检查字段6-10是否在整个数据集中添加到<>字段5中，然后执行条件格式设置，并突出显示与黄色不同的字段。
一旦这是适当的，然后我希望出现一个消息框，无论多少项目突出显示的Excel文件中出现在列表框的消息。例如，有(9)个单元格不匹配，需要注意才能提交上传！“
Dim dbs As DAO.Database
Dim Excel_App As Excel.Application 'Creates Blank Excel F
浏览 13提问于2020-02-04得票数 0
2回答
我正在使用Access 2013和Excel 2013。在引用方面，我使用的是MicrosoftOffice15.0Access数据库引擎对象库。
因此，我试图在VBA中运行一个DELETE查询。这是我到目前为止所拥有的
Sub UpdatePartList()
Dim ws As DAO.Workspace
Dim dbs As DAO.Database
Dim rsTable As DAO.Recordset
Dim rsQuery As DAO.Recordset
Dim rsSql As DAO.Recordset
Set ws = D
浏览 1提问于2017-06-19得票数 2
回答已采纳
我正在使用Excel中的vba使用DAO在一个受密码保护的Access数据库上运行查询，有时在运行子数据库时，会打开一个Access实例，并打开一个窗口要求输入数据库密码，不输入密码和按取消没有区别，查询仍然运行并显示输出，有什么方法可以停止打开access并要求输入密码吗？
Dim MyDatabase As DAO.Database
Dim MyQueryDef As DAO.QueryDef
Dim MyRecordset As DAO.Recordset
Dim DB_Name As String
Dim cond As String
Dim pWord As String
Dim
浏览 13提问于2018-09-06得票数 0
回答已采纳
我在MS Access中有两个简单的VBA函数来复制和粘贴一个条目。但是，当我复制条目时，字段的顺序并不相同。access表中有10个字段，按1-10顺序排列，但是当数据被复制时，结果是1-8, 10 ,9。位置9中的字段是新添加的字段，所以我的想法是有一个字段索引，它的ID实际上是10而不是9，但我看不出有什么地方可以改变它。
不幸的是，我不是专家，也不是构建这个Access数据库的人，所以我不太愿意对代码进行修改，以避免破坏其他东西的风险。
以下是可供参考的复制函数：
Private Sub Copy_Click()
Dim RS As DAO.Recordset, i As Intege
浏览 2提问于2022-02-14得票数 0
回答已采纳
1回答
在access 2003数据库上使用access 2010。
我有一个带有未绑定数据字段的表单。按钮调用vba，vba调用宏。宏调用查询，该查询引用表单数据字段窗体。不是真的叫那些东西，只是为了解释一下。
vba代码可以看到表单数据字段。调试打印出来。查询返回一个空白。
我通过创建一个新的查询来验证这一点，该查询只列出了随机表中的表行以及表单。我甚至通过更改名称来验证它，这使得查询提示我输入数据，并引用另一个字段。
昨天在另一个表单/查询上发生了这种情况，但经过处理之后，它突然开始工作了。我压缩/修复了数据库，添加了一个替换的未绑定数据字段，将数据格式从使用datepicker的短日期更改为普
浏览 3提问于2014-12-04得票数 0
我在access 2010中有一个表"Contracts“，它链接到了SharePoint。此表中有许多文本类型的字段。我想在我的VBA代码中取消查询"All-Contracts“时使用这些字段，但是这些来自类型text的数据不能被识别为字符串，我得到一个运行时错误”13：
Function funktion()
Dim db As DAO.Database
Dim rs As DAO.Recordset 'All-Contracts
Set db = CurrentDb
Dim s as String
Dim CsrArray() As String
Set rs
浏览 0提问于2016-05-31得票数 0
我试图为Access 2000在vba上创建一个带有几个字段的新表。当字段的数据类型为文本时，我能够创建表和字段，但我需要它是数字。当我将数据类型从文本更改为数字时，它会给出错误数据类型转换错误。任何帮助都将不胜感激。谢谢
Public Sub CreateNewDB()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
'Initialize the Contractor table
Set db = CurrentDb()
Set tdf = db.CreateTableDef("n
浏览 7提问于2014-12-18得票数 0
回答已采纳
1回答
这是我和VBA的第一天。我试图使用VBA中的.csv查询在MS Access中导出一个MySQL文件。我试过使用以下代码：
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sql As String
Set db = CurrentDb
sql = "SELECT wo_id FROM WorkOrder"
Set rs = db.OpenRecordset(sql)
DoCmd.TransferText acExportDelim, , "rs", "C:\export.csv", T
浏览 4提问于2014-01-14得票数 1
回答已采纳
4回答
无线HTA中的DAO与ADO
、、、、
我已经编写了一个小型(8-10台笔记本电脑)销售点系统，运行在无线网络上，作为一个HTA，对位于网络共享上的访问MDB进行读写。
我需要使用ADO - GetString和用户花名册是不可用的DAO。
我还需要使用DAO - MDB不能与ADO压缩。
我知道：
1)如果数据库后端不是Access MDB，我应该使用ADO。
2)如果后端是MDB，但我想在某个时候升级到SQL Server，我应该使用ADO。
3)在Access应用程序或任何其他VBA/VB应用程序中，我应该使用DAO，因为ADO必须通过Jet OLE DB提供程序的转换层，而DAO更直接。
4) VBScript/JScrip
浏览 0提问于2009-05-24得票数 2
回答已采纳
我希望有一个Access VBA子数据库，它向SQL Server数据库发送指令，将一些数据从一个远程表复制到另一个表(至少有一个表没有链接到本地Access数据库)。我希望这一切都发生在服务器上，因为这是大量的数据。
我正在尝试下面这样的方法，但它返回运行时错误3065 (不能执行select查询)。对如何修复有什么见解吗？有什么原因我不能在Access中执行此操作吗？
另外，我使用的是DAO方法，但是有没有更好的方法(ADO?)？有些新手，所以我并不总是能理解不同方法的细微差别。
Public Sub myTest()
Setup:
Dim dbs As DAO.Database
浏览 0提问于2018-09-15得票数 0
我试图在Access 2007 VBA中创建一个参数查询，该查询从用户表单中获取两个输入参数，并根据代码中其他地方编写的公共函数结果返回一个派生字段值。该函数确定计算的“结果”字段的值，该字段由基础表中的4个字段( HomeTeam、AwayTeam、HomeGoals、AwayGoals )的值派生而来。
如果我通过立即窗口调试代码，并将SQL字符串粘贴到Access SQL窗口，查询将完美运行，但不会从VBA运行。产生的错误是：
运行时错误3141. SELECT语句包含一个保留字或一个参数名，该名称拼写错误或丢失，或者标点符号不正确。
我不想在Access中直接运行查询，因为参数季节是一
浏览 1提问于2014-04-05得票数 1
1回答
我在一个原型应用程序中使用Access 2007，我有两个数据库testUi.accdb (其中
包含我所有的表单)和testDb.mdb (包含我的数据库)。现在，我想在我的子表单中使用数据表。有人能帮我解决这些问题吗？
我可以手动构建没有表的数据表吗？
如何使用VBA代码使用DAO或ADO将数据绑定到此数据表
是否可以使用VBA代码循环数据表？获取或设置每一行的值？
如果上面不可能，那么在Access中使用数据表(如网格)的替代方式是什么？
浏览 2提问于2012-10-18得票数 1
回答已采纳
我用VBA语言开发了一个带有Access数据库文件后端(.accdb)的Excel应用程序。连接是使用DAO建立的，数据库当前存储在我的本地机器上。但是我很好奇，我是否能够从路径是HTTP地址的DropBox或Sharepoint365这样的站点托管db文件？
浏览 1提问于2015-12-05得票数 0
Ms Word数据库字段在Word表中插入数据库查询的结果。
我想用VBA在ms word中填充一个表，我已经使用了VBA MsAccess & MsWord书签，来自数据的模板使得文档很难维护。我发现MSword拥有insert数据库选项，并允许您在msaccess中实现数据，并在更新期间保留预格式化。以下数据库字段代码来自使用数据库命令通过ODBC从Access数据库查询的结果：
{数据库\d "C:\My数据源\测试World.odc“\c "Provider=MSDASQL.1;Persist Security Info=True;Extended Prope
浏览 4提问于2017-04-06得票数 1
回答已采纳
1回答
我想从MS Access中的多个表的某些字段的集合中找到不同的值列表。但是，我的VBA代码只返回每个字段的第一个值(而不是每个字段中不同值的完整集合)。如下所示：
Sub GetDistinctValues()
Dim tbl As DAO.TableDef
Dim fld As DAO.Field
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Fields_To_Examine")
Do While No
浏览 0提问于2016-11-17得票数 2
我需要一种方法来返回SQL Server存储过程中受影响的记录，并使用Access数据库中的VBA将其显示在消息框中。下面是我用来在Access中执行所有存储过程的过程...
Public Sub SP(exec As String)
Dim qdf As DAO.QueryDef
Dim strConn As String
strConn = "ODBC;DRIVER=SQL Server;SERVER=;DATABASE=;Trusted_Connection=Yes"
Set qdf = CurrentDb.CreateQueryDef
浏览 5提问于2013-09-10得票数 0
1回答
我需要在Access数据库中保存Word中的格式化文本。
到目前为止，我已经找到了如何在Access字段中存储格式化文本(在表中创建一个备注字段，并将文本格式设置为Rich )。搜索，所以我还没有找到一个解决方案，如何将所述文本从word传输到Access。
我知道这是可能的，因为如果您正在手动复制和粘贴信息，就可以做到这一点。
我的问题，如何使用VBA?将格式化文本从word复制到表中的字段中
实验上，我创建了下面的代码来测试这一点。到目前为止没有成功..。
Sub GetComments()
'Imports Analyst Comments from Excel files al
浏览 4提问于2015-06-12得票数 7
回答已采纳
我正在制作一个后期绑定的数据库，这样当前端打开时，使用不同版本的MS Office的用户将不会有问题。在使用For Each tdf In dbs.TableDefs的这行代码中，我不断收到运行时错误438 (对象不支持此属性或方法)。 我看不出这里出了什么问题。一切都被声明了，它应该会找到它。有人能指出可能发生的事情吗？ Function RelinkTables()
On Error GoTo EndFast
'Routine to relink the tables automatically. Change the constant LnkDataBase to the de
浏览 48提问于2021-09-19得票数 1
回答已采纳
我正在将一个Access 2007查询分配给Excel VBA中的一个QueryDef。我的查询调用一个用户定义的函数，因为它使用正则表达式对字段求值的结果执行计算。我之所以使用QueryDef，是因为我要收集UserForm中的值，并希望将它们作为参数传递给查询。
当我运行我的VBA代码时，我得到一个错误：“运行时错误'3085'：表达式中未定义的函数'regexFunc‘。”
认为问题在于DAO无法从Excel调用Access UDF，所以我将UDF复制到Excel VBA模块中，但仍然收到错误。
访问查询：
select field1 from dataTable
浏览 2提问于2011-08-18得票数 1
回答已采纳
使用VSTO和COM，我试图访问和操作已在Microsoft中打开的数据库。我可以获得Access应用程序对象、当前用户名和其他属性。但是，当我试图获得表的列表以打印表名时，代码失败。
我的最终目标是使用‘application.Run(“MyMacroName”)运行一个Access VBA宏。有人能告诉我我错过了什么或做错了什么吗？谢谢。
更新解决方案
感谢阿尔伯特(见下文)，他一直提供(Visual )信息，直到我能够让C#代码工作为止。我所缺少的最大的事情是: 1)使用引用的DAO (VStudio说我最初不需要它)，2)循环的显式DAO TableDef类型('var‘不起作
浏览 2提问于2020-06-07得票数 0
回答已采纳
1回答
我有一个MS Access数据库(我不是在寻找不使用Access的理由)。
我正在尝试运行一个VBA子程序，根据一个参数循环执行一些查询，该参数是一个查询结果。
有一个查询对表中某一列的值求和。我需要在VBA中使用IF ELSE语句通过一个函数返回它，然后才能继续。
Public dbs As DAO.Database
Sub Main()
Dim SumCheck As Double
Set dbs = CurrentDb
GoTo LoopCheck
LoopCheck:
SumCheck = SOSum(dbs)
If SumCheck = 0 Then
浏览 10提问于2019-07-11得票数 0
回答已采纳
2回答
ADO记录集中的最大字段
、、、、
我试图在access中创建一个安全的数据库，在excel中创建一个用户表单。我理解所有的VBA以及从access到excel发送和接收数据的大部分语法。我的问题是，我只能写到64个字段(0-63)，我想在access和excel之间来回移动超过75列。下面是我的一些不清楚的代码。
' open the database based on type of save
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.ace.OLEDB.12.0; Data Source=" & DBF
浏览 4提问于2015-08-26得票数 1
回答已采纳
1回答
我正在使用Excel2016VBA来使用DAO引用读取Access 2016数据库。我正在这样做，因为在Excel中创建动态表单控件要容易得多。它似乎工作得很好，但我刚刚发现它只读取任何表的前335条记录，即使我用SQL查询约束了三个记录集。
首先，我读了一张房间里摆满架子的桌子：
DIM db as DAO.Database
DIM rsRacks as DAO.Recordset
DIM strSQL as String
‘Initialization code deleted
StrSQL = “SELECT * FROM tblRacks WHERE RoomID = “ &a
浏览 0提问于2019-11-05得票数 1
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
云直播活动推荐
腾讯云开发者
