返回列表 上一主題 發帖

[發問] 子表單自動更新項次

foes

帖子
1 
主題
1 
精華
0 
積分
2 
點名
0  
作業系統
win7 
軟體版本
access2013 
閱讀權限
10 
性別
男 
註冊時間
2015-6-16 
最後登錄
2015-6-30 
1# 跳轉到 » 正序看帖
打印
tT
發表於 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
收藏 分享

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題