[求助]一個調用查詢的問題?

qpzm

我建立了一個有條件刪除查詢, 單獨打開查詢可行, 在表單按鈕單击事件中調用此查詢,
CurrentDb.Execute "查詢1"
出現:

請問是怎麼回事?

ADAM

這個沒什么,我知無不言,
其實dao我也不是很熟...,也還正在學習中...

qpzm

你們怎麼這么早上班, 我們是8:00上班, 我是特意向你請教這個問題來的, 原來要引用項目, 這個問題我以前從未涉足過, 真的要多謝你!

ADAM

你這么早就來了,
真是不得了,我們7:00上班,我比你早到..哈...
你那個要在VBA中設定引用項目....
VBA--->工具---->設定引用項目----->在"DAO3.6"前打勾
就可以用了
要引用DAO,先必須這樣做....

qpzm

ADAM兄早,我在我的事件中鍵入你的代碼, 它提示Database未定義, 但你給的可行, 我並未發現你在什麼地方定義Database, 不知怎麼回事？

[此贴子已经被作者于2003-10-11 8:11:30编辑过]

ADAM

試試看吧....

qpzm

ADAM兄的代碼暫時沒弄懂,可否修改我的例子再給我? 謝謝!

盗到稻

4.我的所有知識來源于幫助....,從沒習過書,
然后不停的寫..寫...寫....看....看...看.....

有同感！

ADAM

去掉yes對話框:
1.在工具--->選項---->查詢中設置
比如"動作查詢"要不要回應等....
...適應在本機上用
2.設置
docmd.SetWarnings false
命令...
docmd.SetWarnings true
適合不在本機上用,比較有用些....
3.不建立刪除查詢而查詢..
如下:
Private Sub 查詢_Click()
On Error Resume Next
Dim STR1 As String
Dim db As Database
Dim qdf As QueryDef

STR1 = 需要的sql語句....
Set db = CurrentDb
Set qdf = db.CreateQueryDef("查詢結果", STR1)
DoCmd.OpenQuery "查詢結果", acViewNormal, acReadOnly

ExitHere:
   On Error Resume Next
   qdf.Close
   db.QueryDefs.Delete "查詢結果"
   Set db = Nothing
   Exit Sub
   
End Sub
("成品倉管理系統"的查詢頁面中有詳細的例子)

4.我的所有知識來源于幫助....,從沒習過書,
然后不停的寫..寫...寫....看....看...看.....

qpzm

老兄真厉害，对代码了如指掌，请问从何种途径学的代码？真想跟你学学！
这个问题解决了，但删除时出现的对话框太多，能不能去掉Yes后的对话框？另外如果不建立删除查询，直接用代码删该怎么样做？