在修改所选的记录后，在保存返回到当前所操作的记录时出现运行错误2105

yzc2011

在修改记录时，返回到当前所修改的记录时出现“你不能转到指定的记录”的错误

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

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

roych

应该用Move好一点吧。

yzc2011

方便说详细一点吗，记住记录再返回在主子窗体上可以使用。在单个窗体上却不能使用。不能为何。

灰太郎

11111111111111111111111