標題: [發問] 子表單自動更新項次 [打印本頁]

---

作者: foes    時間: 2015-6-16 16:19     標題: 子表單自動更新項次

最近買了一本新鑫資訊
Access2013進銷存管理系統實作的書
學習建立資料庫
目前也建好應用再工作上

只是除了書中的那些基礎功能外,
也嘗試了自己新增一些工作需求的報表跟表單

以下內容是照書打的程式碼
目前想單純只是讓子表單自動更新項次
有嘗試自己修改,但是無法正常使用
請幫忙指點該如何修改,或者有相關資料連結可以爬文
感謝

-----------------------------------------------------------

Private Sub Form_BeforeUpdate(Cancel As Integer)

    '決定目前記錄是否為新記錄
    If Me.NewRecord Then
   
        '定義文字字串的變數
        Dim strSQL As String
        '輸入取得進貨單當日最大的進貨單號碼的查詢SQL語法
        strSQL = "SELECT MAX(Seq) AS Seq " & _
                 "FROM PurchaseDetails " & _
                 "WHERE PurchaseID = '" & Form_進貨單維護![PurchaseID] & "' "
        '定義資料集物件RecordSet的物件變數
        Dim rst As ADODB.Recordset
        '建立資料集物件RecordSet
        Set rst = New ADODB.Recordset
        '開啟資料集物件,以連接至Stock資料庫
        rst.Open strSQL, CurrentProject.Connection
        '定義最大項次的整數變數
        Dim MaxSeq As Integer
        '從資料集物件來取得查詢到的最大項次
        MaxSeq = Val(rst.GetString)
        '新的項次為最大項次加1
        Me![Seq] = MaxSeq + 1
        '關閉資料集物件Recordset
        rst.Close
        '釋放資料集物件Recordset所佔用的資源
        Set rst = Nothing
   
    End If
   
    '計算小計金額(=數量*單價)
    Me![SubTotal] = Me![Quantity] * Me![Price]

End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)