在Access VBA中打开RecordSet时，如果类型为dbOpenSnapshot，是否会使dbReadOnly选项变得多余？
在Access VBA中，Recordset 对象用于存储来自基本表或查询的结果集。Recordset 对象有多种打开模式，其中包括 dbOpenSnapshot 和 dbReadOnly。
基础概念
- dbOpenSnapshot:
- 这种模式打开一个静态的
Recordset，表示在打开时刻数据库的状态。 - 静态
Recordset不反映数据库的实时变化，即使数据库中的数据发生了变化，Recordset中的数据也不会更新。 - 这种模式适用于需要查看数据快照的场景，例如报告生成或数据导出。
- 这种模式打开一个静态的
- dbReadOnly:
- 这个选项表示
Recordset是只读的，不能进行更新、插入或删除操作。 - 即使在
Recordset打开时没有明确指定dbReadOnly，某些情况下（如使用dbOpenSnapshot）它也会隐式地变为只读。
- 这个选项表示
相关优势
- dbOpenSnapshot:
- 提供数据的静态视图，适用于不需要实时更新的场景。
- 可以提高性能，因为数据不需要实时从数据库中检索。
- dbReadOnly:
- 确保数据不会被意外修改，提高数据安全性。
- 在某些情况下，可以减少数据库锁的使用，提高并发性能。
类型和应用场景
- dbOpenSnapshot:
- 应用场景：生成报告、数据导出、历史数据查看等。
- 类型：静态
Recordset。
- dbReadOnly:
- 应用场景：只读数据访问、数据验证、数据展示等。
- 类型：只读
Recordset。
问题分析
当使用 dbOpenSnapshot 模式打开 Recordset 时，dbReadOnly 选项确实变得多余，因为 dbOpenSnapshot 模式本身就隐式地使 Recordset 成为只读。因此，在这种情况下，显式指定 dbReadOnly 并不会改变 Recordset 的行为。
解决方案
如果你只需要一个静态的只读 Recordset，可以直接使用 dbOpenSnapshot 模式，而不需要额外指定 dbReadOnly。例如：
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("YourTableName", dbOpenSnapshot)如果你需要显式地指定只读属性（尽管在这种情况下是多余的），可以这样做：
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("YourTableName", dbOpenSnapshot, dbReadOnly)参考链接
通过上述解释，你应该清楚 dbOpenSnapshot 模式和 dbReadOnly 选项之间的关系及其应用场景。
相关·内容
在Access VBA中，将记录集作为快照打开时，是否会使只读选项变得多余？起初，这似乎是真的，因为快照本质上已经是只读的，但似乎总是有一些警告。 示例： Dim acc as Access.Application
Dim db as DAO.Database
Dim rs as DAO.Recordset
Dim sqltext as String
sqltext = "SELECT * FROM SOMESOURCE"
Set rs = db.OpenRecordset(sqltext, dbOpenSnapshot, dbRead
浏览 48提问于2018-08-09得票数 4
回答已采纳
我遵循了如何在access vba中制作基本登录表单的指南，但是今天当我启动我的工作pc时，登录似乎根本不能在我的后端(我最初将登录表单导出到我的前端)中工作。它给了我一个指向"Private Sub btnLogin_Click()“的”用户定义的类型未定义“错误，但现在情况不再是这样了，现在它没有做任何更改就随机地给了我一个指向"Private Sub btnLogin_Click()”并突出显示"dbOpenSnapshot“的”编译错误:变量未定义“。 下面是我的后端文件中的完整代码，它给出了错误 Option Compare Database
Option
浏览 15提问于2020-04-08得票数 0
1回答
我有打开一个特定表单的代码，但我需要设置不同的用户级别，然后可以用来限制访问access程序中的不同表单。
我有一个登录屏幕，它使用表employee中的数据(用户名/密码)，这个表还有一个名为employeeTypeId的外键列，另外我还有一个名为Access的表，它具有不同的employeetypeId，如1、2、3、4和5。
5应该是管理员，而1是只读用户，依此类推。第三个表是EmployeeAccess，它有employeeTypeId以及数据类型为yes/no的列HasAccess。
我用它在VBA中写了一个代码，以确保只有特定的用户才能访问特定的表单。
我有一个代码，一个表单的工作
浏览 0提问于2019-05-17得票数 0
1回答
我在我的主菜单表单中有一个按钮，它必须显示一个提醒，即所有仪器都应进行校准。标准是：“显示小于今天日期的记录&也是从今天起+7天”，但是我不能对后者进行编码，因此它显示了所有未来的记录。下面是我的代码，请帮助。 Private Sub cmddept_Click()
Dim RS As DAO.Recordset
Dim strMsg As String
Set RS = CurrentDb.OpenRecordset("select * from (" & Me.RecordSource & ")",
浏览 11提问于2020-07-28得票数 0
回答已采纳
我是SQL的新手，非常可笑。我正在尝试从Excel VBA中编写一些代码来访问Access DB文件，删除一个表，并根据其中一列的值将数据从access中的另一个表复制到第一个表中。
到目前为止，我只是尝试将一个表复制到另一个表中，得到的结果是424: Object required。我遗漏了什么？
Sub Update()
Dim cnnAccess As ADODB.Connection
Dim rstAccess As ADODB.Recordset
Set cnnAccess = New ADODB.Connection
Set rstAccess = New ADODB.Reco
浏览 13提问于2017-06-21得票数 0
1回答
我有一个MS-Access数据库，其中包括几个查询，这些查询具有记录集类型Dynaset。我希望将所有查询更改为记录集类型快照(即dbOpenSnapshot)。
下面的方法给出了一个错误消息，即dbOpenSnapshot不是一个有效的参数，这是我从那里得到的
Sub Properties()
Dim dbs As DAO.Database
Dim rsQuery As DAO.RecordSet
Set dbs = CurrentDb
Set rsQuery = dbs.OpenRecordset("Query1")
rsQuery.Properties(
浏览 2提问于2022-03-28得票数 0
我正在写一个从Access数据库中提取工作的excel应用程序。当用户打开Excel工具时，数据表需要填充我创建的Access数据库中的一个工作表。我一直在excel中编写VBA代码，并且收到运行时错误："429“ActiveX组件无法创建对象。
其他问题都是从Access中编写的，但我相信我需要从Excel工作簿文件中编写此代码。我编写的代码位于Workbook_Open()函数中，以便在用户打开文件时收集数据。非常感谢你的帮助。顺便说一下，我使用的是Access 2007和Excel2010。
Private Sub Workbook_Open()
'Will fi
浏览 4提问于2012-02-01得票数 10
回答已采纳
1回答
我创建了一个登录表单，但我意识到不需要输入密码就可以登录。仅用户名。我应该怎么做才能解决这个问题？ Option Compare Database
Option Explicit
Private Sub cmdlogin_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Account Details", dbOpenSnapshot, dbReadOnly)
rs.FindFirst "UserName='" & Me.txtusername
浏览 19提问于2020-07-21得票数 2
1回答
我有一个数据库与用户登录和预先分发给不同类型的用户。我还创建了一个旁路属性来启用或禁用数据库的"shift click“打开。因此，当类型4的用户登录时，提示符会显示为激活或禁用这些功能，在“是”之后，用户将显示“非官方”菜单形式。当不是第4级用户的用户尝试登录时，登录按钮根本没有反应。旁路的提示符没有显示，它应该显示，但是菜单表单也不会打开。可能少了点什么，但我就是搞不懂，什么。有谁可以帮我？
Private Sub btnlogin()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("tblutilizadore
浏览 0提问于2021-02-04得票数 1
回答已采纳
我在Microsoft Access中为我的登录按钮创建了一个脚本。我希望按钮在将用户名、密码和安全级别带到仅为该用户指定的相应屏幕之前验证用户名、密码和安全级别。我不想让他们看到其他信息，所以我知道我需要保护我的前端(后端已经保护)。这是我的代码，当调试时我得到的错误是变量没有定义-
enter code here
Option Compare Database
Private Sub cmdLogin_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("tblUsers", dbOpe
浏览 0提问于2014-06-01得票数 0
我有以下Excel VBA代码，在我将Access(2007)数据库转换为Access(2010)数据库之前，它们工作得很好。我已经使用了Access(2010)中的一些新功能来改进我的数据库，但现在我的Excel宏将无法运行。我得到了以下消息。
运行时错误3343未识别的数据库格式
我认为修复可能是一个简单的修复，但我不是一个程序员，所以我迷路了……提前感谢您的帮助。
Sub Get_Hardware() 'Retrieves hardware weights from Access database
'********Note: If program fails to
浏览 0提问于2012-08-04得票数 1
我希望传递一个字符串aPath，其中包含活动工作簿的路径，以访问vba模块或子。下面是我的excel vba代码，它将打开access db表单。如何传递字符串值来访问vba。
Dim aPath, aDbase, aDSource, aTable, exePath As String
Dim fileParam As String
aPath = ActiveWorkbook.Path
aDbase = "near_14.accdb"
aDSource = aPath & "\" & aDbase
浏览 7提问于2014-03-20得票数 0
回答已采纳
1回答
我试图创建一个程序/宏/VBA，以访问打印发票到PDF的各个文件。我也要用发票号来命名文件名。虽然我可以用VBA编写代码，但是我对访问编码还是新手，所以我不知道需要什么命令来完成上面的工作。我的计划是：
为发票创建报告，以便在1页上创建1张发票。
循环遍历表/查询(同时循环使用EOF，for循环使用表大小)
只要有下一个记录，就为它创建一个报告页。
只打印当前页并用相应的发票编号命名它。
往前走
我知道access有一个创建宏的工具，可以打印成PDF格式，但是它会打印所有的内容，并且不会在单个页面上工作。所以我觉得我应该用循环。所以我想知道：
-Is有更好的方法来做
浏览 4提问于2015-07-21得票数 0
3回答
由于DAO的问题(请参见)，我需要从Access查询创建一个Excel VBA记录集，并使用用户定义的函数筛选其结果。
我想我可以使用下面的代码来完成这项工作：
Sub test()
Dim db As Database
Dim rs As Recordset
Dim rs_clone As Recordset
Set db = OpenDatabase(dbPath)
Set rs = db.OpenRecordset("select testVal from dataTable")
Set rs_clone = rs.Clone
rs_clone.MoveLast
rs
浏览 0提问于2011-08-18得票数 1
回答已采纳
Access没有原生中值函数，所以我使用这个UDF：
Function fMedian(SQLOrTable, GroupFieldName, GroupFieldValue, MedianFieldName)
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs1 = db.OpenRecordset(SQLOrTable, dbOpenDynaset)
If Not (GroupFieldName = "" And GroupFieldValue = "") Then
浏览 5提问于2017-06-09得票数 0
1回答
紧凑拆分/共享访问数据库
、、、
我有一个分割的(前端.accdb +后端.accdb) Access 365数据库，它是一些用户共享的。
我想通过VBA定期地压缩/修复它，但是我想知道当它同时被一个以上的用户使用时会发生什么。
我认为当多个用户被连接时是不可能这样做的，我错了吗？如何检查是否有多个用户连接？信号量系统可能很弱。--
浏览 2提问于2020-01-05得票数 1
我正在尝试解决一个比这个更复杂的问题()，所以我创建了一个简单的函数来帮助我解决问题：
Sub GetRowsTest(x As Integer, y As Integer)
Dim db As DAO.Database
Dim recordSet As DAO.recordSet
Dim result As Variant
Set db = CurrentDb
Set recordSet = db.OpenRecordset("SELECT * FROM Products", dbOpenSnapshot)
recordSe
浏览 2提问于2014-11-20得票数 0
我使用下面的代码将记录从access拉到excel中。我在以下位置遇到错误
connDB.Open ConnectionString:="Provider = Microsoft.ACE.OLEDB.12.0；data source=“& strDB
错误信息为“invalid sql语句，delete，insert，procedure，selet或update”
请帮助我，因为我被困住了，根本不能前进……
请帮帮忙。
子automateAccessADO_9()‘使用ADO将数据从Access数据库表导入到Excel工作表(您的主机应用程序)。请参阅图9a以查看MS Acce
浏览 27提问于2017-06-28得票数 1
回答已采纳
1回答
我有一个登录系统，它连接到一个名为Employees的表。我现在需要制作一个编辑用户表单，它允许我编辑登录人员的用户名或密码。
我试过使用
Me.UserName = Nz(DLookup("Username", "Employees", "Username='" & TempVars("EmployeeType2") & "'"), "")
Me.Password = Nz(DLookup("Password", "Employees&
浏览 6提问于2018-07-31得票数 1
我是个新手，刚开始学习VBA。我正在尝试从Access中的表中读取/导入数据到excel电子表格的选项卡中。数据将是两个表(access和excel)中列的某些companies.The头的名称/位置/补偿。当我读取数据时，逻辑位于另一个访问表中的公司ID，然后从存储数据的Access表中检索数据(公司ID很重要，因为该表存储每个公司的数据，而ID用于标识哪个公司的数据)。
这是我从网上得到的模板：
Sub DAOCopyFromRecordSet(DBFullName As String, TableName As String, _
FieldName As String, Tar
浏览 2提问于2020-06-09得票数 2
1回答
我在VBA中打开一个记录集，该记录集具有特殊的字符，如Check、子弹点和其他从Word中提取的东西。这个过程将把字段添加回word书签中，但是我对fom编排有一个问题。我从富文本备忘录字段中提取，即使字符出现在表中，当我在代码中的值上鼠标时，它们也不会出现。我在代码中的一个方框中得到问号，当它导出到我的word文档中时。符号点出现在代码中的mouseover值和导出到word中，但是当我在代码中打开记录集时，其他字符会发生变化。
我猜想这是某种UTF转换问题，但我不知道为什么它在表中会很好，但当我使用DAO.Database.OpenRecordset时会搞砸。这些符号是Word的本机符号，
浏览 1提问于2014-03-10得票数 2
回答已采纳
我试图找出指定的列是否有空值，或者列中没有data.if空值，然后将消息框提供给用户，表示列包含空值。我的vba
Dim sqlid As String
Dim rst As Recordset
Dim cdb As Database
Set cdb = CurrentDb
SQLEID = "SELECT * " & _
"FROM table_1 ;"
'
Set rst = cdb.OpenRecordset(sqlid , dbOpenSnapshot)
Do While Not rst.EOF
If IsNull
浏览 3提问于2014-05-07得票数 1
回答已采纳
大家好，当选择了另一个组合框时，我遇到了让ComboBox排序的问题。我想我有正确的SQL语法，但是我似乎不能让vba运行它；目前vba返回记录集中的所有状态，而不管公司是什么。
Private Sub CboCountry_Click()
Set db = CurrentDb
Dim SQLStr As String
Set RsState = db.OpenRecordset("T2States", dbOpenSnapshot, dbSeeChanges)
'populates combobox with recordset, that is defined
浏览 0提问于2017-05-05得票数 1
我在另一个RecordSet循环中有一个RecordSet循环。如果运行.OpenRecordSet不需要45秒，并且它将打开的表有445k个寄存器，那么它将工作得很好。
内部循环的原因是因为我需要过滤从另一个RecordSet获得的结果，然后获得这些新结果并进行比较。
使用其他方法或其他方式会更好吗？有没有其他方法可以从表中获取特定数据(当然是更快的方法)？我应该尝试多线程吗？
因为人们可能需要我的代码：
Private Sub btnGetQ_Click()
Dim tabEQ As DAO.Recordset: Dim tabT7 As DAO.Recordset: Dim ta
浏览 5提问于2017-05-12得票数 0
1回答
在我的主菜单表单中，我提供了一个按钮来检查到期的任务，作为提醒。在这个分配给字段的字段中，它以number的形式出现，因为在我的表中，它是数字类型的&它链接到contact表以检索数据。因此，在我的消息框中，我需要将这个号码转换为存储我的联系人表的数据。而且，我不能增加消息框的大小，所以它看起来很混乱。请查看附件中的图像和代码& help me.tablemessagebox[]][数据类型限制“
Option Compare Database
Private Sub cmdreminder_Click()
Dim RS As DAO.Recordset
Dim strMsg
浏览 0提问于2020-03-13得票数 1
回答已采纳
我已经编写了c#代码来调用ms access函数。下面是用c#编写的函数调用“CallModule”。
在ms access中有一个名为“fReturnRecordset”的函数。此函数返回Recordset。
在c#中，我们可以成功地调用函数。但我们不能将oRrecordSet对象类型转换为记录集或数据集。
我得到以下错误：
“Unable to cast COM object of type 'System.__ComObject' to interface type 'ADODB.Recordset'. This operation failed beca
浏览 1提问于2013-09-23得票数 1
我试图简单地打开一个查询并从它中SELECT所有内容。查询需要FROM和TO日期。我有一个frmA，通过它将参数传递给查询。我打开frmA，输入两个日期。有趣的是，当我做docmd.openQuery "qryInsurance"时，它打开了一个问题，但是，当我尝试Select * from qryInsurance时，它告诉我它需要2个参数。
以下是代码：
Public Function CountFollowup() As Boolean
On Error GoTo error_handler:
Dim rs1 As DAO.Recordset
Dim rs2 As DAO
浏览 3提问于2016-02-16得票数 1
回答已采纳
1回答
我有一个Access VBA列表框，其中包含不填充的行源。它上周开始工作，在本周重新打开DB之后，由于某种原因，它将不会显示我的字符串的结果。
Private Sub PullData(strType As String)
Dim rst As DAO.Recordset
Dim sSQL As String
On Error GoTo Err_PullData
Set rst = CurrentDb.OpenRecordset("SELECT * FROM TBLactionstaken_ARCHIVE", dbOpenDynaset, dbReadOnly)
Sele
浏览 5提问于2022-05-20得票数 0
回答已采纳
显然，您不能在带有Oracle-based recordset的Access Project中设置表单的recordset属性，但是有没有办法在Access form中显示或选择这些记录
浏览 1提问于2016-03-07得票数 0
1回答
我试图在Access中使用vba创建标签分隔的文本文件。这个文件本质上是从表中读取数据，在文件开始时有几个字符串。这样做的目的是创建一个可以在另一个软件中读取的共享参数文本文件(Autodesk )
我遇到的问题是，我导出的东西似乎不是一个标签分隔的文件。我可以通过尝试将它导入excel来测试它，但它不承认它是一个由选项卡分隔的文件。
下面的片段显示了我所编码的内容。运行它，然后尝试在Excel中导入，会显示它不是以选项卡分隔的文件读取。为了方便起见，我已经注释掉了一些读取数据库的部分，因为它们与实际问题无关。
Public Function ExportRevitSharedParamete
浏览 2提问于2019-09-08得票数 0
回答已采纳
3回答
大家好，我一直在为工作设计一个新的数据库。他们一直使用Excel处理日常报告，所有数据都存储在那里，所以我决定将数据库的后端放在Access中，前端放在Excel中，这样一旦所有数据都导入到Excel中，就可以轻松地执行任何分析工作。
现在我是VBA的新手，慢慢习惯于使用它，我已经编写了一些代码来将一个计算表从Access转移到Excel中：
Option Explicit
Public Const DataLocation As String = "C:\Documents and Settings\Alice\Desktop\Database\TestDatabase21.acc
浏览 4提问于2010-09-09得票数 2
回答已采纳
1回答
我已经编写了一些vbscript，可以从另一个数据库的表中更新一个access数据库中的所有新字段，但是我在重复主键方面遇到了问题。
我不能更改数据库的结构，所以我不能删除主键，但是理想情况下，我希望它能够自动填充主键。这是我的表结构(它们是两个表)
表'Order'：
Order Sequence Number About 20 more rows of data that do not have to be unique
a primary key e.g 2 other data
表“OrderDetail”：
OrderDetail OrderSeq
浏览 2提问于2013-12-06得票数 8
回答已采纳
设置要通过Citrix打开的Access项目。但是，有一些VBA代码会阻止它工作：
Dim rs As ADODB.Recordset
Set rs = CurrentProject.Connection.Execute("Query")
.Connection位将突出显示。但是，当它不是通过Citrix打开(即仅在用户桌面上)时，这是有效的。
浏览 2提问于2009-07-03得票数 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
我在这里搜索了论坛，但我似乎不能让这段代码工作。
我正在尝试在Excel中打开一个工作簿，然后填充一些单元格(名为Ranges)。我可以成功地打开工作簿(工作簿有一些VBA，当它打开时也会运行，只格式化内容)，但是当我开始输入信息时，我得到了一个‘运行时错误’438‘对象不支持这个属性或方法。’
从之前对其他类似问题的回答来看，我已经按照建议的方式做了所有的事情，但是，我似乎无法让它工作。
Option Compare Database
Option Explicit
Public Sub MaterialInput()
Dim xlapp As Excel.Application
Dim
浏览 2提问于2017-06-16得票数 0
我有一个excel程序，可将数据写入Access数据库。在这个数据库中，我有一个宏，它在运行时将数据复制到另一个excel文件中。我想要编辑原始的excel程序，以便在它将数据写入Access数据库之后，它将自动运行宏。现在，我将其设置为将数据写入数据库，然后打开数据库，运行宏，然后关闭数据库-这似乎有点无效。下面是access数据库中的宏：
Sub copy()
Dim strTable As String
Dim strWorksheetPath As String
strWorksheetPath = "FilePath" & "test.xls
浏览 30提问于2016-08-03得票数 0
我正在尝试使用Access 2003连接到Oracle数据库。
我希望使用ODBC连接，并且希望对其进行设置，以便用户不需要输入密码。
我遇到的一个问题是，我的sql查询使用INTERFACE.Products，Access看到句点后会认为我正在尝试打开一个文件。IE Interface.MDB，当这是我sql查询的一部分时。
Option Compare Database
Function OracleConnect() As Boolean
Dim ws As Workspace
Dim db As Database
Dim LConnect As String
浏览 3提问于2009-03-12得票数 2
1回答
变量声明语法
、、、
基本上，我遵循规范在Access 2010中创建函数。这些函数在VBA中。在处理记录集时，规范中给定的声明是
Dim obj.Recordset As New ADODB.Recordset
然而，每当我尝试编写它时，我都会得到一个语法错误，所以我只需使用：
Dim Recordset As object
我不确定这是否意味着同样的事情，但它编译，似乎运行良好。基本上，我的问题是，给出的记录集声明是正确的，而且我的选择是可以接受的。同时，Access 2010用作用户前端，数据库存储在2008后端中。
浏览 3提问于2014-06-30得票数 0
回答已采纳
我不确定这是否会在我想要的细节中起作用。场景是文本框中填充了表中的数据，用户编辑记录并单击按钮进行保存。
Dim cdb As DAO.Database, rstEdit As DAO.Recordset
Set cdb = CurrentDb
DataValues = "SELECT * FROM Companies, Link_Table WHERE Companies.CompanyID = " & SelectedValue & ";"
Set rstEdit = CurrentDb.OpenRecordset(DataValues,
浏览 1提问于2013-12-07得票数 4
2回答
我正在尝试测量两次更新之间的持续时间。已经有一个跟踪“lastvalue”、“newvalue”和“updatetime”的表。我的方法是搜索满足条件的实体，并将相关的更新时间分配给变量，然后进行计算。然而，我的for循环不起作用，它们只执行一次。我刚接触access-vba，并且使用debug.prints来查看事物是如何变化的(它们是永久性的)。以下是我的代码，谢谢
Private Sub olcum()
Dim gs As Long
Dim db As Database
Dim rs As Recordset
Dim pt As Date
Dim ct As Date
Dim pc A
浏览 0提问于2019-01-27得票数 0
这个问题对我来说很好奇。
我在VBA中创建了以下函数
Public Function ContajeDeMaterialAUnaFecha(DFechaDeContaje As String, _
StrDescMatProveedor As String) As Single
Dim rst As DAO.Recordset
Dim rstResultado As DAO.Recordset
Dim strSQL As String
Dim sngUnidadesContadas As Single
Di
浏览 10提问于2020-02-04得票数 0
1回答
我在Access 2010中使用vba，我只是尝试将DAO记录集传递到子例程中。我这样做是为了不需要重复代码(可能有几百行)。我相信这很简单，但是每次我尝试一些东西，它都会冻结程序，我不得不重新启动Access并重新添加我的代码。下面是我尝试过的所有代码：
Sub WriteToForms(rs as RecordSet) ' When I press enter, that is when it freezes
Sub WriteToForms(ByVal rs as RecordSet) ' When I press enter, that is when it free
浏览 1提问于2015-02-03得票数 0
回答已采纳
运行Access 2016
我正在尝试从MS .mdb表中导入数据。(我的客户端使用的专有软件只识别*.mdb文件。)当表关闭时运行此代码时，会得到以下错误：
Run-Time Error 3061
Too few parameters - Expected 2
如果我在Access中打开表时运行代码，一半时间内，我会得到这个错误，而我得到的时间是：
Run-Time error '3008'
The table 'Daily_Logs_of_Flows' is already opened exclusively by
another user, or it
浏览 1提问于2016-07-12得票数 3
回答已采纳
在Access中，VBA是否存在以下区别：
Dim rs As Recordset
Dim rs As DAO.Recordset
浏览 0提问于2018-08-19得票数 4
回答已采纳
我有一个包含100列产品信息的access表(它是一个购买的系统，而不是我创建的系统)。我希望能够复制一行并将其作为一个新行插入，并更新3个字段。我在access DB上使用VBA。
我选择要复制的行(选择产品.*来自.)并将其放入DAO.Recordset中。这个很好用。然后，我想将这些数据作为一个新的行插入到表中，除了Product (键)和Product描述之外，还有所有相同的数据。
由于有100列，我试图避免输入所有列名并单独分配值。有什么方法可以从DAO.Recordset中插入，这样我就可以避免输入所有列了吗？如果没有，是否有另一种避免输入所有列和所有值的方法？这将为我节省一个非常
浏览 8提问于2017-04-02得票数 2
回答已采纳
我尝试将一个字符串值从一种形式传递到另一种形式。我的第一个表单是"frmLogin“，其中包含用户ID "strId”和密码"strPassword“(这只是一个常规的登录表单)。我试图打开并将字符串传递到的表单是"frmProfile1“。在frmProfile1中，Profile1用户将文档分配给在Access中存储为记录的Profile2用户。这些记录将包含分配文档的Profile1用户的ID，因此将strId的值从frmLogin传递给frmProfile1非常重要。 'Project:
'Form: Login Form (frmL
浏览 38提问于2019-10-04得票数 0
回答已采纳
通过在设计视图中打开查询、打开其属性表和将Recordset Type属性更改为以下三个值之一，我可以在Access (2002)中设置select查询的记录集类型：
DynasetDynaset (不一致Updates)Snapshot )
不过，我不知道如何通过VBA设置属性。我漏掉了什么明显的东西吗？
浏览 1提问于2011-01-13得票数 0
回答已采纳
我想将一个参数传递给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
回答已采纳
1回答
处理多值字段中的数据
、、、、
我有一张表，其中有一个包含多个值的字段，如下所示：
在表单中，我希望让用户在文本框中输入一个NCR_Num，然后使用VBA进行一些输入验证，然后将其添加到"text_Pool“中，如下所示：
此Text_Pool以NCR_Num作为控制源，因此如果从其中添加或删除了NCR编号，它将自动更新NCR_Num字段。
我不太清楚如何处理这个数据类型。在VBA中，我无法从Text_Pool获得值，因为我认为我需要将它视为数组或记录集。
下面是我尝试记录集尝试的一个例子，但显然我对我正在做的事情感到很困惑：
Public Function get_NCR_Num(SCAR_Num As
浏览 4提问于2016-04-12得票数 0
回答已采纳
从Word VBA访问Access RecordSet时，我无法阻止Access应用程序窗口显示。 我在Word中有VBA代码，可以从SQL创建Access RecordSet，操作RecordSet，然后关闭数据库。我使用了Application.ScreenUpdating = False并设置了Access数据库对象.Visible = False，但是当代码运行时，Access应用程序窗口会在屏幕上持续闪烁一段时间。 代码片段： Dim acc as Access.Application
Dim db as Database
Dim rst as Recordset
Applica
浏览 24提问于2019-01-06得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
云直播活动推荐
腾讯云开发者
