Office中国论坛/Access中国论坛

标题: 帮看看根据两个控件自动编号的语句错在哪里？ [打印本页]

作者: fller00 时间: 2006-6-6 17:46
标题: 帮看看根据两个控件自动编号的语句错在哪里？
根据课程编码和年份两个控件自动编号，在课程内部排序，如企业管理的QYGL2006001 ，人力资源开发的RLKF2006001语句如下：

Private Sub 年份_AfterUpdate()
On Error GoTo Err_命令10_Click
MsgBox "Me.过度 = Me.培训安排窗体.培训安排表录入.课程编码 & Me.培训安排窗体.培训安排表录入.年份"
Dim strA As String
Dim intB As Integer

intB = Right(DMax("场次ID", "查询1"), 3)
Me.场次ID = Me.培训安排窗体.培训安排表录入.课程编码 & Me.培训安排窗体.培训安排表录入.年份 & Format(intB + 1, "000")
Exit Sub
Exit_命令10_Click:
intB = 0
Me.场次ID = Me.培训安排窗体.培训安排表录入.课程编码 & Me.培训安排窗体.培训安排表录入.年份 & Format(intB + 1, "000")
Exit Sub
Err_命令10_Click:
Resume Exit_命令10_Click
End Sub

烦请斑竹和各位高手路过指点一二

[attach]18308[/attach]

作者: fller00 时间: 2006-6-6 22:17
请一点通大侠还有别的高人帮忙看看啊

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)