لو سمحتم صممت برنامج على فيجول للبحث بالاسم وسويت قاعدة بيانات اكسس فيها الرقم - الاسم - المهنه- مكان العمل - واخر عمود ضمنه ارتباط تشعبي بياخدني لفتح ملف خاص بكل اسم يعني كل ارتباط وضعته مقابل الاسم مختلف عن الاحر بيفتحلي ملف خاص بهذا الاسم خارج الفورم طبعا
عاوز لما ابحث عن اسم عماد مثلا وتضهر المعلومات الخاصه فيه اضغط على زر البوتن يفتحلي الملف الخاص بهذا الاسم
والكم الشكر سلفا
ملاحظات هامة
عند الحفظ قم بإدخال أسم الملف وأمتداده فقط
تم تعديل نوع الحقل في قاعدة البيانات لحقل نصي بدلا من الارتباط التشعبي تجنبا للاخطاء
تم نقل مجلد موقع الملفات إلى مجلد البرنامج بحيث إذا تم نقل مجلد البرنامج الى اي مسار يعمل الكود بدون مشاكل
الكود المستخدم
كود :
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
ومرفق المثال بعد التعديلات
تمنياتي لك بالتوفيق والنجاح
شكرا كثير كثير لجهودكم مشي الحال