作者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