ابو عارف

تفضل 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

عليك نور أخي ممكن ارفاق النموذج

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

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

وياك وياك أخي

وعليكم السلام تفضل 2.rar

وعليكم السلام تفضل ProgControlCard.mdb

On Error Resume Next لعدم وقوف على خطاء و تكميل المشوار ولكن قبل نهاية و عرض النتيجة علينا اضافة سطر يظهر رسالة خطاء و يقف دون عرض نافذة Debug حتى لا يدخل المستخدم نافذة أكواد مثلا: Private Sub Command1 Click() On Error Resume Next 'كود الحاق بيانات الى جدول If Err.Number > 0 Then MsgBox Err.Description: Exit Sub Msgbox "(تم ترحيل)" End Uub

العفو أخي هذا لعدم عرض #خطأ في حال قيمة مربع DT تكون خالية

تفضل Projects.accdb

حاضر لم لا بديتا غيرت اسم قائمة منسدلة(مربع) في نموذج رئيسي الى combo1 اذا قيمة الموجودة في Combo1 هي "M" المعادلة تقوم ب [Qavilable]-[Q] و غير ذالك، عكس بالعكس [ْQ]-[Qavilable] غير الى المعادلة الى : =IIf([Forms]![lsh]![combo1]="M",[Qavilable]+[Q],[Qavilable]-[Q]) بتوفيق

وعليكم السلام تفضل kaser906.accdb

العفو أخي انا في خدمة

شكراً اخي @ابو ياسين المشولي لو جربت الزر الثاني يفي نفس غرض اما اجبار المستخدم استخراج ملف من ارشيف ، تعمدت عليه بسبب مسار برنامج في ارشيف تكون في مجلد Temp ويصعب عثور المستخدم على الملف المستخرج لهذا لسبب وضعت شرط if حتى يضطر مستخدم وضع البرنامج في مجلد يعرف مساره اما اذا حذفت شرط if يعمل ككود اللي تفضلت به حتى لو برنامج في ارشيف أو خارج ارشيف.

عزيزي @jo_2010 اضقت لك زرين في نموذج عند ضغط على الاولى ستفتح لك نافذة غير اسم الملف في مربع اسم الملف ثم عند ضغط على موافق، سيستخرج ملف pdf في مجلد مستندات أو حدد مجلد مراد استخراج تقرير اليه من مجلدات معروضة في شاشة ثم اضغط زر موافق و عند ضغط على زر الثاني سيقوم البرنامج بإنشاء pdf في نفس مسار قاعدة بيانات ولكن بعد استخراج القاعدة من ارشيف بتوفيق،، Lab.rar