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

السلام عليكم ورحمة الله وبركاته .. في ليلة صافية والجو بين البارد والمعتدل .. وأنا أتصفح الفيس بوك .. لمحت سؤال لأحد الإخوة يطلب فيه طريقة لحساب عدد أيام الغياب والحضور للموظفين في نموذج مستمر .. فخطرت على بالي هذه الدالة الصغنونه الظريفة .. فوضعتها موضع التنفيذ مع نموذج دايناميكي لتقويم شهري كنت قد صممته سابقا مع سبق الترصد 😁 وقلت أضعه بين أيدي جنابكم لمن أراد أن يستفيد منه .. ولمن أراد أن ينفعنا بنصائحه الثمينة والسمينة 😅🖐🏼️ وهذه هي الدالة المستخدمة في عمودي مجموع الحضور والغياب : Public Function Count_Present_Absent(P_or_A As String) As Integer ' دالة لحساب عدد أيام الحضور وعدد أيام الغياب من تقويم مكون من 31 يوم ' By: Moosak 'P_or_A = Present or Absent ? وتعني أنت تريد حساب الحضور أم الغياب ' على أفتراض أن أسماء حقول الأيام هي على التوالي : Day1, Day2, Day3 ...... Dim x As Integer Dim Frm As Form: Set Frm = Screen.ActiveForm Dim PresentDays As Integer, AbsentDays As Integer Count_Present_Absent = 0 For x = 1 To 31 If Frm.Controls("Day" & x).Value Like "*ح*" Then ' حساب عدد أيام الحضور PresentDays = PresentDays + 1 ElseIf Frm.Controls("Day" & x).Value Like "*غ*" Then ' حساب عدد أيام الغياب AbsentDays = AbsentDays + 1 End If Next ' الدالة ترجع مجموع عدد أيام الحضور أو مجموع عدد أيام الغياب حسب الطلب If P_or_A = "P" Then Count_Present_Absent = PresentDays ElseIf P_or_A = "A" Then Count_Present_Absent = AbsentDays Else Set Frm = Nothing Exit Function End If Set Frm = Nothing End Function موضوع سريع وعلى الطاير قبل أن تتفلت المعلومات 😊🖐🏼️ تسجيل حضور وغياب الموظفين.accdb

السلام عليكم و رحمة الله اخوتى و أحبتى اعضاء منتدى اوفيسنا الحقيقة ترددت كثيرا قبل كتابة هذا الموضوع و لعدة اسابيع و لكنى اليوم قررت ان ارتدى ثوب الشجاعة و اقدم اليكم ذلك البرنامج المتواضع و الذى كلفنى جهدا ليس بالقليل و قد اوحى الى فكرته حفيدى مازن لذا قررت ان اسمى البرنامج باسمه و فكرة البرنامج هو استعراض حروف و كلمات اللغة العربية البسيطة و التى تناسب عقلية تلميذ كى جى 1 و كى جى 2 مدعوما بالصور التى قد يعرفها الطفل فى ذلك العمر ملحوظة هامة : لابد من دعم الابوين حتى يتعلم الطفل استخدام البرنامج بنفسه و الآن على بركة الله .... اليكم البرنامج ( بعد فك الضغط لا يتم استخراج اى ملف من الفولدر) Mazen.rar

وعليكم السلام ورحمة الله وبركاته 🙂 شكرا لتهانيكم وتبريكاتكم إخواني / آبائي / أساتذتي الأعزاء 🙂 🌹 يكفيني شرفاً ورفعة وجودي بينكم إخواني الأعزاء وما يزيدني هذا المنصب عنكم مقدار درجة ، فأنا منكم وإليكم والسلام عليكم 😅🖐🏼️ والشكر مرفوع للإدارة الكريمة ، والوالد والمهندس والأستاذ العزيز @jjafferr 🙂 نفعني الله بكم ، وأعاننا جميعا على حمل الأمانة 🌹🤲🏼

وعليكم السلام أخي أزهر 🙂 طلبط بسيط بإذن الله ، ولكن سأعرض عليك خدمات أكثر 😊 - هل تريد نقل الملف أيضا إلى مجلد بجانب قاعدة البيانات ؟ - وإضافة زر لفتح الملف .. ؟ - وزر آخر لحذفه ؟ إذا كانت إجابتك بنعم .. فسأرفق لك الأكواد .. أما إذا كنت فقط ستكتفي بالسؤال فهذا هو الكود الذي طلبته 🙂 : On Error GoTo ErrHandler Dim fd As Object Dim filedialogPath As String Set fd = Application.FileDialog(1) fd.AllowMultiSelect = False fd.Title = "حدد الملف المطلوب" fd.Filters.Clear fd.Filters.Add "كل الملفات", "*.*" If fd.Show = True Then 'Debug.Print fd.SelectedItems(1) Me.filesource = fd.SelectedItems(1) Else MsgBox "لم تقم باختيار أي ملف" Exit Sub End If ErrHandler: If Err.Number = 0 Then Exit Sub Else MsgBox "Error Number : " & Err.Number & " :::: " & Err.Description End If

السلام عليكم 🙂 اخوي موسى @Moosak هذا تشريف للموقع والاعضاء ، وانت اهل لذلك ، فأهلا وسهلا بك 🙂 جعفر

اعتقد اني رأيت مواضيع في المنتدى تتحدث عن ذلك .... اما باخفاء المجلد أو تحويله الى ملفات نظام ... والله اعلم .... ابحث عنها اخي الكريم

بارك الله فيك أخي@ابراهيم الحدادوجعله الله في ميزان حسناتك ...آمين أسأل الله تعالى أن يحفظ ذرياتنا جميعاً بحفظه ...آمين

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

بارك الله فيك ي ا أستاذ @ابراهيم الحداد 🌹🌹🌹

بالتوفيق الأخ موسى وتحياتي الى الأخ الأستاذ جعفر 🙂

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

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

الف الف مبروك اخى الكريم

وعليكم السلام 🙂 تذكر لما تروح تأخذ سيارتك لتصليح الماكينة ، ولما ترجع يقولون لك تم تصليح السيارة ، ويعطوك علبة مليانه براغي ، يقول لك هذه البراغي كانت زيادة ، فما كان في داعي نرجعها مكانها 🙂 الله يسلمك ، هذا اللي عملته مع النموذج ، كان مليان كود زيادة ، فجعلته كله اسفل النموذج ، واوقفت عمله ، وحذفت صفحة كود التقرير الفاضية 😁 تركت التقرير الاصل report1_ORIGINAL ، وعملت تغييرات اكثر من مرة على التقرير الآخر ، وما كان فيه مشكلة ، جرب واخبرنا النتيجة لوسمحت 🙂 جعفر Badges.zip

وعليكم السلام ورحمة الله وبركاته الأكواد الموجودة في البحث التالي قد تفيدك فأنت تحتاج إلى كود بنفس فكرة التفقيط https://www.officena.net/ib/search/?q=تفقيط&quick=1&type=forums_topic&nodes=135

أنا والوقت .. كل واحد يركض على صوب 😅🖐🏼️ السمع والطاعة 🙂

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

جعله الله في ميزان حسناتك يوم القيامة

جعله الله في ميزان حسناتك

السلام عليكم هدية بسيطة جدا لكم وهو رد جميل كل من ساعدني القاعده ربما تنيرك بفكرة ما وليس شرط استخدامه نواة القاعدة 64بت تم بناؤها بإصدار اوفيس 2016 اللغة الإداريه (العربية) البرنامج بسيط واكواده بسيطة ويعتبر من اوائل البرامج اللي صممتها وشغاله تمام بإذن الله واعدكم بتطويره في اقرب وقت واعادة رفعه وسأخذ ردودكم واقتراحاتكم بعين الاعتبار البرنامج يستهدف لمن لدية مكتب عقار ويريد تنظيم العقود إلكترونيا يمكنك من خلاله تسجيل عقود إيجار العملاء بكافة تفاصيله وكذلك تسجيل الدفعات برنامج إدارة الأملاك والعقارات برنامج لإدارة العقارات والملاك و عقود التأجير والتقسيط بشكل تفصيلي يمكنك طباعة البيانات الأساسية والدفعات لعرضها للعميل النسخة هي النسخة المختصرة بحيث يتم فيها تسجيل البيانات الأساسية للعقار وبيان الدفعات حيث النسخة التفصيلية نقوم بإنشائها الأن يمكنك البحث بشكل سريع عن أي رقم عقد ليعرض لك بيانات العقد والدفعات البرنامج يقوم بتنبيهك في حال انتهاء الايجار او باقي على انتهاء العقد خلال شهر او اربع شهور او عشر أيام ----- بعض الصور تأجير لمتابعة العقود والايجارات.rar

فعلا انا اعمل الآن لارسال شهادات حلقات تحفيظ الى اولياء الامور عبر الواتس توقفت عند ارسال التقرير (الشهادة) ، وما زلت احاول اذا جد جديد لدي وتوصلت الى الحل وضعته لك هنا او لعل احد الاخوة لديه الحل فنستفيد منه جميعا

وفقكم الله وحفظكم من كل سوء استاذنا العزيز ابو احمد

ما شاء الله تبارك الله تستاهل اخي @Moosak مزيد من التألق والى الامام ...

وعليكم السلام ورحمة الله وبركاتة ضع الفولدر المسمي تخزين علي برتيش D ....وان ارت تغير الموقع يكن من هنا ... FName = "d:\تخزين\" واستخدم الملف المسمي Main من اي مكان تفضل تخزين.rar

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

جزاك الله خيرا يا استاذ كريم نظيم

Private Sub Form_Load() Image1.Picture = LoadPicture("C:\Users\username\Pictures\image.jpg") End Sub دا كود لتحميل صوره علي الفورم يقد يفيدك

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

فعلا واشهد ان @Moosak من الخبراء وهو يستحق هذا اللقب والف مبارك

السلام عليكم و رحمة الله اخوتى و احبائى شرفنى مروركم الكريم و مشاعركم الطيبة

تفضل اخي ابو طارق 4you.accdb

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

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

الحقيقة و نظرا لتمرسي بال vba و الفجوال 6 تجدني باطنيا اخشى الانتقال للغة اخرىى خوفا من صعوبتها . اما عن منتدو الدوت نات صراحة يفتقر الى العديد خاصة برؤية مبتدى فهو بحاجة للبدتية من الصفر مثلا كوضع البرنامج لتحميله و بعض الدروس و الامثلة البسيطة تساعد الانتقال

ما شاء الله موضوع مميز وجميل وربنا يبارك لك فى حفيدك

VB6 حكاية عشق لا يمكن لعشاقها تركها ، وما VBA إلا بنتها

اخى الكريم غير اكواد التفريغ خارج الحلقه المتكرره Sub SaveBill() On Error Resume Next Dim Lrow As Integer Lrow = ورقة3.Cells(ورقة3.Rows.Count, "a").End(xlUp).Offset(1, 0).Row ورقة3.Cells(Lrow, "A") = ورقة1.Cells(2, "B") ورقة3.Cells(Lrow, "B") = ورقة1.Cells(3, "B") ورقة3.Cells(Lrow, "C") = ورقة1.Cells(4, "B") ورقة3.Cells(Lrow, "D") = ورقة1.Cells(29, "D") ورقة3.Cells(Lrow, "E") = ورقة1.Cells(29, "F") ورقة3.Cells(Lrow, "F") = ورقة1.Cells(30, "F") ورقة3.Cells(Lrow, "G") = ورقة1.Cells(31, "F") ورقة3.Cells(Lrow, "H") = ورقة1.Cells(32, "F") ورقة3.Cells(Lrow, "I") = ورقة1.Cells(33, "F") Dim LastRow As Integer Dim R As Integer For R = 7 To 27 If (ورقة1.Cells(R, "b") = "") Then Exit Sub End If LastRow = ورقة2.Cells(ورقة2.Rows.Count, "A").End(xlUp).Offset(1, 0).Row ورقة2.Cells(LastRow, "A") = ورقة1.Cells(2, "B") ورقة2.Cells(LastRow, "B") = ورقة1.Cells(3, "B") ورقة2.Cells(LastRow, "C") = ورقة1.Cells(4, "B") ورقة2.Cells(LastRow, "D") = ورقة1.Cells(R, "B") ورقة2.Cells(LastRow, "E") = ورقة1.Cells(R, "C") ورقة2.Cells(LastRow, "F") = ورقة1.Cells(R, "D") ورقة2.Cells(LastRow, "G") = ورقة1.Cells(R, "E") ورقة2.Cells(LastRow, "H") = ورقة1.Cells(R, "F") Next ورقة1.Cells(2, "B") = "" ورقة1.Cells(3, "B") = "" ورقة1.Cells(4, "B") = "" ورقة1.Cells(R, "B") = "" ورقة1.Cells(R, "C") = "" ورقة1.Cells(R, "D") = "" ورقة1.Cells(R, "E") = "" ورقة1.Cells(R, "F") = "" End Sub

تمام اخوي موسى وهذا اللي يعمله الكود ، ولكن يعملها بقيمة متغير غير محفوظة ، ولاحظ ان لديه صور سابقة يريد فتحها ، موجودة فعلا في مجلدات البرنامج ولكن مساراتها في الجدول مختلفة تم عمل اللازم .. عند فتح الصورة يتغير مسارها في الجدول الى المسار الجديد وذلك بتحديث قيمة الحقل في الجدول بقيمة المتغير " ii " الذي يحمل قيمة المسار الجديد الرقم 1 ( المستوى الأول ) يعني المجلد الاقرب لملف الصورة اي المجلد الذي بداخله الصور والرقم 2 ( المستوى الثاني ) هو المجلد الذي قبله وهو الظاهر بجانب قاعدة البيانات فلو لديك مجلد ثالث بجانب قاعدة البيانات بداخله مجلدات فلا يحتاج التعديل على الكود لأنه بنفس المستوى اما لو لديك 3 مجلدات متداخلة هنا يلزم اضافة سطر يحمل المستوى الثالث تفضل المرفق بعد التعديل التراخيص3.rar

طبعا وجودك كإداري ما مفروض يُنقص شيء من ابداعاتك الفنية ، فنحن بإنتظار المزيد منها ان شاء الله 🙂 جعفر

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

مبارك أخي @Moosak انضمامك إلى فريق العمل وعساك ع القوة.

الف مبروك... استاذ @Moosak وفقك الله وأعانك في مساعدتنا

ألف مبروك

استاذ/ @Moosak مبارك ان شاء الله ـ اختيار موفق من فريق الموقع وهو اهل لذلك

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

اختيار موفق وموسى يستاهل الف مبروك استاذ موسى🌹

أنصحك بال #C .. 😊👌🏼 والمنتدى موجود .. بس محتاج تفعيل حبتين https://www.officena.net/ib/forum/183-cnet/

السلام عليكم ورحمة الله لا يصلح لا التنسيق الشرطي ولا المعادلات لحل هذه الحالة... قمت بإنشاء كود بسيط يقوم باستبدال الحرفين "م" و "غ" بالكلمتين "مجاز" و "غائب" على الترتيب... أما رقم 0 فيكفي تخصيص تنسيق على الرقم 0 (تجد ذلك في الملف المرفق)... أرجو أن يفي ذلك المطلوب... تنسيق مشروط.xlsm

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي اليك برامج هدية لك ولكل اعضاء وزوار منتدى اوفيسنا . ملف تم تعديله بطريقة دينامكية تمكنك من دمج اكثر من 100 ملف في مجلدات مختلفة في ملف واحد . رابط لشرح طريقة الاستخدام بالتوفيق............ Sh_2023.zip

أنشئت هذا البرنامج للأستعمال الشخصى فانا من قام بجلب الكلمات من احدى المواقع وقمت بترجمتها بجوجل واعرضه هنا ربما 😀يفيد احد صغير او كبير هذا البرنامج ناطق يضم اكثر 3000 كلمة انجليزية مستخدمة فى المحادثات ومترجمة ( اى من يعرفهم يفهم 90% من محادثات اللغة الانجليزية ) With 2,500 to 3,000 words, you can understand 90% of everyday English conversations, English newspaper and magazine articles, and English used in the workplace وهو يصلح ان يضع فيه اى اسئلة واجوبة للاختبار واخفاء الاجوبة او الاسئلة كما يقوم البرنامج بقراءة اللغة الانجليزية فى الخانة الاولى عند ضبط الاعدادات وهو يصلح للكبار والصغار ومراجعة المناهج يسمح ويفضل نشره او جزء منه للمنفعه العامة يحتاج البرنامج مكتبة microsoft speech object library والتى تحتوى على ملف sapi.dll واختيارها وتوجد هذه المكتبة فى الويندوز Text-to-Speech (TTS) ويجب تفعيلها وضبطها وهذا مثال بسيط فى التعامل مع مكتبة نطق النص تبديل نص الزر أخفار واظهار العناصر تمكين وعدم تمكين العناصر(السماح بالكتابة و والتعديل) التعامل مع السجلات الرسائل النصية واختيار الزر الافتراضى انشاء فلتر وتنشيطه اخفاء شاشة الاكسيس والقوائم اغلاق نموذج اخر فتح نموذج اخر طرق منع تحذيرات النظام واستعادتها التعامل مع دالة Select Case استعلام الحذف استعلام الاضافة استعلام التحديث اخفاء النماذج من التعديل اخفاء الجداول من التعديل النموذج المنقسم عمل ميكرو متعدد استخدام دالة DCount استخدام نص يعتمد على قسمة حقلين تنسيق الحقل للحصول على نسبة مئوية استخدام نص التلميح control tip text التعامل مع زر الاختيار استخدام الدالة العشوائية مع تحديد مجالها الانتقال الى سجل عشوائى تنسيق العنصر على حسب قيمته استخدام وسائل تصدير البيانات معظم الاحداث انشئت ميكرو وتم تحويلها الى vba ملحوظة يمكن استيراد البيانات الى الجدول لمن يعرف وننوه ان البرنامج يصلح للدراسة سواء كان كبير او صغير يمكن الاستفاده منه وانوه ان الترجمة حرفية يمكنك تغييرها للأفضل ان رأيت ذلك البرنامج انشئ على اكسيس 2019 64 بت وويندوز 10 نفعكم الله به للتنزيل من هنا https://gofile.io/d/7UWmB7 اضغط هنا للتنزيل من موقع خارجى او التنزيل من المرفقات 3000Words.zip