- 帖子
- 1
- 主題
- 1
- 精華
- 0
- 積分
- 2
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- access2013
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2015-6-16
- 最後登錄
- 2015-6-30
|
最近買了一本新鑫資訊
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 |
|
發表於 2015-6-16 16:19
| 
