Foksh

مشاركة مع المهندس @ابو جودي ، وأسأل الله لك الشفاء العاجل من كل سقم ,, تفضل أخي @ahmadhurira هذا المديول الجديد البعيد عن مديولك في المرفق السابق في النموذج أدخل المبلغ كمثال:- 150.320 = مائة وخمسون دينار و 320 فلس لا غير. تسديد حساب ذمم.zip

تفضل اخي الكريم @figo82eg هذا التعديل يتأكد مما اذا كان هناك ملف بنفس رقم الخطاب الحالي أو لا . وأيضاً من أن مربع النص "رقم الخطاب" غير فارغ . Private Sub OpenFiles_Click() If IsNull(Me.رقم_الخطاب) Or Me.رقم_الخطاب = "" Then MsgBox "الرجاء إدخال رقم الخطاب.", vbExclamation, "خطأ" Exit Sub End If Dim File_Path As String, File_Name As String, Name_Path As String File_Path = Application.CurrentProject.path & "\Edit\" File_Name = Dir(File_Path & Me.رقم_الخطاب & "*.pdf") If File_Name = "" Then MsgBox "ملف الخطاب غير موجود.", vbInformation, "تنبيه" DoCmd.OpenForm "sms1", acMaximize Exit Sub End If While File_Name <> "" Name_Path = File_Path & File_Name Application.FollowHyperlink Name_Path File_Name = Dir() Wend End Sub

خدمة إرسال رسالة قصيرة SMS هي خدمة مدفوعة ولها تكاليف تختلف حسب البلد ومزود الخدمة .

بسيطة ، ولا يهمك ، انتظرني في التعديل المطلوب 😇

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

جرب فكرتي أخي الكريم @ahmedabuzena ,, za-AKSAT-Pro-LAST- (1).accdb

فكرة القيمة على شكل نص أو كتابة ، لا أعتقد أنها فكرة ممتازة . لأن المبرمج الناجح يهدف إلى عدم تحميل النموذج حيز عمل كبير ( هناك من يتعاون في سرعة الأداء لأي كود في أكسيس منها كرت الشاشة والرام ونوع الهارد ديسك SSD , HDD ... إلخ ) . وفي مثالك أخي أحمد لو كنت مكانك لما تطرقت إلى هذه الفكرة . ليس إحباطاً للمعنويات ، ولكن وجهة نظر .. وإرجو الإهتمام من صاحب الموضوع لتحديد أهداف الطلب في هذا الموضوع ، وإن كان هناك تفرعات في طلبه فليتوجه لقتح موضوع جديد في طلبه الجديد

من المتعارف عليه أن نظام القوائم المتعارف عليه يكون بإتجاه واحد من أحد الإتجاهات الأربعة فما الفكرة من التحدي بتوظيف السحب والإفلات للقوائم الرئيسية أو المتفرعة منها

الف سلامة عليك ، وربي يشافيك ويعافيك ،

اعتقد أفضل طريقة هي إنك تعمل سطل قهوة أو شاي ، وتستفرد انت ونفسك مع قاعدة البيانات وتدور بين الأكواد على الكائنات اللي انت مش عايزها يا صديقي .

اممممم ، طيب لو جينا مثلاً مثلاً يعني وغيرنا مربع نص إيجار الساعة من مربع نص لكومبوبوكس يا ترى هيحصل ايييييه أكيد هتحصل طرطشة كبيرة أوي يعني لو انا جيت السنتر عندك و خدت الجهاز رقم 2 واللي هو متسعر أساساً 100 جنيه ( على سبيل المثال انا بقول ) ، وانا شغال وفي عز المعركة في اللعبة جيت انت وقلتلي انا هحسبلك الساعة بـ 50 جنيه خصم .. يا ترى هتعمل ايه ؟؟ انت ما تعملش حاجة هو نفسه هيرجع يحسب السعر في الإجمالي على حسب السعر اللي انت غيرته من غير تحديث ولا ريفريش ولا حاجة . وجرب كده واديني رأيك . وكمان انا قلت للزر Stop يوقف مؤقت العداد ولو الزبون طلع عيل ورجع في كلامه وما جاش على باله يروح وقال انا عايز أكمل ، تقدر تضغط على زر Resume مرتين علشان البيه يكمل لعب وما تضطرش تفتحله وقت تاني جديد دي طئطوئة من اللي في دماغي لما أكون مضغوط في الشغل PlayStation.accdb

ما شاء الله ، الله الله يا مهندسنا ,, تحفة فنية جميلة ، اختيارك للألوان مشجع لتفحص وتتبع آلية إنشاء قائمة جميلة ،، بارك الله فيك ، ونفع بك ، وزادك من علمه

قمت بالتدقيق في ملاحظتك ، ولكن توضح لي أنه بعد تعديلك للقيمة في إيجار الساعة ، يجب إغلاق النموذج وفتحه مرة أخرى ، وذلك لأن المرفق يعتمد على القيمة الافتراضية لهذا العنصر ، ولأن مصدره ليس جدول. سيتم التعديل في المشاركات اللاحقة العملية الحسابية سليمة وصحيحة 1000%. 🤗

كلامك صحيح 100% يبدو ان العملية الحسابية لم تكن دقيقة ، سيتم التدقيق والتعديل ، ولا يهمك

النسخة الجديدة والمطورة مع بعض اللمسات 1. حفظ القيم في الجدول من خلال زر جديد = Go 2. تمييز الجهاز المشغول باللون الأخضر ، وعند الإيقاف الؤقت باللون الأحمر ، وعند الأيقاف التام باللون البني . وعند الحفظ يعود الى اللون الأسود الباقي أتركه لكم لإكتشافه PlayStation.accdb

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

تم استخدام الخاصية Tag لكل جهاز ، حيث ما يلي :- أزرار البدء والإيقاف Tag = Station1 للجهاز الأول ... وهكذا لكل جهاز ( Station2 ، Station3 ... إلخ ) مربعات النص والليبلات Tag = St1 للجهاز الأول ... وهكذا لبقية الأجهزة ( St2 ، St3 ... إلخ ) شرح الكود بشكل مبسط وليس تفصيلاً :- في البداية تم حجز متغيرات عامة قابل للتعديل لتخزين القيم الزمنية للعدادات الستة و لتحديد ما إذا كان العداد قيد التشغيل أم لا و لتحديد ما إذا كان العداد متوقف مؤقتًا أم لا و لتخزين القيم الزمنية عند توقف العداد مؤقتًا . وطبعاً العدد 6 قابل للتعديل كيفما تريد . Dim counters(1 To 6) As Double Dim isRunning(1 To 6) As Boolean Dim isPaused(1 To 6) As Boolean Dim pauseCounters(1 To 6) As Double في الحدث عند التحميل كود لجعل الأزرار بالتسمية التوضيحية Start , Stop ، والعدادات قيمتها الإفتراضية = 00:00:00 ، والفاصل الزمني = 1 ثانية ( 1000 ملي ثانية ) Dim i As Integer For i = 1 To 6 counters(i) = 0 isRunning(i) = False isPaused(i) = False pauseCounters(i) = 0 Me.Controls("lblCounter" & i).Caption = "00:00:00" Me.Controls("TOTEL" & i).Value = 0 Me.Controls("cmdStartStop" & i).Caption = "Start" Me.Controls("cmdReset" & i).Caption = "Stop" Next i Me.TimerInterval = 1000 في الزر cmdStartStop هو المسؤول عن بدي وإيقاف مؤقت للتايمر مع تغيير حالة التسمية التوضيحية لكل زر حسب i ، حيث تم تسمية كل زر cmdStartStop بإضافة رقم يمثل رقم الجهاز للتمييز بينهم عند استدعاء الكود .. وكذلك الأمر عند الزر cmdReset المسؤول عن الإيقاف وإعادة تصفير العداد والقيم في كل جهاز ، ونفس الفكرة بالنسبة للتسمية التي تميز كل زر جهاز عن الآخر باستعمال المتغير i . وباقي الأجزاء الصغيرة واضحة ولا تحتاج شرح . Private Sub cmdStartStop_Click(Index As Integer) Dim stationId As Integer Dim startStopButton As Control Dim resetButton As Control stationId = Index Set startStopButton = Me.Controls("cmdStartStop" & stationId) Set resetButton = Me.Controls("cmdReset" & stationId) If startStopButton.Caption = "Start" Then startStopButton.Caption = "Pause" isRunning(stationId) = True isPaused(stationId) = False If counters(stationId) = 0 Then counters(stationId) = 0 Else counters(stationId) = pauseCounters(stationId) End If ElseIf startStopButton.Caption = "Pause" Then startStopButton.Caption = "Resume" isRunning(stationId) = False isPaused(stationId) = True pauseCounters(stationId) = counters(stationId) ElseIf startStopButton.Caption = "Resume" Then startStopButton.Caption = "Pause" isRunning(stationId) = True isPaused(stationId) = False counters(stationId) = pauseCounters(stationId) End If End Sub Private Sub cmdReset_Click(Index As Integer) Dim stationId As Integer Dim resetButton As Control Dim counterLabel As Control Dim totalCostBox As Control Dim startStopButton As Control stationId = Index Set resetButton = Me.Controls("cmdReset" & stationId) Set counterLabel = Me.Controls("lblCounter" & stationId) Set totalCostBox = Me.Controls("TOTEL" & stationId) Set startStopButton = Me.Controls("cmdStartStop" & stationId) If resetButton.Caption = "Stop" Then resetButton.Caption = "Reset" isRunning(stationId) = False isPaused(stationId) = True pauseCounters(stationId) = counters(stationId) ElseIf resetButton.Caption = "Reset" Then resetButton.Caption = "Stop" counterLabel.Caption = "00:00:00" counters(stationId) = 0 totalCostBox.Value = 0 isRunning(stationId) = False isPaused(stationId) = False pauseCounters(stationId) = 0 startStopButton.Caption = "Start" End If End Sub التركيز كله على الحدث عند الوقت ، وهو يحدث في كل ثانية العملية الحسابية لكل جهاز بشكل مستقل لا يؤثر على الآخر بالإعتماد على المتغيرات التي في الأسماء وهو الرقم i الذي يمثل رقم الجهاز ( لاحظ التسميات لهذه العناصر في النموذج ستعرف المقصود ) . والعملية الحسابية تقوم بتقسيم القيمة في STSATR_DATE لكل جهاز حساب التكلفة الإجمالية للعداد الحالي بناءً على معدل الساعة وإجمالي الثواني. ( طبعاً متغيرات كثيرة لم أتطرق لها لضيق الوقت ) . Private Sub Form_Timer() Dim i As Integer Dim totalSeconds As Long Dim hourlyRate As Double Dim totalCost As Double For i = 1 To 6 If isRunning(i) And Not isPaused(i) Then counters(i) = counters(i) + 1 Me.Controls("lblCounter" & i).Caption = Format(DateAdd("s", counters(i), "00:00:00"), "hh:mm:ss") hourlyRate = Me.Controls("STSATR_DATE" & i).Value totalSeconds = counters(i) totalCost = (hourlyRate / 3600) * totalSeconds Me.Controls("TOTEL" & i).Value = Format(totalCost, "0.00") End If Next i End Sub وفي النهاية استدعاء الأمر لكل زر (cmdStartStop1 ، cmdStartStop2 ... إلخ ) و (cmdReset1 ، cmdReset2 ... إلخ ) حسب تسميته Private Sub cmdStartStop1_Click() Call cmdStartStop_Click(1) End Sub Private Sub cmdStartStop2_Click() Call cmdStartStop_Click(2) End Sub Private Sub cmdStartStop3_Click() Call cmdStartStop_Click(3) End Sub Private Sub cmdStartStop4_Click() Call cmdStartStop_Click(4) End Sub Private Sub cmdStartStop5_Click() Call cmdStartStop_Click(5) End Sub Private Sub cmdStartStop6_Click() Call cmdStartStop_Click(6) End Sub Private Sub cmdReset1_Click() Call cmdReset_Click(1) End Sub Private Sub cmdReset2_Click() Call cmdReset_Click(2) End Sub Private Sub cmdReset3_Click() Call cmdReset_Click(3) End Sub Private Sub cmdReset4_Click() Call cmdReset_Click(4) End Sub Private Sub cmdReset5_Click() Call cmdReset_Click(5) End Sub Private Sub cmdReset6_Click() Call cmdReset_Click(6) End Sub وسلاااااامتك يا صديقي

غير صحيح ,, كل جهاز له قيمة مختلفة ، وانا غيرت القيم في كل جهاز علشان تتأكد من هاي الفكرة لاحظ هذا الجزء في السطر ، i هي متغير لرقم مربع النص حسب رقم الجهاز Me.Controls("STSATR_DATE" & i).Value

جلست أكثر من 3 دقائق أتمعن في هذه الجملة !!!! تريد حذف الكائنات التي لا تحتاجها ؟؟؟؟؟؟ اضغط على أي كائن زي يمين بالماوس واختر Delete - حذف أو لا تبخل علينا بالتوضيح والفكرة التي تدور في رأسك

وهذه فكرتي المتواضعة والقابلة للتطوير بشكل بسيط جداً ,, TEST_2.accdb

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

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

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

أخت @hanan_ms ، كلامك صحيح 😁 ولكن هنا التنفيذ كان حسب الطلب ، ولو جينا نتفرع وناشعب في الموضوع فسنجد أنفسنا موظفين في مركز وسنتر بلايستيشن 😂 إحنا على رأي الأخ @حسين العربى

جميل جداً ،،