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

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

ترقيم تلقائي يتجدد مع بداية كل سنة على النحو التالي 1300001 1300002 1300003 1400001 1400002 وهكذا ................. باعتبار الرقم 13 ، 14 هو السنة والترقيم لاشك سيكون تبعا للسنة الحالية Private Sub Form_BeforeInsert(Cancel As Integer) On Error Resume Next Dim xLast, xNext As Integer Dim prtyr, prtTxt As Integer prtyr = Right(DatePart("yyyy", Date), 2) prtTxt = Left(DMax("ID", "tbl1"), 2) xLast = DMax("ID", "tbl1", prtTxt = prtyr) If IsNull(xLast) Then xNext = 1 Else xNext = Val(Mid(xLast, 3, 5)) + 1 End If Me!ID = prtyr & Format(xNext, "00000") End Sub ترقيم تلقائي جديد كل سنة.rar

السلام عليكم اعتقد مهم ان اعطيكم مثال على Me.Painting ، فالتوضيح في الرابط التالي يحتاج الى توضيح http://www.officena.net/ib/topic/67464-المساعدة-في-فتح-صورة-من-listbox/?do=findComment&comment=438833 النموذج Form1 ، كل ثانية ، اللون الاصفر ينزل الى الحقل التالي (اي بمعنى ان النموذج يجدد شكل النموذج باستمرار ، وعليه نرى الالوان تنتقل من حقل الى آخر): الكود: Function Change_Colors(F) Me(F).BackColor = RGB(225, 225, 0) 'yellow Me(F) = F DoEvents PauseTime = 1 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop Me(F).BackColor = RGB(255, 255, 255) 'white Me(F) = "" End Function Private Sub cmd_Start_Coloring_Click() Call Change_Colors("q1") Call Change_Colors("q2") Call Change_Colors("q3") Call Change_Colors("q4") Call Change_Colors("q6") Call Change_Colors("q7") End Sub . والنتيجة: . اما النموذج Form2 ، فهو نسخة من النموذج السابق Form1 ، إلا اني طلبت في الكود ان: اللون الاصفر يلون الحقل الاول والثاني ، ثم اعطيت الامر بعدم تجديد شكل النموذج بالامر Me.Painting=False فاللون الاصفر ظل على الحقل الثاني للنموذج ، بينما الكود استمر في عمله في تلوين الحقل الثالث والرابع ، ولكن دون ان يُظهر لنا النتيجة على النموذج ، ثم اعطيت الامر Me.Painting=True ، فاللون الاصفر اختفى من الحقل الثاني ، وظهر لآخر حقلين ، والكود هو: Function Change_Colors(F) Me(F).BackColor = RGB(225, 225, 0) 'yellow Me(F) = F DoEvents PauseTime = 1 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop Me(F).BackColor = RGB(255, 255, 255) 'white Me(F) = "" End Function Private Sub cmd_Start_Coloring_Click() Call Change_Colors("q1") Call Change_Colors("q2") Me.Painting = False Call Change_Colors("q3") Call Change_Colors("q4") Me.Painting = True Call Change_Colors("q6") Call Change_Colors("q7") End Sub . والنتيجة: . طيب ، ما الفائدة عمليا من هذا الكود؟ انا استخدمت هذا الامر مرات جدا قليلة في برامجي ، والبرنامج اعلاه (في تغيير اسم الملف) هو احدهم ، اما البرنامج الآخر فهو: برنامج فيه آلاف السجلات ، وهناك صور للسجلات ، فكنت اريد ان اعرض النموذج بطريقة معينة ، بحيث باختيار اسم الموظف تصل الى معلوماته ، ولكني اردت ان اسمح لهم ان يروا بقية السجلات ايضا ، فالاكسس كان يعرض اول سجل وصورة ، ثم ينتقل الى السجل المطلوب ، وانا لم ارد للمستخدم ان يرى اول سجل وصورته ، وانما اردته ان يرى سجل وصورة الموظف الذي تم اختياره ، فاستخدمت هذه الطريقة في اخفاء السجل الاول وصورته (بعدم تجديد الشاشة) ، وعندما حان موعد ظهور السجل المطلوب وصورته ، اعطيت الامر بإظهار وتجديد شاشة الاكسس ، والنتيجة كانت مرضية لي جعفر 297.Me.Paint.accdb.zip

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

السلام عليكم إخواني الكرام أثناء تجوالي في مواقع الانترنت وجدت برنامج اسمه VBA Time Saver Kit فكرة البرنامج أنه يقوم بتخزين أكواد الـ VBA .. ويمكن البحث من خلاله بسهولة عن الكود المطلوب .. أعتقد أنه يمكن أن يكون نواة لمكتبة كبيرة نساهم جميعاً في إثراء تلك المكتبة .. لمن لديه خبرة في التعامل مع مواقع الانترنت والشراء من خلالها ويستطيع أن يقوم بشراء البرنامج حوالي 15 دولار فليتقدم ويتبرع إذا كان بإمكانه وبعد الشراء طبعاً عارفين ..كل الوطن العربي هيستخدم البرنامج اللي هيتم شرائه ..بس خلاص تقبلوا وافر تقديري واحترامي

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

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

اتفضلوا ملفين على الاكسيس اطلعوا عليهم لعلهم ينفعونا باذن الله فى الفكره دوال مايكروسوفت أكسس MS Access Functions.rar هذه بعض الأوامر في الأكسس.rar

أخي وحبيبي في الله محمد صالح أين أنت معلمي ..؟ اشتقنا لوجودك فيما بيننا .. مفتقدينك والله ومفتقدين حلولك الجميلة والرائعة لعل غيابك عنا خير تقبل وافر تقديري واحترامي

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته بناء على رسالة من أخي الفاضل / محمد طاهر واعتماد طريقة جديدة وبسيطة في التفكير بصورة عملية ربما يفيدكم هذا الملف بإذن الله وفقنا الله وإياكم لكل ما يحب ويرضى حذف الصفوف والأ‘عمدة بالكود.rar

ارغى ياعم الامور ابو البراء يشاور بس وانا اعمله برنامج مخصوص يارب ما يشبط في الكلمة

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

أخي الكريم يرجى تغيير اسم الظهور للغة العربية ليعبر عن شخصكم الكريم لمعرفة التفاصيل قم بالإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى أخي الحبيب سليم بارك الله فيك وجزاك الله كل خير .. كود أكثر من رائع وسريع جداً جرب الكود التالي (هو غريب شوية لكن يؤدي الغرض !! الغرابة من إن السطر مكرر مرتين ..افتكاسات ياسر مع التهييس) Sub DeleteEmptyRowsAndColumns() Cells.SpecialCells(xlCellTypeBlanks).Delete Cells.SpecialCells(xlCellTypeBlanks).Delete End Sub تقبل وافر تقديري واحترامي

مكتبة مصممة بالفيجوال بيسك دوت نت Code Library 2009.rar

جرب هذا الكود Sub DeleteEmptyRowsAndColumns() x = ActiveSheet.UsedRange.Row - 1 y = ActiveSheet.UsedRange.Rows.Count LastRow = x + y Application.ScreenUpdating = False For r = LastRow To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r m = ActiveSheet.UsedRange.Column - 1 n = ActiveSheet.UsedRange.Columns.Count LastColumn = m + n For c = LastColumn To 1 Step -1 If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete Next c Application.ScreenUpdating = True End Sub

تفضل هذا الملف قم بفك ضغطة وضعه في system32 داخل الويندوز او ضعه بجانب البرنامج وقم بتشغيله كما قال اخي الغالي عبد العزيز في وضع كمسئول RICHTX32.rar

السلام عليكم استاذى / زيزو العجوز .. حل متميز ..جزاك الله خيراً استاذى / ياسر العربى .. فكرة متميزة ..جزاك الله خيراً اخى الكريم .. اليك احد طرق الحل بالاكواد Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("L4:M4")) Is Nothing Then Dim LR As Integer, cl As Range, c As Range, cll As Range LR = Cells(Rows.Count, 4).End(xlUp).Row Set cl = Range("B3:B" & LR).Find([L4]) Range("O4") = Cells(cl.Row, 3) For Each c In Range("D3:D" & LR) If c = Range("M4") Then Set cll = Range("E2:I2").Find([O4]) Range("Q4") = Cells(c.Row, cll.Column) End If Next End If End Sub اليك المرفق اسعار متعدده.rar

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

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

اخى الكريم تحدثت عن الفترة الزمنية بين العمليات ولم تذكر ما مدى تأثير ذلك على النتائج ..جرب المرفق وابدى ملاحظاتك .. استخدام ;0)MAX لظهور صفر بدلاً من القيمة السالبة كشف حساب بالرصيد المتحرك(2).zip

السلام عليكم ورحمة الله اليك الحل باذن الله القوائم الاسمية.rar

أخي الحبيب أحمد أخي الغالي ياسر العربي أقولكم ع الصراحة ..أنا كنت عايز أطلع المكتبات اللي عندكم بس بأسلوب استفزازي .. عشان كدا طرحت الموضوع لأني عارف إن محدش في الوطن العربي بيشتري ..!!ههههههههه (مش إحنا اللي ينضحك علينا ) بس ايه المانع إننا نشترك كل واحد يدفع ربع جنيه ونشتري البرنامج ونوزعه ع الغلابة والكل يستفيد .. فكرة مش كدا (يلا يا عربي لم الفلوس بس اوعى تطمع فيها وتهرب برا مصر) تقبلوا وافر تقديري واحترامي

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

السلام عليكم ورحمة الله وبركاته ارجو ان يكون هذا هو ماتقصده اسعار متعدده.rar

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

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

شكرا لك اخى الكريم .. الحمد لله الذى بنعمتة تتم الصالحات عادة هذه العلامة ليس معناها وجود خظأ بالصيغة يمكنك ازالتها باكثر من طريقة ايسرها تحدد الخلايا التى تحوى هذه العلامة ثم كليك يمين واختيار I gnore Error ويمكنك الاطلاع عل الرابط التالى لفهم معناها https://support.office.com/en-us/article/Correct-an-inconsistent-formula-75c352c2-896d-4f34-ad2d-92df5b226a4e

السلام عليكم اخى الكريم .. استبدل المعادلة الموضوعة بالخلية F4 بهذه المعادلة =IF(E4+D4=0;0;MAX(0;SUM($F$3;$D$4:D4)-SUM($G$3;$E$4:E4))) والمعادلة الموجودة بالخلية G4 بهذه المعادلة .. ثم قم بالسحب لاسفل =IF(E4+D4=0;0;MAX(0;SUM($E$4:E4;$G$3)-SUM($D$4:D4;$F$3))) اليك المرفق حساب جاري برصيد متحرك.zip

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

وعليكم السلام اليك هذاالكود من احد برامجي: ونفترض ان اسم الحقل (سواء في الاستعلام او في النموذج) strText ، فكود تغيير الاسم يكون: في النموذج Me.strText = Characters_Windows_Refuse (Me.strText) في الاستعلام A: Characters_Windows_Refuse ([strText]) و الوحدة النمطية Function Characters_Windows_Refuse(str_Name As String) As String 'check if the file name is correct, 'and it does not incluse the characters windows refuse 'usage: 'Me.strText = Characters_Windows_Refuse (Me.strText) ' Dim Correct_To As String Correct_To = "-" str_Name = Replace(str_Name, "\", Correct_To) str_Name = Replace(str_Name, "/", Correct_To) str_Name = Replace(str_Name, ":", Correct_To) str_Name = Replace(str_Name, "*", Correct_To) str_Name = Replace(str_Name, "?", Correct_To) str_Name = Replace(str_Name, Chr(34), Correct_To) str_Name = Replace(str_Name, "<", Correct_To) str_Name = Replace(str_Name, ">", Correct_To) str_Name = Replace(str_Name, "|", Correct_To) 'return this value to the field Characters_Windows_Refuse = str_Name End Function جعفر

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

بقولك دماغك عالية انا كنت بجرب اعمل شات كدا على استضافة متيجي على هناك وهتلاقي طلبك هناك تعالا ومنها نجرب الشات

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

السلام عليكم ورحمة الله تفضل أخي أتمنى يكون المطلوب حيث احتسبت التاريخ على تاريخ اليوم calcule(2)------.rar

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

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

الطريقة التي مشت معي هي نفس الطريقة التي قال فيها الاستاذ أبو عيد وهي 1 قمت بوضع مشاركة للمجلد الذي في القرص D ( وهو المجلد الذي نشير الية بالربط ) 2 ثم قمت بربط كلمة test الموجودة في الخلية b3 مع المجلد الذي اسمة test في القرص دي طريقة الربط موجودة في الكود بقية الشرح موجود في داخل الملف المرفق -------------------------------------------- شكراً لكم جميعاً استاتذي الكرام . ------------------------------------- أحمد الفلاحجى ياسر خليل أبو البراء ياسر العربى أبوعيد nasersaeed أبو قاسم --------------------------- test.rar

اولا : كل اساتذتى واخوانى واحبائى فى الله الكرام شوقى5 - سعيد صواب - at_aziz - القعر - Barna - karrar sabry - أبو عبدالله الحلوانى بعد كل الشكر والتقدير والعرفان سواء بصحبتكم الطيبة او توجيهاتكم البراقة او مساندتكم الطيبة بكلماتكم الرقراقة واطلب منكم جميعا على استحياء التماس العذر لى فى غيابى عنكم وتاخرى فى الرد على حضراتكم فوالله لم يكن لامبالاة او عدم إهتمام فكلكم أحبكم فى الله ولله ولكن كان تأخرى لظروف سفر وعمل فتحملونى برفق واسألكم العفو عنى بحلم ثانيا موضوع انها غير مفتوحة المصدر هو خطأ والله غير مقصو ولكنها فى الاصل مفتوحة المصدر هى والله مفتوحة المصدر فأنا والله لا ولم انسى افضالكم على جميعا فى هذا الصرح الشامخ دخلت اول يوم بهذا المنتدى ولم اكن اعرف عن الاكسس سوى اسمه حتى من الله على من فضله وعلمه ثم حضراتكم فوصلت الى ما صرت إليه فكيف ينسى المحب فضل أساتذته فقط قمت ببتعطيل الشيفت وتغير الامتداد للتمويه ووضعت كود عند تغيير اسم القاعده لا تفتح وكان كل ذلك من باب التجربة الشخصية لنفسى ولم اقصد رفع تلك القاعدة فقط تم ذلك دون قصد

جزاك الله خير

أخي الحبيب عبد العزيز البسكري إنت تؤمر ..بس لما الاقي حد الأول يشتري ويبعته هتلاقيني بعته لكل الحبايب أخي الغالي ياسر العربي ..بلاش تتكلم في السياسة عشان هاخدك مخالفة .. خلينا في الإكسيل ومش عايزين لبش أخي الحبيب سعيد بيرم أسعدني مرورك .. ومتخافش مش لوحدك في الزهايمر ..كلنا في الهوا سوا تقبلوا تحياتي

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

??????????????????????? انتظر ردك اخى بالتوفيق

تأكد من رابط الملف ع الشبكة وضعه هنا والكود يعمل لاني بالفعل لدي ملفات تعمل عالشبكة وياريت بصور توضيحية لمسار الملف من ع الشبكة

وعليكم السلام ابش رايك في Enhanced Msgbox (هو اصلا نموذج ، ولكن معمول خصيصا لعمل Msgbox ) ، وجاهز للتحميل المجاني هذه بعض الاشكال والالوان التي تستطيع ان تعملها ، وطبعا اللغة كذلك . وفي نسخته العاشرة هذا رابط الموقع ، وجميل النظر الى ملاحظات القرّاء: http://blog.nkadesign.com/2008/ms-access-enhanced-message-box-replacement/ ولتحميل البرنامج: http://blog.nkadesign.com/wp-content/uploads/2008/05/EnhancedMsgBoxv1.10.zip جعفر

بعد اذن الاخوان اسمحوا لي ان اقدم هذا الملف الذي يضيط بالشكل التام اوتو ماتيكياً اخر الشهر 30و31 29 أو 28 داله اليوم salimبالتاريخ.rar

الحمد لله توصلت لحلها بفضل الله

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

أخي يحيى حسين اسمح لي بقليل من التعليق وهو أنك اعتمدت في الأكواد السابقة على فراغ الخلية الأولى من كل صف حتى يتم حذفه فمن الممكن أن تكون الخلية الأولى فارغة وباقي الخلايا مكتوب فيه أو العكس وبالفعل تم مناقشة هذا الموضوع في منتدى آخر وعرض أحد الإخوة هذه الدالة التي تقوم بحذف الصفوف الفارغة Sub deleteEmptyRows() Dim LastRow As Integer Dim MyRow As Integer Application.ScreenUpdating = False LastRow = ActiveSheet.UsedRange.Row - 1 + _ ActiveSheet.UsedRange.Rows.Count For MyRow = LastRow To 1 Step -1 If Application.CountA(Rows(MyRow)) = 0 Then Rows(MyRow).delete Next MyRow Application.ScreenUpdating = True End Sub ولكني لاحظت أنها تقوم بحذف الأسطر الفارغة صفا صفا وكنت قد بحثت في فترة سابقة على النت فوجدت هذه الدالة التي تعتمد على حذف المناطق الفارغة مما يزيد سرعة عملية الحذف Sub DeleteBlankRows() Set myrange = Range("B4:I31") Set blanks = myrange.SpecialCells(xlCellTypeBlanks) For Each area In blanks.Areas If area.Columns.Count = myrange.Columns.Count Then area.EntireRow.Delete End If Next area End Sub وهذه دالة من تصميمي بناء على الدالة الأولى مع بعض التعديلات Sub Mas_DelBlankRows() On Error Resume Next Dim n As Integer For n = 1 To ActiveSheet.UsedRange.SpecialCells(4).Areas.Count If ActiveSheet.UsedRange.SpecialCells(4).Areas(n).Columns.Count = ActiveSheet.UsedRange.Columns.Count Then ActiveSheet.UsedRange.SpecialCells(4).Areas(n).EntireRow.Delete Next n End Sub وفي الكودين السابقين يتم تحديد الصف الفارغ بناء على عدم وجود بيانات في أي خلية من خلاياه وليس فقط الخلية الأولى وبالله التوفيق أخوكم محمد صالح

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