ابو عارف

ابشر زر الكود في نفس نموذج و نسيق الحقل رقم Form.FilterOn = False Form.Filter = "[dtotal] > 30" Form.FilterOn = True زر الكود في نفس نموذج و نسيق الحقل نص Form.FilterOn = False Form.Filter = "Val([dtotal]) > 30" Form.FilterOn = True زر الكود في نموذج رئيسي و الحقل في نموذج فرعي و تنسيق الحقل رقم With SubForm.Form .FilterOn = False .Filter = "[dtotal] > 30" .FilterOn = True .FilterOn = True End With زر الكود في نموذج رئيسي و الحقل في نموذج فرعي و تنسيق الحقل نص With SubForm.Form .FilterOn = False .Filter = "Val([dtotal]) > 30" .FilterOn = True .FilterOn = True End With على حسب إسم نموذج فرعي SubForm

اعليكم السلام الصق هذالكود في حدث بعد تحديث لـ txt7 DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE جدول1 SET جدول1.[تاريخ الحضور]=txt7" DoCmd.SetWarnings True Me.Requery

مبروك مبروك و الف مبروك و فعلا يستحق و بجدارة كما قال الاخ خالد

و هذا تحديث وحدة النمطية لعرض تاريخ 1،21،31 بشهر( 01st,21st ,31st ) و 2،22 (2nd,22nd) و 3، 23 (3rd,23rd) و الباقي th date.mdb

أخي @DWPS التعديل حسب تصنيفات على حدا كان سهلا للغاية ولكن بعد اطلاع على ملفك الاخير وجدت اكواد كثيرة ما لا داعي له باضافة بعض أخطاء كما في الصورة: و اليك الملف المعدل Overtime_Final_2019.rar

السلام عليكم بعد اطلاع على ملف المدل من قبل الاستاذ / @د.كاف يار وجدت حساب يوم الجمعة يوم السابع في اسبوع ولكن في حوسبتنا يوم الجمعة سادس يوم في اسبوع رغم اختيار يوم السبت كاول يوم السبوع قي اعدادا الاقليمية ، فحبيت اشارككم التعديل على حساب يوم الجمعة ك سادس يوم من السبوع و اهمال حساب وقت خروج المؤظف قبل 2:30 Overtime2019.accdb

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

السلام عليكم اليك الملف بعد تعديل testlogiciel.rar

و هذا على طريقة استعلام مقارنه السعر بين موردين.accdb

تفضل أخي المثال بعد تعديل Database1 (1).accdb

حياك الله أخي اذننا دائما معك

شكر الله لك اين تريد عرض اسماء المعلمين هل في نفس القائمة مع اسم المادة ولا في جدول ، ما فهمت

تفضل ان شاء الله يكن حسب المطلوب Tte-CL.rar

بتوفيق

تفضل Database1 (1).accdb

حل رائع الاستاذ/ @د.كاف يار ولكن حسب ما فهمت من السؤال، الأخ @Alsalim1 يريد اضافة 1% كل سنة بعد تجاوز خدمة 20 سنة على 80% من أصل الراتب ، اذا كان المطلوب حسب فهمي جرب معادلة تالية: =[الراتب]/100*80+(([الراتب]/100)*IIf([مدة العمل]>20,(Nz([مدة العمل])-20),0))

ادخل اعداد الصفحة في تقرير ثم اختر افقي

آصف قد كتبت اسم فنكشن آخر بالخطاء جرب الآن Function HWND_PROTECTION(HWND_ID) Set objVMI = GetObject("winmgmts:\\" & "." & "\root\cimv2") Set vAdptr = objVMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") For Each objAdptr In vAdptr HWND_PROTECTION = objAdptr.MACAddress Next If HWND_ID = HWND_PROTECTION Then HWND_PROTECTION = "True" Else HWND_PROTECTION = "False" End If End Function

رغم انني ما عملت برامج حماية و لكن انت جرب الفنكشن Function HWND_PROTECTION(HWND_ID) Set objVMI = GetObject("winmgmts:\\" & "." & "\root\cimv2") Set vAdptr = objVMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") For Each objAdptr In vAdptr HWND_GET = objAdptr.MACAddress Next If HWND_ID = HWND_PROTECTION Then HWND_PROTECTION = "True" Else HWND_PROTECTION = "False" End If End Function

تفضل أخي ' Get clipboard text Set objHTML = CreateObject("htmlfile") Set Ws = CreateObject("WScript.Shell") Clipboardtext = objHTML.ParentWindow.ClipboardData.GetData("text") sText = HWND_GET 'Set Clipboard Ws.Run "mshta.exe ""javascript:clipboardData.setData('text','" & Replace(Replace(sText, "\", "\\"), "'", "\'") & "');close();""", 0, True MsgBox "Copied!" Function HWND_GET() Set objVMI = GetObject("winmgmts:\\" & "." & "\root\cimv2") Set vAdptr = objVMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") For Each objAdptr In vAdptr HWND_GET = objAdptr.MACAddress Next End Function

آمين وأنت أيضا بارك الله فيك

و هذا حل مشكلة نموذج فرعي إن شاء الله ملحوظة: لا تضع كود لاستدعاء وحدة نمطية في حدث عند الفتح او عتد تحميل في نموذج فرعي sa.rar

قريبا إن شاء الله بسيطة

طيب انظر التعديل عند اختيار لغة العربية ستكون كل عناصر في مكانهم كما هو اما عند انجلزية تتغير الى اليسار sa.rar

تفضل أخي اليك التعديل على حسب ترتيب عناصر في نموذج حيث يبدء محاذات عناصر من اقرب عنص الى اليسار، و عرض مربع النص الى اعرض مربع في نموذج ،و تسميات ايضا الى اعرض تسمية في نموذج هذا ومهما كان مصادر عناصر و مهما كان مكانهم في نموذج. عرض عند اختيار لغة العربية و اللغة الانجليزية sa.rar