基于select查询access vba嵌套do while not .eof循环
是一种在Access数据库中使用VBA编程语言进行数据查询和循环处理的技术。下面是对这个问答内容的完善和全面的答案：
基于select查询access vba嵌套do while not .eof循环是一种在Access数据库中使用VBA编程语言进行数据查询和循环处理的技术。在这种技术中，我们使用SELECT语句从数据库中检索数据，并使用VBA中的DO WHILE循环来遍历查询结果。
具体的步骤如下：
- 使用SELECT语句查询数据库中的数据。SELECT语句是一种用于从数据库表中检索数据的SQL语句。例如，可以使用以下SELECT语句查询名为"customers"的表中的所有数据：
SELECT * FROM customers;
- 在VBA代码中使用ADO对象连接到数据库。ADO（ActiveX Data Objects）是一种用于访问数据库的COM组件。通过创建ADO连接对象，我们可以连接到数据库并执行SQL查询。
以下是一个连接到Access数据库并执行SELECT查询的示例代码：
Dim conn As Object
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\database.accdb"
Dim rs As Object
Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM customers", conn
- 使用DO WHILE循环遍历查询结果。在VBA中，我们可以使用DO WHILE循环来重复执行一段代码，直到满足退出条件。在这种情况下，我们使用rs.EOF属性来检查是否已经遍历完查询结果。
以下是一个使用DO WHILE循环遍历查询结果的示例代码：
Do While Not rs.EOF
' 处理当前记录 ' 例如，输出记录的某些字段值 Debug.Print rs.Fields("customer_name").Value ' 移动到下一条记录 rs.MoveNextLoop
在循环中，我们可以访问rs.Fields属性来获取当前记录的字段值。例如，rs.Fields("customer_name").Value表示当前记录的"customer_name"字段的值。
- 关闭连接和记录集。在处理完查询结果后，我们应该关闭连接和记录集，以释放资源。
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
基于select查询access vba嵌套do while not .eof循环的优势是可以灵活地查询和处理数据库中的数据。通过使用SELECT语句，我们可以根据特定的条件检索所需的数据。而使用VBA中的DO WHILE循环，我们可以对查询结果进行逐条处理，执行各种操作，例如输出、计算、更新等。
这种技术适用于需要在Access数据库中进行数据查询和处理的各种场景，例如生成报表、数据分析、数据清洗等。
腾讯云提供了一系列与数据库相关的产品和服务，例如云数据库SQL Server、云数据库MySQL等。这些产品可以帮助用户在云端轻松部署和管理数据库，并提供高可用性、可扩展性和安全性。您可以访问腾讯云的官方网站（https://cloud.tencent.com/）了解更多关于这些产品的详细信息和使用指南。
希望以上信息对您有所帮助！
相关·内容
我已经将MS Access前端链接到SQL Server (不知何故，我为这个决定感到遗憾)。现在我有一系列的过程，它们有一个复杂但相似的WHERE部分，但是SELECT DISTINCT不同，所以我想把它们组合成一个过程，比如
SELECT * FROM myTable1 INNER JOIN @tblFromFunc()
SELECT * FROM myTable2 INNER JOIN @tblFromFunc()
和一个预定义的表值函数@tblFromFunc，它只处理我的WHERE一次。希望有更好的性能和更容易的维护。
这在SQL Server上运行得很好，我甚至可以通过在vba中使
浏览 1提问于2018-01-05得票数 1
2回答
任何在这个问题上的帮助都是非常感谢的。
我试图通过选择从Access检索具有相同ID的多个值，并将其粘贴到Excel表中。我正在运行Excel的代码。
用于检索上述值的查询是：
SELECT Role
FROM Roles
WHERE App_ID=(SELECT ID FROM Apps WHERE NAME='app name');
它被分配给一个变量，然后使用Set variable = cn.Execute(variable)执行。问题是，此查询从Excel执行，只返回找到的第一个值。现在，如果我从Access运行此查询，它将返回指定应用程序的ID的每个值。
我试过
浏览 2提问于2014-11-13得票数 0
回答已采纳
如何将多行连接成一个字符串？它需要在执行时使用VBA / Access和SQL。
查询：
SELECT name FROM mytable;
结果：
kim
lee
park
cho
我只想：
kim,lee,park,cho
不可能?
浏览 12提问于2013-11-28得票数 0
1回答
我试图使用Outlook发电子邮件提醒某人每6个月(180天)更新他们的简历信息。
我有一个查询和一个表。
Duedate_7查询由员工信息组成，自上次更新以来已过了180天或更长时间。Access会发送电子邮件给这些员工。
突出显示表由员工ID (编号)、项目日期(日期)和项目内容(长文本)组成。
Option Compare Database
Option Explicit
Function Otomail()
Dim db As DAO.Database
Dim rs1 As DAO.Recordset
Dim emailTo As String
Dim emailSubject A
浏览 2提问于2021-03-24得票数 0
回答已采纳
1回答
我正在重新查看Excel中的一些旧代码，并试图将其转换为访问VBA。
该代码获取一系列数字(“零”)，并计算一个简单的加权平均值，权重为"Lambda“。此计算和此代码工作良好，并已被验证为正确。
Excel代码如下。
Option Explicit
Function EWMA(Zeros As Range, Lambda As Double, MarkDate As Date, MaturityDate As Date) As Double
Dim vZeros() As Variant
Dim Price1 As Double, Price2 As Doubl
浏览 0提问于2016-06-13得票数 0
回答已采纳
我试图使用VBA在access数据库中自动创建查询。目前，我有一个包含超过1000个条目的表，其中有四个列(id、name、姓氏和age)，我希望它能够自动地为"age“列中的每个数字创建查询。例如，如果在1000人的列表中，只有10人是40岁的，那么我希望它创建一个名为“Age40”的查询，只显示这10个人的姓名和姓氏，并对所有其他年龄层进行同样的操作。
新的访问vba，所以我不知道从哪里开始。
浏览 2提问于2022-11-30得票数 1
1回答
我使用的是Access 2013，有一个查询"qryMatchingStyle“和字段"FilePath”，其中包含要从中复制图像的文件路径列表。然后，我有一个表"tmpDestFolders“和字段"FlatFile”要将图像复制到其中。我调用模块中的以下函数来复制图像-然而，它只复制第一个图像，即使它们更多-这是为什么？是我的循环不正确，还是我需要把它放在一个类模块中？
Public Function CopyStyle()
Dim rst As ADODB.Recordset
Dim strSQL As String
Dim strEmail As St
浏览 2提问于2017-01-12得票数 1
回答已采纳
请您帮助从excel vba访问数据库查询。
我的算法如下：
打开与access数据库的连接
选择table1.column1、table1.column2、table1.column3，其中table1.column3.value =“x”和table1.column2.value =“y”
切换案例1:如果没有找到与access数据库中的标准匹配的记录
插入一些值等…
切换案例2:如果发现记录与access数据库中的条件匹配
不需要采取行动
切换案例3:如果记录发现与access数据库中的标准值不匹配
应该在excel vba中的datagridview中显示值。
不应允许插入值
请帮
浏览 1提问于2012-02-16得票数 0
1回答
我有两张桌子Table1和Table2。在Table1中，有一列名为FileID，在Table2中，有一列名为FileID。现在FileID不是唯一的，所以在两个表中都有FileID重复的某些行。我在Access中有一个表单，其中有来自Table1的名为GetDate的字段。我需要在vba中的一些东西，如果您对表单上的GetDate部件进行更改(来自Table1表)，那么它应该用Table2中的当前日期和时间更新列Date
我是用下面的方法做的。但它只用当前时间更新来自Table2的Date的第一条记录，而不是用FileID = 1更新第二条记录。在table2中，FileID = 1有两条记
浏览 0提问于2014-04-10得票数 2
非常新的访问VBA，并希望在这方面的一些指导。 我正在搜索一个字符串，并在此字段中查找特定的子字符串。此子字符串将具有基于另一个表的值，即 order =“参考订单QQ131415” 问题是，订单号没有特定的模式。有些是7位数，有些是10位，还有一些是破折号。 我也可以访问一个表，其中包含这些订单号，我猜我正在尝试将该表用作字典。 我非常基本的Access VBA代码如下所示 ‘order=实例(1，rst，qst，vbBinaryCompare)’ order_id是一个字符串，其中我有我试图提取的订单id，order是从一个单独的表中提取的实际id。 这是Access VBA可以处理的吗
浏览 24提问于2019-10-17得票数 0
2回答
我有一些从复制和修改的代码
代码可以工作，但问题是，当它运行时，它会在数据库中创建一个查询，然后在最后删除该查询。如果代码中途中断，则此查询仍在数据库中。因此，当代码再次运行时，它会给出一条错误消息，表示它无法创建查询，因为它已经存在。
在数据库中创建的查询名为"Select * from SalesData“
目标是我有一个名为"SalesData“的查询，其中包括一些国家的销售信息。我希望将每个国家的所有数据导出到一个循环中的Excel文件中，而不需要创建任何其他访问对象。是否可以在不创建临时对象的情况下过滤VBA中的现有查询？
有人能建议对下面的代码进行任何修改以实现这一
浏览 0提问于2020-05-31得票数 0
回答已采纳
我的VBA相当生疏，我似乎一片空白。如果重要的话，我正在使用MS Access 2010。
我有一个查询的结果，它返回两个字段(Field1是文本，Field2是双精度)和五个记录，我想根据Field1中的内容将Field2值分配给五个不同的变量。对我来说，这是某种case语句--我该如何在VBA中对记录集执行此操作？
Private Sub test()
Dim myRS As DAO.Recordset
Dim db As Database
Dim strSQL As String
Dim v1, v2, v3, v4, v5 As Double
' P
浏览 0提问于2013-02-20得票数 4
我用Excel/VBA写了一个发票工具。
当我试图运行下面的代码(在Excel中)时，我得到了一个错误描述，我不知道为什么？
错误中介:被调用的对象已与其客户端断开连接。
UsfOKNAR01.txtfakt4. invoice是一个组合框，我从其中获取发票的ID。
-从Access数据库运行查询的VBA代码。
Public Sub faktury2()
SQL = ""
SQL = Array("SELECT * FROM [pokaz_Raty] WHERE ID = " & usfOKNAR01.txtfakt4.Value & "
浏览 1提问于2015-09-27得票数 0
回答已采纳
1回答
我无法通过打开Ms Access查询来获取记录的计数，我使用以下代码。
Private Sub CmdGetData_Click()
Dim WRK As Workspace
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim StrSql As String
Set WRK = DBEngine.Workspaces(0)
Set db = CurrentDb
StrSql = "select * from [QrySalePatti]"
Set rs = db.OpenRecordset(StrSql, dbOpenDy
浏览 1提问于2014-01-23得票数 1
2回答
我有一张这样的桌子：
title part desc
Blah This 1 This begins the
Blah This 2 example table.
Some Record 1 Hello
Another 1 This text extends a bit
Another
浏览 0提问于2013-03-26得票数 8
回答已采纳
好吧..。我是一个n00b，我知道。这是非常向前的。
基本上这就是我一直在写的代码。
rstSwift.MoveFirst
Do While Not rstSwift.EOF
If Left(rstSwift!Date, 2) & Mid(rstSwift!Date, 4, 2) & Right(rstSwift!Date, 4) = fromdate Then
INSERTFUNCTIONHERE
Else
End If
rstSwift.MoveNext
Loop
我最近问了一个关于SQL的问题，看起来它确实有很多解决我的问题
浏览 4提问于2011-11-30得票数 1
回答已采纳
我正在运行下面的代码来运行sql并在消息框中显示产品。这可以很好地工作。我的问题是，如果我想同时显示所有产品，这样我就可以复制或导出结果，就像我运行Access查询一样，它会给我所有显示的产品。我能在这里做些什么？我是否需要重写整个查询，或者只需将for循环和msgbox更改为其他值？
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Dim rcnt As Integer
Set rs = db.OpenRecordset("SELECT jd.Product FROM Consumption_JobD
浏览 0提问于2020-12-23得票数 0
我正在尝试运行一个追加查询，以根据sql语句中参数的前30条记录更新表。所有数据都驻留在Access 2010数据库中，我想通过表单上的一个按钮来运行查询。
我是vba的新手，并根据帖子汇编了以下代码。
Option Compare Database
Private Sub Command3_Click()
Dim sql As String
Dim i As Integer
Dim j As Integer
Dim rst As DAO.Recordset
Dim dbs As DAO.Database
Dim strTerritory As String
Set dbs = Curre
浏览 2提问于2013-08-14得票数 0
关于ADODB记录集的快速问题。我想从记录集中提取一个查询结果，并将其设置为一个字符串变量：
query = "SELECT Value1 FROM Table"
RS = New ADODB.Recordset
RS.Open(query,Conn)
查询总是会返回3个值。我希望take将这三个值赋给一个变量。RS.GetString返回以制表符分隔的查询结果，但是我希望能够遍历这个集合，并将每一行结果赋给它自己的变量。有什么想法吗？提前感谢！
浏览 0提问于2015-10-16得票数 1
回答已采纳
我正在尝试使用VBA从excel运行存储的MS-access查询。我已经创建了一个通用函数来执行此任务(使用ADODB)。无论有没有参数，我都可以得到结果。
但是，当我尝试运行一个引用Access vba模块的存储查询时，excel会报告一个运行时错误"undefined function MissCat“(这是存储查询使用的自定义函数的名称)。
我原以为这是可行的，因为access知道函数的定义，但现在我感觉ADODB接口正试图在没有我在access中创建的VBA模块的帮助下，在存储的查询中插入SQL。
我正在跳过这些障碍，因为我的大多数用户在他们的机器上都没有安装访问。
我是否可以
浏览 1提问于2011-09-22得票数 1
回答已采纳
2回答
我在VBA Access中有以下几行，但是我收到FindFirst的语法错误，我不明白为什么。
criteria = "[HolidayDate] = " & "#" & myDate & "#"
rst.FindFirst (criteria)
If rst.NoMatch Then
count = count + 1
End If
浏览 3提问于2020-01-08得票数 0
1回答
VBA:循环不能正常工作
、、、、
作为新来的人，我不知道我是否能清楚地表达我的问题，但我会尝试。
我有这个VBA代码，它从access数据库中提取某些信息到一个excel表中，与另一个excel表相关。作为vba编程的新手，我不知道我使用的方法有多好或多正确。
我的问题是，只有当'fam‘等于列中的'z’值时，循环才会起作用。因此，更详细地说，工作表"gbe...“中的D列包含来自B列的数字的前两个值，当我从键盘输入一个存储在' fam‘中的值时，代码应该在整个列中搜索该值，然后继续从数据库中提取我所要求的数据，但是当fam <> z时循环不会停止。
我希望你能帮助我，我所学到的关于
浏览 1提问于2013-08-08得票数 1
1回答
我有一个查询表，其中显示了"FirstName“、"LastName”、"DueDate“。我想做的是创建一个后续流程。如果日期是今天(date())，access需要向一个常规电子邮件地址发送通知电子邮件。 我的代码只适用于查询中的第一条记录，而不适用于其他记录。 下面是我使用的代码； Public Sub FollowUpEmail()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim oApp As Object
Dim oEmail As Object
Set oApp = CreateObject(&
浏览 29提问于2019-02-19得票数 1
回答已采纳
我正在写一个需要从文件中读取大量数据的程序，我遇到了一点进退两难的境地(作为一个相对缺乏经验的程序员)。如果一个while循环包含在另一个while循环中，那么需要满足哪些条件才能离开该循环？我的具体情况如下所示(emptyLineFound是一个布尔值，当发现空行时设置为true )
while(!file.eof()) {
....
while(!emptyLineFound) {
....
}
}
哪种情况优先？他们都必须满足于离开那段代码吗？例如，如果它在文件的末尾，因为没有行，所以找不到空行，会不会弄乱？
浏览 7提问于2013-05-02得票数 1
我使用MS Access vba作为界面，SQL server作为数据库服务器。
我想更新表CANDIDAT_TESTS中的一组行。我现在所做的是一个接一个地更新，我使用for循环进行循环；它可以工作，但它需要太多时间。
我想通过在一个查询中循环来减少查询的数量。
我的代码：
This is the entire code
‘’varSession = "2020“设置cnx = getConnectionBD(varSession)
rsSCE.Open "SELECT DISTINCT LIBELLE_DEPARTEMENT, LIBELLE_SOUS_CENTRE, NU
浏览 0提问于2020-05-30得票数 0
2回答
我有一个小型访问程序，它从查询("qryImagesToRename")中查找文件名，遍历循环并重命名它们。但是，如果具有相同名称的图像已经存在，则Access要将其重命名为
错误58 -文件已经存在
如何忽略此错误并继续循环？这是我的代码：
Private Sub Command10_Click()
On Error GoTo Command10_Click_Error
Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim strSQL As String
DoCmd.Hourglass True
Set db
浏览 3提问于2017-12-22得票数 0
回答已采纳
我希望用户能够使用组合框提供他们在GUI中创建的查询，然后将该查询加载到记录集中以对其进行进一步处理。如果查询包含用户定义的函数或基于窗体的参数，则此操作将失败。
我的代码如下所示：
Private Sub cmbSelectionColumn_AfterUpdate()
Dim r As DAO.Recordset
Set r = CurrentDb.OpenRecordset("SELECT DISTINCT " & EscapeSQLIdentifier(Me.cmbSelectionColumn.Value) & " FROM &
浏览 11提问于2021-03-01得票数 0
1回答
我使用VBA来迭代一个记录集，当我使用RecordCount特性时，它返回8(这是准确的)--但是当我在每次传递时使用Debug.Print输出变量时，只处理前3个变量。
为什么这个语法会停止呢？
Set rs = Db.OpenRecordset("Select statement here)", dbOpenDynaset)
Debug.Print rs.RecordCount
'This prints 8
With rs
If Not .EOF And Not .BOF Then
.MoveLast
.MoveFirst
Do
浏览 6提问于2017-11-03得票数 0
回答已采纳
2回答
我有一个带有附件字段的本地表。我尝试过用vba和手动删除，但之前的附件总是出现。在vba中，我已经尝试过使用记录集和SQL。SQL
Let strSQL = "DELETE tblSpecsPics.PicID,tblSpecsPics.SpecID,tblSpecsPics.SpecDetailID,tblSpecsPics.PicNum,tblSpecsPics.Pic.FileData,tblSpecsPics.Pic.FileName,tblSpecsPics.Pic.FileType,tblSpecsPics.ImageDesc FROM tblSpecsPics;"
浏览 0提问于2017-02-15得票数 0
目前我有两个数据集。一个有一组作业所需的所有文档；另一个有存在的文档。我需要缺少的需求，也就是说，来自第一个数据集的文档不是在第二个数据集中。(底层SQL数据结构中的问题防止只查询丢失的文档而不使用过慢的子查询)。
我试图从所需的文档数据集中删除文档，因此它只包含缺少的内容。
try
with cdsAllDocs do begin
while not eof do begin
cdsFilter(cdsRequiredDocs, 'JobID = ' + fieldByName('JobID').AsString + ' AND
浏览 0提问于2018-08-21得票数 1
2回答
我对VBA很陌生。我试着计算向量的中值。下面的代码不断收到关于“阻止如果没有结束if”的警告。我试图更改"End IF“的位置，但是它导致了另一个警告"Block如果没有if”。您的意见将不胜感激。谢谢。
Sub CalculateMedian()
DoCmd.SetWarnings False
Dim db As DAO.Database
Dim onet As DAO.Recordset
Dim Ocode As String
Dim ag As DAO.Recordset
Dim agMedian As Integer
浏览 3提问于2013-08-16得票数 1
回答已采纳
我正在努力做到以下几点：
使用VBA循环遍历一张桌子，并使用以下三个参数分配坐在餐桌上的人：
1)个人的优先权得分。
( 2)个人对要坐在哪张桌子上的喜好。
3)桌子的座位容量。
理想情况下，VBA应该从优先级1组的第一条记录开始，分配尽可能多的人在Table1中，然后继续根据他们的喜好分配优先级1的个人，同时检查他们的首选表是否有容量。
在为所有优先级1个人分配了一个表(给定表对象中的'Table_Assignment‘值)之后，VBA移动到优先级2个人，依此类推。
在我的数据库中，我有以下表(名为‘tbl_Assignments’的表对象)：
RecordID | Table_As
浏览 4提问于2014-11-08得票数 2
回答已采纳
1回答
我试图通过一个按钮运行这段代码，这是我第一次使用VBA，我不知道为什么会出现这个错误：
运行时错误“3021”：没有当前记录。
在这一行代码中：
ConsumerID_1 = rs!CONSUMER_ID
记录集有26k条记录，当我第一次单击它工作的按钮时，在重新单击错误时会出现。
这是我的代码：
Private Sub Command23_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("tbl_30days_NoDefaults", dbOpenDynaset)
'1. Start
浏览 0提问于2018-08-28得票数 0
回答已采纳
我想把一些VBA代码放在access中，以便同时发送一堆电子邮件。这些电子邮件每个都有多个附件和多个收件人。
我有一个访问表，其中的主键是一个“电子邮件报告名称”的列表，每列包含一个电子邮件地址，这个电子邮件报告去。
在另一个表中，我也有“电子邮件报告名称”，每一列都是要附加到该电子邮件的文件硬盘上的文件路径。
我还有两个查询，它们调用这些表，并通过电子邮件报告名称进行筛选，后者通过自定义函数填充到条件字段中。
我已经让outlook编码可以很好地从Access发送电子邮件。但我完全不知道如何让它循环通过不同的“电子邮件报告名称”，然后从这些查询中提取相关信息，以填写收件人名单和附件列表。
很
浏览 4提问于2012-08-27得票数 1
回答已采纳
我试图：
使用VBA在Access DB上运行select查询(这部分很简单)，用查询的结果填充字符串(一个字段，但n个结果)，每个结果用回车分隔。
这将是一个订单编号的列表，例如：
1234567
2345678
3456789
9876543
etc
然后我打开一个网站，等待它加载，然后‘粘贴’在字符串的结果。然后按一个搜索按钮(我实际上有这个部分在工作)。
我无法理解的是如何将SQL查询的结果转换为字符串。现在，我有一个变体，我不能使用我的网站粘贴，它不会转换为一个字符串使用Cstr。
Dim IE As Object
Dim OrderNos As DAO.Recordset
Dim
浏览 3提问于2014-02-01得票数 2
回答已采纳
我的代码读取.csv文件(逗号分隔的文件)的行，并将每个值分配给局部变量。在完成了一些逻辑并将值存储在表中之后，我在.csv文件的下一行中读取并重复这个过程。我的问题是，与循环相比，objRecordset.MoveNext在做什么。下面是我的代码，其中一些代码已被删除，用于关注循环和objrecordset.MoveNext。
objconnection.Open 'connection string'
objRecordset.Open "SELECT * FROM [" & ThisFileName & "]", objco
浏览 1提问于2014-08-05得票数 0
回答已采纳
我有一个访问查询，其中包含订单数量和重新订购频率，例如：
+-------+---------------------------+---------------------------+
|Product| Order Qty (pallets) | Order Interval (wks) |
+-------+---------------------------+---------------------------+
| 1234 | 2.5 | 7 |
+------
浏览 2提问于2022-07-02得票数 0
回答已采纳
我正在尝试将一些旧的Access VBA代码重写到Python，但我坚持了以下错误：NameError: name 'ERTZ6635‘是未定义的
旧VBA码
Set ConsTable = DB.OpenRecordset("SELECT * FROM table1")
ConsCount = 87404
If ConsCount > 0 Then
ConsTable.MoveFirst
For I = 1 To ConsCount
Set ConsBlendTable = DB.OpenRecordset("SELE
浏览 5提问于2021-01-21得票数 1
回答已采纳
我需要在excel vba中从一个access表字段创建一个数组。该表有4个字段，但我需要创建一个仅包含字段2中的数据的数组。我连接access，然后使用以下代码填充该数组： Array1 = Array(Rs.Fields(1).Value) 但是Array1只从字段2加载了1项，我不知道如何才能使循环加载所有数据。
浏览 35提问于2020-06-20得票数 1
回答已采纳
3回答
我正在编写一个宏来将access表中的零转换为"0000“
零是文本数据类型，所以我在if条件中将其强制转换为int，以更新仅为零的记录，并防止其在更新非零的记录时发生
但是现在所有记录都在更新，即使在特定行中有值2，..if子句也会一直调用
请帮帮忙
Dim db As Database
Dim rst As Recordset
Dim strData As String
Set db = CurrentDb()
Dim qryString As String
qryString = "SELECT * FROM tblECodes "
Set rst = db.
浏览 0提问于2009-08-06得票数 0
1回答
CDO电子邮件自动化
、、、、
我有一个MS Access 2010 db，我想发送电子邮件自动。我已经设置了查询，但是我要继续使用CDO。它们的查询名为“qryEmails”，包含以下4个字段：
ReturnCode, SalesOrderNumber, Name, EmailAddress
我怎样才能进入：
循环遍历每条记录并向列出的每个电子邮件地址发送一封电子邮件
在每封电子邮件中，都有一条包含对前三个字段的引用的消息，因此每条消息看起来都是个性化的。
有一个动态主题，因此每个主题中都有ReturnCode字段
一开始，我一直在尝试一小步，到目前为止，我收到了100多封到同一个地址的电子邮件。这是我
浏览 4提问于2013-12-16得票数 0
在VBS/VBA中是否有退出/中断while的方法？
以下代码不会按预期工作：
num = 0
while (num < 10)
if (status = "Fail") then
exit while
end if
num = num+1
wend
浏览 1提问于2009-08-13得票数 30
2回答
我有一个包含3个字段的表：DONOR_CONTACT_ID, RECIPIENT_CONTACT_ID，ORDER_NUMBER。我想像我对查询Q_RECIPIENT_SORT所做的那样，对DONOR_CONTACT_ID进行升序排序。然后，我想使用临时变量来检查这些记录是否具有相同的DONOR_CONTACT_ID，如果有，则显示一条消息(大多数记录具有相同的DONOR_CONTACT_ID)。我的程序做了它应该做的所有事情，但在结束时，它总是得到一个错误，说“没有当前记录”。下面是我的代码：
Option Compare Database
Option Explicit
Functio
浏览 0提问于2013-07-11得票数 2
回答已采纳
2回答
MS访问直通查询更新
、、、、
我正在尝试使用MS访问无法控制的ODBC服务器对传递查询进行更新。我必须使用通道的原因是，我正在访问的记录有超过255个字段(如果可以的话，我会使用一个链接表)。
我一直在使用这个资源来获得数据，使用传递()
查询的简单方式是：SELECT FullName, PointNumber FROM DNP3.CDNP3AnalogIn
ODBC是：ODBC;DSN=SCX6_DB;LOCATION=Main;UID=admin;PWD=password;LOCALTIME=False;
现在，在Access数据库中，我有一个字段(FullName，PointNumber)的同名表(SCADA DB
浏览 4提问于2014-01-28得票数 1
回答已采纳
我对vba非常陌生(就像今天早上一样)，所以这很可能是一个愚蠢的错误。我正在构建一个宏，它使用ADODB从数据库中提取信息，并使用该信息自动填充附加表单。我的基本设置如下：
Private Sub BuildButton_Click()
'Declare Variables'
Dim con
'Connect to the Database'
Set con = CreateObject("ADODB.Connection")
With con
.ConnectionString = "DRIVER=SQLServer;SER
浏览 1提问于2014-12-16得票数 0
回答已采纳
1回答
我已经添加了VBA代码(如下所示)来遍历Access查询的结果。此代码的目的是计算500在特定列中出现的次数。一旦达到500，它就会抓紧时间，并增加30分钟。客户不希望在30分钟的窗口中再次计算任何500。
直到最后一次是在晚上11:30之后，它都工作得很好在晚上11:30之后，"MyEnd“变量被设置为第二天的上午时间。它退出循环，然后对下一个500进行计数；这会使我的实际计数从1开始。
我可以从计数中减去1，但我不知道这是否总是正确的。它们可能是多个500，而且计数也会减少。
我试图确定如何处理代码在晚上11:30后发现500的最后2次
任何建议都将不胜感激。谢谢你的帮助……
Di
浏览 0提问于2021-03-24得票数 1
基本上，我想根据我在VBA中的查询从access中提取一列。我的示例代码如下，没有发现错误，但唯一有效的是它只是打开excel文件，从access中的数据应该被复制。 'Set db = OpenDatabase("\\location\names.mdb")
Set rs = db.OpenRecordset("select first_name from customerinfo " _
& "where datehired between #" & (DTPicker1) & "# and #&#
浏览 25提问于2019-02-28得票数 0
回答已采纳
我有一个外接程序，是用VBA在Word中写的，太旧了。我想它可以追溯到1997年。目前，VBA代码将连接到Access 2003数据库并查询一个表，然后返回一个数据记录集，并根据该表查询生成一个供应商列表。 下面是使用DAO方法的代码。现在的问题是，我们正在接收的具有Windows10的较新的计算机没有DAO方法所使用的较旧的库。(加上DAO本身就是旧的和过时的)。 Public strData() As String
Sub GetData(strTable As String)
Dim dbf As DAO.Database
Dim rst As DAO.Recordset
Dim C
浏览 23提问于2021-06-18得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
