منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : فتح ارتباط تشعبي موجود ضمن قاعدة البيانات اكسس
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
لو سمحتم  صممت برنامج على فيجول للبحث بالاسم وسويت قاعدة بيانات اكسس فيها الرقم - الاسم - المهنه- مكان العمل - واخر عمود ضمنه ارتباط تشعبي بياخدني لفتح ملف خاص بكل اسم يعني كل ارتباط  وضعته مقابل الاسم مختلف عن الاحر بيفتحلي ملف خاص بهذا الاسم خارج الفورم طبعا 
عاوز لما ابحث عن اسم عماد مثلا وتضهر المعلومات الخاصه فيه اضغط على زر البوتن يفتحلي الملف الخاص بهذا الاسم 
والكم الشكر سلفا
ملاحظات هامة
عند الحفظ قم بإدخال أسم الملف وأمتداده فقط  
تم تعديل نوع الحقل في قاعدة البيانات لحقل نصي بدلا من الارتباط التشعبي تجنبا للاخطاء
تم نقل مجلد موقع الملفات إلى مجلد البرنامج بحيث إذا تم نقل مجلد البرنامج الى اي مسار يعمل الكود بدون مشاكل
 الكود المستخدم

كود :
 Try
           Dim path As String = Application.StartupPath & "\موقع الملفات\" & ارتباط_تشعبيTextBox.Text
           Process.Start(path)
       Catch ex As Exception
           Dim msg As String = "الملف غير موجود"
           MessageBox.Show(msg & vbNewLine & ex.Message, "معلومات")
       End Try


ومرفق المثال بعد التعديلات

تمنياتي لك بالتوفيق والنجاح
(17-02-19, 04:31 AM)princelovelorn كتب : [ -> ]ملاحظات هامة
عند الحفظ قم بإدخال أسم الملف وأمتداده فقط  
تم تعديل نوع الحقل في قاعدة البيانات لحقل نصي بدلا من الارتباط التشعبي تجنبا للاخطاء
تم نقل مجلد موقع الملفات إلى مجلد البرنامج بحيث إذا تم نقل مجلد البرنامج الى اي مسار يعمل الكود بدون مشاكل
 الكود المستخدم

كود :
 Try
           Dim path As String = Application.StartupPath & "\موقع الملفات\" & ارتباط_تشعبيTextBox.Text
           Process.Start(path)
       Catch ex As Exception
           Dim msg As String = "الملف غير موجود"
           MessageBox.Show(msg & vbNewLine & ex.Message, "معلومات")
       End Try


ومرفق المثال بعد التعديلات

تمنياتي لك بالتوفيق والنجاح

شكرا كثير كثير لجهودكم مشي الحال