![]() ![]() ![]() ![]() |
|||||
|
|||||
樓主 ski ![]()
![]() |
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被取消了", 請問各合老師, 應該如何解決? 謝謝!
搜尋相關Tags的文章:
[ "當取消查詢時 ] , [ 不能正常退出 ] , [ 出示"執行階段錯誤"2001" ] , [ 巨集指令OpenForm被取消了 ] ,
本篇文章發表於2022-05-18 17:23 |