มีคนถามไว้ที่ 
http://www.access-programmers.co.uk/forums/showthread.php?s=&threadid=32811 
 
ดังนี้ 
 
I used the below to try & create a temporary query that will be routinely created  
& deleted whenever it is called. The below code is meant to create it & append  
a description to the query in case sometime in the future I forget what it’s  
purpose is. Problem is that I get an invalid use of property message on the  
fourth line. I’d appreciate any advice.   
 
Set db = CurrentDb  
Set qd = db.CreateQueryDef("qryEnterPayDetails", strSQL)  
db.QueryDefs("qryEnterPayDetails").Properties ("Test desc")  
DoCmd.OpenQuery "qryEnterPayDetails" 
 
__________________ 
thanks, 
Arage 
 
เขาต้องการที่จะใส่ข้อความในส่วนของ Description ของ Query ที่เขาสร้างขึ้นด้วยโค้ด ทำอย่างไร  
 
ผมตอบเขาให้ใช้ฟังก์ชันนี้ครับ 
 
Function CreateQueryDescrpt(strQuery As String, strDescrpt As String)  
Dim dbs As Database  
Dim qdf As QueryDef  
Dim prop As Property  
 
On Error GoTo Err_CreateQueryDescrpt  
 
Set dbs = CurrentDb  
 
Set qdf = dbs.QueryDefs(strQuery)  
 
With qdf  
For Each prop In .Properties  
' On Error Resume Next  
' Check if Description property already set, change it and exit  
If prop.Name = "Description" Then  
    .Properties("Description") = strDescrpt  
    Debug.Print "Already set"  
    Exit Function  
End If  
Next prop  
 
' If is not yet there, assign it  
Set prop = .CreateProperty("Description", dbText, strDescrpt)  
    .Properties.Append prop  
    .Properties.Refresh  
    Debug.Print "Newly set"  
 
End With  
 
Bye_CreateQueryDescrpt:  
Exit Function  
 
Err_CreateQueryDescrpt:  
Beep  
MsgBox Error$, 48  
Resume Bye_CreateQueryDescrpt  
 
End Function 
 
Description ของ Object ต่างใน Access เราสามารถที่จะคลิกเข้าไปใส่ข้อความด้วยมือก็ได้ครับ โดยคลิกที่สิ่งนั้น เช่น ตารางเป้าหมาย แล้วคลิกขวา>แล้ว Properites แล้วพิมพ์ข้อมความใน Description ลงไป *** Edited by Supap Chaiya *** 3/9/2546 21:51:46