<output id="os3gq"><ruby id="os3gq"></ruby></output>

    1. <mark id="os3gq"></mark>
    2. Access交流中心

      北京 | 上海 | 天津 | 重慶 | 廣州 | 深圳 | 珠海 | 汕頭 | 佛山 | 中山 | 東莞 | 南京 | 蘇州 | 無錫 | 常州 | 南通 | 揚州 | 徐州 | 杭州 | 溫州 | 寧波 | 臺州 | 福州 | 廈門 | 泉州 | 龍巖 | 合肥 | 蕪湖 | 成都 | 遂寧 | 長沙 | 株洲 | 湘潭 | 武漢 | 南昌 | 濟南 | 青島 | 煙臺 | 濰坊 | 淄博 | 濟寧 | 太原 | 鄭州 | 石家莊 | 保定 | 唐山 | 西安 | 大連 | 沈陽 | 長春 | 昆明 | 蘭州 | 哈爾濱 | 佳木斯 | 南寧 | 桂林 | ???/a> | 貴陽 | 西寧 | 烏魯木齊 | 包頭 |

      回復 加入收藏帖  復制
      我要提問 帖子上移

      物品表中的物品編號被出庫表或入庫表使用后,此物品編號記錄中某些字段不能再更改

      落燈花棋未收 等級: 普通會員 積分:1 金幣:0 來自:臺州Access交流中心 發表于:2018-03-18 01:41:33   已結帖
      樓主

       If DCount("物品編號", "Tbl_入庫_Detail", "物品編號='" & 物品編號 & "' and 物品名稱 & 規格型號 & 材質 & 物品種類 & 物品類別 & 單位=  '" & Me.物品名稱 & "' & '" & Me.規格型號 & "'&'" & Me.材質 & "'&'" & Me.物品種類 & "'&'" & Me.物品類別 & "'&'" & Me.單位 & "'") = 0 Then
          MsgBox "此記錄已被入庫單使用,物品名稱、規格、材質、種類、類別、單位這6項不能更改!", vbCritical, "提示"
          Exit Sub
          End If

      這個能實現所使用的物品表中的記錄。其中物品名稱、規格、材質、種類、類別、單位這6項不能更改。其它的可以更改。

      但是沒被出入庫所使用的記錄都變成不能更改。如物品編號W00005和W00006的記錄沒被入庫所使用也不能更改。這是怎么回事。


      111


       

      access培訓  誠聘access開發人員

          落燈花棋未收
            獲得社區協助:請教問題(即發帖)31篇,其中獲得解決的25篇;
            協助社區成員:協助他人(即回帖)0篇,其中被設為【最佳答案】的3篇;
            協助我們社區:發布技術文章0篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      Top

      掃描下方工作人員的微信二維碼加微信,邀您加入Access課堂微信群,進入一個技術交際圈:

      網站工作人員微信

      123木頭人 等級:一星助教★ 積分:451 金幣:1146 來自:龍巖Access交流中心 發表于2018/3/19 15:56:43 
      1樓 得分: 0

      程序邏輯不對:


          If DCount("物品編號", "Tbl_入庫_Detail", "物品編號='" & 物品編號 & "' and 物品名稱 & 規格型號 & 材質 & 物品種類 & 物品類別 & 單位=  '" & Me.物品名稱 & "' & '" & Me.規格型號 & "'&'" & Me.材質 & "'&'" & Me.物品種類 & "'&'" & Me.物品類別 & "'&'" & Me.單位 & "'") = 0 Then  '這里應該要大于0
          MsgBox "此記錄已被入庫單使用,物品名稱、規格、材質、種類、類別、單位這6項不能更改!", vbCritical, "提示"
          Exit Sub
          End If


      數據改動的情況下用DCount基本上是等于0,所以報錯。

      話說回來,設計思路是對的,但是做法不對,改成大于0了,因為你用來做對比的數據是修改后的數據所以也不能實現你預期的效果,要實現你的設計思路:

      1、應該在窗體加載事件中把原有的數據存放在變量中,在保存時用你現的方法做對比。

      2、在窗體加載事件中先用DCount判斷是否已經使用,如果已經使用直接就禁止修改了。====>我個人習慣用這個方法



          希望我的回答能解決了您的問題,或者所附上的這些信息對您有所幫助!如有任何疑問或需要進一步幫助,請您直接在本站發貼,我們非常樂意幫助您解決問題!
          如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,以方便大家對那些正在等待解決的帖子給予關注!
          123木頭人  [協助社區成員回帖223篇,其中【最佳答案】68篇;發布技術文章28篇。]
          Access軟件網助教團隊 
          http://www.umvsoft.com
          如果您沒有注冊這個論壇,請單擊下面的鏈接進行注冊,與我在論壇進行交流:
          http://www.beijingfeeling.com/reg/reg.asp?userid=1455
          本貼子以“現狀”提供且沒有任何擔保,同時也沒有授予任何權利。
      落燈花棋未收 等級:普通會員 積分:1 金幣:0 來自:臺州Access交流中心 發表于2018/3/21 10:57:48 
      2樓 得分: 0

      謝謝123木頭人。

      問題已解決。這樣的解決方式是否有不妥之處??

      If DCount("*", "Tbl_入庫_Detail", "物品編號='" & Me.物品編號 & "'and not 物品名稱 & 規格型號 & 材質 & 物品種類 & 物品類別 & 單位=  '" & Me.物品名稱 & "' & '" & Me.規格型號 & "'&'" & Me.材質 & "'&'" & Me.物品種類 & "'&'" & Me.物品類別 & "'&'" & Me.單位 & "'") > 0 Then
          MsgBox "此記錄已被【入庫錄入】使用,物品名稱、規格、材質、種類、類別、單位這6項不能更改!", vbCritical, "提示"
          Exit Sub
          End If




          落燈花棋未收
            獲得社區協助:請教問題(即發帖)31篇,其中獲得解決的25篇;
            協助社區成員:協助他人(即回帖)0篇,其中被設為【最佳答案】的3篇;
            協助我們社區:發布技術文章0篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      123木頭人 等級:一星助教★ 積分:451 金幣:1146 來自:龍巖Access交流中心 發表于2018/3/21 11:38:04 最佳答案
      3樓 得分: 2
      要看放在那里,放在修改按鈕單擊事件中效果可能會比較好。


          希望我的回答能解決了您的問題,或者所附上的這些信息對您有所幫助!如有任何疑問或需要進一步幫助,請您直接在本站發貼,我們非常樂意幫助您解決問題!
          如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,以方便大家對那些正在等待解決的帖子給予關注!
          123木頭人  [協助社區成員回帖223篇,其中【最佳答案】68篇;發布技術文章28篇。]
          Access軟件網助教團隊 
          http://www.umvsoft.com
          如果您沒有注冊這個論壇,請單擊下面的鏈接進行注冊,與我在論壇進行交流:
          http://www.beijingfeeling.com/reg/reg.asp?userid=1455
          本貼子以“現狀”提供且沒有任何擔保,同時也沒有授予任何權利。
      落燈花棋未收 等級:普通會員 積分:1 金幣:0 來自:臺州Access交流中心 發表于2018/3/21 22:17:43 
      4樓 得分: 0
      謝謝123木頭人。


          落燈花棋未收
            獲得社區協助:請教問題(即發帖)31篇,其中獲得解決的25篇;
            協助社區成員:協助他人(即回帖)0篇,其中被設為【最佳答案】的3篇;
            協助我們社區:發布技術文章0篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      總記錄:4篇  頁次:1/1 9 1 :
      您還沒有在Access軟件網登錄不能回復帖子
      • 你沒有登錄,請點擊后面鏈接登錄:登錄
      • 如果你沒有注冊,請點擊后面鏈接注冊:注冊,注冊完成后,請再次訪問本頁功能。
       
      湖北11选5