AbuuAhmed

هل هذه الرسالة لي؟

السنة الهجرية = (السنة الميلادية-622)/0.97 +1 622 هي السنة الميلادية لبداية التقويم الهجري 0.97 هي نسبة طول السنة الهجرية إلى طول السنة الميلادية 354.3667 / 365.2425 = 0.970223071 1 هو للزيادة سنة لما يسمى بالسنة الناقصة/غير المكتملة

جرب هذه المعادلة: (Date + 466581 - 0.53) / (10631 / 30) + 1

ما شاء الله ، شغل محترفين ، أهنئكم.

حياك الله أستاذ جعفر ، تحسين في الكود: Dim crl As Control On Error Resume Next For Each crl In Me.Controls With crl If Not Right(.Name, 2) Like "1[1-5]" Then Err.Clear .Value = "" If Err.Number <> 0 Then .Value = Date 'لا أنصح بهذا السطر End If End With Next crl

معادلة حسابية وليست فلكية على كل ممكن أحاول أعمل لكم معادلة أقرب إلى الصحة إذا مصممين على استخدامها.

فضلا وليس أمرا زودوني بنسخة 2007 ، جزاكم الله خيرا.

وهذه مساهمة مني: Dim crl As Control On Error Resume Next For Each crl In Me.Controls With crl If Not Right(.Name, 2) Like "1[1-5]" Then .Value = Null End If End With Next crl

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

جرب الآن تقريب_03.xlsx

طلبك غريب !!!

حياك الله أستاذ جعفر ، وشكرا للجميع.

فاجأتوني ، شكرا لكم على الثقة والترقية ، وشكرا لكم جميعا على التهنئة ، وإن شاء الله أكون عند حسن ظنكم دائما.

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

يجب أن يكون هذا السطر كالتالي: Forms!Form1.ID = Nz(DMax("[ID]", "InvoiceSavetbl"),0) + 1 أو هكذا Forms!Form1.ID = Nz(DMax("[ID]", "InvoiceSavetbl")) + 1 والأولى أفضل لن تظهر عندكم المشكلة قبل التصحيح إلا إذا كان الجدول فارغا.

هذا يعطينا رقم ترتيب السجل (الفهرس) وفي مثالي زدت عليه 2 واحد لأن الفهرس في الجداول يبدأ بصفر والثاني لأنه تم إضافة عنوان للشجرة.

الحمد لله تقلص الحل إلى سطر واحد فقط 🙂 TreeView1.Nodes("A" & Me.AccID).Selected = True الأخ @محمد القدسي لقد قمت بتنظيم الكود كشكل فقط لتسهيل المراجعة وفهم أدائه. سأجعل هذا المثال لدراسة الشجرة والوصول إلى حلول جديدة إن وجدت. شجرة حسابات_04.rar

تم التخلص من الاستعلامات واستبدالها بعبارة SQL ، وعبارة الـ اس كيو ال مطلوبة بشدة عندما يريد المبرمج أن يبدل نوع رقم الحساب من نصي إلى رقمي. شجرة حسابات_03.rar

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

لو كنت أرفقت مثال لوجدت بدل الفزعة فزعات ، توكل على الله وضع مثالك

استخدم دالة التنسيق Format: Format([MyTimeTxtbox], "hh:mm") 'غير متأكد الآن استخدام mm للدقائق 'ربما تكون nn

طبعا هذا فحص خاطئ ، حيث من غير المنطقي جمع قيمة مع نوع قيمة.

عملت فحص للدالة وكانت مخرج الدالة فارغ Empty وليس صفر ، والـ vba يتعامل مع الفارغ كصفر في العمليات الرياضياتية. Debug.Print "*" & Nz(Null) & "*", VarType(Nz(Null)), 2022 + Empty والنتيجة: ** 0 2022

تطبيقها هنا خاطئ: آ =Nz(([sale_price]-[Text58],0)*[sale_qty]) وتطبيقها الصحيح هكذا: =Nz([sale_price],0)-Nz([Text58],0)*Nz[[sale_qty],0) وإذا أردت ضرب الكمية في ناتج الطرح تكون كالتالي: =(Nz([sale_price],0)-Nz([Text58],0))*Nz[[sale_qty],0)

أخي أحيانا الشرح يحتاج وقتا أكثر من وقت الحل. رؤوس أقلام: - حذف يوم من حقل "التاريخ" ليوافق نتائجك. - ركزت على حقل اليوم على أن لا يكون أقل من صفر أو يكون بطول شهر حقل "التاريخ" بعد إنقاصه يوما: فإذا كان أقل من صفر عدلت قيمته إلى صفر وإذا كان بطول الشهر كذلك صفرته وزدت الشهور شهرا وإذا وصلت الشهور 12 صفرت الشهور وزدت السنين سنة. حتى لا تتعب رأسك حول المعادلات إلى دالة vba أو ابحث عن دالة جاهزة من عمل الأستاذ جعفر بمنتدى الأكسس.