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

مرحبا في الكود الذي يبدأ بالسطر : Private Sub kh_AddNewRecord() أكتب في آخر الكود الأسطر التالية With Me.Controls("Textdt" & 7) .Value = Format(Date, "dd-mm-yyyy") .Enabled = False End With

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

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام ..أحبابي في الله أقدم لكم اليوم كودين ، تعتمد الفكرة فيهما على تجميع القيم التي يتم إدخالها ، مع كل إدخال جديد في المرفق ستجد ملفين .. الملف الأول باسم Single Cell Accumulator أي التجميع للقيم في خلية واحدة فقط ويظهر الناتج في نفس الخلية .. قم بإدخال أي قيمة في الخلية A1 وليكن 5 ثم سهم لأسفل واكتب القيمة 4 ستجد أن ناتج الخلية أصبح 9 ، اكتب 3 ثم سهم لأسفل ستجد الناتج أصبح 12 وهكذا .. أعتقد أن فكرة الكود قد وصلتكم الآن .. لإعادة ضبط عملية التجميع قم بمسح محتويات الخلية A1 أو وضع نص بها .. الكود في الملف الأول بهذا الشكل (في حدث ورقة العمل) Private Sub Worksheet_Change(ByVal Target As Excel.Range) Static dAccumulator As Double With Target If .Address(False, False) = "A1" Then If Not IsEmpty(.Value) And IsNumeric(.Value) Then dAccumulator = dAccumulator + .Value Else dAccumulator = 0 End If Application.EnableEvents = False .Value = dAccumulator .Select Application.EnableEvents = True End If End With End Sub الملف الثاني باسم Two Cell Accumulator وفي هذا الملف تتم عملية الإدخال في الخلية A1 بينما تظهر النتائج في الخلية B1 ، ففي كل إدخال رقمي يتم تجميع القيمة إلى القيمة الموجودة في الخلية A1 ، وهنا إذا تم مسح محتويات الخلية A1 أو كتابة نص بها ، فإن الناتج في الخلية B1 يظل كما هو ، ولإعادة ضبط عملية التجميع من جديد قم بمسح محتويات الخلية B1 والكود في الملف الثاني يظهر بهذا الشكل (في حدث ورقة العمل) Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Address(False, False) = "A1" Then If IsNumeric(.Value) Then Application.EnableEvents = False Range("B1").Value = Range("B1").Value + .Value Application.EnableEvents = True .Select End If End If End With End Sub أرجو من الله أن يجعل أعمالنا صالحة ، ولوجهه خالصة .. دمتم في رعاية الله حمل الملف من هنا

هنعمل COLUMN(B$1)

بسم الله الرحمن الرحيم يفهم من العنوان انه جزء من البرنامج المدرسي وهو كذلك كبداية ولكنه هو الصلب والاساسات وما يرد لا حقا انما هو تبع وهذا الدرس اجابة لطلب اختنا الكريمة هنا http://www.officena.net/ib/index.php?showtopic=55102 وحسب الانظمة التعليمية المبينة في الطلب تنويه : استخدم في جهازي الاصدار 2003 ولا يمكنني فتح المرفقات الا على صيغة mdb ايضا قد الجأ في الشرح الى عرض بعض الصور وهذا سيصعب فهمه بالسرعة المطلوبة لمن لا يملك في جهازه الاصدار المذكور . ( آمل تحميل الاصدار المذكور لمن يريد المتابعة والمشاركة ) نبدأ : الجداول : نقاط تؤخذ بالاعتبار : - تكتب اسماء الجداول واسماء الحقول بحروف انجليزية والظهور العربي سيكون من خلال التسمية التوضيحية . - لا يسمح بالمسافات الفارغة بين الكلمات في التسمية . - تبدأ اسماء الجداول بـ tbl والاستعلامات بـ Qry والنماذج بـ frm والتقارير بـ Rep للتفريق بينها ومعرفتها من اول نظرة

شاهد المرفق Omar_1.rar

تفضل هذا المثال لعله ينفعك CARDS.rar

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

اشكرك اخى العزيز

السلام عليكم. الخطأ الأول هو يجب وضع الكود في حدث عند التغيير للقائمة المنسدلة. الخطأ الثاني في كتابة الكود و إليك الكود الصحيح. If Me.NAT_ID <> "مصري" Then Me.IDNumber.Enabled = False ElseIf Me.NAT_ID = "مصري" Then Me.IDNumber.Enabled = True End If و هذا هو الملف بعد التعديل المثال.rar

جرب هذا لملف nageh raseb.rar

تحت امرك اخي صلاح الصغير

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

جزاك الله خيرا اخى ابوخليل علي المتابعه بالفعل هو قام بحساب عدد الصفوف فى التقرير راسيا وافقيا وقامةباعطاء ترتيب تصاعدى لهم بشرط ان يبدا الترقيم برقم 11 هكذا 11 12 13 14 والسطر الثانى يبدا برقم 21 هكذا 21 22 23 24 ثم 31 32 33 34 وهكذا حيث y هى عدد الصفوف هنا في المثال الذى ارفقته في المشاركه السابقه كان عندى 11 صف يبقي ال y =11 يعنى لو عندى 8 صفوف فى التقرير يبقي 8 قيمة y وهكذا bb هى عدد محتويات كل صف من مربعات تسميه او نصوص او اى شي هنا في المثال يوجد 6 كائنات وهذا مثالي بعد التعديل يوجد عندى 3 صفوف في كل صف 3 كائنات والمسافه بين الصفوف هى 400 test5.rar

الأخ الكريم الأستاذ / محمد الدسوقى عذرا لأرفاق ملف خطأ وهذا هو الملف المطلوب abo_abary_استخراج الأوائل.rar

بسم الله الرحمن الرحيم الأستاذ الفاضل : محمد عبدالله المسعودي تحية طيبة وبعد ممكن أن أطمع في كرم سيادتكم بمساعدتي في أن يكون تاريخ تقديم الملف يدخل تلقائي ويكون عبارة عن تاريخ اليوم + الساعة في الوقت الحالي ولسيادتكم جزيل الشكر والعرفان ملف المتقدمين للصـــــــف الأول 2016 2017 2.rar

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

ربما كان مثالاً للمطلوب find_max.rar

=format([feldate];"dddd") باعتبار feldate هو حقل التاريخ

بارك الله فيكم إخواني على هذه الحلول الجميلة والرائعة وإليكم الدالة المعرفة التالية لتفي بالغرض بالنسبة للطلب وهي بسيطة جداً Function SumDigits(Number) Dim I As Integer For I = 1 To Len(Number) SumDigits = SumDigits + Val(Mid(Number, I, 1)) Next I End Function لاستخدام الدالة =SumDigits(A1) تقبلوا تحياتي وكل عام وأنتم بخير

هذه محاولة تشبه الشكل نوعا ما مثال2.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته تحياتي إلى الجميع تكملة شرح UserForm Spreadsheet قبل عمل ال TextBox لنستخدمه في البحث او الفلترة سنقوم بعمل بعض التحابيش الجماليه لل Spreadsheet وهي اخفاء لبعض الاشرطه والادوات من ال Spreadsheet لتبدو لنا مثل ListBox تماما كما في الصوره التاليه سيتم اخفاء كل الاشرطة والادوات التي تم تميزها باللون الاحمر ويتم ذلك بأستخدام اجراء تنشيط UserForm وهو UserForm_Activate وتكون الاكواد كالاتي ================================================== Private Sub UserForm_Activate() ' '================================================================== With Spread .DisplayToolbar = False ' اخفاء شريط الادوات With .ActiveWindow .DisplayWorkbookTabs = False ' اخفاء تاب اوراق العمل .EnableResize = False ' اخفاء تاب التحكم في حجم ورقة العمل .DisplayHeadings = False ' اخفاء ترقيم الصفوف و الاعمدة .DisplayHorizontalScrollBar = False 'اخفاء شريط التمرير الافقي .DisplayVerticalScrollBar = False 'اخفاء شريط التمرير الرأاسي End With End With '================================================================== ' End Sub ================================================== والان نكمل المثال بعد تم عرض كامل الدتا داخل Spread 1 - سنقوم بعمل زر للخروج طور الفورم 2 - سنعمل عدد 2 TextBox احدهما للبحث او الفلترة والثاني لمجموع مبالغ المكافئة 3 - سنعمل عدد 2 OptionButton الاول للفلترة من بداية الاسم والثاني للفلترة بأي جزء من الاسم وتكون الاكواد كالاتي في حدث TextBox1_Change كالاتي عند ادراج اى حرف في TextBox1 يبدأ تنشيط هذا الحدث ================================================== Private Sub TextBox1_Change() ' On Error GoTo End_Me Spread.Rows("1:" & Rows.Count).ClearContents 'حذف محتويات ال Spread بالكامل ' '/============================================================= Search_Text = TextBox1 & "*" 'في حالة تنشيظ ال OptionButton1 'توجيه محتوي ال TextBox1 الى المتغير Search_Text 'واضافة علامة النجمة له في نهايته ليكون البحث او الفلترة بجزء من بداية الاسم If OptionButton2 Then Search_Text = "*" & TextBox1 & "*" ' اما في حالة تنشيظ ال OptionButton2 'توجيه محتوي ال TextBox1 الى المتغير Search_Text 'واضافة علامة النجمة له في البداية و النهايته ليكون البحث او الفلترة بأي بجزء من الاسم ScreenOn Sh_Data.Range("A1").AutoFilter Field:=2, Criteria1:=Search_Text 'في ورقة العمل الرئيسية عمل تصفية تلقائية على العمود الثاني (الاسم) 'بمحتوي متغير الفلترة المتغير Search_Text '/============================================================= Sh_Data.AutoFilter.Range.Copy 'بعد الفلترة نسخ ناتج الفلترة من ورقة العمل الرئيسية الي الذاكرة With Spread With .Range("A1") .Paste 'لصق ناتج الفلترة الي ال Spread .Select End With End With '/============================================================= Total = Sh_Data.Range("M1").Value TextBox2 = CStr(Format(Total, "0.00")) 'نسج خلية المجموع ( M1 ) من ورقة العمل الرئيسية الي TextBox2 في الفورم '/============================================================= End_Me: ScreenOn On Error GoTo 0 ' End Sub ================================================== ملحوظة بعد عمل الفلترة على الفورم يمكن التبديل بين بداية الاسم و أي جزء الاسم الملف موجود بالمرفقات_6 تم تجربة المثال علي كل من أوفيس 11 / 2003 و أوفيس 14 / 2010 بدون أي مشاكل وبذلك ينتهي شرح UserForm Spreadsheet والي لقاء قريب بإذن الله مع شرح اداة ثانية نادرة الاستخدام مغمورة مطمورة ================================================== المرفقات_6.rar تحياتى لكم جميعا

جرب هذا الملف Special_Sum.rar

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

السلام عليكم ورحمة الله وبركاته ... الأخ ابو خليل قمت بتجربة ماذكرته في المشاركة الأخيرة ويعمل 100% .... . جزاك الله كل خير. كان الخطاء في هذا السطر ... فعند وضع مسار الحفظ لم اضف اليه اسم القاعدة وصيغتها .... CopyFile "D:\saeedbacta\personnel.accdb", "D:\prog\personnel.accdb" الأخ ابو عبدالله الحلواني اعتذر لأني لم اشاهد مشاركتك الا الآن .. وجزاك الله خير الأخ رمهان بارك الله فيك ...شكرا على تعاونك وجزاك الله كل الخير. الأخ جعفر .... جزاك الله كل خير . وبالتوفيق للجميع.

جميل جدا وتنبيه بسيط : يجب ان تكون جميع الجداول المرتبطه في القاعدة الامامية مغلقة حتى يسمح بنسخ القاعدة الخلفية كما انه يمكن الاستغناء عن الدالة الموجودة ومباشرة التعامل مع الامر filecopy تحياتي

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

طيب وه>ا الملف WRKGADM.EXE