记录集帮助 [英] Recordset Help
问题描述
基本上我想使用记录集查询来突出显示并绕过任何不包含
的记录任何 <跨度ID =" x_x_itxthook0w0\" 风格=" float：none; right：auto; bottom：auto; border-style：none none solid; border-bottom-width：2px; border-bottom-color：transparent; background-color：transparent; display：inline; fo NT系列：继承;字体大小：继承; ！保证金：0像素重要;填充：0px！important">数据 ，
我最初尝试这样做但它不喜欢在表单中设置的查询。我不确定的是如何将我的SQL查询嵌入到记录集中因为它丢失了错误，这是我第一次尝试使用它，所以如果我的问题有点模糊，请致歉
。但这里是我正在研究的。还应该提到这需要是Access 2000兼容的问候
Private Sub preview_Click（）
Private Sub preview_Click()
On Error GoTo Err_preview_Click
count_valid_matters
Dim docname As String
Dim criteria As String，MyDb As Database，MySet As DAO.Recordset
设置MyDb = DBEngine.Workspaces（0）.Databases（0）
设置MySet = MyDb.OpenRecordset （" Parameters"，DB_OPEN_DYNASET）
&NBSP; criterion =" [Counter-us] =" &安培; 1
$
&NBSP; MySet.FindFirst标准
&NBSP; [practice-s] = MySet！[练习 - 我们]
&NBSP; MySet.close
On Error GoTo Err_preview_Click
count_valid_matters
Dim docname As String
Dim criterion As String, MyDb As Database, MySet As DAO.Recordset
Set MyDb = DBEngine.Workspaces(0).Databases(0)
Set MySet = MyDb.OpenRecordset("Parameters", DB_OPEN_DYNASET)
criterion = "[Counter-us] = " & 1
MySet.FindFirst criterion
[practice-s] = MySet![practice-us]
MySet.close
（这是我现在拥有的，这是我想嵌入Set MySet = MyDb.OpenRecordset的SQL语句）
推荐答案
您好CartwrightDS，
Hi CartwrightDS,
在你的select语句中用单引号替换所有双引号。
in your select statement replace all the double quotes with single quotes.
SELECT重要。[counter-mt]，[Client-ct]& ' '& [Surname-ct]& ' '& [Forenames-ct]& '：'&等等。
SELECT matters.[counter-mt], [Client-ct] & ' ' & [Surname-ct] & ' ' & [Forenames-ct] & ':' & etc. etc.
所以set语句看起来像这样
so the set statement will look like this
Set MySet = MyDb.OpenRecordset（" SELECT matters。[counter-mt] ]，[Client-ct]& ' '& [Surname-ct]& ' '& [Forenames-ct]&'：'& etc.等等。 ，DB_OPEN_DYNASET）
Set MySet = MyDb.OpenRecordset("SELECT matters.[counter-mt], [Client-ct] & ' ' & [Surname-ct] & ' ' & [Forenames-ct] & ':' & etc. etc.", DB_OPEN_DYNASET)
HTH Paolo
HTH Paolo
这篇关于记录集帮助的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
