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

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

xiaomin_007

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

xiaomin_007

原来如此，因为在这个表中，型式是唯一的，因为前面的所有处理都是以型式为主键处理的，所以我就试着改着看看，这下知道真实原因了，我还是用编号来处理就可以了，多谢指教啊，今天收益匪浅啊，多谢多谢

xiaomin_007

老大早上好，看我的代码：
Private Sub txt_PartPhotoPath_AfterUpdate()
' 在选择了一个部品照片后，显示照片．
    On Error Resume Next
  'If (IsRelative(Me!txt_PartPhotoPath) = True) Then
   ' Me![img_PartPhoto].Picture = path & Me![txt_PartPhotoPath]
    'Else
        'Me![img_PartPhoto].Picture = Me![txt_PartPhotoPath]
        'Me![img_PartPhoto].Picture = ""
    'End If
   
    If Me![txt_PartPhotoPath].Value = Null Then
    Me![img_PartPhoto].Picture = ""
    Else
    Me![img_PartPhoto].Picture = Me![txt_PartPhotoPath]
    Me!txt_PartPhotoPath.Requery
    Me!img_PartPhoto.Requery
    Me.Requery
    End If
效果还是一样啊，不知道什么原因，请再指教一下啊，多谢了