[VBA ] 預設值為上一筆輸入資料的數值

看板Visual_Basic作者ychinglin (he)時間16年前 (2010/02/12 11:27)推噓3(3推 0噓 1→)

留言4則, 2人參與討論串1/1

目前要製作一個進銷存的輸入表單在輸入入庫資料的時候由於在一個驗收單下會有不同的請購單號 (最多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

推

qsss

02/12 12:34, , 1^F

02/12 12:34, 1^F

※ 編輯: ychinglin 來自: 125.232.68.23 (02/12 13:35)

推

qsss

02/12 13:43, , 2^F

02/12 13:43, 2^F

→

ychinglin

02/12 13:46, , 3^F