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

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

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

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

الموضوع جديد على أيضا ولكن دعنى استفسر عن بعض الأشياء لعلى أفيدك بشىء 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

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