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

تم حل المشكلة بفضل الله جذريا لضبط إعدادات التاريخ الهجرى بزيادة او نقصان بدون اى وسائل مساعدة فقط بكود برمجى داهل الاكسس وبفضل الله يعمل 100 % أتمنى من السادة الاساتذة الأفاضل إن امكن ان أتقدم اليهم على استحياء بهذا الطلب وهو استبدال المرفق الاصلى للموضوع بهذا المرفق وعيد سعيد لكل اخوتنا واساتذتنا بالمملكة العربية السعودية وكل عام وانتم بخير وسعادتنا اخوتنا الكرام فى كل بلداننا العربية الوقت والتاريخ عربى V1.0.2.mdb

السلام عليكم ورحمة الله تعالى وبركاته اعضاء منتدانا الغالى كل عام انتم بخير عيدكم مبارك قد يكون الموضوع مخالف ولكن عزرا لكم اخوانى احببت ان اشارككم او تطبيق اقوم بتنفيذه بواسطة VB.net رافع الصور Photo Upload manger نظرا لحاجاتنا الى رفع الصور لعرضها هنا ونظرا لقلة مساحة المرفقات احببت ان اشارككم برنامجى اى اخطاء او تعديلات اسالكم مشكورين ان تذكروها فى التعليقات شروط الخدمة ملحوظة صغيرة يمكنك الاعلان عن اى شئ تريده عن طريق البرنامج فقمت بتفعيل خاصية الاعلانات من خلاله وهذا فيديو يشرح طريقة العمل http://recordit.co/WpMHEOU9m4 والان مع المرفق PUM 1.00.rar

كيفية عمل فورم من خلال الفرام وتخطيط جدول وادراج ماديول جذء 2 الفيديو الصور الملف شرح كيفية عمل فورم من خلال الفرام وطريقة عمل جدول الجذء الثانى.rar

السلام عليكم إن كنت قد فهمت ما تريده بالضبط جرب المرفق.... بن علية حاجي الجدول النهائي ان شاءالله (2).xlsm

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

اجعل واجهة برنامجك تحتوى على الوقت والتاريخين الميلادى والهجرى بالعربى امكانية استدعاء الدوال للتحويل للعربى من اى مكان فى قاعدة البيانات ببساطة ملاحظة تستخدم فقط فى الواجهات او التقارير او الكائنات الغير منضمة على الرغم من امكانية ذلك ولكن سوف يحتاج خطوات معقدة ههههههههههههه كنت شبه الراجل دع و انا باعمل الاكواد دى لما الكود كان يطلع مش مظبوط الوقت والتاريخ عربى.zip

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

🎈عيد سعيد🎈 هديــــة العيد : تحويل التاريخ يحتوى المرفق على بعض الاكواد المجمعة فى موديولات لا غنى عنها تحويل التاريخ.zip

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

عيدكم مبارك وايامكم سعيدة ان شاء الله 🙂 جعفر

كل سنه وانت طيب وبخير وعيد سعيد

السلام عليكم 🙂 أخي الوزير قام بالعمليات مرتين، فلهذا السبب يأخذ برنامجه وقت لعرض النتائج ، وانا عملت تغيير في الاستعلامات فقط ، وابقيت واستعملت نفس وحدته النمطية ، ونتيجتي كانت اسرع 🙂 استعمل الاستعلام qry_Results_New 🙂 وعيدكم مبارك 🙂 جعفر 1057.Lab 2019-waz.accdb.zip

كل عام و أنتم طيبون وبصحة وسلامة

شرح كيفية عمل فورم من خلال دخول ارقام فى خانة المرتب وعدم زيادة تاريخ العام الجذء الرابع الفيديو الصور شرح كيفية عمل فورم من خلال دخول ارقام فى خانة المرتب وعدم زيادة تاريخ العام الجذء الرابع.rar

وعليك اخ يوسف

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

الاخ الفاضل / مصطفي كل سنة وانت طيب لفتة منك حسنة ـ بس كانت هتكون احسن لو ذكرت اسمي ضمن ههؤلاء العباقرة ـ اضحك معاك

عاوزين نشوف اعمالك اكيد جاى بعد مدة غياب باعمال جديدة

ههههههههههه وانت طيب لازم تعرف يعنى هو بيرفعها على التخزين السحابى دروبوكس بمساحة خاصة بى

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

تفضل التعديل اخي الكريم اضغط هنا للتحميل

السلام عليكم ورحمة الله تفضل المطلوب حسب فهمي للموضوع... باعتبار أن الزيادة 9% هي لكل راتب جديد في كل سنتين... بن علية حاجي المصنف1_1.xlsx

تفضل Lab 2019-waz.rar

p حاضر -------------> Present off موقوف -----------> off H عطلة ---------------> holiday HW عطلة يسمح فيها العمل ------------ holiday work A غائب -----------------> absent SL اجازة مرضية -------------------> Sick leave CL اجازة عادية ------------------> Casual leave EL اجازة مكتسبة --------------> Earned leave LWP اجازة بدون اجر -----------> Leave without pay SP اجازة خاصة -----------------> Special leave

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

اخي جرب المرفق Copy of combobox.xlsm

الحمد لله تعالى الذى تتم بنعمته الصالحات سبحان الذى هدانا لهذا وما كنا لنهتدى لولا ان هدانا الله عزوجل سبحانك لا علم لنا الا ما علمتنا انك انت الحكيم العليم فيارب لك الحمد كما ينبغى لجلال وجهك ولعظيم سلطانك

ما شاء الله تبارك الله يعمل بنجاح أستاذي ابا جودى، اللهم كما رفعت ذكر اللغة العربية لغة اللقرآن اللهم ارفع ذكرك وخلده وعلي منزلتك في الدنيا والآخرة .

العفو منكم اخى الحبيب هذا فضل الله وان شاء الله تصل الى بيتك سالما غانما بأمر الله 🎈عيد سعيد🎈 اخى الحبيب

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

ظهور رسالة خطأ رقم 13 الخطأ بدأ معي عند دخول اليوم الجديد 1 / شوال / 1440هـ الساعة 12:00ص يمكن الخطأ يتعلق بالوقت .

السلام عليكم ورحمة الله جرب المرفق لعل فيه ما تريد... بن علية حاجي الجدول النهائي ان شاءالله.xlsm

جرب هذا الكود Sub give_data() Application.ScreenUpdating = False Dim x As Byte x = Application.CountA(Sheets("SAISIE").Range("B1:B6")) If x < 6 Then MsgBox "Incomplete Data" & Chr(10) & _ "You have Only " & x & " Values": GoTo Exit_sub Sheets("SAISIE").Range("B1:B6").Copy Sheets("DATA").Range("A" & Rows.Count).End(3).Offset(1) _ .PasteSpecial Paste:=xlPasteAll, Transpose:=True Sheets("SAISIE").Range("B1:B6").ClearContents Exit_sub: Application.ScreenUpdating = True End Sub الملف مرفق COPY-VBA.xlsm

تفضل Lab 2019NLast.rar

السلام عليكم أعد نسخ ولصق المعادلة من جديد لأني لم أجد فيها أي خلل... =IF(B3="";"";IF(OR(MID(H3;1;4)="قرار";MID(H3;1;10)="عدم اختصاص";MID(H3;1;5)="تدافع";TODAY()-B3=0);"صدرت";IF(TODAY()-B3>=10;"لم تصدر";TODAY()-B3))) أو أرفق الملف الذي تعمل عليه كما اقترح عليك أخي الكريم "أحمد يوسف".... بن علية حاجي

جزاكم الله خيرا

تفضل بالطبع بعد اذن استاذنا سليم نموذج.xlsx

هذه المعادلة =TEXT(E2,"0000000")&"-"&TEXT(D2,"0000000")

جرب هذا التعديل Sub Macro3() Dim AA As Range For Each AA In Range("L10:L" & [L1000].End(xlUp).Row) If AA <> Empty Then AA.Offset(1, -6).Resize(1, 6).Copy Sheets("قوائم").Range("C" & Sheets("قوائم").[C1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues End If Next Application.CutCopyMode = False End Sub