Is There a Way . . . 'Find MISSING reference'?
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 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 
 

1 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R06553
   
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3027s