Office中国论坛/Access中国论坛

标题: 在修改所选的记录后，在保存返回到当前所操作的记录时出现运行错误2105 [打印本页]

作者: yzc2011 时间: 2019-6-30 08:40
标题: 在修改所选的记录后，在保存返回到当前所操作的记录时出现运行错误2105
在修改记录时，返回到当前所修改的记录时出现“你不能转到指定的记录”的错误

Private Sub Cmd保存_Click()
If Me.DataEntry Then
Call TJ
Else
Call XG
      DoCmd.Close acForm, Me.Name, acSaveNo
      DoCmd.Restore
End If
End Sub
-------------------------------------------
Public Sub XG()
Dim rst As Object
Dim strSQL As String
Dim currentID As String
Dim strFrm As String
If Nz(Me.客户名称, "") = "" Or _
Nz(Me.客户状态, "") = "" Or _
Nz(Me.地区, "") = "" _
Then
MsgBox "必填项【客户名称、客户状态、地区】不能为空！", vbCritical, "警告"
Me.客户名称.SetFocus
Exit Sub
End If

currentID = Form_Frm_客户.Frm_客户_List_Child.Form.客户序号
strSQL = "select * from Tbl_客户 where 客户序号 ='" & currentID & "'"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
rst.MoveFirst
rst.Edit
rst!审核 = Me.审核
rst!审核员 = Me.审核员
rst!客户状态 = Me.客户状态
rst!编号 = Me.编号                '写入不含地区码的编号，以供下次添加记录时供自动编号对比所用。
rst!客户编号 = Me.编号 + Me.地区码 '把修改后的编号和地区码写入到客户编号文本框中。
rst!客户名称 = Me.客户名称
rst!拼音简码 = Me.拼音简码
rst!客户级别 = Me.客户级别
rst!法人代表 = Me.法人代表
rst!法人手机号 = Me.法人手机号
rst!联系人 = Me.联系人
rst!联系人手机 = Me.联系人手机
rst!电话号码 = Me.电话号码
rst!传真号码 = Me.传真号码
rst!公司地址 = Me.公司地址
rst!地区 = Me.地区
rst!备注 = Me.备注
rst!操作员 = Me.操作员
rst!录入日期 = Me.录入日期
rst.Update
rst.Close
'========================================================
'新增的用于修改记录后再返回到所修改的记录上。
Dim jl As Integer
jl = Form_Frm_客户.Frm_客户_List_Child.Form.CurrentRecord
Form_Frm_客户.Frm_客户_List_Child.Form.Requery '原刷新
Form_Frm_客户.Frm_客户_List_Child.SetFocus
DoCmd.GoToRecord , , acGoTo, jl
'========================================================
MsgBox "修改后的记录保存成功！", vbInformation, "提示"
ExitHere:
Set rst = Nothing
Exit Sub
ErrorHandler:
MsgBox Err.Description, vbCritical
Resume ExitHere
End Sub

上面红字部分错在哪里？？

[attach]63405[/attach]

[attach]63406[/attach]

[attach]63407[/attach]

作者: roych 时间: 2019-7-8 15:36
应该用Move好一点吧。

作者: yzc2011 时间: 2019-9-25 10:27
方便说详细一点吗，记住记录再返回在主子窗体上可以使用。在单个窗体上却不能使用。不能为何。

作者: 灰太郎 时间: 2021-7-25 20:35
11111111111111111111111

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