请教,通过机构编号自动生成相应机构的人员编号的问题.

lvrongsheng · 发表于 2006-1-18 19:05:00

新手,对VBA编程不熟悉,参考一段书中的代码,想实现通过机构编号自动生成相应机构的人员编号(4位扫机构编号+三位数的顺序号),通过组合西式框选取机构编号后,人员编号文本框中直接得出人员编号,此段程序大致可以实现但是出错,请帮我看看.谢谢

一点通 · 发表于 2006-1-18 20:01:00

Private Sub 机构编号_AfterUpdate()
If Me.人员编号 > 0 Then '防止修改已存在的数据
MsgBox "人员编号已有数据，不能更改", , "请重新输入"
Else
If IsNull(DLookup("[机构编号]", "人员信息表", "[机构编号] = " & 机构编号)) Then  '查询是否有机构编号的数据
      Me.人员编号 = Me.机构编号 & "001" '如果没有，增加一个编号
Else  '如果已经有该机构的人员编号了，在原编号基础增加 1
      Me.人员编号 = Me.机构编号 & Format(Right(DMax("人员编号", "人员信息表", " 机构编号= " & 机构编号), 3) + 1, "000")
End If
End If
End Sub

lvrongsheng · 发表于 2006-1-18 20:38:00

谢谢,新年快乐

411700017 · 发表于 2006-4-7 21:51:00

谢谢

yttzm · 发表于 2006-4-12 04:05:00

不错，我正需要！谢谢

jpmxmq · 发表于 2006-4-14 03:15:00

我还是看一下

wood1610 · 发表于 2006-7-26 17:48:00

看一下到底怎么回事[em05]

ljt131 · 发表于 2006-11-26 20:13:00

不错挣需要这个呢

ljt131 · 发表于 2006-11-26 20:16:00

下载不料呀

ljt131 · 发表于 2006-11-26 20:18:00

再发一次,请见谅,三次才能下载.

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[与其它组件] 请教,通过机构编号自动生成相应机构的人员编号的问题.

本帖子中包含更多资源

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)