kkhalifa1960

نفص مكتبات تفاصيل المكتبات المستخدمة في الكود: FileDialog: جزء من مكتبة Microsoft Office xx.0 Object Library. يسمح بفتح مربع حوار لتحديد الملفات أو المجلدات. CreateObject: جزء من مكتبة OLE Automation. يستخدم لإنشاء كائنات خارجية، مثل تطبيق Access. DBEngine.CreateDatabase: جزء من مكتبة Microsoft Access xx.0 Object Library. يستخدم لإنشاء قاعدة بيانات Access. إذا كانت المكتبات غير مفعلة: إذا لم تكن المكتبات المذكورة أعلاه مفعلة، يمكنك تفعيلها يدويًا عن طريق: فتح نافذة المراجع (Tools > References). البحث عن المكتبات المذكورة أعلاه. تفعيلها بوضع علامة صح (✔) بجانبها.

تفضل استاذ @رشبد طلبك حسب مافهمت . ووافني بالرد . ويمكن اضافة اختيارين كمان ... 1- نسخة مضغوطه .... 2- نسخة مضغوطة بباسوورد . CopyDB.rar

مشاركة مع الاساتذة تفضل استاذ @gavan تصوري بمرفق كامل جربه ووافني بالرد . GavanDB.rar

تفضل استاذ @fai50fe حسب مافهمت ............ ملحوظة تم التغيير من فورم غير مرتبط مع غلق الفورم المرتبط بالجدول المراد تغيير احدى خصائص حقولة . اليك المرفق والشرح . ووافني بالرد . sem1.rar

تفضل استاذ @بوكفوس عبدالسلام . فردي ...... 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

مشاركة مع استاذ @Foksh تفضل أخي @2saad . طريقتين اختار الانسب لك . باستخدام If: Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 'me.Circle (x,y),rid,col,,,ascp Dim x, y, rid As Single x = Me.ruslt.Left + Me.ruslt.Width / 2 y = Me.ruslt.Top + Me.ruslt.Height / 2 rid = Me.ruslt.Width / 2 If Me.ruslt = "(غ)" Or Me.ruslt = "له برنامج علاجي" Or Me.ruslt = "لها برنامج علاجي" Then Me.FillColor = RGB(238, 198, 211) Me.FillStyle = 0 Me.Circle (x, y), rid, RGB(256, 0, 0), , , 0.2 End If End Sub باستخدام Select Case: Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 'me.Circle (x,y),rid,col,,,ascp Dim x, y, rid As Single x = Me.ruslt.Left + Me.ruslt.Width / 2 y = Me.ruslt.Top + Me.ruslt.Height / 2 rid = Me.ruslt.Width / 2 Select Case Me.ruslt Case "(غ)", "له برنامج علاجي", "لها برنامج علاجي" Me.FillColor = RGB(238, 198, 211) Me.FillStyle = 0 Me.Circle (x, y), rid, RGB(256, 0, 0), , , 0.2 End Select End Sub

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

تفضل استاذ @alaa111 المرفق بعد التعديل حسب ما فهمت .ووافني بالرد . Microsoft Access قاعدة بيانات جديد ‫(222)‬.rar

تفضل استاذ @alaa111 المرفق بعد التعديل بطلبك .وولفني بالرد . Microsoft Access قاعدة بيانات جديد-111 ‫‬.rar

مشاركةً مع الاساتذة تفضل شيخنا ومعلمنا @ابوخليل محاولتي في مراقبة جدول بواسطة الفورم الذي يحدث التعديلات به ممكن تعدل أي حقل أو تزيل أي سجل .... لديك جدول يرصد التعديلات وجدول اخر يرصد الازالات . DMonitoringTable .rar

ممكن مشاركة مع الاساتذة .... تفضل استاذ @sm44ms برنامج يقوم بجلب البطاقة واستقطاع الصورة وعملها شفافة . تفضل الشرح والبرنامج بالمرفقات . ووافني بالرد . تفضل البرنامج نزله من الموقع التالي وسطبه ولا تذهب للتحديث . https://www.phoxo.com/en/download/