مشروع برنامج محامين تحت الإعداد

السلام عليكم ورحمة الله وبركاته

لايوجد كود يجعل البرنامج يعمل على اى جهاز

يجب ان تكون جميع ملفات ومكتبات البرنامج مرفقة معه عند نسخه الى الاجهزة الاخرى ولتفادى الاخطاء يجب ان تكون قاعدة البيانات فى مجلد البرنامج وبهذه الطريقة لن يحدث اى خطأ فى الاتصال بالقاعدة

بالنسبة لجعل البرنامج يعمل من على السى دى فقط فاليك هذا الكود

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Dim DT%
Private Sub Form_Load()
DT = GetDriveType(Left(App.Path, 2))
If DT <> 5 Then
    MsgBox " لايمكن تشغيل البرنامج الا من على الاسطوانة الخاصة به", vbCritical
    End
End If
End Sub

الأستاذ GHOST2010

بداية خالص شكرى للمشاركة السريعة والمفيدة منك

ولكن هل معنى وضع القاعدة فى ملف البرنامج ومعها كافة المرفقات داخل فولد واحد بالأسطوانة مع هذا الكود الذى تشرفت بة منك فأن البرنامج سيعمل ايا كان اسم محرك الأسطوانات فعندى مثلا جهاز السى دى تأخذ حرف h وعلى جهاز اخر d وعلبى اخر i ها اختلاف المسميات لاتاثير لة

عارف انى بأثقل عليك اعذرنى طمعان كمان فى الرد بخصوص كيفية البحث

لك شكرى وتقديرى

نعم اخى العزيز سيعمل البرنامج دون مشاكل مهما اختلف حرف الاسطوانة لان الدالة GetDriveType تعود بالرقم 5 اذا كان المشغل المحدد لها هو مشغل الاسطوانات :rolleyes:

شكرا عزيزى GHOST2010

سأجرب الكود وكلى ثقة بانة صحيح لكونة منك

وسافيدك بالرد

اكرر شكرى

استفسار هام

لقد ذكرت يا أخى انا البيانات على ملف أكسس وانها ثمرة جهد كبير ومعنى ذلك أن قيمة البرنامج ليس فى ملف التشغيل بل فى ملف الداتا بيز - الأكسس - المرفق فماذا لو تم نسخ هذا الملف من على الأسطوانة وتم التعامل معه مباشرة او عن طريق برنامج اخر يتم تصميمه للتعامل معه ؟؟؟؟!

اخى الأستاذ عبد الفتاح

الداتا غير موجودة على اسطوانة هى مسجلة على جهاز المكتب وانا بالفعل كنت استخدمة كبرنامج من خلال برنامج اكسيس عن طريق نماذج الأكسيس .

ولكن ارغب فى جعلة بعد ان زاد حجم تلك القاعدة بم تم عليها من اضافات كبرنامج بالفيجوال يمكن تشغيلة عن طريق اسطوانة لو كان

الأساتذة الأفاضل

تلك هى احدى الجداول التى اربط من خلالها والموجودة ضمن القاعدة بعد حذف بعض البيانات منها حتى تصبح قابلة للرفع وهى خاصة بأحكام النقض

DB1.zip

لا اعتقد ان افضل اساتذة الفيجوال وهم اعضاء ذلك المنتدى ومشرفية الكرام قد غلب عليهم امر ذلك المشروع او طرح افكارهم

ولكن اعتقد انى لم استطع توضيخ مااعنى وان كان الأمر كذلك فانا مستعد لتوضيح اى غموض فى عرض او مناقشة الفكرة

خالص تحياتى

اعزائى

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

test.zip

الاخ العزيز محمد كامل

لقد اعجبت بالموضوع الذي تتكلم عنه

اذا اردت المساعة ارسل لي على

ayhm007@gmail.com

و السلام عليكم