لو سمحتم عندي برنامج عالفيجول ستديو وقاعدة بيانات اكسس فيها اربع جداول a وbوcوd
عاوز احط زر بوتم اقدر افتح من خلاله قاعدة البيانات الجدول a فقط
ياريت المساعدة
اتمنى التوضيح اكثر
هل تريد كا كود استعلام يقوم بعرض محتوى بيانات الدول المحدد
ام ماذا بضبط لان تقريباً كلامك يدل على انه لا يخص الاستعلام فاتمنا توضيح ما تريد فعله تماماً
تحياتى لك
وتمنياتى لك التوفيق
اريد كود اضعه في بوتن يفتحلي جدول معين موجود ضمن ملف اكسس كجدول a الموجود في ملف اكسس خارج الفورم اي كأني عم افتح ملف اكسس عادي ولكن جدول معين
لاتمام الامر بكل سهولة
كل ما عليك تطبيق التالى افتح محرر Notepad
ثم قم بوضع الكود التالى بداخله
كود :
[Shortcut Properties]
AccessShortcutVersion=1
DatabaseName=استبدل النص هنا باسم ملف قاعدة البيانات بالامتداد
ObjectName=استبدل النص هنا باسم الجدول
ObjectType=Table
DatabasePath=استبدل النص هنا باسم ملف قاعدة البيانات بالامتداد
ثم قم بحفظ الملف بهذا الاسم مع الامتداد
تذكر الكود المدرج بالاعلى يجب ان يكون على هذا النحو
كود :
[Shortcut Properties]
AccessShortcutVersion=1
DatabaseName=DBAccess.accdb
ObjectName=a
ObjectType=Table
DatabasePath=DBAccess.accdb
اى كان الاسم او الامتداد الخاص بقاعدة البيانات لكن بالنهاية
يكون الكود فى الملف كما تم توضيحه
بعد اتمام حفظ الملف الاول ووضع به اسم الجدول وهو A
كرر نسخ الملف وحرره لتعديل اسم الجدول فى الملف الثاني الى B
حتى يكون لديك عدد الملفات بعدد الجداول لديك
وتذكر ان يكون الملفات بعد حفظها ان تكون بجانب قاعدة البيانات تماماً
لنقول انك تقوم بوضع قاعدة البيانات بجوار البرنامج كذلك الملفات دى تكون بجانب البرنامج
الان اصبح لديك كلاً من:
كود :
a.MAT
b.MAT
c.MAT
d.MAT
الان تعال فى كود الحدث واستخدم الكود على هذا النحو
كود :
Process.Start("a.MAT")
بكده عند فتح الملف سيتم تلقائي فتح قاعدة البيانات
على الجدول حسب ما قمت انت به من تسمية
اتمنى ان تكون الصورة مبسطة ولا يوجد اى متاهة فى تنفيذ الامر
تحياتى لك
وتمنياتى لك التوفيق
اخي الكربم توهنتني كثير وانا مبتدئ بهدا العلم راح ابعتلك مشروع جاهز لكن من موقع اخر اسمه emad ياريت تساعدني بالكود
وشكوا كثير الك سلفا
(09-03-19, 12:20 AM)EMADMW17 كتب : [ -> ]اخي الكربم توهنتني كثير وانا مبتدئ بهدا العلم راح ابعتلك مشروع جاهز لكن من موقع اخر اسمه emad ياريت تساعدني بالكود
وشكوا كثير الك سلفا
اخي الكريم هذا هو الرنامج ياريت التعديل
الله يعطيكم العافي حاولت نفذ الكود الي بعثته ماعرفت مكان notepad
لاني مبتدئ بعثتلك المشروع من موقعي الاخر ياريت المساعدة او شرح لي اكثر وخاصة المقصود بكلمة notepad
ولا يهمك اخى الحبيب
بدون اى متاهة او مراحل كثير او ما شبه
كل ما عليك فقط تاتى فى كود الزر الاول
وهو :
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")
وهو سيقوم بكل شى وسيقوم بفتح الجدول مباشر كما تريد
تحياتى لك
وتمنياتى لك التوفيق