|
3#
楼主 |
发表于 2008-8-27 10:17:51
|
只看该作者
tmtony,我按您的建议试写了如下代码,但提示出错,烦请你帮我看看!
Private Sub 设备型号_AfterUpdate()
Dim CodeMax As String
Dim SeriesId As String
Dim NewCode As String
Dim NameId As String
Dim TypeId As String
CodeMax = DMax("[设备编号]", "设备基本信息", "[设备名称]=FORMS![新增设备]![设备名称]" And "[设备型号]=FORMS![新增设备]![设备型号]")
'获取同名同型设备的最大编号
SeriesId = Val(Right(CodeMax, 3)) '将其转换为数字
SeriesId = SeriesId + 1 '加上1
NewCode = Format(Forms![新增设备]![设备名称], "000") & Format(Forms![新增设备]![设备型号], "000") & Format(SeriesId, "000")
Me.设备编号 = NewCode
Me.设备编号.Requery
End Sub |
|