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

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

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

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

      求限制A、B、C錄入個數方法

      小一 等級: 普通會員 積分:10 金幣:0 來自:臺州Access交流中心 發表于:2012-08-23 20:07:52   已結帖
      樓主

      如何使錄入窗體中的A、B、C、D個數根據預設需要而限制,比如A不能超過兩個,當選項中A超過兩個則提示并返回到原始狀態。截圖如下:

       

      點擊下載此附件

       

      access培訓  誠聘access開發人員

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

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

      網站工作人員微信

      在水一方 等級:版主★★★★★ 積分:531 金幣:2520 來自:沈陽Access交流中心 發表于2012/8/23 21:40:58 
      1樓 得分: 0
      dcount函數

          很高興與您就本帖子進行交流,如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,我也將獲得2個積分獎勵,并不會減少您的積分!
          AngelHis
            獲得社區協助:請教問題(即發帖)38篇,其中獲得解決的30篇;
            協助社區成員:協助他人(即回帖)541篇,其中被設為【最佳答案】的158篇;
            協助我們社區:發布技術文章63篇,邀請了3名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.www.beijingfeeling.com/sitehelp.asp)。
      葉海峰 等級:版主★★★★★ 積分:1531 金幣:4160 來自:廣州Access交流中心 發表于2012/8/24 0:07:33 最佳答案
      2樓 得分: 2

      Private Sub 保存_Click()
          Dim Rec As New ADODB.Recordset
          Dim ctl As Control
          Dim i

          For Each ctl In Me.Controls
          If ctl.ControlType = acComboBox Then
              If ctl.Name <> "姓名" And ctl = "A" Then i = i + 1
              If i > 2 Then GoTo Clear
              End If
          Next

          Rec.Open "SELECT * FROM 打分表 ", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
          Rec.AddNew
          With Rec
              !語言表達能力 = Me.語言表達能力
              !學科 = Me.學科
              !班級 = Me.班級
              !教師姓名 = Me.姓名
              !專業能力 = Me.專業能力
              !教學態度 = Me.教學態度
              !課堂秩序維持 = Me.課堂秩序維持
              !對學生負責態度 = Me.對學生負責態度
              .Update
          End With
          MsgBox "數據已保存", vbInformation, "提示"  '

      Clear:
          Me.專業能力 = Null
          Me.語言表達能力 = Null
          Me.教學態度 = Null
          Me.課堂秩序維持 = Null
          Me.對學生負責態度 = Null
          Me.姓名 = Null
          If i < 3 Then
              MsgBox "你輸入的數據已錄入系統"
              Me.姓名.Requery
              Else
              MsgBox "超出限制,請檢查!"
          End If
      End Sub



          很高興與您就本帖子進行交流,如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,我也將獲得2個積分獎勵,并不會減少您的積分!
          葉海峰
            獲得社區協助:請教問題(即發帖)2篇,其中獲得解決的2篇;
            協助社區成員:協助他人(即回帖)485篇,其中被設為【最佳答案】的207篇;
            協助我們社區:發布技術文章104篇,邀請了9名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.www.beijingfeeling.com/sitehelp.asp)。
      小一 等級:普通會員 積分:10 金幣:0 來自:臺州Access交流中心 發表于2012/8/24 8:05:47 
      3樓 得分: 0

      追問老師,A現能限制了,同時要限制B、C各為一個要加什么代碼呢?



          小一
            獲得社區協助:請教問題(即發帖)24篇,其中獲得解決的16篇;
            協助社區成員:協助他人(即回帖)0篇,其中被設為【最佳答案】的0篇;
            協助我們社區:發布技術文章0篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.www.beijingfeeling.com/sitehelp.asp)。
      瞿麗忠 等級:普通會員 積分:6 金幣:0 來自:閔行Access交流中心 發表于2012/8/24 8:52:47 
      4樓 得分: 0
        M = [專業能力] & [教學態度] & [課堂秩序維持] & [對學生負責態度] & [語言表達能力]
        If Len(Replace(M, "A", "")) < 3 Or Len(Replace(M, "B", "")) < 2 Then
         程序
        End If

          很高興與您就本帖子進行交流,如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,我也將獲得2個積分獎勵,并不會減少您的積分!
          瞿麗忠
            獲得社區協助:請教問題(即發帖)18篇,其中獲得解決的10篇;
            協助社區成員:協助他人(即回帖)104篇,其中被設為【最佳答案】的24篇;
            協助我們社區:發布技術文章0篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.www.beijingfeeling.com/sitehelp.asp)。
      心態哥 等級:一星會員 積分:69 金幣:600 來自:宜昌Access交流中心 發表于2012/8/24 10:41:03 
      5樓 得分: 0
      路過。

          很高興與您就本帖子進行交流,如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,我也將獲得2個積分獎勵,并不會減少您的積分!
          心態哥
            獲得社區協助:請教問題(即發帖)22篇,其中獲得解決的17篇;
            協助社區成員:協助他人(即回帖)171篇,其中被設為【最佳答案】的17篇;
            協助我們社區:發布技術文章15篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.www.beijingfeeling.com/sitehelp.asp)。
      小一 等級:普通會員 積分:10 金幣:0 來自:臺州Access交流中心 發表于2012/8/24 10:51:31 
      6樓 得分: 0

       請問瞿大哥下列代碼加那里:

       M = [專業能力] & [教學態度] & [課堂秩序維持] & [對學生負責態度] & [語言表達能力]
        If Len(Replace(M, "A", "")) < 3 Or Len(Replace(M, "B", "")) < 2 Then
         程序
        End If



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