不好意思,这些天忙 没来!
你有写注释的好习惯,可如果写的太多注释或者无意义的注释,只会给阅读带来麻烦.不如简单几个字.
试想如果有人来改你的代码,想必此人有一定的基础.
你的代码中有中文,建议少用,用英文 或者干脆用拼音.这也可以养成习惯.
哈哈,有点以老卖老了 转正题: 你的代码(我去掉了注释,加了点自己的解释)和我的代码如下:
Dim STemp As String
Dim STEMP1 As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
'=================你的代码 开始 =======================
STemp = "Select * From 员工基本资料"
rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic '打开表"员工基本资料",比如说里面有10笔数据
If Forms![员工内部调动 子窗体]![原员工ID] = rs("员工ID") Then '这里会出现一种情况,无论你怎么运行,rs("员工ID")都是一固定一个值.而且是表"员工基本资料" 第一条记录的值. 这样自然你的判断已不是你要的意思.
'=================你的代码 结束 =======================
'=================我的代码 开始 =======================
STemp = "Select * From 员工基本资料 " & "Where 员工ID='" & Forms![员工内部调动 子窗体]![原员工ID] & "'"
rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic '打开表"员工基本资料",比如说里面有10笔数据
If rs.BOF And rs.EOF Then
'=================我的代码 结束 =======================
rs.AddNew
rs("员工ID") = Forms![员工内部调动 子窗体]![新员工ID]
rs("部门ID") = Forms![员工内部调动 子窗体]![新部门ID]
rs("职务") = Forms![员工内部调动 子窗体]![新职务]
rs("基本工资") = Forms![员工内部调动 子窗体]![新基本工资]
rs.Update
MsgBox "员工基本资料更新完成！", vbYesNo, "更新资料完成"
End If
Set rs = Nothing
不知道是否能帮助你,如果可以请给我点 "最佳......"
