关于一按钮打开多附件提示为空,怎么解决?

李妮　发表于：2009-03-16 14:04:46 　

老师们好!

我设置一个按钮同时打开三个附件,每个附件都有一个路径,我测试时如果三个路径都不为空的话,那可以同时打开三个附件,如果有一个为空了,那就执行不了,提示为空!请问下,我想实现点击按钮时会按照它有几个附件就打开几个附件,而不会因为某个路径为空导致不能执行,谢谢老师!

还有我三个附件不在同一个窗体中!麻烦老师帮我想个办法,谢谢了!

Top

竹笛发表于：2009-03-16 14:06:16

Private Sub button_Click()
If Dir(Me.fjmc) <> "" Then
ShellExecute Me.hwnd, "open", Me.fjmc, "", "", SW_SHOWMAXIMIZED

end if

If Dir(Me.fjmc2) <> "" Then
ShellExecute Me.hwnd, "open", Me.fjmc2, "", "", SW_SHOWMAXIMIZED

end if

If Dir(DLookup("fjlj", "tblcodetamx", "taid='" & Me.taid & "'")) <> "" Then
ShellExecute Me.hwnd, "open", DLookup("fjlj", "tblcodetamx", "taid='" & Me.taid & "'"), "", "", SW_SHOWMAXIMIZED
End If
End Sub

Top

李妮发表于：2009-03-16 16:17:19

If Dir(DLookup("fjlj", "tblcodetamx", "taid='" & Me.taid & "'")) <> "" Then

老师好!执行到这句的时候提示类型不匹配,这个路径是在另外个窗体中的,不知道我这句代码有没错误?

Top

竹笛发表于：2009-03-16 16:23:25

If Dir(DLookup("fjlj", "tblcodetamx", "taid='" & forms!窗体名称!taid & "'")) <> "" Then

Top

李妮发表于：2009-03-16 19:53:21

老师!应该是返回表的数据,我描述错了,不该返回窗体的.frmcodetamx_child不是打开状态!

Top

李妮发表于：2009-03-17 09:54:01

老师!我把If Dir(Me.fjmc) <> "" Then 改成if not isnull (me.fjmc) then 可以了谢谢老师!

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

[5分]关于一按钮打开多附件提示为空,怎么解决?