กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
271 1
URL.หัวข้อ /
URL
Is There a Way . . . 'Find MISSING reference'?
ถามไว้ที่
http://www.utteraccess.com/forums/showflat.php?Cat=&Board=access_any_version&Number=114292&page=0&view=collapsed&sb=5&o=7&fpart=1#Post114327
Is there a way to test the library references for a 'MISSING' reference with VBA?
I think it would be more precise to do it that way instead of testing for the
existance of the file itself.
moo
ผมเลยตอบเขาไปโดยให้ใช้ IsBroken property ช่วย ดังนี้
Sub MissingRef()
Dim strDAOName As String, strADOName As String
For I = 1 To Application.References.Count
If Application.References(I).IsBroken Then
Debug.Print "Missing -->" & Application.References(I).Name
Else
Debug.Print "OK -->" & Application.References(I).Name
End If
Next I
End Sub
หรือจะอ่านบทความเกี่ยวกับเรื่องนี้ของ MS ที่ http://support.microsoft.com/default.aspx?scid=kb;en-us;q186720
http://www.utteraccess.com/forums/showflat.php?Cat=&Board=access_any_version&Number=114292&page=0&view=collapsed&sb=5&o=7&fpart=1#Post114327
Is there a way to test the library references for a 'MISSING' reference with VBA?
I think it would be more precise to do it that way instead of testing for the
existance of the file itself.
moo
ผมเลยตอบเขาไปโดยให้ใช้ IsBroken property ช่วย ดังนี้
Sub MissingRef()
Dim strDAOName As String, strADOName As String
For I = 1 To Application.References.Count
If Application.References(I).IsBroken Then
Debug.Print "Missing -->" & Application.References(I).Name
Else
Debug.Print "OK -->" & Application.References(I).Name
End If
Next I
End Sub
หรือจะอ่านบทความเกี่ยวกับเรื่องนี้ของ MS ที่ http://support.microsoft.com/default.aspx?scid=kb;en-us;q186720
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R06553
Time: 0.3027s