السلام عليكم ورحمة الله وبركاتة ..
الاخوة الفريق العربي للبرمجة المحترمين
تحية احترام وتقدير
لدي موضوع ليس بجديد وقد بحثت كثيرا في المنتدى بخصوص هذا الموضوع فوجدت مشاركات كثيرة حول هذا الموضوع وقد حصلت على معلومات كثيرة من هذه المشاركات ولله الحمد ،، ولدى استفسار وأرجو الاطلاع عليه :
بخصوص هذا الكود الذي يقوم بربط جداول خارجية ، مع قاعدة بيانات اكسس :
- لما تكون قاعدة البيانات بنفس الجهاز ، الكود بيشتغل 100%
- لما تكون قاعدة البيانات بالسرفر أو في جهاز آخر ، واريد اعمل ربط عبر الشبكة المحلية LAN الكود لا يعمل !! وتجيني رسالة ""خطأ""
وهذا مثال للبروسيجر الذي اقوم باستخدامة وارجوا الافادة اذا كان هناك خطأ بالكود ؟
اتمنى أن تكون الفكرة قد وصلت بشكل صحيح ..
ولكم منى خالص التحية والتقدير ...
Public Function LinkMDBTablesx() As String
On Error GoTo Err_Handler
Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
Dim strMsg As String
Dim lngCurr As Long
Dim lngTotal As Long
Dim strConnect As String
Dim strDataFile As String
strDataFile = FindMDBFile()
strConnect = ";DATABASE=" & strDataFile
lngTotal = DCount("*", "MsysObjects", "[Type]=6")
Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
Dim wrkJet As Workspace
Dim dbopen As Database
Set wrkJet = DBEngine.Workspaces(0)
Set dbopen = wrkJet.OpenDatabase(strDataFile, False, False, ";PWD=hdil")
If tdf.Connect <> "" And Left(tdf.NAME, 4) <> "dbo_" Then
lngCurr = lngCurr + 1
tdf.Connect = strConnect
tdf.RefreshLink
End If
Next
Exit_Err_Handler:
Set tdf = Nothing
Set dbs = Nothing
Exit Function
Err_Handler:
MsgBox Err.Description
Resume Exit_Err_Handler
End Function
