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

qpzm

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

請問是怎麼回事?

ADAM

這應該沒問題的啊
傳上來看看吧

qpzm

在表單Barcode_Out的刪除按鈕單击事件中調用查詢Del_Barcode_Out:

qpzm

ADAM

你直接用
DOCMD.OPENQuery ("Del_Barcode_Out")
不就可以嗎
為什么要用DAO

qpzm

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

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.我的所有知識來源于幫助....,從沒習過書,
然后不停的寫..寫...寫....看....看...看.....

盗到稻

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

有同感！

qpzm

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

ADAM

試試看吧....