Office中国论坛/Access中国论坛

标题: 同时引用一个模块时出现"二义性名称"该如何做? [打印本页]

作者: sunny-xie 时间: 2008-2-18 15:37
标题: 同时引用一个模块时出现"二义性名称"该如何做?
模块内容:
Option Compare Database
Option Explicit
Public Function FileExistCheck(ByVal strfilename As String) As Integer
''测试路径是否有效
'这段代码更好
'返回０代表文件或路径不存在
'返回１代表该文件存在
'返回２代表该文件夹存在
Dim intAttr As Integer
On Error GoTo Err:
FileExistCheck = 0
If Len(strfilename) > 0 Then
      intAttr = GetAttr(strfilename)
      If (intAttr And vbDirectory) Then
         FileExistCheck = 2    '
      Else
         FileExistCheck = 1    '
      End If
End If
Exit Function
Err:
End Function

引用地方1:
Private Sub Command246_Click()
Dim lngRe As Long
Dim tempth As String
Dim fulltempth As String
tempth = "\\192.168.56.10\Application\lighting\Report\"
fulltempth = tempth & Me.zuhe1.Value & "报告书.pdf"

If FileExistCheck(fulltempth) = 0 Then
         MsgBox "文件不存在!"
   Exit Sub
End If

lngRe = ShellExecute(Me.hwnd, "open", tempth & Me.zuhe1.Value & "报告书.pdf", vbNullString, vbNullString, SW_SHOWNORMAL)
   If lngRe = SE_ERR_NOASSOC Then
      Shell "rundll32 shell32,OpenAs_RunDLL " & tempth & Me.zuhe1.Value & "报告书.pdf", vbNormalFocus
   End If

End Sub

引用地方2:
Dim TempPath As String
Dim TempFullPath As String
Dim i    As Integer
TempPath = "\\192.168.56.10\Application\lighting\Photo"

p1 = TempPath & "\" & Me.zuhe1.Column(0) & "-1.bmp"
p2 = TempPath & "\" & Me.zuhe1.Column(0) & "-2.bmp"
p3 = TempPath & "\" & Me.zuhe1.Column(0) & "-3.bmp"
p4 = TempPath & "\" & Me.zuhe1.Column(0) & "-4.bmp"
For i = 0 To 4
      TempFullPath = TempPath & "\" & Me.zuhe1.Column(0) & "-" & i & ".bmp"
      If FileExistCheck(TempFullPath) = 1 Then Me.Controls("ActiveXCtl" & 223 + i).Picture = LoadPicture(TempFullPath) Else Me.Controls("ActiveXCtl" & 223 + i).Picture = LoadPicture(TempPath & "\null.jpg")
Next

Err:
   ' Debug.Print Err.Description, Err.Number
Exit Sub

作者: andymark 时间: 2008-2-18 15:58
检查模块名称或变量是否重复，编译一下就知道问题出在那里

作者: sunny-xie 时间: 2008-2-18 16:51
标题: 回复 2# 的帖子
提示是这个名称:FileExistCheck
共有两个这样的名称,去掉一个还是这样的提示

作者: fangkinght 时间: 2008-2-18 20:07
Public Function FileExistCheck(ByVal strfilename As String) As Integer 改成Function FileExistCheck(ByVal strfilename As String) As Integer 也就是去掉 Public

作者: sunny-xie 时间: 2008-2-19 08:54
不是很明白,我现在是把原来的库导出到新建的库里,问题消失了,下面是出现问题时的库
[attach]28487[/attach]

作者: fswxs 时间: 2008-2-19 09:02
解决就好了

象这样的问题连盖兹也不知道为什么的

作者: sunny-xie 时间: 2008-2-19 09:07
标题: 回复 6# 的帖子
但是重新加了些代码后,问题又出现,可能是我的代码有问题,请下载我的库帮忙看看应该怎么解决,THKS!

作者: sunny-xie 时间: 2008-2-19 09:34

模块导入的顺序掉乱下,又可以,不明白所以,无奈!

作者: fswxs 时间: 2008-2-19 09:42
你在模块1和模块5各有一个，重复了

作者: sunny-xie 时间: 2008-2-19 10:24

,看到了....

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)