أبو عبدالله الحلوانى

من فضلك أبا يسملة هل توجد نفس المشكلة مع مرفق أستاذنا عصام ربيع مع نسخة 2003 ففكرته لا تعتمد علي وجود صورة. وتأكد لنا من خصائص التقرير في 2003 هل توجد خاصية اسمها الصورة أم لا!

وعليكم السلام ورحمة الله وبركاته ممكن حضرتك تبسطلنا الشرح قليلا فأنا فهمي علي أدي (باللهجة المصرية) ولا أعلم كيف ستقال بلهجة أخري فأنا لا أعلم غيرها 😁 نرجع لموضوعنا - هل تقصد اذا قمت باختيار اسم المادة أو رقمها يتم احضار باقي البيانات آليا كالسعر والكمية المتاحة مثلا. وشكرا لسعة صدركم وتحملكم قراءة الرد الي آخره

حبيبي أبا بسملة بل الشكر لك علي حسن متابعتك من فضلك قم بازالة علامة التعجب من الكود وضع بدلا منها النقطة ليصبح الكود هكذا If Me.PrintBillCount = 0 Then Me.Picture = CurrentProject.Path & "\Original.jpg" Else Me.Picture = CurrentProject.Path & "\Copy.jpg" End If وعند وضع النقطة تأكد من أن كلمة Picture موجودة بالفعل في خيارات الاكمال التلقائي في محرر الأكواد في 2003 ثم قم بعمل compile مرة أخري وتأكد من وجود الصورتين فى نفس مسار قاعدة البيانات ووافنا بالنتائج

السلام عليكم أولا - المرفق خاص بأستاذتنا أم عهود - ولم يتم ارفاق المكتبة المستخدمة في العمل. ثانيا- لم أجد في المرفق لا صلاحيات ولا مستخدمين. ثالثا - دعنا الأن نحلل ما تريد لنصل لنتيجة ترضاها ان شاء الله - هل البرنامج يستخدمه أكثر من مستخدم في وقت واحد؟ أي أنه يعمل علي شبكة محلية ويتشاركه مجموعة مستخدمين؟ وهل تريد حفظ بيانات عمليات الطباعة التي يقوم بها كل مستخدم مثلا: أحمد طبع كتاب التوحيد في يوم الأحد الساعة 2.30.15 بتاريخ 10/10/2019 , أحمد طبع كتاب الايضاح في يوم الأحد الساعة 2.31.25 بتاريخ 10/10/2019 , محمود طبع كتاب فقه البيوع في يوم الأحد الساعة 2.35.18 بتاريخ 10/10/2019 ..... وهكذا تمنياتي بالتوفيق

أ @figo82eg هلا تكرمت وقمت بعمل compile من المثال المرفق كما موضح بالصورة المرفقة وأخبرنا أين توقف الكود - وان لم يظهر أي خطأ قم بغلق قاعدة البيانات وفتحها من جديد ثم جرب ووافنا بالنتائج. WaterRep.rar

السلام عليكم هل هذا ما تريد الكود.rar

لا أخفيك سرا ليست لدي نسخة 2003 لذا لا أستطيع التجربة لرأية المشكلة ولا أعلم سببا لحدوث ذلك فان الأكود المستخدمة بسيطة وليس بها شئ أظنه غير متوافق مع اصدار 2003 وننتظر رد صاحب الموضوع ما هي نسخة الأوفس لديه هل هي أيضا 2003 أم لا؟ ورأي أساتذتنا للأفادة عن هذه المشكلة بالنسبة لـ 2003 أشكرك أخي أبا بسملة غلبتك معي

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

جزاك الله خيرا @أحمد الفلاحجى رجاءا جرب هذا المرفق علي نسخة 2003 أحببت أن أضم مرفق أستاذ عصام ربيع ولكني وجدته بالفعل بصيغة mdb علامة مائية.rar

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

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

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

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

أخي ما عهدناك تسىء الظن باخوتك في المنتدي هكذا.. والله المستعان أولا- وبغض النظر عن أي شىء أريدك أن تعلم أن كلا من أعضاء المنتدي ما يألون جهدا في بذل ما لديهم من علم لوجه الله وحده أحسبهم كذلك والله حسيبهم ولا أذكي علي الله أحدا. وما رأيت أحدا منهم طلب مقابل مادي عن ما يبذل طوال انضمامي لهذا المتدي من 2014 تقريبا حتي الآن. سوي في قسم الاعلانات وهو كما تعلم لمن أراد المعاملات التجارية أو طالب برامج كاملة ستتطلب وقت وجهد وتفرغ بشأنها! ثانيا- أمر الحماية أشبه بمعركة كبيرة ما بين من يقوم بسد ثغرة ومن يقوم بكسر هذه الثغرة واكتشاف أخري حتي علي أكبر مستويات البرمجيات حماية لم تسلم من التكريك وكسر حمايتها وان كنت لا تعلم بشأن ما يسمي بالهندسة العكسية فأحيلك الي هذا الرابط https://www.at4re.net/f/ وان كان هذا خارج موضوعنا ولكن لتعلم أن أمر وجود حماية مطلقة غير موجود علي أرض الواقع - ولكن هناك حماية قوية لا يمكن كسرها بسهولة لذي عليك اتباع ما تستطيع من اجراءات لحماية برنامجك ثم فوض الأمر الي الله. ولا تقلق لن نطلب منك مقابل مادي حيال هذه المعلومات

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

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

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

السلام عليكم هنا تجد تحايلا علي هذا جرب أن تستورد كائنات هذه القاعدة ووافنا بالنتائج ملاحظة: هذه القاعدة من أعمال أستاذنا صالح حمادي وقد قمت بالتعديل عليها للتجربة فحسب. استخراج التاريخ من النت.mdb

السلام عليكم أرجو أن يكون هذا مطلبك انظر النتيجة في الاستعلام SumLastN1N3 Emp.mdb

السلام عليكم لعل هذا يفيدك if dmax("SnfNo","AsnafTbl","Where Condition")<100999 then no = dmax("SnfNo","AsnafTbl","Where Condition")+1 else msgbox "قد تجاوزت الحد الأقصي للأصناف من فضلك قم بانشاء فئة جديدة لهذه الأصناف!" end if

أختنا كما تعلمين أن الدين النصيحة كما قال رسول الله صلي الله عليه وسلم لذي فأهمس لك وأنا لك ناصح: 1- لا يجوز الحلف بغير الله (فمن حلف بغير الله فقد أشرك كما قال رسول الله صلي الله عليه وسلم) 2- لغتنا العربية أولي بالاحترام والتقديم علي غيرها - وسهلة الفهم (حتي علي مثلي من الصعايدة 😁) فلا داعي للتقليل من شأنها. ودمتم بسعادة وانشراح صدر بالاسلام.

السلام عليكم في الغالب لا يتم الاكتفاء بوسيلة واحدة للحماية هذه بعض الأمثلة علي ما استخدمه بشكل شخصي وأرجو من أخوتي واساتذتي بذكر بعض وسائلهم بالحماية: 1- وضع كلمة سر علي محرر الأكواد 2- اخفاء كائنات البرنامج (نماذج وتقارير واستعلامات .... الخ) 3- تقسيم البرنامج الي BackEnd & FrontEnd يعني جزء للواجهات وجزء للجداول فقط - مع وضع كلمة سر علي الجزء الخاص بالجداول ثم الربط ما بينهما بكود عند فتح البرنامج وازالة الارتباط بنفس الكود بعد نهاية الاتصال أو نهاية العمل بالبرنامج. 4- تعطيل زر الشفت 5- تحويل البرنامج الي صيغة accde فهي قوية الي حد ما يصعب على المتوسط في البرمجة تجاوزها. 6- يتم تجميع محتويات البرنامج بمجمعات البرامج وانشاء ملف تنفيذي exe لتسطيب البرنامج ووضع مسار قاعدة الجداول داخل مسار معين أو داخل مسار البرنامج مع انشاء اختصار للبرنامج علي سطح المكتب لدي العميل بحيث لا يري منه سوي الأيكونة الخارجية فحسب. 7- بعض الحيل البرمجية كاخفاء خلفية الأكسس و القوائم وأداة الانتقال بين الكائنات. ما أعتقد أن بعد كل هذا ستحتاج لكلمة سر لإيقاف عمل الشفت - أو أنك ستكون قلقا علي تجاوز حماية برنامجك بشكل سهل- علي حسب ظني. تمنياتي بالتوفيق نسيت شيئا قبل كل هذه الاجراءات لابد من أخذ نسخة لا يوجد بها كل هذه الأمور وهي النسخة السورس التي ستكون لديك تعدل عليها عند الحاجة

نعم وتصير البداية هكذا public sub openServerConnection() End sub ثم نناديها من داخل الزر هكذا call OpenServerConnection وانتهي الأمر

نعم يمكن مع تغيرات داخل الموديل 1- حول الـ function الي sub 2- مع ازالة البرمترات 3- والغ تعليق الأكواد المعلقة داخل المودل. ودمتم.

جيد ما هي معاير التجميع التي تريد مثلا تريد تجميع علي حسب كود الخط وتاريخ اليوم وكود التأشيرة مثلا اذا كان هذا ما تريد فأخبرني وانظر هذا المرفق نتائج استعلام query1 Emp.mdb