Office中国论坛/Access中国论坛

标题: 请帮我看看错在那里? [打印本页]

作者: mikecsk 时间: 2009-2-5 09:39
标题: 请帮我看看错在那里?
我使用的是简体系统 WIN2003 OFFICE2003
请提供帮忙,谢谢~
Private Sub 添加職員_Click()
On Error GoTo Err_添加職員_Click
Dim STemp As String
Dim Rs As String
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
STemp = "Select*From 員工資料"
Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  If Me![職員ID] <> "" And Me![部門ID] <> "" And Me![姓名] <> "" And Me![身份證ID] <> "" Then
  Rs.AddNew
  Rs("職員ID") = Me![職員ID]
  Rs("部門ID") = Me![部門ID]
  Rs("姓名") = Me![姓名]
  Rs("性別") = Me![性別]
  Rs("籍貫") = Me![籍貫]
  Rs("年齡") = Me![年齡]
  Rs("民族") = Me![民族]
  Rs("身份證ID") = Me![身份證ID]
  Rs("家庭地址") = Me![家庭地址]
  Rs("家庭電話") = Me![家庭電話]
  Rs("手機號碼") = Me![手機號碼]
  Rs("QQ/MSN") = Me![QQ/MSN]
  Rs("電子郵箱") = Me![電子郵箱]
  Rs("備注") = Me![備注]

Rs.Update
MsgBox "員工檔案記錄已經添加成功!", vbOKOnly, "添加完成"
Else

MsgBox "窗體中必填文本和組合框不能爲空!", vbOKOnly, "警告"
Me![職員ID].SetFocus
End If
Me![員工資料子窗體].Requery
Set Rs = Nothing
Exit_添加職員_Click:
  Exit Sub
Err_添加職員_Click:
  MsgBox Err.Description
  Resume Exit_添加職員_Click
End Sub

作者: Henry D. Sy 时间: 2009-2-5 09:52
居然是简体的access为何用繁体的字段名

作者: ACMAIN_CHM 时间: 2009-2-5 09:52
出错信息是什么？

问题说明越详细，回答也会越准确！参见如何提问。（提问的智慧）

******************
* 一切皆有可能 *
******************

QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/SList/Access .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

作者: mikecsk 时间: 2009-2-5 11:03
本帖最后由 mikecsk 于 2009-2-5 11:05 编辑

Private Sub 添加职员_Click()
On Error GoTo Err_添加职员_Click
Dim STemp As String
Dim Rs As String
Dim Rs As ADODB.Recordset
Set Rs =New ADODB.Recordset
STemp ="Select*From 员工资料"
Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  If Me![职员ID] <> ""And Me![部门ID] <>""And Me![姓名] <>""And Me![身份证ID] <>""Then
  Rs.AddNew
  Rs("职员ID") = Me![职员ID]
  Rs("部门ID") = Me![部门ID]
  Rs("姓名") = Me![姓名]
  Rs("性别") = Me![性别]
  Rs("籍贯") = Me![籍贯]
  Rs("年龄") = Me![年龄]
  Rs("民族") = Me![民族]
  Rs("身份证ID") = Me![身份证ID]
  Rs("家庭地址") = Me![家庭地址]
  Rs("家庭电话") = Me![家庭电话]
  Rs("手机号码") = Me![手机号码]
  Rs("电子邮箱") = Me![电子邮箱]
  Rs("备注") = Me![备注]

Rs.Update
MsgBox "員工檔案記錄已經添加成功!", vbOKOnly, "添加完成"
Else

MsgBox "窗體中必填文本和組合框不能爲空!", vbOKOnly, "警告"
Me![職員ID].SetFocus
End If
Me![员工资料子窗体].Requery
Set Rs = Nothing
Exit_添加职员_Click:
  Exit Sub
Err_添加职员_Click:
  MsgBox Err.Description
  Resume Exit_添加职员_Click
End Sub

改了简体了
现在运行有说    当前范围的声明有重复

作者: t小宝 时间: 2009-2-5 11:15
都说了:当前范围的声明有重复
下面两个变量虽然类型不同,但名称也不能相同呀!
Dim Rs As String
Dim Rs As ADODB.Recordset

作者: mikecsk 时间: 2009-2-5 11:23
那应该怎么改啊?我新手来的,在学习=.=

作者: ycxchen 时间: 2009-2-5 13:46
不要Dim Rs As String

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