记录集帮助

问题描述

基本上我想使用记录集查询来突出显示并绕过任何不包含
的记录任何  数据 ，
我最初尝试这样做但它不喜欢在表单中设置的查询。我不确定的是如何将我的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）



    criterion =" [Counter-us] =" &安培; 1
$


    MySet.FindFirst标准

    [practice-s] = MySet！[练习 - 我们]

    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语句）

推荐答案

在你的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

这篇关于记录集帮助的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！