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

2003 .. جميع الاصدارات اللاحقة تتعامل معه على كل حال اليك الحل : بعد حذف الجدول table2 خلف الزر الصق هذا السطر : DoCmd.CopyObject , "table2", acTable, "table1" على اعتبار table1 هو الجدول الأساس وحسب تسمياتك في مشروعك سيكون الكود كاملا : DoCmd.SetWarnings False DoCmd.DeleteObject acTable, "tbl_Student2" DoCmd.CopyObject , "tbl_Student2", acTable, "tbl_Student" DoCmd.SetWarnings True

قد يكون الترتيب التالي أفضل 1. حذف الجدول المستهدف كاملاً ، 2. إنشاء نسخة ثانية من الجدول المصدر ، 3. إعادة تسمية الجدول الجديد بالاسم المطلوب ، 4. جملة استعلام حذف جميع السجلات في الجدول الجديد ، وهذا كفيل بإبقاء التسمية التوضيحية موجودة كما في الجدول الأصل ( المصدر ) * وجهة نظر قابلة للنقاش

شكراً لك أخي @ahmed draz على هذه الثقة ، وثق تماماً أنني ما زلت أتعلم من هذا المنتدى ومن الخبرات القوية التي تختفي تحت أسماء عظيمة في هذا القسم . هذا التعديل البسيط لما طلبت ، فتفضل :- Option Compare Database Option Explicit Dim counter As Double Dim isRunning As Boolean Dim isPaused As Boolean Dim pauseCounter As Double Private Sub Form_Load() counter = 0 isRunning = False isPaused = False pauseCounter = 0 Me.lblcounter.Caption = "00:00:00" Me.TOTEL_1.Value = 0 Me.TimerInterval = 1000 End Sub Private Sub cmdstart_Click() If Me.cmdstart.Caption = "Start" Then ' ÈÏÁ ÇáÚÏ Me.cmdstart.Caption = "Pause" Me.TimerInterval = 1000 counter = 0 isRunning = True isPaused = False pauseCounter = 0 ElseIf Me.cmdstart.Caption = "Pause" Then Me.cmdstart.Caption = "Resume" Me.TimerInterval = 0 isRunning = False isPaused = True pauseCounter = counter ElseIf Me.cmdstart.Caption = "Resume" Then Me.cmdstart.Caption = "Pause" Me.TimerInterval = 1000 counter = pauseCounter isRunning = True isPaused = False End If End Sub Private Sub cmdReset_Click() Me.cmdstart.Caption = "Start" Me.lblcounter.Caption = "00:00:00" counter = 0 Me.TimerInterval = 0 Me.TOTEL_1.Value = 0 isRunning = False isPaused = False pauseCounter = 0 End Sub Private Sub Form_Timer() Dim totalSeconds As Long Dim hourlyRate As Double Dim totalCost As Double If isRunning And Not isPaused Then counter = counter + 1 Me.lblcounter.Caption = Format(DateAdd("s", counter, "00:00:00"), "hh:mm:ss") hourlyRate = Me.STSATR_DATE.Value totalSeconds = counter totalCost = (hourlyRate / 3600) * totalSeconds Me.TOTEL_1.Value = Format(totalCost, "0.00") End If End Sub

😁 نفس الطلب مع التصحيح ونخصيص Animation الحواف والسرعة بقى تضبيط التلقائي لكامل حجم الفورم لكل فورم عند الفتح 😇 حبيبتي صفاء ما قالت رايها ❤️🥰 استاذ @ahmed draz شكرا للتعديل ❤️🌹☕ ما انتبهت كنت مشغولة الى ارفع تصميمك ارتب بس كنت بحاكي طلب حبيبتي صفاء تحديث UP_date_Lest_Form.rar

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

اهلا اخي في المرات القادمة لا توجه السؤال لشخص بعينه .. من اجلك انت اولا .. وتحقيقا لقواعد المشاركة تم التعديل Dat11.rar

View File 🎁برنامج لتخصيص مؤشر الماوس للتحريك العناصر مع تغير شكل الماوس وتخصيص نمط الفورم باللون(سحب وفلت الكائنات في النموذج Drag drop)🎁 بعد الاضافة الرائعة من استاذ @Foksh❤️ برنامج للتحكم بتحريك الازرار وتخصيص بالمواس وتخصيص تغير نمط الفورم باللون موضح بالفيديو "=============================(طريقة اضافة رمز Mouse ) for .Cur And .ani = (Animation ) 1-ببرنامج تحويل الصور حول من امتداد (.Cur) To (.Png) 2-نسخ الى نفس الملف (والملف واحد) الكل نفس التسمية (.Cur) And (.Png) And (.ani) 3-امكانية تغير ابعاد النافذة 4-تخصيص الازرار للشكل مؤشر الماوس 5- حفظ التحريك وتغير الموقع الكائنات ===================================( Video ) نسخة من البرنامج للتجربة واضافة لمشروعكم ☕ ❤️🌹اتمنى ان ينال على اعجابكم Submitter hanan_ms Submitted 08/02/2024 Category قسم الأكسيس  

تفضل جرب المرفق التالي واختار ما يناسبك Private Sub UserForm_Initialize() Me.ScrollHeight = Me.Height * 2 End Sub 'OR Private Sub UserForm_Initialize() Me.ScrollHeight = Me.Height Me.Height = Me.Height / 2 End Sub 'OR Private Sub UserForm_Activate() With Me .ScrollBars = fmScrollBarsHorizontal .ScrollWidth = .InsideWidth * 1.5 End With End Sub test (1).xlsm

انصحك بشدة قم بالغاء تنصيب الاوفيس 2016 لكن وركز معايا فـ ولاكن دى استخدم برناامج you uninstall حتى تقوم بحذف الاوفيس من جذوره هو وكل ملفات الريجسترى الخاصة به وانصحك بشئ من اتنين الافضل اوفيس 2010 مع ويندوز 7 سوف تجد فارق كبير جدا جدا جدا فى التعامل الحل التانى تشيل الويندوز 7 تفرمت ال C تنزل نسخة ويندوز وعندى ليك نسخة حلوه ومحترمة جدا جدا وخفيفة جدا جدا جدا وعن تجربة اسمها windows 10 ghost spectre لو عاوز تعرف عنها اكتر قولى اوفر لك فيديوز لشرحها ورابط تحميلها بكل سهولة وبعد الويندوز دى اشتغل بأوفيس Office 2021 LTSC وهتدعى لى ولو عاوز اى مساعدة اونلاين ممكن ابقى ادخل معاك على جهازك ريموت واساعدك فى اى شئ من خلال AnyDesk

DoCmd.SetWarnings False DoCmd.DeleteObject acTable, "tbl_Student2" DoCmd.CopyObject , "tbl_Student2", acTable, "tbl_Student" DoCmd.SetWarnings True فعلاً هى أفضل إجابة بقليل من السطور فى كتابة الكود .. شكراً لك لكن أيضاً لا أنسى توجيه الشكر للأخ العزيز Foksh على مجهوده وعمله وكذلك ابو جودي على التحفيز والتحدى لنصل لهذا الحل

استغفر الله العظيم اخي العزيز أحمد ،، كلنا نتعلم من بعضنا اخي الكريم ، وقد ترى انت شيء لم انتبه له ، وهذا يسعدني جداً 🥰

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

الخبير المبدع أخي الحبيب Foksh سأتعلم منك طوال العمر بارك الله فيك وجراك الله خيراً

عمل جميل جدا وفوق الممتاز جزاك الله خير علي جهودك وزادك الله من علمه

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

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

إن شاء الله الأمر بسيط ، ولكني فعلاً الآن خارج المنزل وبعيد عن الكمبيوتر 😇

استاذ @Foksh ❤️🌹 كنت افكر بلبنات افكاري 😂 هو المفترض ان تكون الواجهة عامودين الى ثالث للاجهزة المحجوزة والمتوفرة والجنب شاشة الكوشير من غير تايمر الوقت ولا متحرك بس وقت الدفع = دخول شرط اما IFF او IF تايمر عدى ساعات الحجز ينتقل السجل الى العامود الثاني ايقاف ListBox As Boolean عند تحقق الشرط ساعة ونص 😏 انتهاء \ اجل واستمرار عامود الثالث \ دفع استمرار البرنامج للموظفين والرواتب والايرادات واصول الاجهزة والمصرزفات تندرج تحت الصيانة معاملات العمال اجارات وصولولات تقارير الى طباعة وفاتورة للزباين ارقام الزباين محتاج واتس اب خصومات وعروض مو لمؤسسة ينباعة لشركات وافرع (شكلا بلاستيشن)!!! بس للكمبيوتر او نظام ارشفة ابحاث للجامعة وطاولات طعام ارشفة مواعيد وحجز ما له داعي حساب فلس بالوقت اقل شي دينار ونص على الساعة ادفع وتفضل او طاولة طعام 100 دينار الى 300 دينار للفنادق حجز لبنات المشاريع والافكار انا اترك لكم مجال الساحة بشوف الابداعات من استاذي @ابو جودي❤️🌹🌹 واستاذ @Foksh❤️🌹 واستاذ @ahmed draz❤️🌹 ptrsafe ☕ مش هي واقفة على 6 اجهزة باجر 60 ومتفرع الله يبارك له خذها بموضوع بزنس ثاني😇

اخي الكريم شكرا لردك انا اضفت جدول installment وزر في جدول الحسابات عايز بالضغط عليه يقوم بتسجيل عدد الاقساط والشهور والمبالغ المستحقه لكل شهر 1513.2.Not in final_1.rar انا اسف ارفقت ملف مكرر المثال اللي وجدته فيه فكرة قريبة مما اريد za-AKSAT-Pro-LAST- (1).mdb

جميل جداً ،،

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

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

بعد اذن استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل حياكم الله وبياكم الموضوع به تحد كبير فعلا على استحياء دعنى اوضح لك الامور لتتضح الرؤية من نقاط ضعف الاكسس انه لا يقوم بعمل نسخ الجدول بخصائص الحقول بداخله ولكن يتم ذلك بهيكل الجدول فقط وبيانات الحقول يعنى ابه الكلام دة ببساطة سوف اشرح على الصور الاتية الجزء المأطر بالازرق والذى يحمل العنوان Description ( Optional ) والذى يتم فيه كتابة وصف لكل حقل والجزء المأطر بالاسفل باللون البنفسجى وهو الـ Caption لكل حقل هذان يعدان من خصائص الحقول داخل الجدول عند عمل حذف للجدول الثانوى ونسخ الجدول الاساسى لا يأتى الجدول الجديد وليد عملية الاستنساخ بهذه الخصائص لاعداد الحقول فى الجدول الاساسى ولكن ولكن ولكن والله اعلم اعتقد قد يكون لها حل برمجى وانا ان شاء الله اعمل على ذلك

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

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

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

فضلا وكرما حفاظا على قوانين المنتدى ياريت فتح موضوع جديد بخصوص هذا الطلب

هذا الخلل قد يكون ناتج عن عدم وجود تسمية توضيحية لبعض الحقول ، إن لم أكن مخطئاً .. محاولةً لتلافي وتجاوز الحقول التي ليس لها تسمية توضيحية جرب الكود بالتعديل التالي :- Private Sub Cmd2_Click() Dim Msg, Style, Title, result Msg = "سيتم الآن حذف جدول الصف الثاني! ننصح بتصدير الصف الثاني إلى الثالث أولاً!!! هل ترغب في الاستمرار؟؟" Style = vbInformation + vbYesNo + vbMsgBoxRight Title = "تحذير - حذف جدول الصف الثاني" result = MsgBox(Msg, Style, Title) If result = vbYes Then DoCmd.SetWarnings False DoCmd.DeleteObject acTable, "tbl_student2" DoCmd.RunSQL "SELECT tbl_student.* INTO tbl_student2 FROM tbl_student;" Dim db As DAO.Database Dim tdfSource As DAO.TableDef Dim tdfDest As DAO.TableDef Dim fldSource As DAO.Field Dim fldDest As DAO.Field Set db = CurrentDb Set tdfSource = db.TableDefs("tbl_student") Set tdfDest = db.TableDefs("tbl_student2") For Each fldSource In tdfSource.Fields For Each fldDest In tdfDest.Fields If fldDest.Name = fldSource.Name Then On Error Resume Next Dim prop As DAO.Property Set prop = fldSource.Properties("Caption") If Err.Number = 0 Then fldDest.Properties("Caption").Value = prop.Value End If On Error GoTo 0 End If Next fldDest Next fldSource MsgBox "تم حذف جدول الصف الثاني وإحلال محتويات الصف الأول في جدول جديد باسم الصف الثاني", vbOKOnly + vbMsgBoxRight, "إعلام حذف" DoCmd.SetWarnings True ElseIf result = vbNo Then DoCmd.CancelEvent MsgBox "!!! لقد تم إيقاف عملية الحذف", vbOKOnly + vbMsgBoxRight, "إعلام توقف عن الحذف" End If End Sub

باش مهندسة @hanan_ms برافو تسلم ايدك

هذه هى النتيجة المؤكده و هو الرد الطبيعى من مجرد طالب علم يتكبر بغرور وجهل احسنت

بعد إذن أختنا الفاضلة hanan_ms النموذج الخاص بك بعد التعديل (لكن بدون سلاسة أو إزاحة للعناصر كما كانت تتمنى أختنا safaa salem5 ) وشكراً up lest button update.rar

مشاركة مع الأخ @ahmed draz ، استبدل كود النموذج كاملاً بالتالي :- Option Compare Database Option Explicit Dim counter As Double Private Sub cmdReset_Click() Me.cmdstart.Caption = "Start" Me.lblcounter.Caption = "00:00:00" counter = 0 Me.TimerInterval = 0 Me.TOTEL_1.Value = 0 End Sub Private Sub cmdstart_Click() If Me.cmdstart.Caption = "Start" Then Me.cmdstart.Caption = "Stop" Me.TimerInterval = 1000 counter = 0 Else Me.cmdstart.Caption = "Start" Me.TimerInterval = 0 End If End Sub Private Sub Form_Load() counter = 0 End Sub Private Sub Form_Timer() Dim totalSeconds As Long Dim hourlyRate As Double Dim totalCost As Double counter = counter + 1 Me.lblcounter.Caption = Format(DateAdd("s", counter, "00:00:00"), "hh:mm:ss") hourlyRate = Me.STSATR_DATE.Value totalSeconds = counter totalCost = (hourlyRate / 3600) * totalSeconds Me.TOTEL_1.Value = Format(totalCost, "0.00") End Sub

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

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

حبيبتي صفاء @safaa salem5 ❤️🌹🌹 تغير حدة الحواف عند\ كل فورم حدث عند الفتح غير 10 الى اي رقم تصاعدي 😏 ملاحظة عند تحريك المؤشر بتغير حجم الفورم الرئيسي بطول او العرص يضبط ?! مع اضافة فتح الكل والاغلاق بتوفيق حبيبتي صفاء 😘😘😘 نسيت الفورم اسمه XC😇 up lest button.rar

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

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

السلام عليكم ملف لبعض الأفكار المشابهة تحياتي animation.rar

اشلونج حبيبتي صفاء اشتقت لج ❤️🌹 وين الغيبة 😏 ============================== طلبج نفس التصميم الحواف منحنية الى حين التوسع 1- الازرار فورم داخل الفورم كود لتحفيف الفورم وكود الارتفاع من 0 الى 3000 او معيار السجل لقياس الارتفاع 😇 Aouto انا منتظره استاذ @Moosak عنده مرفقة راح يفيدج ويفيدني ☕🥰

View File 🎁🧪🩺🧬 Control.Seclected(ListBox) To (TextBox ) Seclected or All Itme One Click -(Ms.Access) 💉💊 مثال مجهز (لمختبر طبي) لطريقة تصميم فورم كل حقوله يتم ملأها من خلال الاختيار من ليست بوكس اكسس🎁 مثال مبسط عند اعتمادك لمشروعك يمكن تحويل SQL او DOA او DAO 1- تحديد جميع التحاليل من لستة بوكس اما محدد او الكل والعكس 2- اعتماد المحدد او الكل من حقل قائمة الى صندوق النص بسطر جديد وكل حقول في الجدول 3- سهولة عرض التقارير بحقول النص باسم المريض واستخراج PDF 😏 اشكر صفاء @safaa salem5 ❤️🌹 على اهداء المرفق ===================================( Video ) سخة من البرنامج للتجربة واضافة لمشروعكم ☕ ❤️🌹اتمنى ان ينال على اعجابكم Submitter hanan_ms Submitted 08/01/2024 Category قسم الأكسيس  

View File 🎁 📅Calendar V3 Change Calendar Ms.Access- For All Form -(اكسس تقويم لكافة النماذج مع ادادة التخصيص ) 📆⏲🎁 برنامج مجهز : Calendar V3 Change Calendar Ms.Access مميزات البرنامح 1-اضافة العطل الرسمية 2-اضافة حجز التواريخ Calendar -امكان تخصيص الون -عدم تمكين ازرار التاريخ 3-عرض تقرير لكافة العطل الرسمية 4- تاريخ الميلادي - تاريخ الهجري - تواريخ مع الوقت 5- تخصيص اعداداة للبرنامج 6- امكانية تحديد ايام العمل بفصل ايام العطل بترميز ايام الاسبوع 7-غفل الشهر من اشهر السنه ك اجازة قضات تبدا من شهر 6 الى شهر 8 8-اعداداة التحكم بالتاريخ من السنوات والشهور 9-تفعيل عند تحريك مؤشر الماوس 10 - عرض فروقات التواريخ تبدا من اليوم او من تاريخ الى تاريخ 11-امكانية ادراج التواريخ لاي حقل في فورم الى فورم آخر مفرع الى التفريع منغير استخدام جداول الادارج من Function لو بتكلم عن تجزئة For مجزء فحص 12-التصميم مختلف وتغير الالوان عند اختيار او ضغط على اسهم الكيبورد للتقلب في التقويم واظن ما تعودتوا عليه من قبل 😇 ===================================( Video ) نسخة من البرنامج للتجربة واضافة لمشروعكم ☕ ❤️🌹اتمنى ان ينال على اعجابكم Submitter hanan_ms Submitted 08/01/2024 Category قسم الأكسيس  

السلام عليكم ورحمة الله مرحباً بك أخي بلال تفضل طلبك نفقات التمدرس.accdb

View File ✔⏳اشرطة متنوعة لشريط التقديم للاكسس (Progress bar skin Visual on Ms Access)⌛ 1-شريط التقدم للفيجوال بيسك 📐 2-تحكم بوقت وتكرار الشريط ===================================( Video ) نسخة من البرنامج للتجربة واضافة لمشروعكم ☕ ❤️🌹اتمنى ان ينال على اعجابكم Submitter hanan_ms Submitted 08/01/2024 Category قسم الأكسيس  

فقط قبل نصف ساعة فهمت موضوعك، دائما عند تقديم مثال يجب تقديم الحل/الناتج المطلوب، بمعني تقول هذه المعادلة يفترض أن يكون جوابها هكذا. اختصرت لك كل هالمشقة والأكواد بسطر واحد فقط، آمل التجربة والعودة لنا بملاحظاتك. وبعد المزيد من التجارب أضفت سطر آخر 🙂 Function myRound(MainVal As Double, RoundVal As Double) As Double Dim Adj As Double Adj = (0.1 / RoundVal) * Sgn(MainVal) myRound = Round(MainVal / RoundVal + Adj) * RoundVal End Function وهذا سطر للاحتراز يمكن إضافته بداية الدالة عند الرغبة: If RoundVal < 10 Or RoundVal Mod 10 <> 0 Then Exit Function

متوافق ولكن المشكلة لديك في المكتبات جرب استبدل Dim db As DAO.Database بـــ Dim db As Database

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

وعليكم السلام ورحمة الله وبركاته يمكنك استخدام الصيغة التالية في الخلية E2: =IFERROR(IF(AND(C2>0, A2=0, B2="اسم المطلوب"), IF(ROW(C2)=2, C2*D2, OFFSET(D2, -1, 0)*C2), 0), 0) هذه الصيغة ستتحقق من أن قيمة في عمود C أكبر من صفر، وأن قيمة في عمود A تساوي صفر (التاريخ السابق)، وأن قيمة في عمود B تساوي "اسم المطلوب". إذا تم تحقيق هذه الشروط، سيتم ضرب قيمة في عمود C بقيمة في عمود D، وإلا ستكون القيمة صفر. ويمكنك استخدام الكود التالي في VBA لتنفيذ النفس العملية: Sub CalculateValue() Dim lastRow As Integer Dim i As Integer lastRow = Cells(Rows.Count, "A").End(xlUp).Row For i = 2 To lastRow If Cells(i, 3).Value > 0 And Cells(i, 1).Value = 0 And Cells(i, 2).Value = "اسم المطلوب" Then If i = 2 Then Cells(i, 5).Value = Cells(i, 3).Value * Cells(i, 4).Value Else Cells(i, 5).Value = Cells(i - 1, 5).Value * Cells(i, 3).Value End If Else Cells(i, 5).Value = 0 End If Next i End Sub يقوم هذا الكود بتنفيذ العملية المطلوبة في العمود E بناءً على شروط معينة في الأعمدة A، B و C. يمكنك تشغيل هذا الكود في VBA Editor في Excel عن طريق الضغط على Alt + F11 ولصق الكود في نافذة الكود الخاصة بالورقة التي ترغب في تطبيق العملية عليها، ثم تشغيل الكود.

فكرة مشابهة تحياتي animation.accdb