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

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

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

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

      這段代碼什么意思,請老師 幫我看下

      ylz 等級: 普通會員 積分:0 金幣:0 來自:茅臺Access交流中心 發表于:2012-08-20 11:54:21   已結帖
      樓主

      請問竹笛 老師:以下這 段代碼什么意思,我是新手才開始學,看不懂麻煩你幫我翻譯下, 我只想看懂這段代碼就夠了。 謝謝

      Private Sub csave_Click()
      On Error GoTo err_csave_click
      Dim i As Integer
      Dim stemp As String
      Dim rs As ADODB.Recordset
      Set rs = New ADODB.Recordset
      '為打開數據表“查詢語句”字符變量賦值
      stemp = "select * from goods"

      rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
          '判斷“類別”等文本框是否為空
          If IsNull(Me![gsort]) = True Then
             MsgBox "請選擇“類別”,它不可以為空!", vbOKOnly, "選擇“類別”"
             Me![gsort].SetFocus
             Exit Sub
          ElseIf IsNull(Me![gname]) = True Then
             MsgBox "請選擇“名稱”,它不可以為空!", vbOKOnly, "選擇“名稱”"
             Me![gname].SetFocus
             Exit Sub
          ElseIf IsNull(Me![gno]) = True Then
             MsgBox "請輸入“數量”,它不可以為空!", vbOKOnly, "輸入“數量”"
             Me![gno].SetFocus
             Exit Sub
          ElseIf IsNull(Me![gsum]) = True Then
             MsgBox "請輸入“入庫價格”,它不可以為空!", vbOKOnly, "輸入“入庫價格”"
             Me![gsum].SetFocus
             Exit Sub
          ElseIf IsNull(Me![sname]) = True Then
             MsgBox "請選擇“存放倉庫”,它不可以為空!", vbOKOnly, "選擇“存放倉庫”"
             Me![sname].SetFocus
             Exit Sub
          Else
          
          Dim vargid As Integer
          If rs.RecordCount > 0 Then
          rs.MoveFirst
          For i = 1 To rs.RecordCount
             If Me![gname] = rs("gname") Then
             vargid = rs("gid")
             Exit For
             Else
                rs.MoveNext
             End If
          Next i
          End If
         
          rs.close
          stemp = "select * from store"
          rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
         
          Dim varsid As Integer
          If rs.RecordCount > 0 Then
          rs.MoveFirst
          For i = 1 To rs.RecordCount
             If Me![sname] = rs("sname") Then
             varsid = rs("sid")
             Exit For
             Else
                rs.MoveNext
             End If
          Next i
          End If
         
             
          '保存資料至庫存表
          rs.close
          stemp = "select * from stock"
          rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
         
          Dim stemp1 As String
          Dim vargsum As Integer
          vargsum = Me![gsum]
          If rs.RecordCount < 1 Then
             stemp1 = "insert into stock"
             stemp1 = stemp1 & "(gid,gno,gsum,sid)"
             stemp1 = stemp1 & "values ('" & vargid & "','" & Me![gno] & "','" & Me![gsum] & "','" & varsid & "')"
             '使用docmd對象的runsql方法執行插入
             DoCmd.RunSQL stemp1
             MsgBox "打印入庫單!", vbOKOnly, "確定"
             DoCmd.OpenReport "入庫單", acViewPreview, , , acWindowNormal
          Else
          stemp1 = "aa"
          rs.MoveFirst
          For i = 1 To rs.RecordCount
             If vargid = rs("gid") Then
                If vargsum = rs("gsum") Then
                   If varsid = rs("sid") Then
                      rs("gno") = rs("gno") + Me![gno]
                      rs.Update
                      stemp1 = "bb"
                      Exit For
                   Else
                      rs.MoveNext
                   End If
                Else
                   rs.MoveNext
                End If
             Else
                rs.MoveNext
             End If
          Next i
         
         
         
         
          If stemp1 = "aa" Then
             stemp1 = "insert into stock"
             stemp1 = stemp1 & "(gid,gno,gsum,sid)"
             stemp1 = stemp1 & "values ('" & vargid & "','" & Me![gno] & "','" & Me![gsum] & "','" & varsid & "')"
             '使用docmd對象的runsql方法執行插入
             DoCmd.RunSQL stemp1
          End If
         

       

      access培訓  誠聘access開發人員

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

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

      網站工作人員微信

      學習者 等級:一星會員 積分:42 金幣:360 來自:深圳Access交流中心 發表于2012/8/20 14:53:12 最佳答案
      1樓 得分: 2
      我暈,這段代碼已經有部分解釋了,再者,這是一系列判斷條件,如果符合則怎么,條件嘛,自己設定的,這段代碼不難的。

          很高興與您就本帖子進行交流,如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,我也將獲得2個積分獎勵,并不會減少您的積分!
          學習者
            獲得社區協助:請教問題(即發帖)40篇,其中獲得解決的30篇;
            協助社區成員:協助他人(即回帖)123篇,其中被設為【最佳答案】的18篇;
            協助我們社區:發布技術文章9篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.www.beijingfeeling.com/sitehelp.asp)。
      總記錄:1篇  頁次:1/1 9 1 :
      您還沒有在Access軟件網登錄不能回復帖子
      • 你沒有登錄,請點擊后面鏈接登錄:登錄
      • 如果你沒有注冊,請點擊后面鏈接注冊:注冊,注冊完成后,請再次訪問本頁功能。
       
      湖北11选5