ابو جودي

طلبك موجود هنا وأكثر

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

والله انت عسل

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

تدلل وتم تعديل المرفق لدعم النواتان 32, 64 علشان بعد كده محدش يقول لك انا لدى 64 بت كده محدش يبقال له حجه تانى تنويه انا لم اغير فى الية التصميم شئ لكن ممكن نستغنى عن مربع النص : str_Text ونضع التحقق التالى قى الكود If Len(Trim(Nz([CardNumber], ""))) = 0 Or Len(Trim(Nz([Date1], ""))) = 0 Then بدلا من If IsNull(Me.str_Text) Or IsEmpty(Me.str_Text) Or Len(Trim(Nz(Me.str_Text, ""))) = 0 Then وطبعا ممكن تستدعى الدالة : CreateAndDisplayQRCode عند اضافة سجل جديد فى الحدث بعد تحديث مربع النص الخاص بالتاريخ وكذلك رقم الهوية لضمان عمل الملف فى حالة تم ادخال بيانات اى حقل قبل الاخر والتعديلات بالاستغناء عن مربع النص : str_Text تجدها فى التعديل الثانى : zint QR 3- update (2) zint QR 3- update.zip zint QR 3- update (2).zip

كل االشكر والتقدير استاذى الجليل و معلمى القدير فعلا لم انتبه او اخذ فى الاعتبار ما تفضلتم به ولكن على كل حال هل هذا الكود استاذى الجليل يفى بالغرض ويأخذ فى الاعتبار كل ما تفضلتم به ام هناك شئ لم انتبه اليه ؟ Public Function CustomRound(ByVal numValue As Double) As String On Error GoTo ErrorHandler Dim wholePart As Double Dim fractionalPart As Double ' Extract the whole part and the fractional part of the number using Fix for accurate handling of negative numbers wholePart = Fix(numValue) fractionalPart = numValue - wholePart ' Custom rounding logic If fractionalPart = 0 Then CustomRound = wholePart ' No rounding needed for whole numbers ElseIf fractionalPart = 0.5 Or fractionalPart = -0.5 Then CustomRound = numValue ' Keep the number as it is for ±0.5 ElseIf numValue > 0 Then If fractionalPart < 0.5 Then CustomRound = wholePart + 0.5 ' Round to 0.5 for positive numbers Else CustomRound = wholePart + 1 ' Round up to the next whole number for positive numbers End If Else ' For negative numbers, adjust rounding If fractionalPart <= -0.5 Then CustomRound = wholePart - 1 ' Round down to the next lower whole number Else CustomRound = wholePart - 0.5 ' Round to -0.5 for negative numbers End If End If ' Format the result to display two decimal places CustomRound = Format(CustomRound, "0.00") Exit Function ErrorHandler: MsgBox "Error in CustomRound function: " & Err.Description, vbCritical, "Error" CustomRound = "0.00" ' Return 0.00 in case of an error End Function

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

لكن دالة CEILING اساسا موجودة بالاكسل من ضمن الدوال المضمنه به ولم تكن تحتاج الى كتابة اى اكواد

طيب اليك فكرتى اولا قم وقبل اى شئ استخدم برنامج Your Uninstaller وهذا موقعه الرسمى : https://www.ursoftware.com/ استخدم فى الازالة الخيار الاخير : Super Mode ثم بعد ذلك تأكد من التأشير عل كل شئ لحذف كل ما يخصه فى الريجسترى بعد ذلك اعد تشغيل الحاسوب انشئ مستخدم جديد للويندوز بدلا من المستخدم الحالى اذهب الى المستخدم الجديد ثم قم بتنصيب الاوفيس من جديد واخبرنا النتيجة كل ما سبق يتم فى حالة واحده ان هذا الحاسوب كان يعمل وفجأة حدثت تلك المشكلة اما ان كانت هذه هى المشكلة للمرة الاولى من الاستخدام لقواعد بيانات الاكسس على هذا الحاسوب قد تكون مشكلتك فى اعداد اللغة الافليمية او فى تحقق من إعدادات الماكرو أو أمان VBA قد يكون هناك سياسة أمان تمنع تشغيل كود معين أو قواعد بيانات تحتوي على ماكرو. الحل: افتح Microsoft Access اذهب إلى File > Options > Trust Center > Trust Center Settings اختر Macro Settings تأكد من تمكين الماكرو إذا كان معطلًا اما بخصوص تعارض الانظمة إن نواة إصدار Microsoft Access غير متوافقة مع إصدار نواة Windows المثبت على جهازك اى ان الويندوز 64 وتبطيقات مايكروسوفت كانت 32 لا علاقة لها بالامر الا اللهم ان كان هناك دوال API ولم يتم كتابة الاكواد لها بالشكل المناسب

طيب ومشاركة مع اساتذتى العظماء هذه فكرتى المتواضعة ' --------------------------------- ' Custom Rounding Function: Rounds a number based on fractional parts ' Parameters: ' - numValue (Double): The number to round. ' Returns: ' - (Double): The custom rounded value. ' --------------------------------- Public Function CustomRound(ByVal numValue As Double) As Double On Error GoTo ErrorHandler Dim wholePart As Double Dim fractionalPart As Double ' Extract the whole part and the fractional part of the number wholePart = Int(numValue) fractionalPart = numValue - wholePart ' Custom rounding logic If fractionalPart < 0.5 Then CustomRound = wholePart + 0.5 ' Round to 0.5 Else CustomRound = wholePart + 1 ' Round to the next whole number End If Exit Function ErrorHandler: MsgBox "Error in CustomRound function: " & Err.Description, vbCritical, "Error" CustomRound = 0 ' Return 0 in case of an error End Function CustomRound.mdb

انا اللى كنت كاتب الكود ده 👆 وتجد مزيد من الشرح فى هذا الموضوع

هههههههه حلوة دماغك العاليه دى بس ممكن الشباب يفتكروا شئ غلط انا ما اتعاطى اى شئ

تم تحديث المرفق فى رأس الموضوع ليحتوى على الفرز والتصفيه والبحث فى النماذج المفردة والنماذج المستمرة جارى عملية تحديث للمرفق لاضافة جداول مساعدة لاضفاء اكبر قدر من المرونة لسهولة النقل الى اى قاعدة بيانات

اداة البحث هذه قمت بمحاولة تجميع الافكار فيها بعناية وبترتيبها لمحاولة الوصول الى اقصى درجات الكفائة والمرونة الممكنة اولا : تعرية وتطهير النص والتحكم فى ذلك حسب الحاجة كما سبق التنويه عن هذه الجزئية فى هذا الموضوع ثانيا : التحكم فى اعداد مصادر البيانت :- (مصدر البيانات"جدول /استعلام" - الحقولالبحث المخصصة - امكانية اضافة حقل او اكثر يعتمد على تطهير النصوص ثالثا : آلية البحث بحيث يمكن البحث من خلال ( الكلمة تبدأ بـ - تنتهى بـ - يتضمن الكلمة فى امكان - او متطابق تماما او لو عدد الكلمات كثير يمكن كتابة جزء من كل كلمة فى نفس السجل ولا يشترط الترتيب ) مثال : نريد البحث فى السجل قيمة هذا السجل : 26675 فوزي عبد الحميد ابو الفتوح محمد سعده لو تم اختيار من إعدادت البحث : يحتوى على اكثر من كلمة او جزء من كلمه يفصل بينهم مسافة من إعدادت البحث ثم كتبنا فى مربع البحث : عب فت سع 66 نحصل على النتيجة اثناء كتابة الكود تم عمل جدول باسم : tblSearchSettings بحيث يتم حفظ الاعدادت الخاصة بعملية البحث والفرز والتصفية تم وضع القيم الافتراضية لاجراء عمليات البحث والفرز والتصفية المتعددة على اكمل وجهة فى حالة حذف الجدول الخاص باعدادت البحث كما انها تمثل مرونة قصوى لكل مستخدم على حدى فى حالة استخدام شبكة محلية يستطيع كل مستخدم الاحتفاظ بالاعدادت التى تناسبه دون التأثير على الاخرين اخيرا المرفق واترككم مع التجربة Search Utility V 3.0.2.accdb

والله انا مسكين وممن ينتظرون الصدقات بلهفة واشتياق لذلك اتعشم فِىَّ وَجْه اللهِ انَّ يعدنى مِمَّنْ يَتَصَدَّقُ عَلَيْهُمْ وان كانت مشكلتكم مع الشرح ضع انت المرفق فقط وانا ان شاء الله افحص واحمص لافهم واضع الشرح المناسب قدر الامكان ولن لم يسعفنى الوقت حينها اضع التلميحات على اسطر الكود ليفهم منها الدراسون