取不同类型的最大值

青天　发表于：2017-09-23 13:37:13 　

在新增窗体中选择不同类型后,酒水ID自动为该类型的最大值. 我写的类型的更新后事件为:

Private Sub 类型_AfterUpdate()
Dim strjsmax As String
Dim i As Long
strjsmax = DMax("酒水id", "select * from 酒水资料 where 类型 ='" & Me.类型 & "' ")
i = Val(Mid(strjsmax, 3)) + 1
Me.酒水ID = Left(strjsmax, 2) & Format(i, "000")
End Sub

红色部分执行不下去.

Top

qq1985178585 发表于：2017-09-23 15:03:39

问题解决了:

http://accessoft.com/article-show.asp?id=7734

参照这个例子:

Private Sub 类型_AfterUpdate()
Dim strjsmax As String
Dim i As Long
strjsmax = DMax("酒水id", "酒水资料", "类型 ='" & Me.类型 & "' ")
i = Val(Mid(strjsmax, 3)) + 1
Me.酒水ID = Left(strjsmax, 2) & Format(i, "000")
End Sub

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

取不同类型的最大值