台灣最大程式設計社群網站
線上人數
783
 
會員總數:246734
討論主題:190151
歡迎您免費加入會員
討論區列表 >> ACCESS >> "當取消查詢時, 不能正常退出, 出示"執行階段錯誤"2001", 巨集指令OpenForm被取消了
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
"當取消查詢時, 不能正常退出, 出示"執行階段錯誤"2001", 巨集指令OpenForm被取消了
價值 : 30 QP  點閱數:80 回應數:0
樓主

ski
門外漢
0 12
142 14
發送站內信


Private Sub 繳付方式_change()
1001 Me![現付金額].Enabled = False
1002 Me![現付金額] = Me![費用]
1003 Me.[現付日期].Enabled = False
1004 Me.[未付金額].Enabled = False
1005 Me.[未付日期].Enabled = False
1006 Me.[未付日期] = 0

Select Case 繳付方式
Case "一次付清"
1007 Me![現付金額].Enabled = True
1008 Me![現付金額] = Me![費用]
1009 Me.[現付日期].Enabled = True
1010 Me.[未付金額].Enabled = False
1011 Me.[未付日期].Enabled = False
1012 Me.[未付日期] = ""

Case "預付"
1013 Me![現付金額].Enabled = True
1014 Me![現付金額] = 0
1015 Me.[現付日期].Enabled = True
1016 Me.[未付金額].Enabled = True
1017 Me.[未付日期].Enabled = True
1018 Me![未付金額] = (Me![費用] - Me![現付金額])
1019 Me.[未付日期] = [現付日期] + 7

Case "清付"
1020 Me![現付金額] = 0
1021 Me.[現付日期] = ""
1022 Me![未付金額] = 0
1023 DoCmd.OpenForm "收據編號查詢", acNormal, "", "", , acNormal

End Select
End Sub
----------------------------------------------
1023 DoCmd.OpenForm "收據編號查詢", acNormal, "", "", , acNormal "當取消查詢時, 不能正常退出, 出示"執行階段錯誤"2001", 巨集指令OpenForm被取消了",
請問各合老師, 應該如何解決? 謝謝!

目前尚無任何回覆
   

回覆
如要回應,請先登入.