[求助]我的ACCESS人事管理系统出问题了

c23777073

各位乡亲父老，兄弟姐妹，小弟在这里有礼了。

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

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

万分感激！

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

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

c23777073

不好意思！第一次发帖！再上传一次！

andymark

自已都不知错在那里,别人怎么帮忙,再且上传例子也没有表

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

c23777073

我知道我的问题有点白痴！不过我根本就不懂代码这个东西！我发写错误的图片上来

c23777073

登录认识管理系统的窗口！点确定后！出现了下面这个图片！




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




点确定后出现这个




点调试后出现这个







再此感谢斑竹  热心支持

c23777073

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

sn = Int(rs(0))

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

c23777073

不要把我的帖子埋没啊！高手指点指点啊！很重要的求助啊 ！[em04][em04][em04][em04]

再次感谢！

c23777073

本来还以为这里有很多高手呢!

谢了!

楼主

我走了! [em01]

windsmile2008

看看