2008-10-31 69 views

回答

10

注意:确认与Access 2003,不知道早期版本。

对于MDB中的查询,您可以右键单击查询设计器(表中空白处的任何位置),从上下文菜单中选择属性,然后在描述属性中输入文本。

您仅限于256个字符,但总比没有好。

您可以在描述得到编程像这样的东西:

Dim db As Database 
Dim qry As QueryDef 

Set db = Application.CurrentDb 
Set qry = db.QueryDefs("myQuery") 

Debug.Print qry.Properties("Description") 
+3

在我看来,就像代码评论。但是,我可以理解提出的答案。这是一种方式,但几乎没有人在阅读时期望的答案。 – 2015-10-13 15:27:45

12

无法向'普通'Access查询添加注释,即在mdb中的QueryDef,这就是为什么许多人建议在表中存储查询的SQL的原因。

+0

这不是事实。看到接受的答案。 – 2008-11-03 15:31:59

+23

这是通常意义上的评论吗?对我而言,这是一个自定义属性,而不是评论。 – Fionnuala 2008-11-03 19:27:04

+2

我会同意@Remou。尽管这是对整个查询进行“评论”的一种方式,但它并不是您通常想要的,也就是说,查询查询各部分的方式以及格式化布局(两者都不可能)。 – 2011-01-22 02:16:19

3

您可以添加评论的MSACCESS查询,如下所示:在查询中创建一个虚拟场。不优雅,但是自我记录并包含在查询中,这使得它更容易进入源代码控制!杰尔就是一个例子。进入SQL视图,并添加虚拟场(你可以从设计视图做太多):

SELECT "2011-01-21;JTR;Added FIELD02;;2011-01-20;JTR;Added qryHISTORY;;" as qryHISTORY, ...rest of query here... 

运行查询:

qryHISTORY       FIELD01 FIELD02 ... 
2011-01-21;JTR;Added FIELD02;;2011-01-20;JTR;Added qryHISTORY;;" 0000001 ABCDEF ... 

注意使用“;”作为qryHISTORY字段中的字段分隔符,以及“;;”作为评论的结尾,并使用ISO日期格式和intials,以及评论。已经在qryHISTORY字段中测试了多达646个字符。

+1

为了清晰起见,可以编辑它吗?我很难阅读/理解它。代码中的更多格式,间距等可能会有所帮助。 – 2015-02-07 00:19:43

+0

我不确定大多数安装都希望每个查询调用都返回历史记录,并且倾向于使用@ Dan的答案 – cmroanirgo 2015-02-12 08:32:11

4

我知道这个问题是很老了,但是我想补充几点,奇怪的省略:

  1. 在容器中,你可以用鼠标右键单击查询,然后单击属性,并填写与你的描述。您输入的文本也可以在设计视图中访问,在Descrption属性中。
  2. 也可以记录每个字段。只要确保属性窗口是打开的,然后单击想要文档的查询字段,然后填充说明(仅在太少已知的格式属性上方)

有点难过,没有产品(我知道)记录这些查询字段的描述和表达式。

2

第一个答案提到如何以编程方式获取description属性。如果您打算继续使用程序,因为查询中的注释非常糟糕,而不是试图将注释放在查询中,也许最好将它们放入程序并使用该程序进行所有查询

Dim dbs As DAO.Database 
Dim qry As DAO.QueryDef 

Set dbs = CurrentDb 
'put your comments wherever in your program makes the most sense 
dbs.QueryDefs("qryName").SQL = "SELECT whatever.fields FROM whatever_table;" 
DoCmd.OpenQuery "qryname" 
1

如果您有一个查询有很多标准,记住每个标准的作用可能会非常棘手。 我在原始表格中添加一个文本字段 - 将其称为“注释”或“文档”。 然后,我将它包含在查询中,并为每个条件提供评论。

评论需要像这样写,以便返回所有相关的行。 不幸的是,由于我是新的海报,我无法添加屏幕截图!

所以在这里不用

Field: | Comment    |ContractStatus  | ProblemDealtWith | ...... | 

Table: | ElecContracts  |ElecContracts  | ElecContracts | ...... | 

Sort: 

Show: 

Criteria | <> "all problems are | "objection" Or | 

     | picked up with this | "rejected" Or | 

     | criteria" OR Is Null | "rolled"  | 

     | OR "" 

<>告诉查询选择那些不等于您输入的文本行,否则只会拿起有文字等于您的评论即无场!

“”用引号括起来

您的意见或为空或“”告诉你的查询,包括那些在意见栏内没有任何数据行,否则它不会返回任何东西!

26

我决定在Where子句中添加一个条件,该条件始终评估为真,但允许编码人员查找您的评论。

Select 
    ... 
From 
    ... 
Where 
    .... 
    And "Comment: FYI, Access doesn't support normal comments!"<>"" 

最后一行结果始终为true,因此不会影响返回的数据,但可以让你离开的下一个家伙评论。

0

如果你想一般的注释添加到整体的对象(查询或表等)

访问2016 去导航窗格中,高亮对象,右键单击,选择对象/表属性,添加在说明窗口即库存记“表最后最后更新17年5月31日”

0

在查询设计:

  • 添加一列
  • 输入您的评论(引号)在外地
  • 取消选中显示
  • 排序在assending。

注:

如果不进行排序,本场将被接入去除。所以,请确保您没有选中显示并对列进行排序。