[ تمت الإجابة ]تحديد المسار للبرنامج

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

لكن

أولا :

أريد أن اسألك سؤال ( وأرجو أن لا تغضب منه ) لماذا تريد

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

خذها نصيحة مني .. الدنيا أخذ وعطاء .. وكما أنك تريد أن تعرف أيضا غيرك مثلك

يريد أن يستفيد ووضعك لبرامجك وأمثلتك بشكل مقفل المصدر يوحي بالإنانية .. لا مؤاخذة

ثانيا :

أرفق برنامجك الذي به الإشكالية وستجد الجواب بمشيئة الله

شكرا أخي لسعة صدرك لمداخلتي الصريحة ........ أخوك EKSEER

بارك الله فيك أخي الغالي أكسير الحياة

بسم الله الرحمن الرحيم

بعد التحية والإحترام

أخى الفاضل

تعرفت على المنتدى منذ فتره و استفدت منه والحمد لله على ذلك

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

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

ولكن انت فهمت العكس وكذالك الاخ الفاضل ـ محمد تراكى برغم من انى اكنه لهو كل التقدير والإحترام لما يقدمه من خدمات وخاصة مشروعه الاخير والذى لم

ينتهى ،

اخى لا تحكم من الظاهر فالله وحده هو العالم

اخى ارجوا ان تكون عرفته ما اقصود ولك اعضاء المنتدى المعذره

بكر اكسس

بسم الله الرحمن الرحيم

هذا برنامج العياده الطبية مفتوح المصدر

وارجوا التعقيب عليه

بكر اكسس

4.rar

بسم الله الرحمن الرحيم

هذا برنامج الإعتمادت المستندية مفتوح المصدر

وارجوا التعقيب عليه

بكر اكسس

2.rar

بسم الله الرحمن الرحيم

هذا برنامج صاله افراح مفتوح المصدر

وارجوا التعقيب عليه

بكر اكسس

14.rar

السلام عليكم ....... أخي بكر حفظك الله أنا دخلت هنا لكي أساعد في جزئية البرنامج

التي سبق أن سألت عنها في مشاركتك الأولى الموضحة في الاقتباس التالي

اقتباس

هل يمكن عمل البرنامج ليعمل فى كل

الدرايفات

مثل

Set d = OpenDatabase("C:\3.mdb")

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

فقمت بتحميل المثال الأول ( برنامج العيادات الطبية ) بقصد اصلاح الكود السابق

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

فالبتوفيق إن شاء الله ........ أخوك إكسير

تفضل اخي اكسير

البرنامج مفتوح المصدر ولا يوجد عليه اي رقم سري

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

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

Private Sub Form_Load()
Dim strPath As String
strPath = Application.CurrentProject.Path & "\4.mdb"
Set d = OpenDatabase(strPath)
Set r = d.OpenRecordset("emp")
End Sub

البرنامج مفتوح بدون اي رقم سري

4.rar

اخي اكسير

بعد التحية و الإحترام

انا كل الذي طلبت منكم التعليق عليه

وليس شن هجوما كأنى مجرم مطلوب القبض عليه

فانى اخطاءت فالخطاء وارد ولكن بحسن نيه

والله شاهد على ما فى القلوب

وفى صباح هذا اليوم رفعت البرنام بصوره المصدر

دليل على ان اريد ان اعرف الخطاء من الصواب

وليس كما جاء فى محور حديثك

وكذلك الاخت الفاضله ـ زهره المنتدى

ولكم جميعا كل التقدير والإحترام

بكر اكسس

اخي الفاضل بكر

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

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

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

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

ختاما نقول لك حياك الله بين اخوانك واخواتك في المنتدى

وإذا كان لديك اي استفسار فلا تتردد في السؤال عنه فكلنا اسرة واحدة وفريق عمل واحد

بسم الله الرحمن الرحيم

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

أشكر لكم أخوانى سعة الصدر ..

أنشأت أول برنامج لى على البرتشن C:\

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

مع ملاحظة أن البرنامج مكون من قطعتين أحدهما بها الجداول والأخرى بها الإستعلامات والنمازج

أخوانى كيف أجعل البرنامج حر المسار يعمل فى أى مكان على الكمبيوتر

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

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

فخذوا بيدى و اعينونى أعانكم الله

الاخ بكار 2000 راجع الكود هنا في هذا الموضوع على هذا الراااابط

EKSEER

bakkar2000 كتب:

بسم الله الرحمن الرحيم

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

أشكر لكم أخوانى سعة الصدر ..

أنشأت أول برنامج لى على البرتشن C:\

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

مع ملاحظة أن البرنامج مكون من قطعتين أحدهما بها الجداول والأخرى بها الإستعلامات والنمازج

أخوانى كيف أجعل البرنامج حر المسار يعمل فى أى مكان على الكمبيوتر

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

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

فخذوا بيدى و اعينونى أعانكم الله

بسم الله الرحمن الرحيم

كل الشكر والتقدير أستاذنا

EKSEER

على الرد فائق السرعة

ولكن أخى أستعملت هذة الأكواد قبل أن ابدأ سؤالى لكم وما زالت مشكلتى قائمة قد أكون أستعملتها بطريقة خاطئة

لأنى مبتدأ وحتى أنى لا أعرف معناها

Private Sub Form_Load()

Dim strPath As String

strPath = Application.CurrentProject.Path & "\4.mdb"

Set d = OpenDatabase(strPath)

Set r = d.OpenRecordset("emp")

End Sub

ولكنى فعلت ما يلى

قمت بنسخ هذه الأكواد عند تحميل الفورم مع تغيير

4.mdb

بأسم الملف الموجوده بة النماذج

وتغيير

emp

بأسم ما لدى لكن مشكلتى مازالت قائمة البرنامج يعطى نفس رسالة الخطأ بأن المسار غير صحيح

فأرجوا منكم الشرح والإفادة مع ملاحظة أن البرنامج كل من الجداول والنمازج فى قاعدتين منفصلتين والبرنامج يبدأ بفورم ترحيب ثم الفورم الرئيسى إن كانت هذه المعلومة تفيدكم

ولكم منا أسمى آيات الإحترام

اخي الفاضل

حتى لا تتعب نفسك في الإنتظار

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

اخي الفاضل

الوضع بالنسبة لك مختلف تماما عن ما نتحدث عنه حيث يوجد لديك قاعدتي بيانات منفصلة قاعدة للجداول وقاعدة للنماذج وكذلك قاعدة الجداول عليها رقم سري .

الآن قمنا بعمل التالي

1. عمل كود خاص بفتح قاعدة بيانات الجداول التي عليها الرقم السري حيث يتم فتحها في الذاكره ( بدون ان نفتحها ظاهريا ) . ولو حاولت فتحها لوحدها سيطلب منك الرقم السري .

2. عمل كود بربط كافة الجداول من القاعدة ثم اغلاق القاعدة التي بها الجداول .

3. كل ما عليك الآن بعد فتح البرنامج هو اخذ المجلد " معمل الجمعية الخيرية الإسلامية " ووضعه في اي مكان تريد ثم فتح قاعدة النماذج FORMS وسيظهر لك نموذج الربط

4. اختر زر الأمر ( المجلد المفتوح ) لكي تختار موقع قاعدة الجداول " معمل الجمعية الخيرية الإسلامية " وسيظهر لك مسار قاعدة الجداول في مربع النص

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

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

za_Link.rar

بسم الله الرحمن الرحيم

عفواً أستاذتنا زهرة لكن الملف المرفق يرفض النزول على الجهاز

شكراً

فى حفظ الله

الله يسامحك قول آمين

هذا لأنك لا تملك برنامج الضغط WinRar

حسنا سوف نضعه لك ببرنامج ارشيف آخر

za_Link.zip

بسم الله الرحمن الرحيم

...... أميـــــــــــــــــــــن

لا تتخيلى مدى شعورى بالفخر حينما يسألنى زملائى فى العمل عن شىء ويجدون الجواب عندى

أشعر بالسعاده والفخر لقضاء حاجتهم ولو للحظات

فكيف تصفين سعادتك وأنت تشعرين بالفخر فى كل الأوقات

ما شاء الله .. تبارك الله..نعم عمل فى منتهى الإبداع ...البرنامج الأن يعمل على أى جزء من الكمبيوتر ..بارك الله لكى

ولكن لى بعض الإضاحات أرجوا إضافتها ..إن سمحتى لي .................. شكـــــراً

كما ذكرت إن كنت أعانى من جمع الحروف على لوحة المفاتيح .. فزملائى يخشون الإقتراب منها

.. لـــــــــــــــــــذلك

* لماذا لا نجعل البرنامج عند فتحة لأول مره يظهر نموذج الربط من قاعده خارجية .. وفى حالة فتح البرنامج مره أخرى يقوم البرنامج بالتأكد من المسار و قاعد الجداول فإن وجده نفس المسار والقاعده يقوم بفتح البرنامج مباشرةً وإلا يبدأ نموذج الربط فى الظهور سائلاً عن تحديد قاعدة الجداول مره أخرى وليس فى كل مره يفتح فيها البرنامج

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

أعلم أنى طماع ولكنها سمه النهم طالب العلم الذى أخبرنا عنه رسولنا الكريم

فأنا أتعلم أكسيس من ثمانية أشهر من الكتب دون أن أجد من يوجهنى والآن وجدتكم وأستطيع بكم أن أحصل قدر ما جنيته فى ثمانية أشهر فى أيام قلائل

دمتم فى رحمة الله وسامحنا الله وأياكم

ولكم منا أسمى آيات الإحترام

BAKKAR 2000 أحمد حسن أحمد

اخي الفاضل

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

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

بسم الله الرحمن الرحيم

سلام الله عليكم

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

...... وإليكم كيف يبدأ البرنامج

* عند الضغط على أيقونه البرنامج تظهر شاشة ترحيب تستمر لمدة خمس ثوانى

* يتم إغلاق شاشة الترحيب بعد قضاء الخمس ثوانى تلقائياً دون تدخل المستخدم ثم يتم فتح النموذج الرئيسى للبرنامج أيضاً دون تدخل

المستخدم هذا ما تم تنفيذه بالفعل ويعمل به البرنامج .

.....وإليكم فكرتى وما أريد تنفيذه

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

مرتبطه بقاعده الجداول والمسار أم لا فإن كانت يبدأ النموذج الرئيسى بالعمل وإلا يظهر نموذج ربط قاعده الجداول من جديد بدلاً من النموذج

الرئيسى مطالباً بتحديد مسار قاعدة الجداول مره أخرى و بعد التحديد وربط الجداول تظهر رسالة بنجاح عملية الربط وعند إغلاقها(الرساله) يتم غلق نموذج الربط و يبدأ النموذج الرئيسى بالعمل تلقائياً .

* حيث فى هذه الحاله يكون نموذج ربط الجداول جزء من القاعده لا يتم تنشيطه إلا فى حاله فقد الإرتباط بقاعده الجداول أو تغيير مسارها ... حيث أنوى تحزيم البرنامج بعد ذلك

أتمنى أن أكون أوضحت ما أريد

وعذراً فإنى لا أملك سوى كلمات شكر .. يعجز لسانى عن ذكرها لأنها لا توفيكم حقكم .

............ أعانكم الله