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

hjb016

别着急,马上帮你看一下.

hjb016

你点击空白的时候,会提示类型不对,你要先判断是否为空值的.用if nz()<>"" then
还有就是路径判断的问题.

第二个我新建了一个临时表,还有添加了一个报表,报表你自己再修改一下了.

hjb016

解决了就好!

hjb016

你设置断点调式一下,这样哪里代码有问题你自己以后都会修改了.

hjb016

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

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

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

hjb016

有问题就来论坛吧!

hjb016

不明白你的意思.

hjb016

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

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