การดาวน์โหลดไฟล์จาก อินเทอร์เน็ต ด้วย Access 2010 VBA
![รูปภาพ](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiOUqlud_yjrAmbMvPTChUweoxmrMFRrpJMK1XOiui31et0g1eU7TIPvN76RxPMwQJUveh55w5fNc-A8y-3csSyjm9p1nXwtSol0hmFEXl6DyI1euKubWU_q1IBF8mRhzGcAJKZhyphenhyphenLc7yo/s320/acc_checkConnection.jpg)
ก่อนการใช้ MS Access 2010 ดาวน์โหลดไฟล์จากอินเทอร์เน็ต ต้องตรวจสอบเสียก่อนว่า ขณะนี้สามารถเข้าอินเทอร์เน็ตได้หรือไม่ โดยใช้ฟังก์ชันต่อไปนี้ Function checkInternetConnection() As Integer 'code to check for internet connection 'by Daniel Isoje On Error Resume Next checkInternetConnection = False Dim objSvrHTTP As ServerXMLHTTP Dim varProjectID, varCatID, strT As String Set objSvrHTTP = New ServerXMLHTTP objSvrHTTP.Open "GET", " http://www.google.com " objSvrHTTP.setRequestHeader "Accept", "application/xml" objSvrHTTP.setRequestHeader "Content-Type", "application/xml" objSvrHTTP.send strT If Err = 0 Then checkInternetConnection = True Else MsgBox "Internet connection not estableshed: " & Err.Description & "", 64, "Additt !" End If End Function ฟังก์ชันนี้ ต้องอ้างอิงถึง Microsoft XML, v6.0 เสียก่อน จึงจะใช้งานได้ โดยที่หน้าจอเขียนโค้ด ไปที่ Tool >