نجوم المشاركات

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

يرجى تسمية الأقسام الجديدة التي ترون انه من المفيد أضافتها للموقع هذه بعض المقترحات التي وردتنا سابقا ، برجاء ابداء الراي : ملاحظة ليس بالضرورة اضافة كل ما سيرد ، و ليكن سيتم بحث الأمر باذن الله و اختيار ما يناسب الموقع فى الوقت الحالي مع تلبية الرغبات الواردة قدر المستطاع قسم للبحث العلمي و به الأقسام التالية: - مناهج البحث العلمي - علم الاحصاء - SPSS - R & ORange قسم للغات البرمجة .net العام - VB.net - C#.net - C++.net - Python - Delphi - VB6 تطبيقات الويب - PHP - Java Script - My SQL دعم منديات الاي بي قسم للدعم الفني للشبكات و انظمة التشغيل - أنظمة الويندوز - اللينكس - الشبكات الأمن و الجماية قسم للرسوميات و الوسائط المتعدد - ادوب فوتوشوب - ادوب ديزياين - ادوب اليستراتور - أتوكاد 3 دي ماكس

استأذن من السيد @kanory اتفضل ما طلبت Dim MyPagRecCnt As Integer Private Sub Report_Page() MyPagRecCnt = 0 End Sub Private Sub تفصیل_Format(Cancel As Integer, FormatCount As Integer) MyPagRecCnt = MyPagRecCnt + 1 Counter = MyPagRecCnt End Sub الرقم التسلسلي في التقرير.rar

السلام عليكم ورحمة الله أخي الكريم، خطأ بسيط في المعادلات يتمثل في ضرب القروش في 100 ومن المفروض هو ضرب الجنيهات في 100 (وقد عكست ذلك في المعادلات) من جملة المستقطع... المهم تم التصحيح في المرفق... معذرة على هذا الخلل... أخوك بن علية إخفاء أخطأ المعادلات+التوضيح.rar

كيف نختار اعداداً عشوائية بين عددين (كل الارقام او بعضها حسب المطلوب) دون ماكرو و دون تكرار (فقط معادلات) مع التنبيه في حال اخترت عدد الارقام المطلوبة اكثر من الفرق بين الحد الاقصى والحد الادنى من هذين العددين كل هذا في الملف المرفق Randbetween_without repetition with Formula.rar

اوضح المطلوب او ارسل صورة توضيحية المرفق وحدة لايفهم منه المطلوب في اعتقادي ان كل الاساتذة مافهمو طلبك ملاحظة : لاتيأس كل مشكلة ولها حل بحول الله

هيا بالفعل زى ما توقعت عدد Refrences المفعل فى المثال الاصلى مختلف عن قاعدتى هحاول افعل باقى Refrences

السلام عليكم @Amr Ashraf اخي الكريم انا قمت بالتجربه بجهازي بمرفقك شغال كويس بس حاول عندما تجيك الرساله تظغط الزر الوسط بيوديك الي الكود حط هذا الكودببدايه الكود الذي عندك On Error Resume Next ان شاء الله يكون الحل

بارك الله فيك استاذي يوسف ذا من طيبك بارك الله فيك ربنا يجزيك كل خير تحياتي اليك

ممكن تعطيني مثال..

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

البركه فيك استاذي عملها لي الاستاذ@kanory بارك الله فيه عمل الخاصيه بالنموذج مشروط نعم ومنبق نعم فصار مهما افتح اي نموذج من نفس النموذج الريسيئ يرجع التركيز كما كان تحياتي اليك استاذ يوسف

اخي الكريم .. تفضل جرب المرفق التالي وهو للأستاذ محمد ايمن (عضو ذهبي) من اعضاء هذا المنتدى العريق ملاحظة : هنالك ملف dll اسمه SQLDMO.DLL يجب ان تحمله من النت وان تضعه في نفس مسار البرنامج هذا .. عذراً لاني لم اتمكن من رفعه بسبب حجمه وضعف الاتصال لدي لكن يمكنك البحث عنه في الانترنت وتنزيله تحياتي Link All Table From Sql DataBase.zip

استأذن من استاذ @Amr Ashraf لا يمكنك تستخدم دي ماكس بل تقدر تستخدم هذا الكود في الاستعلام اعلى قيمة للحقول: IIf([رجال]>=[نساء] And [رجال]>=[اطفال];[رجال];IIf([نساء]>=[رجال] And [نساء]>=[اطفال];[نساء];[اطفال])) Database5.zip

أهلا بك محمد.. ضع الشفرة التالية في كل النماذج Private Sub Form_Resize() Call MinimizeAccess(Me) End Sub

بارك الله فيك اخي العزيز ابو زاهر حبذا لو تضع الحل الذي توصلت اليه للفائدة ... مع الشكر و التقدير

اتفضل تم تغيير كل شيء تقريبا واستخدمت دالة دي لوك اب اتفضل Database11.rar

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

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

بارك الله فيك وجعله بميزان حسناتك الف شكر استاذي

أخي أبو زاهر بالنسبة للشرح تم تعديل امرين في برنامجك : الأول : اضافة هذا الكود للنموذج الاساسي ليتم فتح النموذج المطلوب بعد الضغط على مفاتيح الكيبورد في حدث عند مفتاح للاسفل Select Case KeyCode Case vbKeyF2 DoCmd.OpenForm "تعديل صنف" Case vbKeyF5 DoCmd.OpenForm "اضافه صنف" End Select الثاني : جعلنا خاصية النموذج الاساسي منبثق نعم وشكلي أو مشروط نعم حتى لا يتم اغلاقة عند فتح النماذج الاخرى وايضا عند العودة له ينتقل المؤثر اليه دون الحاجة لكود

السلام عليكم ورحمة الله أخي الكريم، هذه محاولة في الملف المرفق حسب فهمي للمطلوب، إن لم يكن هذا ما تنتظره فأرجو أن تضع لنا النتائج المرجوة يدويا في كل خلايا العمود P ونحاول وضع المعادلات المناسبة... بن علية حاجي إخفاء أخطأ المعادلات.rar

السلام عليكم هناك حل اخر واسهل من هذا استخدم قناع الادخال اكتب فيه 0000 في هذه الحالة انت ملزم بكتابة رقم من اربع منازل يعني عدد الاصفار يحدد الخانات او اكتب 9999 في هذه الحالة انت يمكنك كتابة رقم من 1 الى 9999 يعني غير ملزم بعدد الخانات تابع الفيديو التالي

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

شكرا اخي الكريم شكرا اخي الكريم

أقدم إليكم اليوم طريقة للبحث عن أكواد الVBA في العم جوجل و ذلك بكتابة العبارة الآتية .......VBA CODE TO

السلام عليكم ماعم يفتح معي برنامج عم يفتح ملف اكسل

تفضل : كل فكرة ولها حل drt2.rar

اضف هذا السطر فى الاستعلام التاخير: Format(TimeValue([الحضور الدفتري])-TimeValue([الحضور الفعلي]),'Short Time') & IIf([الحضور الفعلي]<=[الحضور الدفتري],"+","-") هذه الطريقه لاظهار النتيجه بالقيمه السالبه تعلمتها من الاستاذ رمهان كما يمكنك كتابة سطر الاستعلام بهذه الطريقه التاخير: Format(TimeValue([الحضور الدفتري])-TimeValue([الحضور الفعلي]),'Short Time')