samisalim

نعم استاذي وجزاك الله خير

جزاك الله خيراً استاذي العزيز هذا هو المطلوب نعم استاذي وجزاك الله خير

السلام عليكم ورحمة الله وبركاته اساتذتي الكرام أريد مساعدة عند اختيار سجل او اكثر يتم نقله من نموذجEMPDEVMENU إلى نموذج EMPDEV_ARCHIVES مع طباعة استمارة بواسطة زر إرجاع وطباعة استمارة. حالاً عند الضغط على الزر يتم نقل سجل واحد فقط Test_It_0001.rar

ما شاء الله هو المطلوب جزاك الله خيرا استاذي العزيز على المساعدة

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

استاذي لم يضبط معي ارفق لكم مرفق Test_It.rar

هذا كود Call listeemp("Q1") Me.Requery CMBFIND.Requery cmbTYPEJ.Requery cmbtype.Requery أريد كود يعمل بإلغاء فلترة البيانات في النموذج

جزاك الله خيرا ورفع الله قدرك استاذي @jjafferrوزادك علما ينتفع به

السلام عليكم ورحمة الله وبركاته أخواني الاعزاء اساتذتي الكرام تحيه طيبه وبعد يوجد لدي كود لحساب فترة الضمان بين تاريخين Private Sub yars_AfterUpdate() Dim ys ys = DateAdd("yyyy", Me.WARRNTY, Me.BDATE) + DateAdd("yyyy", 0, Me.BDATE) - BDATE Me.EDATE = ys End Sub المطلوب : انقاص يوم واحد من تاريخ انتهاء الضمان مثال : بداية تاريخ الضمان: 23/6/2021 مدة الضمان بالسنوات :2سنة انتهاء الضمان : 22/6/2023 تم ارفاق مثال توضيحي... IT_v1_0001.rar

جزاك الله خيرا

@محمد أبوعبدالله

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

استاذي @محمد أبوعبدالله جزيت الجنة ونعيمها نعم هو المطلوب

السلام عليكم اساتذة الكرام اريد مساعدة في عملية فرز السجلات في نموذج EMPDEVMENU Test_It.rar

شكر موصول لكل من الاساتذة الكرام في هذا الصرح العلمي وكذلك @jjafferr@احمد الفلاحجي@د.كاف يار على المساعدة جزيتم خيرا وكفيتم شرا

يمكن الخطأ من جانبي يا استاذ جعفر الرجاء منكم الاطلاع على الملف المرفق IT_V2.rar

ظهرت لي هذه الرسالة

السلام عليكم ورحمة الله هذا هو الكود Private Sub MODELS_AfterUpdate() On Error Resume Next If DCount("MODELS", "MARKA", "[MODELS]'= '" & Trim(Me.MODELS) & "'") > 0 Then MsgBox "هذه الماركة مسجل مسبقاً", vbCritical + vbDefaultButton1 + 1572864 Me.MODELS.SetFocus Me.Undo Exit Sub End If End Sub IT_V2.rar

جزاك الله خيرا استاذي في ميزان حسناتك

السلام عليكم كل عام وانتم بخير في استعلام Q1 يوجد دالة Dlookup لجلب BRANDS,MODELS من جدول MARKA وهي مرتبطة بجدول BRANDS وكذلك جدول MODELS توجد المشكلة في نموذجEMPDEVDATA في الاعمدة BRANDS,MODELSتظهر على شكل ارقام IT_V1.rar

طريقه سهلة وبسيطة شكرا استاذي@SEMO.Pa3x نتعلم منكم لو أمكن استاذي@kanory شرح بسيط على التعديلات لتعم الفائدة للجميع

هذا المطلوب استاذي @kanory بوركت جهودك وعطاءك وهنيئا لمنتدانا الغالي بك وتقبل الله منا ومنكم صالح الأعمال.

استاذي @kanoryفكرتك حلوة لكن لم تكتمل الفرحة ... قمت بتنزيل المرفق وتجريبه ولكن لم يضبط معي مثل ماذكرت هل ممكن تتأكد مرة آخرى من الملف المرفق يظهرالجهاز المستعار في القائمة S/N كذلك قمت بإضافة جهاز آخر في جدولDEVReturn الاجهزة الخاصة بالأستعارة للإسف لاتظهر في قائمة S/N مثل الملف الذي ارفقته أنا. وتقبل جزيل الشكر والتقدير

السلام عليكم ورحمة الله وبركاته أريد مساعدة عند إعارة أحد الاجهزة إلى موظف ما لايمكن إعارة نفس الجهاز لموظف آخر حتى يتم إرجاعه IT_v1_0001.rar

اعانكم الله وسدد خطاكم وبارك جهودكم ووفقكم لما فيه الخير والصلاح