（求助）列表框导出到报表或者生成查询

hjb016

CurrentDb.Execute "delete from tbl_PartInformation where 型式='" & Nz(Me![PartInformation_ChildForm]![txt_PartType]) & "'"

如果这样处理,您要确保你的型式是否是唯一的,不然会删除总为型式=你所选中的那个型式值.还有你这个型式是字符型,所以要加单引号才行的.你用那个编号已经是正确的,你为何要修改,因为编号是自动编号的,它是唯一值.

xiaomin_007

Private Sub CmdPartInforDelete_Click()
    On Error GoTo Err_CmdPartInforDelete_Click
   
    If Nz(Me![PartInformation_ChildForm]![txt_PartType]) <> "" Then
        CurrentDb.Execute "delete from tbl_PartInformation where 型式=" & Nz(Me![PartInformation_ChildForm]![txt_PartType])
        PartInformation_ChildForm.Form.Requery
        Me.Requery
    End If

    MsgBox "okokokok"
Exit_CmdPartInforDelete_Click:
    Exit Sub
Err_CmdPartInforDelete_Click:
    MsgBox Err.Description
    Resume Exit_CmdPartInforDelete_Click
End Sub

hjb016

不明白你的意思.

xiaomin_007

是不是因为不是数字的原因？

xiaomin_007

真厉害，我要好好研究一下，可否留下QQ或者邮箱啊，希望以后能多多交流啊，

hjb016

把你那段删除代码替换过来.
你打开记录的同时,删除那个记录,是会出现问题的.

hjb016

'**************************删除现有记录***********************

Private Sub CmdPartInforDelete_Click()
    On Error GoTo Err_CmdPartInforDelete_Click
   
    If Nz(Me![PartInformation_ChildForm]![txt_PartNumber]) <> "" Then
        CurrentDb.Execute "delete from tbl_PartInformation where 编号=" & Nz(Me![PartInformation_ChildForm]![txt_PartNumber])
        PartInformation_ChildForm.Form.Requery
        Me.Requery
    End If

    MsgBox "okokokok"
Exit_CmdPartInforDelete_Click:
    Exit Sub
Err_CmdPartInforDelete_Click:
    MsgBox Err.Description
    Resume Exit_CmdPartInforDelete_Click
End Sub

xiaomin_007

新问题，在 做删除记录操作的时候，虽然删除成功，但是提示：行句柄引用了一个被删除的行，我使用了断点调试，但没找到原因啊，多谢指教

xiaomin_007

哦，多谢关照，我试试看，今天必须搞定啊，所以很急啊

hjb016

是的,代码看上去比较多,杂,要去修改要花很多时间去看.设置断点就是在代码区域的左边非编辑区点击一下鼠标就可以了.就会在该行设置为红色标识,这样你运行的时候,它就会停顿在那里,你再按F8功能键,就可以逐行运行调试了.