Foksh

عمل جميل جدا ، تسلم إيديكي على هذا العمل ، لي ملاحظة ، وهي ظهور الفرق بين تاريخين -5 شهر ، أو العدد بالايام -170.. هل هذا منطقي ؟؟؟؟

أهلا وسهلاً اخي الكريم معنا في عالمنا المتواضع ,, ارجو منك مستقبلاً ان تهتم أكثر بقوانين المنتدى بحيث :- تقوم بشرح المطلوب بشكل واضح و وافي ، وإرفاق ملف ليتم التعديل عليه وضمان النتيجة . جرب هذا الكود من أحد ملفاتي :- Function GetMotherboardSerialNumber() As String Dim wmiObject As Object Dim item As Object Dim computerName As String Dim motherboardUUID As String Set wmiObject = GetObject("winmgmts:\\") For Each item In wmiObject.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct") computerName = item.Name motherboardUUID = item.UUID Next item GetMotherboardSerialNumber = computerName & ", " & motherboardUUID End Function واستدعي النتيجة في أي مربع نص من خلال :- Me.TextBox = GetMotherboardSerialNumber()

كلامك سليم مهندسنا الغالي .. تم تعديل الخلل في المرفق

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

للجزء الأول من طلبك ، عليك تحديد شرط لتحديث قيمة في الجدول وستكون الحقل ID استبدل السطر DoCmd.RunSQL "UPDATE Table1 SET Table1.[Case] = '" & Date & "';" بالسطر التالي DoCmd.RunSQL "UPDATE Table1 SET Table1.[Case] = '" & Date & "' WHERE Table1.ID = " & Me.ID & ";" الجزء الثاني غير واضح بالنسبة لي .. ماذا تريد بعد ان يتم حذف التاريخ من الحقل !!!!!!

في حدث عند النقر:- me.text1.value = date

بناءً على إقتراحات أستاذي وصديقي @Moosak ، والتعديلات التي تقدم بها صديقي وأستاذي @ابو جودي ، تم دمج وإضافة تعديلات جديدة أرجو أن تنال رضاكم وإعجابكم . تم إضافة ميزة أن يكون في الجدول أكثر من حقل مفتاح أساسي . تم إضافة ميزة التعديل على الحقول أو حذف أحد الحقول قبل إنشاء الجدول من خلال زر " تعديل الحقول " ، وبعد إجراء التعديلات انقر زر " تأكيد التعديل ". تم دمج ميزة حرية إضافة " _Tbl " الى اسم الجدول عند انشائه ( فكرة الأستاذ أبو جودي مع إجراء تعديل بسيط ) - إختياري . تم دمج ميزة أن يكون أسماء الجداول والحقول ( الإنجليزية ) تبدأ بحرف كبير Capital Letter . تم إضافة ميزة فتح الجدول بعد انشائه لرؤية النتيجة أو لإدخال البيانات - إختياري . تم إضافة زر " مفتاح أساسي " لتمكين المستخدم من اختيار الحقول التي يريدها أن تكون مفتاح أساسي . تم إضافة زر " إضافة حقل " لإضافة حقل جديد . تم تعديل التصميم بشكل بسيط ليتناسب مع محتوياته والميزات الجديدة . ✔ لا حاجة لأي مكتبات أو مديولات عند نسخ النموذج لمشروعك والبدء بالإستفادة من ميزاته . ✔ أتطلع لأي أفكار جديدة أو اقتراحات TBL Maker.accdb

أخونا @خالد الماجد 2 ، أهلاً بك معنا في عالمنا المتواضع ,, ويسعدنا انضمامك لأسرتنا الكبيرة بمنتسبيها اختيار أفضل إجابة يكون للشخص الذي كانت إجابته ومساعدته والحل الذي طرحه في الموضوع الخاص بك ، وليس لصاحب الموضوع متمنياً لك أن تجد دائماً إجابة لأي سؤال أو مشكلة تواجهها . شكراً لك

قال مش داخل تاني قال ههههههههههههه وفين ألاقي ناس طيبة متل الناس اللي هنا على العموم انا بتعامل معاكم والله كأنكم أخواني وأصدقائي ليس إلا .. بحترمكم وبقدركم وبقدر جهودكم وتعبكم .. على العموم نرجع لموضوعنا وأنا حالياً عدلت وطورت فكرتي وبنيت على فكرتك تعديلات بسيطة ولكن استثنيت Use ChkUnder Score . وأرجو إبداء الرأي في المشاركة التالية حال الإنتهاء من اللمسات الأخيرة , كما أرجو تثبيت التحديث في أول الموضوع

حيلك حيلك يا عم انت رايح فين هههه فرمل و وقف وخد نفس ؛ إنت ما صدقت يا سيد بمزح والله يا محمد مش قصدي كل اللي خطر في بالك مش قلتلك من زمان ما نكشتكش وهزرت معاك هههههههههه

ولا يهمك يا صديقي ، فقط تكرم علينا بالملف وإن شاء الله نوصل لحل . ولكن دون ملف سندور في حلقات حتى يصيبنا الدوار

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

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

أهلاً بك أخي الكريم في عالمنا التواضع .. ويسعدنا انضمامك لأسرة أصدقاء المنتدى .. بداية سنقوم أولاً بتصور ما تريد وترتيب تسلسل الأفكار والأحداث كما يلي ، كي تتوضح لك الفكرة في انشاء كمثل هذه الأفكار في النماذج مستقبلاً . ستقوم بإنشاء جداولين واحد للمستندات ، والآخر لتفاصيل المستندات ( Documents و DocumentDetails ) ، حيث الحقول التالية فرضاً لا حصراً .. 1. الجدول Documents سيحتوي على الحقول التالية :- DocumentID = ترقيم تلقائي DocumentNumber = حقل رقمي DocumentDate = حقل من نوع تاريخ 2. الجدول DocumentDetails وسيحتوي على الحقول التالية :- DetailID = ترقيم تلقائي DocumentID = حقل رقمي DetailDescription = حقل نصي 3. في العلاقات سنقوم بربط العلاقة بين الحقلين DocumentID في الجدولين ، ونختار فرض تكامل المرجعية لتأمين البيانات وربطها . 4. وهذه فكرة لما بعد ذلك في تصميم النماذج ، ولك حرية التعديل حسب رغبتك ومتطلباتك 0.accdb

تفضل أخي الكريم ، هذه فكرة لما تصورته في طلبك 00.accdb

اللهم آمين يا رب العالمين ،، أشكرك والدنا الحبيب ومعلمنا يا أهلاً بالتعديلات ,, نورتني يا غالي ويسعدني لمساتك الفنية فكرة جميلة أيضاً إضافة الوصف لكل حقل ، وأيضاً Use ChkUnder Score شكراً يا صديقي .. اللهم آمين يا رب العالمين , ولكم جميعاً مروراً وحضوراً النصيب الأكبر من الدعاء لكم و لوالديكم ولأمه محمد أجمعين

بناءً على إقتراح أستاذنا @Moosak تم إضافة ميزة " التسمية التوضيحية - Caption " للحقول . تم إضافة ميزة " التعرف على حقل الترقيم التلقائي " عند وجوده والتخيير بين جعله مفتاح أساسي أو لا . في حال عدم وجود حقل ترقيم تلقائي ، سيتم التنبيه بعدم وجوده وإنشاء حقل جديد ID = AutoNumber ؛ والتخيير أيضاً بإنشائه أو لا . وعند إنشائه سيكون له خاصية مفتاح اساسي PrimaryKey . 💡ملاحظة : في التعديل القادم سيتم إتاحة الفرصة للمستخدم بالتعديل على الحقول قبل إنشاء الجدول كخطوة أخيرة 🤗 TBL Maker.accdb

اخي الكريم ،، الرقم هو فعلاً 9 مليار ( 9000000000 ) أما 9 مليون ( 9000000 ) 😅

مرفق لنفس الكود في مشاركتي السابقة !! 00.accdb

وعليكم السلام ورحمة الله وبركاته ،، حسب ما فهمت ، التعديل بسيط جداً .. تفضل :- Private Sub tmanu_AfterUpdate() If Me.tmanu.Value >= 900000000 Then Me.cost = "مسار الطرح قيمة مرتفعة" End If End Sub

اهااا ، فهمت ما تقصده مهندسنا الغالي ، امممم تمام . توضحت لي الصورة

صديقي الأستاذ عمر ضاحي ، أشكرك مرورك وكلامك الطيب

أشكرك على ردك مهندسنا الغالي هل التسمية التوضيحية أو Lebels من مكونات الجداول ؟؟؟؟؟؟ تم الأمر في التحديث التالي إن شاء الله .

وعليكم السلام ورحمة الله وبركاته ,, تم انشاء الدالة حساب التكاليف :- Private Sub CalculateTkalef() Dim contractType As String Dim months As Integer Dim costPerMonth As Currency Dim totalCost As Currency contractType = Me.elt3qod.Value months = Nz(Me.elmohla.Value, 0) Select Case contractType Case "ايجار" costPerMonth = 300 Case "ايجار تمليكي", "تمليك" costPerMonth = 500 Case Else costPerMonth = 0 End Select totalCost = costPerMonth * months Me.eltkalef.Value = totalCost End Sub واستدعائها في حدثي بعد التحديث لـلكومبوبوكس (elt3qod) ومربع النص (elmohla) . برنامج.accdb

إنا افتكرت انك بتحسد 😂 ، إذا كان كدة معلش 😇 انت الأروع صديقي فريد 🥰 . من غير ما تستأذني أخت حنان ، لكي الحرية المطلقة ، وسعيد برؤية إبداعاتك في التعديلات 😉 .