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

الموضوع جديد على أيضا ولكن دعنى استفسر عن بعض الأشياء لعلى أفيدك بشىء 1- ما هو البرنامج المستعمل لديك هل هو مصمم بالأكسس؟ 2- هذه الشاشة الصغيرة يظهر بها جملة المبلغ المستحق سداده أمام العميل بعد الخصم الممنوح ان وجد اليس كذلك؟ 3- ماذا تريد ان يظهر على الشاشة أيضا أهو نص ما أم ماذا؟

السلام عليكم تفضل أرجو أن يساعدك هذا CalcEmployEge.rar

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

السلام عليكم فى نفس التعبير لأستاذنا الأستاذ يوسف استخدم and اذا أردت تحقق الشرطين معا واستخدم or اذا اردت تحقق احد الشرطين هكذا Total: IIf([f]=1 And [c1] =1;[s]+[m]+[r];IIf([f]=2;[a]+[d]+[n];IIf([f]=3;[t]+[l]+[h];IIf(IsNull([f]);0))))

السلام عليكم آسف قمت بالرد بداية دون الاطلاع على المرفق انظر الى هذا التعديل لعله يوافق مرادك Tauzihat.rar

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

وعليكم السلام ورحمة الله وبركاتة قم بعمل ضغط واصلاح لقاعدة البيانات

الحمد لله هلا أخبرتنا كيف لتتم الفائدة

السلام عليكم 1- هل قمت بفتح النموذج بدون زرار هل تحدث مشكلة عند فتح النموذج 2- هل قمت بتغير خصائص هذا الزرار (تمكين الى لا بتبويب بيانات) Enable = False وأخيرا حاول كما ذكر لك استاذ عبدالله ( ضغط المرفق أو تحميله بأحد مواقع رفع الملفات).

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

جزاكم الله خيرا وزادكم فضلا وعلما وبركة فى العمر والمال والأهل تم

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

أستاذنا جعفر @jjafferr شكرا لثقتكم التى أعتز بها مشاركتم بعمل ما لأمر جدير أن يحرص عليه المرؤ - ولكن حسب ما اتسع الوقت لو سمحتم لى وبعد أما بالنسبة للنقطة الثانية وخصوصا بشأن اجراء تغيرات على الجداول اعتقد أنه دار حوله نقاش بأحد موضوعات أستاذنا أبو خليل وقد أسفرت بالنهاية على مرفق ممتاز يؤدى الغرض يمكن الاستفادة به هنا اذا احتاج الأمر لذلك. واعتقد أن هذا رابط موضوع أستاذنا @ابوخليل أما بشأن فكرة سيادتكم بشأن اضافة ملف نص txt او xml أعتقد أننا الآن ابتعدنا بهذه الفكرة عن مضمون الموضوع الأصلى ( ولكنى أعتقد أنها فكرة متميزة وتستحق أن تفرد بموضوع مستقل ) فما فهمته من موضوع أستاذ @sandanet أنه ما يريد ألا تنزيل ملف واحد فحسب وهو الخاص بكراك التنشيط والذى يرغب بتغيره وفقا لأختلاف البرامج الموزعة على العملاء . عودا لفكرة تحديث البرنامج وفقا لرقم الاصدار الأحدث للنسخة الجديدة اعقد أننا بحاجة للسير وفقا لتسلسل عمل كهذا: 1- نحتاج لوضع كود لتحميل هذا الملف النصى عند بداية فتح البرنامج كل مرة - ومن ثم استيراد هذا الملف ومقارنة رقم رقم الاصدار برقم الاصدار المخزن بجدول مسبق بالبرنامج 2- فان كان رقم الاصدار أكبر من الاصدار الحالى تم العمل على تحميل نسخة البرنامج الأحدث والتى يوجد رابطها بجوار رقم النسخة داخل الملف النصى - وان لم تكن الاصدار أكبر من النسخة الحالية يتم حذف الملف النصى وحذف البيانات التى تم استيرادها بالجدول. 3- ولكن نحن بحاجة لسؤال وتنبيه المستخدم قبل تحميل النسخة الأحدث هل يريد الاستمرار بالتحديث أم لا (حتى لا نفرض عليها قرارات ) هذه بعض الأفكار التى تدور بخاطرى الآن ان لم ترو خللا بها عملت على تنفيذها متى اتسع الوقت ان شاء الله. ولكن هنالك سؤالا يؤرقنى واحاول منع نفسى منه ولكن لم استطع ؟ بالنسبة لمبرمج مبتدأ مثلى فى الغالب يتم تحديث البرنامج وفقا لطلب العميل واعتقد أن امر التحديث التلقائى هذا خاص بشركات كبرى تطرح نسخا لبرنامجها الواحد الذى يقبل عليه اعداد كبيرة من العملاء (كتحديثات الويندوز الدورية وكسبرانتى فيرس وهكذا) ... وليس عميل واحد يتعامل مع مبرمج واحد بشأن برنامج واحد ؟ أرجو أن لا يكون كلامى مزعجا ولا معوقا للمواصلة بتنفيذ الفكرة. تحياتى

جرب هذا ووافنا بالنتائج هذا لأجل من سند رقم : (توضع بمصدر سجلات مربع النص - Control Source) =Nz(Dmin("SandNo";"SandatTable";"SandDate=#" & [Date] & "#");0) وهذا لأجل الى سند رقم: =Nz(Dmax("SandNo";"SandatTable";"SandDate=#" & [Date] & "#");0) طبعا مع تغير المسميات التالية لما يتفق مع تصميمكم sandNo = حقل رقم السند SandatTble = اسم الجدول الذى يحتوى على بيانات السندات SandDate = حقل تاريخ السند ملاحظة: 1- لأن المعيار تاريخ أضفنا هذه العلامة "#" وان كان المعيار نص سنستخدم بدلا منها هذه " ' " 2- يمكن استخدام أكثر من معيار باضافة "And" بين المعاير كتاريخ السند ونوع السند مثلا مع مراعات اختلاف نوع البيانات لكل معيار.

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

جزاك الله خيرا أستاذى وأخى @jjafferr هذا الفارق دائما بين عطاء الأستاذ والتلميذ أحببت اضيف معلومة صغيرة طبعا حفظ الأرقام المقابلة للمفاتيح أمر بغاية الصعوبة وربما البحث عن هذه الأكواد عند الحاجة اليها ربما استقطع جزءا كبيرا من الوقت - لذا اتبع عادا استخدام هذا الكود لاظهار أرقام المفاتيح Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) MsgBox KeyCode End Sub وهكذا يخبرنا الأكسس بالأرقام من دون عناء

وعليكم السلام جرب المرفق اعتقد أنه يعمل على نطاع الفورم لا على نطاق الأبلكيشن StopF4.rar

استاذ @sandanet عند تنفيذ الكود ظهر هذا الخطأ وقد تم اضافة هاتين الجملتين الى الكود وعمل بنجاح والحمد لله Dim fShellRun As Object Set fShellRun = CreateObject("Wscript.Shell") strPing = fShellRun.Run(strCommand) الا انه عند عدم وجود اتصال بالانتر نت لا يوجد اعتراض من قبل الكود وتم اهمال ارسال الرسالة التنبيهية بعدم وجود اتصال

السلام عليكم جرب هذا وافنا بالنتائج برنامج التقسيط.rar

وهنا أداة صغيرة بها زيادة فائدة لعلك تنتفع بها

انظر الى هذا المرفق طبعا يمكن الاضافة والحذف والتعديل حسبما يتطلب العمل مشتريات.rar

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

وعليكم السلام ورحمة الله وبركاته أستاذ نبيل نزلت أهلا وحللت سهلا واتحفت من الطيبات زبدا ولبنا وعسلا ولكون سيادتكم جديدا بالمنتدى سأشير لحضرتك على قواعد المنتدى سريعا ( حتى لا تسمعنا ادارة المنتدى ويتعرض موضوعك للاغلاق ) 1- يجب أن يحتوى الموضوع على عنوان مناسب يصف المشكلة بشكل مختصر. 2- أن يكون الموضوع محتوى على سؤال واحد وليس عدة أسئلة ولطرح المزيد من الأسئلة لا مانع من فتح المزيد من الموضوعات (ولكن مع مراعات البحث عن الموضوع بالمنتدى قبل طرحه لعدم تكرار الموضوعات واختصارا للوقت والجهد.) طبعا هذا للأخذ بالاعتبار عند طرح موضوعات جديدة : والآن: أنت بحاجة لتصميم جدول مستقل يضم بيانات أصناف المشتريات , يعتمد على فكرة اماكن تواجد الأصناف مثلا لنفترض أنى اشتريت صنف أ بتاريخ 1/1 وانتهاء الصلاحية بعد 3 أشهر بكمية 300 وحدة - واشتريت الصنف هو هو بتاريخ 2/1 وانتهاء الصلاحية أيضا بعد 3 أشهر والكمية 200 لكون الباقى من الأول 100 (أعتقد أن هذا ما تعنى) فسأفترض أنى وضعت الصنف أ بالرفوف 1 - 2- 3 وبعد فراغ الرفين 1 - 2 تم ملؤها بالمشتريات الجديدة فصار لدى الصنف بالرف 1 قديم وبالرف 2 جديد (تمام الى هنا ) وعليه سيكون جدول المشتريات الخاص بى يحوى هذه الأعمدة 1- كود المنتج 2- اسم المنتج 3- كود الموزع 4- ناريخ الشراء 5- مدة الصلاحية أو تاريخ الانتهاء 6- تواجد الصنف (كود الرف أو كود المخزن فى حالة تعدد المخازن) 7- الكمية 8- سعر الشراء 9- نوع السداد (نقدا / أو بالأجل) ------------------------------------------------------ ويمكن أضافة أعمدة حسب طبيعة البيانات التى نريد الحصول عليها وكذلك هذه الأعمدة سيتم ربطها بجداول أخرى تحوى معلومات أخرى كجدول الموزعين (أو البائعين أو التجار ) حسب المسمى المتعارف عليه لديكم - وجدول العملاء وأدع المجال لغيرى أرجو أن أكون قد أفدتك

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