ولا يهمك اخى الحبيب
بدون اى متاهة او مراحل كثير او ما شبه
كل ما عليك فقط تاتى فى كود الزر الاول
وهو : A فتح الجدول || وضع بالحدث الخاص به الكود التالى
كود :
Dim MyApp As String = Application.StartupPath
Dim path As String = "a.MAT"
Dim Text As String = "[Shortcut Properties]
AccessShortcutVersion=1
DatabaseName=mm1.accdb
ObjectName=a
ObjectType=Table
DatabasePath=" & MyApp & "\mm1.accdb"
File.WriteAllText(path, Text, Encoding.Unicode)
Process.Start("a.MAT")كود الزر الثاني
وهو : B فتح الجدول || وضع بالحدث الخاص به الكود التالىكود :
Dim MyApp As String = Application.StartupPath
Dim path As String = "b.MAT"
Dim Text As String = "[Shortcut Properties]
AccessShortcutVersion=1
DatabaseName=mm1.accdb
ObjectName=b
ObjectType=Table
DatabasePath=" & MyApp & "\mm1.accdb"
File.WriteAllText(path, Text, Encoding.Unicode)
Process.Start("b.MAT")وهو سيقوم بكل شى وسيقوم بفتح الجدول مباشر كما تريد
تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمةفى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
