kkhalifa1960

تفضل استاذ @بوكفوس عبدالسلام . فردي ...... Private Sub YourFieldName_AfterUpdate() Me.YourFieldName = UCase(Me.YourFieldName) End Sub استبدل YourFieldName باسم الحقل النصي الخاص بك. هذا الكود سيحول أي نص يتم إدخاله في الحقل إلى أحرف كبيرة تلقائيًا عند التحديث. إذا كنت بحاجة إلى تطبيق ذلك على عدة حقول، يمكنك تكرار الخطوات لكل حقل. جماعي ...... Private Sub Form_AfterUpdate() Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then ctl = UCase(ctl) End If Next ctl End Sub هذا الكود سيقوم بالبحث عن جميع مربعات النص في النموذج ويحول أي نص يتم إدخاله فيها إلى أحرف كبيرة تلقائيًا عند التحديث

استاذ @((( folks ))) انا سويت لك التقرير لكن تنسيقه ومربعاته عليك يابطل تقرير1 أما الطلب الثاني مو فاهمه زين . ممكن تشرحه مع اني يخيل اليا اني سويت لك نفس الشئ من قبل . رجاء شرحه بالتفصيل . إحصائية المدن.rar

تفضل استاذ @iyad mohamad هذا المرفق حسب ما فهمت . اليك الشرح والمرفق .ووافني بالرد . DDManagerApprovalTest .rar

تفضل استاذي فقط لغيت شرط الاسم من الكود .وطريقتي تتماشى مع كلام استاذي أبو خليل . WEEDING HALLS (113).rar

يبدو أن المشكلة مرتبطة إما بإعدادات الأمان في Microsoft Access أو بنوع الرابط المخزن في lin_address. إليك عدة حلول ممكنة: 1. تعديل إعدادات الأمان في Access عند النقر على الرابط، تظهر لك رسالة الأمان الخاصة بـ Microsoft Access، وهذا قد يمنع تنفيذ الأوامر المتعلقة بـ FollowHyperlink. لتجاوز هذا، جرب الآتي: افتح Access، ثم اذهب إلى File > Options > Trust Center اختر Trust Center Settings انتقل إلى Macro Settings وتأكد من تحديد Enable all macros انتقل إلى Trusted Locations، وأضف المسار الذي يوجد فيه ملف قاعدة البيانات (إذا لم يكن مضافًا بالفعل) بعد هذه الخطوة، أعد تشغيل Access وجرب مجددًا. 2. التحقق من صحة الرابط المخزن تأكد أن lin_address يحتوي على رابط صالح، مثل: لملف محلي: C:\Users\YourUser\Documents\example.pdf لموقع ويب: https://www.example.com لمجلد مشترك: \\ServerName\SharedFolder\File.pdf 🔹 إذا كان الرابط يحتوي على مسافات، جرب وضعه بين علامات اقتباس: link = """" & Me.lin_address & """" 3. تعديل الكود لمعالجة الأخطاء المحتملة استبدل الكود الحالي بهذا الكود المعدل لمعالجة الأخطاء وإضافة طريقة مختلفة لفتح الملفات المحلية: Dim link As String On Error GoTo ErrorHandler link = Me.lin_address If link <> "" Then If Left(link, 4) = "http" Or Left(link, 3) = "www" Then ' فتح روابط الويب Application.FollowHyperlink link ElseIf Dir(link) <> "" Then ' فتح ملفات محلية باستخدام Shell Shell "explorer.exe " & link, vbNormalFocus Else MsgBox "الرابط غير صالح أو الملف غير موجود.", vbExclamation, "تنبيه" End If End If Exit Sub ErrorHandler: MsgBox "خطأ رقم: " & Err.Number & vbCrLf & Err.Description, vbCritical, "خطأ" 🔹 ماذا يفعل هذا الكود؟ ✔ إذا كان الرابط موقع ويب (http أو www)، يستخدم FollowHyperlink. ✔ إذا كان الرابط ملفًا محليًا، يتم فتحه بـ Explorer بدلًا من FollowHyperlink. ✔ إذا كان الرابط غير صالح، يظهر تنبيه بدلاً من رسالة خطأ. 4. التأكد من صلاحيات الملفات والمجلدات إذا كنت تحاول فتح ملف محلي، تأكد أن الملف موجود في المسار الصحيح. تأكد أن لديك صلاحيات الوصول إلى الملف، خاصة إذا كان على شبكة أو في مجلد محمي.

الاستاذ الفاضل هذا المنتدى تعليمي وللمساعدة وليس لعرض المنتجات فهناك منتدى لذلك !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

يعمل عندي وبشكل جيد . عموماً سأعدل تنسيق التاريخ Access يحتاج إلى التنسيق الأمريكي (yyyy-mm-dd) عند التعامل مع SQL. استخدام dd/mm/yyyy قد يؤدي إلى أخطاء عند إدخال التواريخ. اليكم المرفق بعد تعديل تنسيق التاريخ . WEEDING HALLS (112).rar

تفضل استاذ @Zooro1 المرفق وشرح طريقة ادخال التاريخ والأوقات والسعر . ووافني بالرد . DDTimesTest .rar

تفضل استاذي @عبد اللطيف سلوم محاولتي للتغلب على اعدادات التوقيت عملت جدول خاص لكل توقيت وترقيمه (PARTY_ID) استخدمته مع شرط اسم الحاجز وتاريخ الحجز . ووافني بالرد . WEEDING HALLS (111).rar

تفضل استاذ @عالم الهندسة المرفق بعد التعديل .ووافني بالرد . حجز (4).rar

تفضل استاذ @2saad الشرح .

ممكن تفسر أكثر طلبك غير مفهوم !!!!!!!!

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

تفضل استاذ @2saad المرفق بعد التعديل بطلبك حسب مافهمت . ووافني بالرد . البحث وتعديل درجات10-1_3.rar

استاذ @amqadri تفضل المرفق بعد التعديل حسب مافهمت . ووافني بالرد . final-1.rar