Office中国论坛/Access中国论坛

标题: [求助]我的ACCESS人事管理系统出问题了 [打印本页]

作者: c23777073 时间: 2006-9-21 00:01
标题: [求助]我的ACCESS人事管理系统出问题了
各位乡亲父老，兄弟姐妹，小弟在这里有礼了。

本人一向对ACCESS的代码不熟悉，可以说是一窍不通，也没学过代码怎么写怎么看，日前找了本书，照着做了一个人事管理系统，做完了一运行，结果可想而知，错在哪都不知道，

希望哪为好心朋友帮忙，帮我看看，我上传了那个我做好的“人事管理系统”，能帮我修改一下吗？

万分感激！

可以加我Q：23777073 。。。或者发我邮箱：panghost@tom.com。。。。

跟我联系！拜托，九千九百九十个拜托。。。[em04][em04][em04][em04][em04]

作者: c23777073 时间: 2006-9-21 00:05
[attach]20442[/attach]
不好意思！第一次发帖！再上传一次！

作者: andymark 时间: 2006-9-21 00:57
自已都不知错在那里,别人怎么帮忙,再且上传例子也没有表

先把代码编译一下,把具体问题贴出来

作者: c23777073 时间: 2006-9-21 01:21
我知道我的问题有点白痴！不过我根本就不懂代码这个东西！我发写错误的图片上来

作者: c23777073 时间: 2006-9-21 01:41
登录认识管理系统的窗口！点确定后！出现了下面这个图片！

[attach]20444[/attach]

双击添加新员工窗体，出现这个现象！

[attach]20445[/attach]

点确定后出现这个

[attach]20446[/attach]

点调试后出现这个

再此感谢斑竹热心支持

作者: c23777073 时间: 2006-9-21 01:51
Private Sub Form_Load()

Dim rs As New ADODB.Recordset

Dim str As String

Dim sn As Integer

str = "select counter.counter_value from [counter] where id='p' "

Set rs = getrs(str)

sn = Int(rs(0))

With Me

   .id = "p" & Right(Format(100000 + sn + 1), 5)             '重新设置初始值

   .password = Me.id

   .username = ""

   .gender = ""

   .departmentname = ""

   .job = ""

   .telephone = ""

   .telecommunication = ""

   .email = ""

   .remark = ""

End WithEnd Sub

作者: c23777073 时间: 2006-9-21 01:52
sn = Int(rs(0))

这个变成黄色的！可能就是错误吧！谁能告诉我？帮帮我？帮我改改！之类！[em04][em04][em04][em04]

作者: c23777073 时间: 2006-9-21 16:14
不要把我的帖子埋没啊！高手指点指点啊！很重要的求助啊！[em04][em04][em04][em04]

再次感谢！

作者: c23777073 时间: 2006-9-22 17:43
本来还以为这里有很多高手呢!

谢了!

楼主

我走了! [em01]

作者: windsmile2008 时间: 2009-5-7 23:47
看看

作者: bmcat 时间: 2009-6-1 17:01
先看看

作者: aa7560033 时间: 2009-6-1 18:42
下来看看能不能帮你解决问题

作者: mm2528 时间: 2009-8-15 15:35
期待……

作者: 028198 时间: 2009-10-21 11:39
你能编程，也让我佩服。

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