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

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

السلام عليكم 🙂 الفكرة اللي استعملتها ، هي معادلات الاكسس ، وبدون تحديد عدد ايام للشهر ، عندنا تاريخ المباشرة ، ومن تاريخ اليوم ، نضيف اليه الخدمة المضافة ، سنة ، ثم شهر ، ثم يوم ، بحيث نتوصل الى تاريخ جديد ، ومن التاريخ الجديد ، نستقطع ، سنة ، ثم شهر ، ثم يوم ، بحيث نتوصل الى تاريخ جديد ، ثم في النهاية ، نوجد الفرق بين تاريخ المباشرة وبين هذا التاريخ الجديد 🙂 : Private Sub cmd_Cal_Click() Dim Y As Integer: Dim M As Integer: Dim D As Integer Dim Y_Add As Date: Dim M_Add As Date: Dim D_Add As Date Dim Y_Ded As Date: Dim M_Ded As Date: Dim D_Ded As Date Dim Y_Fin As Date: Dim M_Fin As Date: Dim D_Fin As Date 'Now Me.dmy_Now = YMDDif(Me.ddd, Date, Y, M, D) Me.Y_Now = Y Me.M_Now = M Me.D_Now = D 'Add Y_Add = DateAdd("yyyy", Me.yerr, Date) M_Add = DateAdd("m", Me.mann, Y_Add) D_Add = DateAdd("d", Me.dyy, M_Add) Me.dmy_Add = D_Add 'Deduct Y_Ded = DateAdd("yyyy", -Me.yerrr, Me.dmy_Add) M_Ded = DateAdd("m", -Me.mannn, Y_Ded) D_Ded = DateAdd("d", -Me.dyyy, M_Ded) Me.dmy_Deduct = D_Ded 'Final Me.dmy_Final = YMDDif(Me.ddd, Me.dmy_Deduct, Y, M, D) ' Me.Y_Fin = Y ' Me.M_Fin = M ' Me.D_Fin = D End Sub Private Sub Form_Current() Call cmd_Cal_Click End Sub . والوحدة النمطية YMDDiff : Public Function YMDDif(ByVal sDate1 As Date, ByVal sDate2 As Date, _ ByRef Y As Integer, ByRef M As Integer, ByRef D As Integer) As String 'sdate1 earliest date sdate2 later Dim iYear As Integer Dim iMonth As Integer Dim iDay As Integer Dim dInterim1 As Date iMonth = DateDiff("m", sDate1, sDate2) If Day(sDate1) > Day(sDate2) Then iMonth = iMonth - 1 End If dInterim1 = DateAdd("m", iMonth, sDate1) iDay = DateDiff("d", dInterim1, sDate2) D = iDay M = iMonth Mod 12 Y = iMonth \ 12 'YMDDif = CStr(Y) & " Years " & CStr(M) & " months " & CStr(D) & " days" YMDDif = CStr(D) & " ي/" & CStr(M) & " ش/" & CStr(Y) & " س" End Function . والنتيجة: . ويمكننا عمل كل هذه المعادلات في الاستعلام ، بالاضافة الى مناداة الوحدة النمطية 🙂 رجاء التأكد من الارقام اولا. جعفر Database1.zip

لضيق وقتي جرب هذا الكود لعله يفيدك كما انك تطلب المستحيل باخفاء عن طريق التنسيق الشرطي الاخفاء لا يتم الا بكود برمجي او يدوي اما بواسطة المعادلات فهذا لن يتم Sub hide() Dim cell As Range ' For Each cell In ActiveSheet.Range("B2:B250") For Each cell In ActiveSheet.Range("B2:B250").SpecialCells(xlCellTypeConstants) If cell.Value = 0 And cell.Offset(, 1).Value = 0 Then cell.EntireRow.Hidden = true Next cell End Sub

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

و هذا الماكرو يوم بترتيب العناصر ابجدياً Option Explicit Sub Test_Mots_sorted() Dim Sh As Worksheet Dim Ro%, i%, X% Dim KK As Object Set Sh = Sheets("Sheet1") Ro = Sh.Cells(Rows.Count, "E").End(3).Row Sh.Range("F8:Y" & Ro).ClearContents Set KK = CreateObject("System.Collections.Arraylist") For X = 8 To Ro For i = 26 To 65 If Sh.Cells(X, i) Like "#?#" Then KK.Add Sh.Cells(X, i).Value End If Next i If KK.Count Then KK.Sort Sh.Cells(X, "F").Resize(, KK.Count) = KK.toarray KK.Clear End If Next X End Sub الملف من جديد Abou_sara_sorted.xlsm

ربما ينفع هذا الماكرو Option Explicit Sub Test_Mots() Dim Sh As Worksheet Dim Ro%, i%, X%, m% Dim arr() Set Sh = Sheets("Sheet1") Ro = Sh.Cells(Rows.Count, "E").End(3).Row Sh.Range("F8:Y" & Ro).ClearContents For X = 8 To Ro For i = 26 To 65 If Sh.Cells(X, i) Like "#?#" Then ReDim Preserve arr(m) arr(m) = Sh.Cells(X, i) m = m + 1 End If Next i If m > 0 Then Sh.Cells(X, "F").Resize(, m) = arr End If Erase arr: m = 0 Next X End Sub الملف مرفق Abou_sara.xlsm

Sub filter_and_copy() Dim my_sheet As Worksheet Dim ws As Worksheet Dim my_rg As Range Dim lra%, k%, m%, v%, X% Dim arr(), S_rg As Range Application.ScreenUpdating = False m = 2 arr = Array(1, 2, 4, 5) k = Sheets.Count Set ws = Sheets("المطلوب") lra = ws.Cells(Rows.Count, 1).End(3).Row If lra < 2 Then lra = 2 ws.Range("A2:E" & lra).Clear my_creteria = ws.Range("H1") For i = 1 To k If Sheets(i).Name = ws.Name Then GoTo Next_i With Sheets(i) Set S_rg = .Range("D:D").Find(my_creteria, lookat:=1) If S_rg Is Nothing Then GoTo Next_i If .AutoFilterMode Then .Range("A1:E1").AutoFilter End If Set my_rg = .Range("A2").CurrentRegion X = .Cells(Rows.Count, 1).End(3).Row '===================================== my_rg.AutoFilter Field:=4, _ Criteria1:="=" & my_creteria & "" For v = LBound(arr) To UBound(arr) .Range("A2:E" & X).Columns(arr(v)).SpecialCells(2).Copy ws.Cells(m, v + 1).PasteSpecial (12) Next Application.CutCopyMode = False ws.Cells(m, 5) = .Name m = ws.Cells(Rows.Count, 2).End(3).Row + 2 If .AutoFilterMode Then .Range("A1:E1").AutoFilter End If '==================================== End With Next_i: Next i v = ws.Cells(Rows.Count, 1).End(3).Row If v < 2 Then GoTo End_Me With ws.Range("A1:E" & v).SpecialCells(2) .Borders.LineStyle = 1 .Font.Bold = True: .Font.Size = 14 .Interior.ColorIndex = 35 .InsertIndent 1 With .Cells(1, 1).Resize(, 4) .Interior.ColorIndex = 6 .HorizontalAlignment = 3 End With End With End_Me: Application.ScreenUpdating = True End Sub تم التعديل على الملف كما تريد 1-المهام مدرجة في قائمة منسدلة في الخلية H1 غير مكررة (توفيراً للوقت في الكتابة من جهة وتجنياً للأخطاء الكتابية من جهة أخرى المسافات الزائدة او النافصة او اخطاء املائية) 2- اذا لم تظهر القائمة المنسدلة غادر الصفحة وعد اليها مجدداً 3- في حال كانت الخلية H1 فارغة الماكرو يقوم بجلب كل البيانات 4-الملف مرفق Extra_Filter.xlsm

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

السلام عليكم 🙂 اخي احمد ، مثل ما قاله اخي حسام : اعطنا الارقام ، وخلينا نحللها و نشتغل على الهندسة العكسية ، ونصل للمعادلة الصحيحة 🙂 جعفر

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

بسم الله الرحمان الرحيم السلام عليكم اصدقائي قررت في الفترة الاخيرة اعتزال البرمجة بالاكسل و vba ولا اظن اني ساعود له بما اني كنت اعمل على بعض المشاريع بواسطة الاكسل و لاكن للاسف لم اجد الوقت الكافي لانهائها قررت ايضا طرح تلك المشاريع لربما لتستفيدون منها لذاى ساقوم في كل مرة يتاح لي الوقت فيها برفع مشروع او اثنين ان شاء الله كاول مشروع هذا برنامج مبيعات /كودبار/يعتمد ايضا القطعة و العلبة تقريبا انجز 80% منه لم يتبقى له سوى التقارير و بعض الاشياء الاخرى تحياتي للجميع Pr Commercial.rar

احد الاخوة من دول الخليج العربي طلب مني تصميم برنامج واشترط ان تكون الواجهة ذات رموز المهم هذا كان طلبة ما رأيكم في هذه الواجهات ؟؟

ألف شكر وألف تحية لك أستاذنا الفاضل سلُمت يداك

تضيف رقمه على الـــ Array الـــ Array يحتوي على الأعمدة الواجب نقلها بالترتيب و تجعل اسم الصفحة في العامود السادس من خلال استبدال الرقم 5 بالرقم 6 في ws.Cells(m, 5) = .Name

تم التعديل على الملف كما تريد Option Explicit Sub Test_Mots_sorted() Dim Sh As Worksheet Dim Ro%, i%, X% Dim KK As Object Set Sh = Sheets("Sheet1") Ro = Sh.Cells(Rows.Count, "E").End(3).Row Sh.Range("F8:Y" & Ro).ClearContents Set KK = CreateObject("System.Collections.Arraylist") For X = 8 To Ro For i = 26 To 65 If Sh.Cells(X, i) Like "#?#" Then If Not KK.Contains(Sh.Cells(X, i).Value) Then KK.Add Sh.Cells(X, i).Value End If End If Next i If KK.Count Then KK.Sort Sh.Cells(X, "F").Resize(, KK.Count) = KK.toarray KK.Clear End If Next X End Sub Abou_sara_sorted_Uniq.xlsm

تفضل يحتوي على عدد من النتائج تستطيع تطبيق على مثالك الفارق بين تاريخين.accdb

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

عدل السطر هذا For Each cell in rng

شكر وتقدير واحترام من اخيك استاذنا

ممكن ذلك عن طريق الكود

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

بعد وضع المعادلة يجب الضغط على (Crtl+Shift+Enter) لا Enter وحدها

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

بصراحة وبدون زعل راح انطي (((((التصميم))))) تقيم 25 من 100

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

نعم ، التاريخ مو مشكلة ، لأنك تعطي الحقل تاريخ اليوم بمعادلة واحدة ، ولمرة واحدة فقط 🙂 جعفر

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

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

يا رجال ، بعض المستخدمين عندهم لابتوبات بنظام XP او Vista عليه !! وعيدكم مبارك 🙂 جعفر

موضوع التحديث وانشغال المعالج ربما يكون في المعالجات الضعيفة وبالذات القديمة حاليا وصل عدد الى الانوية الى 16 نواه و32 من خيوط المعالجة Ryzen 9 3950X في جهازي معالج متوسط من نوع انتل i9 عدد 10 نواه و20 خيط معالجة عند الضغط وتشغيل عدد كبير من التطبيقات لا يصل انشغال المعالج الى 30% مع الاحاطة ان هناك مجموعة عوامل تؤثر على انشغال المعالج وتاخر تنفيذ العملية منها نوع المعالج وترددة وعدد الانوية ونوع اللوحة الام و حجم الرام و الهارد نوعه وسرعته والمساحة المتاحة و كذلك تنفيذ عمليات التنظيف للهارد بحذف الملفات المؤقتة والغاء التجزئة الخ ربما المشكلة التي واجهتها وسببت لى ارباك ما اشرتم اليه في البند 4 الله يعطيك العافية وعيدكم مبارك

تم معالجة الأمر MY_Filter.xlsm

السلام عليكم 🙂 انا ضد وضع الساعة في النموذج ، لأن حدث On Timer يحدث كل ثانية (ساعتك تشير الى انك تعرض الثواني ايضا) : 1. ومستحيل انه يستطيع ان يحدث كل ثانية ، لأن هذا الامر مرتبط بساعة الجهاز ، وعلشان اكسس يقدر يحصل على هذه المعلومة ، فإنه يطلبها من الوندوز ، والذي معناه ان المعالج CPU يجب ان ينفذ هذا الامر ، ومن المعروف ان المعالج يكون لديه طابور من الاوامر لتنفيذها ، والأولوية لتنفيذ أوامر الوندوز ثم اوامر البرامج ، ومستحيل ان المعالج يكون فاضي ومستعد 100% لتنفيذ امر الاكسس في تلك الجزئية من الثانية. لهذا السبب ترى ان معظم الوقت الثواني تعمل بطريقة صحيحة ، وبعض الاوقات تتوقف الثواني (لما المعالج يكون مشغول بتنفيذ أوامر اخرى) ، ولا حقا نرى ان الساعة تعمل بطريقة صحيحة!! طبعا كلامي ليس معناه ان بعد التوقف يكون الوقت خطأ ، وانما كلامي انه يكون فيه تأخير في عرض الثواني بعض الاوقات ، 2. وبما ان الساعة موجودة في زاوية الكمبيوتر (ولاحظ انه لا يوجد بها ثواني ايضا) ، فمافي داعي ان نضع ساعة في النموذج ، إلا اذا كان عندنا نموذج منبثق يملئ الشاشة ، واللي من الخطأ استعمال النموذج المنبثق إلا في حالات نادرة ، وهذه احد مشاكله !! 3. حدث الساعة سيكون يعمل طوال وقت استعمال البرنامج ، ولما تفتح احد النماذج وتريد تنفيذ احد الاوامر ، قد تجد فيه بطئ في التنفيذ ، 4. بما ان حدث الساعة يعمل طوال وقت استعمال البرنامج ، واذا اردت ان تعمل تغيير في كود احد النماذج الاخرى في البرنامج ، فسترى انك لا تستطيع كتابة الكود بحرية ، لأنه كل ثانية سترى ان مؤشر الكتابة يرجع الى اول السطر ويترك السطر بلون احمر لأنك لم تكمل كتابة الكود ، الى ان تغلق النموذج الرئيسي او تضعه في وضع تصميم فيتوقف حدث الساعة 🙂 عند استعمال الصور يجب المحافظة على نسبة الطول الى نسبة العرض ، حتى تظهر الصورة بمقاسات صحيحة ، لذلك لا تستعمل Stretch (لاحظ الخيار الثاني في القائمة) إلا بنسبة قليلة ، وإلا فالشكل الدائري سيظهر كشكل بيضاوي (وهذا غير صحيح وعمل غير احترافي) ، ولاحظت هذا على احد صورك في النموذج : . جعفر

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

كل عام والجميع بالف خير بالخدمة اخي العزيز وتفضل التعديل ارجو ان يكون طلبك APE-10.rar

جرب هذا الملف والتعامل معه يتم حسب الصورة "User Form2" 1- في اليوزر "User Form2" الصفحة الأولى "Single sheet" مطابقة لليوزر الدي كنا نتعامل معه 2-في اليوزر الصفحة الثانية "All sheets" يقوم الكود بالبحث عن الكلمة التي تريدها من جميع الشيتات ما عدا "formula"و "Free" اللتين تركتهما احتياط في حال اردنا شيئاً جديداً 3 _يمكن ادراج صفحات اخرى قدر ما تريد (شرط التقيد بالجدول من الغامود A الى العامود H ( بدون خلايا فارغة في الجدول) و بنفس العناوين "كود الطالب" / "اسم الطالب ..... الخ.... الملف مرفق Doubl_User.xlsm

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

الكودات في اليوزر معقدة بعض الشيء لذلك قمت بنغييرها و وضعت لك االاكواد المناسبة اضغط على الزر Show User لاظهار اليوزرفورم تختار اسم الصف من الكومبو فتظهر لك في اليست بوكس كل البيانات لاضافة سجل >>>>>>>>>>>> تختار اسم الشيت من الكومبو وتملإ البيانات تم تضغط على "اضافة" اذا لم تكن الببيانات كافية(8 عناصر على عدد الأعمدة) يتم تلوين التكست بوكس الفارغ باللون الاحمر و يتوقف الكود عن العمل بانتظار تعبئة كل البيانات لحذف سجل >>>>>>>>>>>>>>>>>>> تحتار من الليست بوكس وتضغط حذف لتعديل سحل >>>>>>>>>>>1- تختار من الليست بوكس 2-تبدل ما تريد من خلال التكست بوكسات ثم تضغط على تعديل الملف يحتوي على صفحتين فقط ويمكن اضافة قدر ما تريد من الصفحات (بشرط التقيد بجدول البيانات من العامود A الى العامود H ) بدون صفوف فارغة abdo_1.xlsm

تحميل شيت يوميه امريكيه كامل بتحليل المصروفات بشكل احترافي

حرب هذا الملف 1- عملية اخفاء الاعمدة لا تتم الا اذا كانت الخلايا من B الى H غير فارغة (7 عتاصر) 2-بعد تعبئة البيانات من B الى H مجرد ان تدخل عدد الاقساط المطلوبة في الخلية I يتم اظهار عدد الاعمدة المطلوبة 3-زرين اضاقيين لاخفاء الاغمدة من M الى AJ واظهارها اذا كان هناك حاجة لذلك Show_hid_col.xlsm

فيديوووو جميل وشيق في هذا الفيديو شرح تقييم وحساب المكافاة بثلاث طرق علشان لازم تعرف كذا طريقة وهانتعلم في الدرس ده معادلة IF - VLOOLUP - INDEX - MATCHكيفية عمل تقييم وحساب المكأفاة بثلاث طرق باستخدام IF - VLOOLKUP - INDEX - MATCH.xlsx

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

فيديوووو جديد جديد لشياكة الشيت وتجميله كيفية إضافة ●○ SYMBOL قبل كل اسم او جملة اتوماتيكيا واستخدمنا في الفيديو دة معادلة LEN استخدم الجملة دي لتطبيق الفيديو ○ General;○ General;○ General;○ General https://www.youtube.com/watch?v=qvU5ynfFdvM Book1.xlsx

جرب هذا الماكرو Sub CopyFiltered1() Dim src As Worksheet Dim tgt As Worksheet Set src = ThisWorkbook.Sheets("data") Set tgt = ThisWorkbook.Sheets("Sheet2") src.AutoFilter.Range.Offset(1, 1).Resize(, 5).Copy tgt.Range("B5") End Sub mounir.xlsm

الملف المضغوط فنحصل على مجلد يحتوى على برنامج رسم قطاعات الترع مع حساب الحفر تم عمل هذا البرنامج لكي يكون الاسهل في الاستخدام فتم استخدام برنامج الإكسيل لحفظ وإدخال البيانات وبرنامج الأوتوكاد لرسم القطاعات العرضية للترع ولتشغيل البرنامج يتم فنح ملف اكسيل ولتَعَرُّف على طريقة البرنامج تفتح ملف الإكسيل فتجد نموذج لبيانات قطاعين ترعة فيمكن أن تتعرف على طريقة إدخال البيانات بسهولة ولبدء رسم قطاعات ترع جديدة نفتح ملف الإكسيل ويتم إدخال بيانات مناسيب القطاعات والقطاع التصميمي ثم نَفْتح ملف أوتوكاد جديد ثم نتحول إلى الإكسيل ونضغط على زر "مربع حوار رسم" الموجود في ورقة العمل "قطاعات" في الصف الأول فنجد أنه تم اقتراح بعض الإعدادات التي يمكن تغييرها مثل صف بداية بيانات القطاعات وصف النهاية وبداية أول قطاع والمسافة بين القطاعات واسم طبقات كل عنصر من عناصر الرسم بعد تغيير هذه البيانات نضغط زر "رسم القطاعات" ثم نتحول إلى الأوتوكاد فنجد أنه تم رسم جميع القطاعات 2019 رسم قطاعات الترع .rar

وعليكم السلام اختي 1. اذا تسمحي لي بتغيير الكود قليلا الى التالي ، فانتي لستي بحاجة الى If اخرى: if result=vbYes then docmd.quit else docmd.cancelevent msgbox "Back" endif 2. برنامج الاكسس تلقائيا يحفظ البيانات عندما ينتقل التركيز من السجل الذي انتي عليه ، سواء انتقلتي الى سجل آخر او خرجتي من النموذج الذي انتي فيه، ولكن اذا اردتي حفظ البيانات يدويا ، فهناك مجموعة طرق للقيام بهذا ، منها: سيتم حفظ البيانات كلما استعملتي هذا الامر docmd.runcommand accmdsaverecord او الامر التالي يحفظ البيانات فقط اذا تم عمل تغيير عليها if me.dirty then me.derty=false جعفر