Question

所以我已经得到了下面的代码（由于某些原因，并非所有代码都是灰色的）

Private Sub CmdEdit_Click()

Me.Tableinform.Requery

Dim rs As DAO.Recordset

Set rs = Me.Tableinform.Form.RecordsetClone
    'get data to textbox control
With rs

    If .RecordCount > 0 Then

        With Me.Tableinform.Form.Recordset

        Me.ShowIDbox = .Fields("[ID]").Value
        Me.CompbyDD = .Fields("[Received By]")
        Me.Date1 = .Fields("[Date Received]")
        Me.Date2 = .Fields("[Date Processed]")
        Me.ReqType = .Fields("[Request Type]")
        Me.InsName = .Fields("[Insured Name]")
        Me.RiskNo = .Fields("[Risk Number]")
        Me.EndtRef = .Fields("[Endorsement Reference]")
        Me.EOCNo = .Fields("[EOC Number]")
        Me.Tech = .Fields("[Technician]")
        Me.BillIns = .Fields("[Billing Instructions]")



        Me.Addrecord.Caption = "Update"
        Me.CmdEdit.Enabled = False
        Me.cmdDuplicate.Enabled = True
        Me.CmdDelete.Enabled = True


        End With
    End If
End With

End Sub

在一次编辑和更新之后，编辑功能抛出错误'3021'无当前记录？

请告诉我这里的错误。

添加/更新按钮，如下所示：

If Me.ShowIDbox.Value = "" Then


CurrentDb.Execute "INSERT INTO fmdatatable( [Received By], [Date Received], [Date Processed], [Request Type], [Insured Name], [Risk Number], [Endorsement Reference], [EOC Number], [Technician], [Billing Instructions]) " & _
" VALUES ('" & Me.CompbyDD & "','" & Me.Date1 & "','" & Me.Date2 & "','" & Me.ReqType & "','" & Me.InsName & "','" & Me.RiskNo & "','" & Me.EndtRef & "','" & Me.EOCNo & "','" & Me.Tech & "','" & Me.BillIns & "')"

Else

CurrentDb.Execute "UPDATE fmdatatable SET [Received By]='" & Me.CompbyDD & "'" & _
    ", [Date Received]='" & Me.Date1 & "'" & _
    ", [Date Processed]='" & Me.Date2 & "'" & _
    ", [Request Type]='" & Me.ReqType & "'" & _
    ", [Insured Name]='" & Me.InsName & "'" & _
    ", [Risk Number]='" & Me.RiskNo & "'" & _
    ", [Endorsement Reference]='" & Me.EndtRef & "'" & _
    ", [EOC Number]='" & Me.EOCNo & "'" & _
    ", [Technician]='" & Me.Tech & "'" & _
    ", [Billing Instructions]='" & BillIns & "'" & _
    " WHERE [ID]=" & Me.ShowIDbox.Value

End If

Me.CompbyDD = "-Please Select-"
Me.Date1 = ""
Me.Date2 = ""
Me.ReqType = "-Please Select-"
Me.InsName = ""
Me.RiskNo = ""
Me.EndtRef = ""
Me.EOCNo = ""
Me.Tech = ""
Me.BillIns = "-Please Select-"
Me.ShowIDbox = ""

    Me.Addrecord.Caption = "Add Record"
    Me.CmdEdit.Enabled = True
    Me.cmdDuplicate.Enabled = False
    Me.CmdDelete.Enabled = False

Tableinform.Form.Requery

此修改可以使用一次，然后所有后续修改都会抛出错误。

访问2013编辑表单错误3021

0 个答案: