kaser906

السلام عليكم ورحمة الله وبركاتة هذا الكود يستخدم عند فتح النموذج ليتحقق ما اذا كان المستخدم لديه صلاحية فتح النموذج والاضافة والتعديل والحذف ف اذا كان لديه صلاحية لفتح النموذج ولا توجد لديه صلاحية للاضافة او التعديل او الحذف يقوم بفتح النموذج ويعطل الاضافة والتعديل والحذف FrmAbilities (Me.Name) If ContinueCode = False Then Exit Sub المطلوب : اريد تطبيق هذا الكود بشكل اخر على نموذج فرعي مفتوح من خلال زر أمر النموذج form1 هو النموذج الاساس النموذج Tbl_continuationهو النموذج الفرعي وهو غير ممكن ولا يسمح من خلاله بالاضافة ولا التعديل ولا الحذف اريد عند النقر على زر الأمر ان يرجع الكود للجدول Frm Ability https://up.harajgulf.com/do.php?img=1351002 ليتفحص هل المستخدم لديه حق فتح النموذج الفرعيTbl_continuation اذا كان لديه حق فتح النموذج يتم التمكين النموذج واذا لم يكن لديه حق الاضافة لا يستطيع ان يضيف والعكس صحيح واذا لم يكن لديه حق التعديل فلا يعدل والعكس صحيح والامر ينطبق على الحذف أتمنى اني اوصلت فكرة ما اريد بشكل مفهوم وهذا هو المرفق UnOpenForm.rar نسيت ان اذكر اليوزر 2 الباسورد 2

شكراً لك اخي الكريم هذا هو المطلوب

السلام عليكم ورحمة الله وبركاتة توجد مشكلة في النموذج Tbl_continuation والذي هو عبارة عن ورقة بيانات عندما افتح النموذج بشكل مباشر يفتح تمام بشكل ورقة بيانات المشكلة لمى افتح النوذج من نموذج اخر حيث يظهر على شكل نموذج مفرد المطلوب: فتح النموذج Tbl_continuation من خلال زر الامر في الفورم frm1 على شكل ورقة بيانات ...................................................................................................................... هل المشكلة لدي ببرنامج الاكسس ام ان الامر محتاج أوامر برمجية OpenForm.rar

أشكرك استاذي الكريم جعفر هذا هو المطلوب هذا هو المطلوب

السلام عليكم ورحمة الله وبركاتة في الفورم Frm_continuation المطلوب 1-عندما يكون حقل الحضور والغياب يحمل القيمة 1 وحقل الفترة الاولى يحتوي على بيانات وحقل الفترة الثانية لاتوجد به بيانات يتحول لون حقل الفترة الثانية للون الاصفر 2- عندما يكون حقل الحضور والغياب يحمل الرقم 2 يتحول كامل السجل للون الاحمر 3- عندما يحمل حقل الحضور والغياب الرقم 1 وتكون جميع الحقول بها بيانات يتحول لون السجل بالكامل الى اللون الاخضر في الفورم Frm2_continuation عندما يكون حقل الحضور والغياب يحمل رقم 1 ولا يوجد بيانات بحقل الفترة الاولى والفترة الثانية يتحول السجل بالكامل للون الاصفر وشكراً تنسيق شرطي.rar

شكرا لك استاذي هذا هو المطلوب اعتقدت ان الامر لن تكون فيه مفاجأت لذلك لم أقم بارفاق المثال إن شاء الله سيتم اخذ الحيطة مستقبلاً

الله يعطيك العافية اخي لاحظت انه عندما يكون احد الحقلين فارغ والاخر توجد به بيانات يقوم باظهار الوقت للحقل الذي توجد به بيانات فهل يمكن تعديله بحيث لو كان احد الحقلين توجد به بيانات والاخر لاتوجد يرجع القيمه الى 00:00 ولو كان كلهما فارغ يعطي ايضا القيمه 00:00

السلام عليكم ورحمة الله وبركاتة المطلوب اضافة الدالة NZ لارجاع القيمة الصفرية حيث أنه من المحتمل ان الحقل FT1 والحقل FT2 يوجد بهما إدخالاات ومن المحتمل أن لايوجد بهما ادخالات على التالي =TimeSerial(Hour([FT1])-Hour([Ft2]);Minute([Ft1])-Minute([FT2]);Second([FT1])-Second([FT2]))

ربي يوفقك ويسعدك ويسهل أمورك ويرحم والديك الف شكر لك

تمام الله يعطيك العافية وجدت خلل بصيط اخي جعفر لاحظت انه لايتم ادخال اليوم الاول في التدريب بمعنى لو كان تاريخ بداية ا التدريب 1438/03/05 يوافق الاحد ونهاية التدريب 1438/03/07 يوافق يوم الثلاثاء وتم التأشير على ايام التدريب الاحد والاثنين والثلاثاء يتم ادخال يومين فقط يوم الاثنين ويوم الثلاثاء ولا يتم ادخال يوم الاحد

استاذي جعفر اسمح لي فقد اثقلت عليك يبدو أني لم استطع ايضاح ما اريد انا وضعت تنسيق التاريخ بالجدول yyyy/mm/dd لكن بالنسبة لادراج تاريخ ام القرى عن طريق الكود فيجب تعريف الادخال من الكود الذي عملته انت حاولت اني اعدل على الكود الذي عملته باضافة UmFormat ولكن ظهرت عندي اخطاء هذا الكود لدي على برنامجي ممكن يفيدك في فهم ما اريدة يحتوي على تنسيق الادخال للجدول مباشرة tdat = UmFormat(UmDateAdd("d", i, Me.[startdate]), Enddate.Format) وهذه صورة توضح http://

النتيجة ممتازة استاذي الكريم الآن بدأ الكود يعمل بشكل ممتاز فقط يدور في ذهني الان سؤال لو حاولت أني اعمل تعديل على التاريخ في النموذج بزيادة او انقاص تاريخ البداية وايضاً بزيادة او انقاص تاريخ النهاية كيف سأتمكن من تعديل الايام التي ادرجت بالجدول Tbl_2 وعندي طلب أخر اخي جعفر هل يمكن ادراج التاريخ من اليمين الى اليسار لضبط التنسيق مثل : 1438/3/3

نعم أخي جعفر أنا وكمبيوتري نرى الذي تراه تماما فعند ادخال البيانات وترك احد الحقول فارغا تظهر الرسالة وعند إكمال البيانات والنقر على زر الامر لايحدث أي شي في الجدول Tbl_2

اخي جعفر الاسم كاسر وليس قيصر انا لم انسخ الكود بتاتاً انا جربت على البرنامج اللي انت عملت مباشرة

نعم اخي جعفر لقد قمت بتفعيل المايكرو من خيارات مركز التوثيق انا استخدم اوفيس 2007 وجربت على 2016 وجربت افتح الملف من جهاز أخر بالأوفيس 2010 والنتيجة واحدة لا توجد استجابة

شاكر ومقدر لك اخي الكريم لكن نفس الشي عندما انقر على زر الامر لا توجد استجابة علماً اني اختار التاريخ والايام المحددة وعندما اذهب الى الجدول القاه فارغ هل يجب تفعيل مكتبات ؟

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

up

السلام عليكم ورحمة الله المطلوب بالمرفق الحاق أيام محددة بين تاريخين بالجدول المرتبط Tbl_2 شرح المطلوب موجود على النموذج بالتفصيل tdate.rar

الله يعطيك العافية أخي أبو جنى أتمنى يكون الحل عن طريق الكود

?????????????????????

اخي الكريم Requery لاتصلح في مثل هذه الحالة لأنها تعتمد على حفظ التغيير او التحديث ولا تسمح بالتراجع بعدها والمشكلة بالمرفق انه عند تنقلك في حقل المدينة تجد ان النص يختفي عند التركيز GotFocus Private Sub ComboCityID_GotFocus() Me.ComboCityID.RowSource = "SELECT tblCities.lngCityID, tblCities.strCityName, tblCities.lngContID FROM tblCities WHERE (((tblCities.lngContID)=Forms!Frmlemployees!ComboContID)); " SendKeys "{Enter}" End Sub

up

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

المعذرة يوجد تعديل على الاستعلام رقم 2 وهذا هو المرفق الصحيح kind2.rar