walid7799

الفورم رائع .. لكن اخى الكريم جرب ان تحول الفورم popup : n0 border style :sizable وستلاحظ عدم اختفاء شريط اسم النموذج وهذا ما أطلبه فالفعل وشكر وتقدير لهذ المجهود

شكرا للاهتمام ولكن حتى مع وضع النموذج كما بالشرح لا يختفى شريط اسم الفورم يمكنك تجربته بنفسك

اسف لم ادرك تعليقك حتى الان . اسف على التأخير الذي يمنع ان يكون أحد النماذج فى وضع popup انه يتم فتح اكثر من نموذج فى نفس الوقت حيث ان المهام مرتبطة ببعض واستكمال البيانات يكون عن طريق نسخ من نموذج اخر تلقائياً وفى بعض الاحيان يدوياً عن طريق نسخ ولصق ومرة أخرى أسف على التأخير فى الرد على الخبير Foksh هذا الأمر يعطى خطأ لأنه يتعارض مع بعض الاوامر وخصوصاً SetFocus

السلام عليكم ورحمة الله وبركاته .. الاساتذة الافاضل. اريد طريقة فى حالة أذا كان الفورم فى border style (Sizable) اخفاء الشريط المخصص لأسم الفورم بحيث يكون اغلاق النموذج من برنامج الاكسس فقط ولا يمكن التحويل الى وضع التصميم . قمت بفضل من الله عز وجل بعمل فورم عند الفتح يكون Sizable ولا يمكن تحريكه او اغلاقه الا بانهاء البرنامج نهائياً ووضعت بعض الحلول للتحكم فى الشريط المخصص لأسم الفورم ولاكن فشلت جميعا والحمد لله. فهل من اقتراح او كود يحقق المطلوب بحيث يكون هذا الفورم هو الفورم الرئيسي للبرنامج ؟ وجزاكم الله حسن الجزاء مرفق قاعدة البيانات وهى خالية لأنها قيد الانشاء لا يوجد بها سوى النموذج المطلوب وداخل form code جميع الاكواد التى لم تنجح وشكراً لدعمكم المستمر فى هذا المنتدى الرائع منتدى أوفيسنا New Microsoft Access Database.accdb

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

قمت بحمد الله بتصميم برنامج يؤدى المطلوب .. ولكن هناك مشكلة صغيرة تسببت فى مشكلة كبيرة فى الفورم الرئيسي (واجهة البرنامج) يوجد بعض الازرار لفتح بعض الفورمز الاخرى وعند الضغط على احد هذة الازرار يختفى الفورم المفتوح خلف الفورم الرئيسي . المطلوب بعد الضغط على احد الازرار فى الفورم الرئيسي يرجع خلف جميع الفورمز المفتوحة اىا كان عددهم .. توصلت الى كود كالتالى : Docmd.RunCommand acCmdsendtoBack ولكن قمت بوضعه فى جميع الاماكن المفترض وضعه بها دون فائدة .. فهل من حل وجزاكم الله خيرا

جزاكم جميعاً خيراً طلب من الاخ kkhalifa1960 اذا كان يتفضل بالشرح لأنى مش فاهم أخر معيار فى الاستعلام الذى يحتوى على NZ

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

احسنت وجارى التجربة جميل جداً ولكن يبقى الاكسس مفتوح بعد الاغلاق

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

تم تعديل الكود فى قاعدة if ليصبح كالتالى

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

نماذج للشرح

اشكر لحضرتك تعبك واهتمامك واليك المرفق ويمكن فتح المناقشة للوصول لبعض الحلول فى بعض المشاكل اذا لم تمانع Bank.rar

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

افتح form1 برنامج الأرشفة الالكترونية1.rar

ممكن تشرح انت عايز البحث يعمل ازاى ؟

اليك تصحيح البحث قوائم مرتبطة برنامج الأرشفة الالكترونية1.accdb

If MsgBox("هل تريد الحفظ", vbYesNo, "خطابات الضمان") = vbYes Then Application.SetOption "Confirm Record Changes", False If (Not IsNull([BA3] And [BA17] And [BA22] And [BA21] And ([BA5.value > N2]) And [BA1 = "زيادة"])) Then N3 = BA5 - N2 N4 = N3 + N2 BA19 = N4 Forms![ShowNew1]![BA19] = N4 Forms![ShowNew1]![N2] = N4 DoCmd.RunCommand acCmdSaveRecord Application.SetOption "Confirm Record Changes", True ElseIf (Not IsNull([BA3] And [BA17] And [BA22] And [BA21] And ([BA5.Value < N2]) And [BA1 = "تخفيض"])) Then N3 = N2 - BA5 N4 = N2 - N3 BA19 = N4 Forms![ShowNew1]![BA19] = N4 Forms![ShowNew1]![N2] = N4 DoCmd.RunCommand acCmdSaveRecord Application.SetOption "Confirm Record Changes", True ElseIf (Not IsNull([BA3] And [BA17] And [BA22] And [BA21] And ([BA5.Value = N2]) And [BA1 = "رد"])) Then N3 = BA5 - N2 BA19 = N3 Forms![ShowNew1]![BA19] = N3 Forms![ShowNew1]![N2] = N3 DoCmd.RunCommand acCmdSaveRecord Application.SetOption "Confirm Record Changes", True MsgBox "تم الحفظ بنجاح" ElseIf IsNull(([BA1] Or [BA3] Or [BA17] Or [BA22] Or [BA21])) Then MsgBox "أكمل البيانات الاساسية قالناقصة ايمة التسوية - رقم الخطاب - تاريخ الاصدار - تاريخ السريان" End If End If البرنامج تعتبر الجزء الاخير من القاعدة كأنه لم يكن ما الخطأ فى الصيغة

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

جزيل الشكر ولاكن انا جربت كل اشكال الكود مع تقسيمه بمعنى if text1 < text2 then elseif text1 > text2 else endif وايضاً وضعت له Dim رقم طبعاً ..... ولكن فشلت ايضاً فكل الاكواد يتجاهلها الاكسس وكأنها ليست مكتوبة مع أن الكود صحيح وانا متاكد فهل من اهل خبرة يجيب لماذ هذا الكود بالاخص يتم تجاهله مع تنفيذ جميع اوامر المعادلات الحسابية الاخرى

الحقول جميعها أرقام شكرا للاهتمام من يشكر فأنما يشكر الله

السلام عليكم ورحمة الله وبركاته أخوتى واحبائى اعضاء منتدى أوفيسنا الاعزاء أفيدونا يا أهل الخير هل الكود يكون if text1 <> text2 then ........ else ...... end if ما الخطأ فى هذا الكود وليه الاكسس مش بينفذ الأمر لو الكود صحيح ؟

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

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