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

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

نعم اعمل مربع جديد في التقرير واكتب فيها = 1 وفي قائمه‌ خصائصه غير خاصية Running Sum من No الى Over Group اولا قاعدة بياناتك ما بها اي بيانات وثانيا اشوف بدل ذاك القاعدة ان تعمل جدولين جدول للمعلومات الموظف والاخر للاجازات كل شي راح يكون اسهل لك لكي تعمل المطلوب واذا عملت ذلك تكدر تستخدم استعلام وفي حقل التاريخ تختار ماكس هذا والله اعلم

أنا مش فاهم جملتك : "واريد ان لا يتم الخصم إلا بعد اضافة فاتورة جديدة " أشعر أنها متعارضة مع المطلوب على العموم شوف التعديل ده db101.rar

كم يزداد عمود واحد راح يطول كودنا اكثر في هذه الحالة نستخدم هذا الكود S1S1: IIf(Nz([Sickness]![s1])>Nz([Sickness]![s1+0]) And Nz([Sickness]![s1])>Nz([Sickness]![s1+1]);Nz([Sickness]![s1]);IIf(Nz([Sickness]![s1+0])>Nz([Sickness]![s1]) And Nz([Sickness]![s1+0])>Nz([Sickness]![s1+1]);Nz([Sickness]![s1+0]);IIf(Nz([Sickness]![s1+1])>Nz([Sickness]![s1]) And Nz([Sickness]![s1+1])>Nz([Sickness]![s1+0]);Nz([Sickness]![s1+1]);Nz([Sickness]![s1])))) شوف اضفنا NZ لانه احتمال احد من الحقول بيكون فارغ او تكدر تستخدم هذا الكود شوية اقصر من الاول ولكن بنفسه بس حذفنا اسم الجدول S1S11: IIf(Nz([s1])>Nz([s1+0]) And Nz([s1])>Nz([s1+1]);Nz([s1]);IIf(Nz([s1+0])>Nz([s1]) And Nz([s1+0])>Nz([s1+1]);Nz([s1+0]);IIf(Nz([s1+1])>Nz([s1]) And Nz([s1+1])>Nz([s1+0]);Nz([s1+1]);Nz([s1])))) لكن كما قلت مسبقا اذا تعمل جدول خاص للموظفين وجدول اخر للاجازات وتربط بينهم علاقة راس باطراف ما راح تكون محتاج كل هذا تحياتي

بارك الله فيك اخى شفان وزادك علما واذا اردت ان ازيد خانه ثالثه بينهم فكيف يكون

اعمل استعلام بنفس اللي في الصور شوف الصور واستخدم هذا الكود S1S: IIf([Sickness]![s1]>[Sickness]![s1+0];[Sickness]![s1];[Sickness]![s1+0])

شوف الصورة

الحمد لله تم حل المشكلة شكرا جزيلا أستاذ / أبو عبد البارى والشكر موصول لجميع أساتذتى الأفاضل اللذين إهتموا بالموضوع شكراَ جزىلأ لإهتمامكم وجزاكم الله خير الجزاء

الأخ الكريمwaledm السلام عليكم ضع أى من المعادلات التالية فى الخلية U5 واسحبها نزولا =IF(OR(C5="غ";D5="غ";E5="غ";F5="غ";G5="غ";H5="غ";I5="غ";J5="غ");"دون المستوى ";IF(AND(C5>=5;D5>=5;E5>=5;F5>=50;G5>=50;H5>=50;I5>=50;J5>=15);" ناجح ";"دون المستوى ")) =IF(COUNTIF(C5:J5;"غ")>=1;"دون المستوى ";IF(AND(C5>=5;D5>=5;E5>=5;F5>=50;G5>=50;H5>=50;I5>=50;J5>=15);" ناجح ";"دون المستوى ")) اما المعادلة التالية معادلة صفيف اضغط Ctrl+Shift+Enter ثم اسحب نزولاً =IF(ISNUMBER(C5:J5)=FALSE;"دون المستوى ";IF(AND(C5>=5;D5>=5;E5>=5;F5>=50;G5>=50;H5>=50;I5>=50;J5>=15);" ناجح ";"دون المستوى "))

اليك هدول الكودين Private Sub Form_KeyPress(KeyAscii As Integer) If Button = vbKeyRButton Then DoCmd.CancelEvent End If End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbKeyRButton Then DoCmd.CancelEvent End If End Sub مبينة في اي وضع تستخدمه

=IF(OR($C5:$J5="غ");"دون المستوى";"ناجح") جرب هذه المعادلة في الخلية U5 اضفط Ctrl+Shift+Enter ثم اسحب نزولاً =IF(OR($C5:$J5="غ"),"دون المستوى","ناجح") اذا لم تعمل معك استبدل الفاصلة بفاصلة منقوطة لتصبح هكذا

تفضل hide_show form.rar

اتفضل ما تريد باي باي للخطأ واستخدمت كود ئييف مع ئيزنول Y: CalcAge(IIf(IsNull([Date_End]) Or IsNull([Date_Start]);0;[Date_End]);IIf(IsNull([Date_Start]) Or IsNull([Date_End]);0;[Date_Start])) EMP.rar

اتفضل ما تريد من كوردستاان الى عمان وادعي لي ولوالدي EMP.rar

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

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

جزاكم الله خيرا عنا شرح الكود أكثر من رااااائع

بسم الله الرحمن الرحيم الموضوع الجديد "كود ملف ترحيل واستعلام مع الشرح "

جرب هذه المعادلة في الخلية C5و اسحب نزولاُ =CHOOSE(($C$4="Total")+1,INDEX(Sheet1!$B$4:$G$8,MATCH(Sheet1!$A4,Sheet1!$A$4:$A$8,0),MATCH(Sheet2!$C$4,Sheet1!$B$3:$G$3,0)),SUM(Sheet1!$B4:$G4))

جرب هذا الكود Sub talween() Dim t As Integer t = 4 Range("a3:b15").Interior.ColorIndex = xlNo For i = 1 To Range("a3:b15").Count For k = 1 To Range("a3:b15").Count If Application.CountIf(Range("a3:b15"), Range("a3:b15").Cells(i)) = 1 Then Range("a3:b15").Cells(i).Interior.ColorIndex = xlNo Exit For End If If Range("a3:b14").Cells(i) = Range("a3:b15").Cells(k) Then Range("a3:b15").Cells(k).Interior.ColorIndex = t End If Next t = t + 1 Next End Sub

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

بعض الأكواد البسيطة والمطلوبة بعض الأكواد البسيطة التى يسأل عنها الأخوة الأعضاء ووجدتها في موقعنا الحبيب أوفسينا فجمعتها بعد إذن كاتبيها وتكون هذه دعوة لباقى الأخوة وعمالقتهم لتزويدنا بأكواد جديدة أو مشابهة .. والله الموفق 1- فتح الملف على اليوزرفورم Userform. يمكن فتح الملف على فورم بدلا من صفحة الإكسل المعروفة بكود بسيط تجده في كثير من ملفات الأخوة بالموقع وخطوات ذلك كالتالي: أ‌- أضف للملف يوزرفورم وذلك في محرر الفيجوال بيسك من قائمة إدراج(Insert) نختار (UserForm). ب- في قسم المشروع (Project) انقر مزدوجا ThisWorkbook ب‌- في نافذة الكود اكتب الكود التالي Private Sub Workbook_Open() UserForm1.Show End Sub وهذا الكود ليس به إلا سطر واحد يأمر الإكسل بفتح الملف على اليوزر فورم وهذا السطر هو UserForm1.Show بعد انتهاء العمل نجد أن الملف يفتح على الفورم ونجد ان الفورم يمكن تحريكه في أي اتجاه كما يمكننا أن نغلقه من مفتاح الغلق في أقصى يمين الفورم من أعلى كما نلاحظ أن ملف الإكسل يظهر وراء الفورم. أنظر First.rar 2- فتح الملف على اليوزرفورم مع إخفاء صفحة الإكسل. رأينا في المثال السابق ولإخفاء ملف الإكسل ضف السطر التالي للكود السابق ليصبح الكود بالصورة أن الملف يفتح على الفورم لكن ملف الإكسل يظهر وراء الفورم Private Sub Workbook_Open() Application.Visible = False UserForm1.Show End Sub هذا السطر Application.Visible = False يجعل ملف الإكسل مخفيا انظر المرفق Second.rar 3- فتح الفورم على مقاس الشاشة. والأن.. ماذا نفعل لنفتح الفورم على مقاس الشاشة؟ تابع معي: الفكرة أن نجعل أبعاد الفورم مثل أبعاد الشاشة ولكن باختلاف المستخدمين للملف سيكون هناك أبعاد مختلفة من حاسوب وآخر ولذلك يمكن عمل الكود التالي: ()Private Sub UserForm_Activate With Application Me.Top = .Top Me.Left = .Left Me.Height = .Height Me.Width = .Width End With ونجد أن الكود يطلب أن يكون اتساع الفورم كما اتساع التطبيق وارتفاع الفورم كإرتفاع التطبيق والآن جرب الكود في نافذة كود الفورم. انظر التطبيق Third.rar ولكن قم بتحريك الفورم في كل الاتجاهات، هل يستجيب الفورم للحركة؟ 4- نثبت الفورم (الفريم) بحيث لايمكن تحريكه الى اي اتجاه. يمكن نثبت الفورم بحيث لايمكن تحريكه الى اي اتجاه وذلك بكتابة هذا الكود في نافذة كود الفورم. Private Sub UserForm_Layout() With Me .Left = Application.Left .Top = Application.Top End With End Sub انظر التطبيق Forth.rar 5- الغاء رمز الاغلاق(x). يمكن إلغاء عمل رمز الأغلاق في أفصى يمين أعلى الفورم بالكود التالي ولكن هذا أن يجعلك تستطيع إغلاق الفورم أو الإكسل ولذلك أقترح أن تضع على الفورم مفتاح تسمية "إغلاق" ويكون له كود فقم أولا بكتابة الكودين المرفقين ()Private Sub CommandButton1_Click Unload Me End Sub )Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer If CloseMode = vbFormControlMenu Then Cancel = True End If End Sub لاحظ أن هذا الكود سيمنع إغلاف الفورم من (X) ولكن يمكن إغلاق الفورم من زر إغلاق الذي أضفناه، وإذا أردنا إغلاق الفور وملف الإكسل معا نضع السطر التالي في كود المفتاح بعد "Unload Me": ActiveWorkbook.Close True انظر التطبيق Fifth.rar 6- عمل شاشة افتتاحية. يحتاج بعض مطورى البرامج لأن يبدأ عمل ملفه بظهور شاشة أفتتاحية فعلى سبيل المثال "نريد عمل صفحه تبدأ مع فتح ملف الاكسيل، ويكون بها ايقونات بمسميات الشيتات الموجوده بالملف، وعند الضغط على احد الايقونات يتم النقل الى الشيت المطلوب بعض النظر عن الشيت الذي أقفل البرنامج عليه" فهيا معا نبنى هذا التطبيق: أ‌- افتح ملف جديد ثم ضف إليه في الصفحة الأولى شكلين أكتب على الأول كلمة "الورقة الثانية" وعلى الشكل الثاني كلمة "الورقة الثانية" ثم أربط كل شكل مع ورقة العمل المناسبة لما كتب عليع وذلك ربطا تشعبيا" ب‌- كرر العمل في الورقة الثانية والثالثة مع تغيير ما يلزم. ت‌- أضف فورم للملف وضع عليه ثلاثة مفاتيح أكتب على الأول "الورقة الأولى" والثاني "الورقة الثانية" والثالث "الورقة الثالثة" ث‌- أكتب الكود التالي في مكان كود الفورم ()Private Sub CommandButton1_Click Unload Me Worksheets("Sheet1").Activate End Sub ()Private Sub CommandButton2_Click Unload Me Worksheets("Sheet2").Activate End Sub ()Private Sub CommandButton3_Click Unload Me Worksheets("Sheet3").Activate End Sub ج‌- اكتب الكود التالي في مكان كود "ThisWorkbook": ()Private Sub WorkBook_Open UserForm1.Show End Sub انظر التطبيق "شاشة أفتتاحية.rar" إخواني الأعزاء أسمحوا لي أن أتوقف هنا وإذا كنتم أستفدتم فسأكمل. والله الموفق ربنا يبارك فيك بحق الله اخي رؤوف1951 =============================================== بعض الأكواد البسيطة.rar =========================== سر على بركة الله واكمل

حلو كتير يا باشا

اتفضل باصدار 2007 جمعية خيرية 2007.rar اتفضل اصدار 2003 لكن للعلم انا بعد ما عملت اكواد لنموذج دخول جمعية خيرية 2003.rar

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

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

يللا باذن الله لنبدأ

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة طرق البحث تم ارفاق كود الحل من الفاضل _ رحمه الله/ الحسامي و لا تنسونا من صالح الدعاء تحياتى asam3 (بحث).rar بياااااااان شامل عن قطع الغيارlsm.rar

اعتذر جدا للأخوة الاعزاء على التأخير في اجراء التعديلات المطلوبة واليكم الملف بعد التعديل رابط التحميل http://ge.tt/4e6TCxA2/v/0?c

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

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

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

تم التغلب على المشكلة ولله الحمد وبجهود ذاتية وأشكركم على تفاعلكم الواضح مع الموضوع

وعليكم السلام .. هذا مثال لرقم السري اختر الاسم الأول وادخل الرقم 1