kkhalifa1960

تفضل استاذي @عبد اللطيف سلوم محاولتي للتغلب على اعدادات التوقيت عملت جدول خاص لكل توقيت وترقيمه (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

لايمكن لأن قبل ما تغير الكلمة بيكون حدث علشان كدة دبل كليك . تحياتي لك .

الملف يعمل بشكل جيد تفضل الشرح .

اعتذر ارسلت الملف الخطأ ..... تفضل أخي جرب ووافني بالرد . Subform.rar

تفضل استاذ @Abdelaziz Osman الحقل المشار اليه للتحديث هذا حقل جديد مايصير في هذه الحالة تحديث ولكن اضافة سجل جديد . تفضل دبل كليك على الكلمة المطلوبه بالفورم الرئيسي وطالع الناتج . ووافني بالرد . Subform.rar

ابشر شغال عليه لكن ابغي منك التالي : هل جهاز الاشعة والكمبيوتر على نفس الشبكة ..... اذا نعم . ممكن تجيب مسار فولدر حفظ صور جهاز الاشعة .؟؟؟

أهلا بيك استاذ @abou_stef تفضل المرفق . أنا عملت اللي يخليك تكمل .. وافني بالرد . SchoolTests .rar