作者ychinglin (he)
看板Visual_Basic
標題[VBA ] 預設值為上一筆輸入資料的數值
時間Fri Feb 12 11:27:02 2010
目前要製作一個進銷存的輸入表單
在輸入入庫資料的時候
由於在一個驗收單下 會有不同的請購單號
(最多8個請購單號會共用一個驗收單號)
為了方便輸入
希望在keyin資料之前
他的預設值就是驗收單號的上一次輸入紀錄
(通常為最大的號碼)
以下的寫法 在執行的時候 卻完全沒效果
beforeinsert的時候 預設值為空白
請問有哪邊錯誤了？
Private Sub 驗收單號_BeforeInsert(Cancel As Integer)
If IsNull(Me![驗收單號]) Then
Dim str As String
strsql = "select max(驗收單號) as 最大號碼" & "from 3rd驗收入庫主檔"
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open strsql, CurrentProject.Connection
Dim maxid As String
maxid = rst.GetString
Me!驗收單號 = maxid
rst.Close
Set rst = Nothing
End If
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 125.232.68.23
1F：推 qsss:select 語法沒有打 from ? 02/12 12:34
※ 編輯: ychinglin 來自: 125.232.68.23 (02/12 13:35)
2F：推 qsss:from 前面沒有空白, 這樣組出來的 sql 語法是不正確的 02/12 13:43
3F：→ ychinglin:請問 所以應該是" from aaa" 這樣？ 02/12 13:46
4F：推 qsss:是的, 應該為"select max(驗收單號) from 3rd驗收入庫主檔" 02/12 18:22