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

xiaomin_007

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

xiaomin_007

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

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

hjb016

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

xiaomin_007

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

xiaomin_007

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

hjb016

不明白你的意思.

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

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

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

xiaomin_007

还有个问题：
为什么删除照片之后切换记录时，照片还是会显示在窗体上呢，路径文本框中分明已经是空值了啊，还有窗体也更新了，用代码把图片也置空了，可是还是显示在窗体上，能否再赐教。谢谢了
    Me![txt_PartPhotoPath] = ""
    Me![img_PartPhoto].Picture = ""