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

وعليكم السلا-فقط استخدم هذه المعادلة =COUNTIF($A$2:$A$150,">0") عد الخانات التي تحتوي على ارقام عدا التي تحتوي على صفر و الفراغ1.xlsx

وعليكم السلام أخي بلال 🙂 بعد العديد من المحاولات نجحت ولله الحمد Count Down Timer.accdb

برنامج توزيع الكتروني للطلاب حسب المجموع بما اننا على ابواب عام دراسي جديد .. كل عام وانتم بخير هذا البرنامج يفيد المدارس الفنية " زراعي _ صناعي _ تجاري _ فندقي _ مهني " وكذلك المدارس العامة . حيث يتم توزيع الطلاب على التخصصات المختلفة او الفصول حسب المجموع البرنامج مفتوح المصدر . وقابل للتعديل وكذلك الاضافة . وهو عمل خالص لوجه الله تعالى برنامج تنسيق مدارس.xlsb

تعديل لتكبير الخط في الطباعة Test_4.xlsm

اخي شاهد المرفق Test_3.xlsm

تفضل اخي الكريم تم عمل فورم يعرض لك ما تريد حسب الاختيارات ولكن لم انتهي من البرمجة سنرى ان اعجبك بهذه الطريقة ان اعجبك نتابع الموضوع ....... تحياتي داتا-1.xlsm

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

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

1- عملت استعلام التوحيد qrySum2Balance حينما تختار اسم التمويل وهو مصدر السجلات للنموذج حسابين رصيد سابق 2- عملت استعلام التوحيد qrySum2Balance2 حينما لاتختار مصدر تمويل (وانما الجميع)..,ومنه عملت استعلام تجميع بأسم qrySum1 وهو مصدر بيانات النموذج count2 اما بالنسبة للازرار فواضح الكواد عندك بالتوفيق اخي ابو الحسن

يا استاذ عمر هذا امر مختلف عن الطلب الاساسي في الموضوع لذا الافضل عمل موضوع جديد وضع فيه مثال مصغر واشرح المشكلة لعلك تحصل على الحل المناسب مع الاحاطة بانه للحصول على نتائج فلترة ما بين تاريخين وعرض كافة النتائج بدون فلترة لا نحتاج الى دالة الشرط ولكن نستخدم Between و and وللحصول على كافة السجلات نضع معهما دالة nz وبدلا من الصفر نسند القيمة الخالية الى تاريخين مثلا من 1-1-1900 والاخر 1-1-2100 ولكن هذا موضوع اخر حسب ضوابط الموقع سؤال واحد في كل موضوع 11. ممنوع طرح أكثر من سؤال في موضوع واحد ليسهل البحث عن المواضيع لاحقا. تحياتي

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

نعم صحيح اخي ابو الحسن ..لان فلترة النموذج الرئيسي على اساس التاريخ من /الى وعلى اساس السنة المالية اما فلترة التقرير على اساس التاريخ من/الى ولهذا تظهر جميع القيود بين هذين التاريخ...وبصراحة انا لا افهم بالامور المالية وقلت في نفسي انك ربما وضعت السنة المالية 2020 على سبيل التجربة ولهذا لن تظهر بالنموذج وانما في التقرير...لاحظ هذين السجلين فهم لايظهرون بالنموذج رغم ان التاريخ 24/1/2022 هو ضمن تاريخ الفلترة لكن السنة المالية تختلف فهل السنة المالية للسجلين فيهما خطأ ام هو هكذا ؟ حتى اقوم بأضافة معيار السنة المالية للتقرير

تمام - هو المطلوب ..تسلم ...جزيت خير

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

الله يبارك فى استاذى الكريم هذا هو 😍

السلام عليكم تفضل اخوي عمر حسب طلبك استخدمت مربعي نص من اجل تحقيق الفكرة يمكنك التحكم بعرض الشريط يدويا مع مراعاة العرض داخل الكود Private Sub Form_Open(Cancel As Integer) Me.box2.Width = 6600 End Sub Private Sub Form_Timer() On Error Resume Next If Me.box2.Width = 0 Then Me.TimerInterval = 0 Else Me.box2.Width = Me.box2.Width - Me.box1.Width \ Me.lx End If End Sub Private Sub أمر3_Click() Me.box2.Width = 6600 Me.TimerInterval = 50 End Sub 88 _2.accdb

بعض الطابعات تكون الميزة هذه موجودة في خصائص الطابعة

كما تريد الملف مرفق 01.accdb

اخي قم بتسطير الهيكل الرئيسي لكل الاسئلة حتي تسهل الامر علي من يريد المساعدة من الاخوة خليك مظنش وانا كمان هطنش ...شاهد المرفق Test_1.xlsm

ايوه ... انزل شوية 5 مرات في الموقع دة ..هتلاقي ان الدالة تبعي تنفعك Between Date() And DateAdd("d";-6;Date())

وعليكم السلام ورحمة الله استاذ Jehad.93 ذكرت انك تريد الاستعلام بشروط معينة ولكن ملفك ينقصه شيء والله أعلم والله حاولت افهم الموضوع في اي خلية او خلايا نضع او نكتب الشرط وفي اي شيت حاول وضع بعض البيانات كما تريدها او تتصورها في التقرير وللاستعلام لابد من خلية او تيكستبوكس او كومبوبوكس اعد تصميم للملف واشرح ما تريد بلغة الاكسيل . مثلا اريد الاستعلام بشرط عند ادخال تاريخ او اسم او كود في الخلية b2 شيت data

إخوتي الفضلاء كانت لي مساهمة مع الاخ حسين العربي بخصوص مسار التطبيق وحماية التطبيق بقراءة هذا المسار بالكود ... http://www.officena.net/ib/index.php?showtopic=54485 وتطور النقاش لنصل لمحور حماية جديد يتمثل بالطريقة المعروفة بزراعة ملف في الجهاز وفي مكان محدد ، للبحث عنه وتفقده قبل تشغيل النظام وفي حال العثور عليه يتم تشغيل النظام ، وخلاف ذلك يتم اشعار المستخدم بوجود خطأ رئيسي يتمثل بخلل يتعلق بفقدان هذا الملف وبالتالي الخروج من التطبيق واشعرنا الاخ حسين بانه قد هدي لتطبيق الفكرة بفضل من الله وحيث انني كنت قد بدأت بالتطبيق لأجيب على تساؤله ، رأيت ان اعدل به قليلاً بفكرة راودتني تتمثل باخفاء ملف text في مكان ما من الجهاز وتحريك مسألة الحماية حول هذا الملف ( المخفي ) ، وفكرة الاخفاء تهمني لغايات ابعاد هذا الملف عن الايدي العابثة ، او الخطأ المتمثل بحذف الملف ، وتنحصر الامور هنا غالبا بما بقي من الاحتمالات القائمة لضرورة الحماية ، ومنها إجراء اعادة تنصيب لنظام التشغيل ( الويندوز - فورمات ) ، ومنها أيضا نقل التطبيق بدون علم المبرمج او مدير النظام لجهاز آخر ، وحيث ان المستخدم لا يعلم بشأن هذا الملف المخفى ، ولا يراه بالعادة ، فلن يقوم بنقله و التعامل معه وبالتالي يتوقف النظام عن العمل ، ويضطر المستخدم للرجوع لمدير النظام او المبرمج سيحمل المرفق ملف التطبيق و مجلد باسم AccTxt يحتوي على ملف مخفي باسم 123 يتم نسخ هذا المجلد او قصه ولصقه على القرص c في المجلد Program Files وبذلك يصبح مسار ملفنا المخفي هو C:\Program Files\AccTxt\123.txt وللحديث بقية ... ...........

السلام عليكم اخى ازهر معلش الاجابه متاخره هذه الرساله خاصه بصلاحيات الويندوز ويمكن حلها كالتالى ادخل ع C:\Program Files وقف ع الفولدر AccTxt كليك يمين وبروبيرتز ثم سكيورتى ثم ادفانسد ثم اتشينج بريميشن ثم قف ع اليوزر المستخدم للويندوز واضغط على زر ايديت ثم فعل اختيار Allow ثم اوك للاخر ثم جرب التطبيق ان شاء الله يعمل معك بالتوفيق ع ما اعتقد نعم ولكن اهل الذكر فى منتدى الاكسيل قم بنسخ رابط الموضوع وافتح موضوع جديد فى قسم الاكسيل بامكانيه تطبيق هذا العمل بالرابط التالى وضع الرابط على الاكسيل وان شاء الله اخوانا واساتذتنا فى قسم الاكسيل سوف يقوموا بمساعدتك ان شاء الله بالتوفيق

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

شكرا على مجهودك استاذ @Moosak واثراء للموضوع ..كنت ابحث عن طريقة لعدم ظهور المسافات الفارغة ..وبطريق الصدفة عملت stacked للحقول ثم عملت removed layout فرأيت ان المسافات الفارغة اختفت ..هكذا طبعا يجب ان تعمم على بقية الحقول ..

شكرا عمي @Eng.Qassim معلومة استفدت منها شخصيا ☺️ وأنا طبقتها على الجزء الأيسر من التقرير ونجحت ولله الحمد .. والباقي عليك أخي @elghoultk 🙂 Access Database.zip

عن اذن ولدنا الاستاذ @Moosak.. يفترض ان يكون هذا السؤال بمشاركة مستقلة حتى يتفاعل ويستفيد الكثير من الاخوة ومع ذلك سأجيبك بالمختصر .. اعمل مربع نص بدلا من الليبل امام كل مربع نص يحمل قيمة لنأخذ مثلا التحليل FSH .. نعمل امامه مربع نص بدلا من الليبل وسمه ماشئت ..وفي مصدر البيانات لهذا المربع نضع الكود التالي (طبعا تجعل الجميع can shrik=yes ) =IIf(IsNull([Text31]);Null;"FSH") تعتمد هذا الكود مع الجميع مع تغيير اسم التحليل طبعا تحياتي

أحسنت استاذ مجدى بارك الله فيك وزادك الله من فضله

تفضل لا يمكن عمل أكثر من هذا .. وبكده يبقى لديك طريقتان لطلب يمكنك الإختيار منهما حتى يتم غلق الموضوع .طريقة للأستاذ محمد صالح وطريقتى هذه قائمة منسدلة1.xlsx

بارك الله فيك استاذ محمد وكل عام وانتم بخير

كل عام وأنتم بخير بارك الله فيك استاذ عمرو

بعد ان الاستاذ ابراهيم وزيادة فى الخير تفضل الشيت لعله يفى بالغرض أفواج العطلة.xlsm

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

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

أعتذر أخى على التأخر تفضل لك ماتريد تجربة 1.xls

جرب أخى هذا تجربة 1.xls

تفضل هذا شرح بسيط للكود أتمنى أن يفيدك

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

وعليكم السلام ولإثراء الموضوع ممكن تجرب ده مساعدة محتاج عمل شيت جمع وطرح من عمود واحد.xlsm

تفضل هذا الكود من أعمال أستاذنا الغالى ومعلمنا الكبير الأستاذ ياسر خليل جلب بيانات بين تاريخين.xls

أهلا بك فى منتدانا الكريم شرفت المنتدى ممكن تجرب هذا الرابط لعله يفيدك ويقدم لك المساعدة https://www.officena.net/ib/topic/82162-نقل-اسماء-من-الاكسل-الى-الهاتف/?tab=comments#comment-523373

أحسنت بارك الله فيك وغفر لك

تفضل أخى محمد لك ما تريد وأعتذر عن التأخر لكثرة انشغالى جلب بيانات بين تاريخين.xls

السلام عليكم أقدم لكم برنامج لإدارة المشتريات والمبيعات والمخازن لعله ينال إعجابكم برنامج لإدارة المشتريات والمبيعات والمخازن.xls

تفضل جرب هذا بالمعادلات TEXT.xlsx

ممكن تجرب هذان نموذجان للفاتورة لأساتذم كبار تصميم فاتورة11.xlsm فاااااااتورة خبورية 2.xls

ممكن ترسله تانى هناك مشكلة فى التحميل

السلام عليكم هناك مشكلة فى تحميل الملف ممكن ترسله تانى

عند تحميل النموذج الرئيسي تتم الاجراءات التالية إظهار الملف المخفي ، كي يتمكن التطبيق من البحث عنه HideUnhideFile "C:\Program Files\AccTxt\123.txt", True اذا كان الملف غير موجود سواء أكان السبب عدم وجوده أصلا أو تغيير اسمه او تغيير اسم المجلد تظهر رسالة بذلك ويتم اغلاق التطبيق If Len(Dir("C:\Program Files\AccTxt\123.txt")) = 0 Then MsgBox " التطبيق ضمن مسار غير مصرح به من مدير النظام" & vbNewLine & " أتصل بمدير النظام ", vbCritical, "خطأ في مسار النظام " DoCmd.Quit وحال وجوده يتم تشغيل النظام و إشعار المستخدم ( إن شئت ) بذلك يتم إعادة إخفاء الملف HideUnhideFile "C:\Program Files\AccTxt\123.txt", False

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