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

    1. <mark id="os3gq"></mark>
    2. Access培訓
      網站公告
      ·Access快速平臺QQ群號:84825014    ·Access快速開發平臺下載地址及教程    ·歡迎添加微信交流賬號:AccessoftChu    ·如何快速搜索本站文章|示例|資料    
      您的位置: 首頁 > 技術文章 > Access開發平臺

      Access開發平臺--新增保存時出錯誤'-2147217887',索引為“有(無重復)”

      時 間:2020-04-06 10:00:01
      作 者:田田   ID:42231  城市:連云港
      摘 要:Access開發平臺--新增保存時出錯誤'-2147217887',索引為“有(無重復)”
      正 文:

      問   題:因為合同編號的不重復性,所以在編輯表時設置索引為“有(無重復)”,但是當在編輯窗體中輸入重復值進行保存時,會彈出一個錯誤提示框,

       

      并進入代碼調試界面。這種情況對于編程人員來說很正常,但對于使用人員來說就會手忙腳亂,不知所措。


      解決辦法:

      在不改變原有設置的情況下,為避免操作中斷,通過在保存按鈕代碼中加入對合同編號字段的校驗來糾正以上問題。

      即在如下代碼中加入紅色代碼部分:

      Private Sub btnSave_Click()

          On Error GoTo ErrorHandler

          If Not CheckRequired(Me) Then Exit Sub

          If Not CheckTextLength(Me) Then Exit Sub

        If  DCount("*", "tbl_采購合同(訂單)", "[tbl_采購合同(訂單)]![cghtid]<>'" & Me![cghtid] & "' And [tbl_采購合同(訂單)]![htbh]='" & Me![htbh] & "'") > 0 Then

             MsgBox "該合同(訂單)編號已存在,請重新編輯", vbInformation

             Exit Sub

          End If


          Dim cnn: Set cnn = CurrentProject.Connection  'ADO.Connection()

         'cnn.BeginTrans

         'Dim blnTransBegin As Boolean: blnTransBegin = True

          上述代碼[tbl_采購合同(訂單)]![cghtid]<>'" & Me![cghtid] & "'因為可以對已有記錄和新紀錄進行甄別,所以可以避免在對已有記錄進行編輯時,出現提醒對話框。不過此處不必非要用主鍵字段,也可用其他必填內容的字段作為甄別依據。


      效   果:

      當輸入編號重復時,點擊保存按鈕,則會彈出如下對話框

       

      且原來輸入的內容仍然存在,只需對編號進行修正即可。



      Access快速開發平臺QQ群 (群號:239158550)       access源碼網店

      最新評論 查看更多評論(0)

      發表評論您的評論將提升作者分享的動力!快來評論一下吧!

      用戶名:
      密 碼:
      內 容:
       

      常見問答

      技術分類

      相關資源

      最新帖子

      關于我們 | 服務條款 | 在線投稿 | 友情鏈接 | 網站統計 | 網站幫助