kkhalifa1960

تفضل استاذ @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/

تفضل استاذ @2saad المرفق . DDTempTest .rar

تفضل استاذ @2saad الإختيار من الليستبوكس انا فصلت العمل علشان انا ادري انك بتحب تفهم (Query3-Form1-Report1) أما الشروط انت زودها لما تطبق على عملك .تفضل الشرح والمرفق . البحث وتعديل درجات10-2.rar

صحح (Lng) الى (Long)

المسار ليس مسار برنامجنا المسار المعني هنا مسار حفظ صور جهاز الاشعة (كل جهاز اشعة له فولدر بيحفظ الصور الملتقطة به ) . مثل هذا ......... ' تحديد مسار المجلد watchFolder = "\\RadiologyServer\DICOM\Images\" ' تأكد من صحة المسار

أستاذ @الطاهر المسعودي العالم الملف باللغة العربية ...... اين الجداول وباقي النماذج ؟؟؟؟؟؟ عدل البارامترات والاسماء باللغة الانجليزية بدون فواصل كي نساعدك .

أنا اشتغلت على الموضوع رغم عدم الرد ولكن كي يستفيد من يهمه الأمر ..... 1- يوجد بالفولدر نموذجان وفولدران للصور . أ- النموذج (Watcher) والفولدر (ImagesWatcher) يتم فتح النموذج فيذهب لمسار فولدر صور الاشعة هذا المسار مجرب لمعمل اشعة بجواري . علشان كدة سألت عم المسار ولم يجيبني السائل ... المهم الفورم بيبحث عن أي تغييرات من زياد صور بفولدر جهاز الاشعة ويحفظها بالفولدر (ImagesWatcher) . ب- النموذج (DRTest) والفولدر (Images) يتم فتح النموذج (SwichBoard) وبه العمليات كما بالنموذج . 2- أي استفسار أنا حاضر . واليكم المرفق . Digital Radiography.rar