نجوم المشاركات

السلام عليكم ورحمة الله تفضل الملف المرفق لعل فيه ما تريد... بن علية حاجي استقطاع مبلغ مرة واحدة كل شهر.xlsx

السلام عليكم ورحمة الله وبركاته.. اقدم لكم اداة صغيرة من برمجتي وضيفتها تغيير اسم الدولة/المنطقة التي تعتمد عليها الكثير من البرامج خصوصاً العربية التي تعتمد الـ Unicode الأداة مكتوب بلغة Visual Studio .NET مبدأ عملها يحتاج ان تقوم بتمرير براميتر لها يحتوي على كود الدولة. عموما كتبت لكم مثال في الاكسس سورس الأداة: Imports System.Runtime.InteropServices Imports System.Threading Imports Microsoft.Win32 Imports System.Globalization Module Main 'C0ded bY: SEMO.Pa3x (: 'Date: 27-5-2021 : 03:26 PM Const subkey As String = "SYSTEM\CurrentControlSet\Control\Nls\Language\" Dim CodeArray As String() = {"af-ZA", "ar-AE", "ar-BH", "ar-DZ", "ar-EG", "ar-IQ", "ar-JO", "ar-KW", "ar-LB", "ar-LY", "ar-MA", "ar-OM", "ar-QA", "ar-SA", "ar-SY", "ar-TN", "ar-YE", "az-AZ", "az-AZ", "be-BY", "bg-BG", "bs-BA", "ca-ES", "cs-CZ", "cy-GB", "da-DK", "de-AT", "de-CH", "de-DE", "de-LI", "de-LU", "dv-MV", "el-GR", "en-AU", "en-BZ", "en-CA", "en-CB", "en-GB", "en-IE", "en-JM", "en-NZ", "en-PH", "en-TT", "en-US", "en-ZA", "en-ZW", "es-AR", "es-BO", "es-CL", "es-CO", "es-CR", "es-DO", "es-EC", "es-ES", "es-ES", "es-GT", "es-HN", "es-MX", "es-NI", "es-PA", "es-PE", "es-PR", "es-PY", "es-SV", "es-UY", "es-VE", "et-EE", "eu-ES", "fa-IR", "fi-FI", "fo-FO", "fr-BE", "fr-CA", "fr-CH", "fr-FR", "fr-LU", "fr-MC", "gl-ES", "gu-IN", "he-IL", "hi-IN", "hr-BA", "hr-HR", "hu-HU", "hy-AM", "id-ID", "is-IS", "it-CH", "it-IT", "ja-JP", "ka-GE", "kk-KZ", "kn-IN", "ko-KR", "kok-IN", "ky-KG", "lt-LT", "lv-LV", "mi-NZ", "mk-MK", "mn-MN", "mr-IN", "ms-BN", "ms-MY", "mt-MT", "nb-NO", "nl-BE", "nl-NL", "nn-NO", "ns-ZA", "pa-IN", "pl-PL", "ps-AR", "pt-BR", "pt-PT", "qu-BO", "qu-EC", "qu-PE", "ro-RO", "ru-RU", "sa-IN", "se-FI", "se-FI", "se-FI", "se-NO", "se-NO", "se-NO", "se-SE", "se-SE", "se-SE", "sk-SK", "sl-SI", "sq-AL", "sr-BA", "sr-BA", "sr-SP", "sr-SP", "sv-FI", "sv-SE", "sw-KE", "syr-SY", "ta-IN", "te-IN", "th-TH", "tl-PH", "tn-ZA", "tr-TR", "tt-RU", "uk-UA", "ur-PK", "uz-UZ", "uz-UZ", "vi-VN", "xh-ZA", "zh-CN", "zh-HK", "zh-MO", "zh-SG", "zh-TW", "zu-ZA"} Sub main() For Each arg As String In My.Application.CommandLineArgs 'check if arg exist in array ! Dim index As Integer = Array.IndexOf(CodeArray, arg) If index > 0 Then 'do change (: SetSystemNonUnicodeLanguage(CultureInfo.GetCultureInfo(arg)) End If Next End Sub Private Sub SetSystemNonUnicodeLanguage(ByVal cinfo As CultureInfo) Dim regkey = Registry.LocalMachine.OpenSubKey(subkey, True) regkey.SetValue("Default", cinfo.LCID.ToString("x4")) ' Reboot computer after timeout of 5 Shell("Shutdown -r -t 5") ' Switches: ' -l Log off profile ' -s Shut down computer ' -r Restart computer ' -f Force applications to close ' -t Set a timeout for shutdownCodeArray ' -m \\computer name (Shutdown remote computer) ' -i Show the Shutdown GUI End Sub End Module البرنامج: Option Compare Database Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Const SW_SHOWNORMAL = 1 Private Sub cmd_change_Click() Dim SetLocaleInfo_File As String Dim Parameters As String SetLocaleInfo_File = CurrentProject.Path + "\SetLocaleInfo.exe" Parameters = comb_countries ShellExecute 0, "runas", SetLocaleInfo_File, Parameters, vbNullString, SW_SHOWNORMAL End Sub ارفقت لكم جدول لإسماء الدولة ورموزها: Code Country af-ZA Afrikaans (South Africa) ar-AE Arabic (U.A.E.) ar-BH Arabic (Bahrain) ar-DZ Arabic (Algeria) ar-EG Arabic (Egypt) ar-IQ Arabic (Iraq) ar-JO Arabic (Jordan) ar-KW Arabic (Kuwait) ar-LB Arabic (Lebanon) ar-LY Arabic (Libya) ar-MA Arabic (Morocco) ar-OM Arabic (Oman) ar-QA Arabic (Qatar) ar-SA Arabic (Saudi Arabia) ar-SY Arabic (Syria) ar-TN Arabic (Tunisia) ar-YE Arabic (Yemen) az-AZ Azeri (Latin) (Azerbaijan) az-AZ Azeri (Cyrillic) (Azerbaijan) be-BY Belarusian (Belarus) bg-BG Bulgarian (Bulgaria) bs-BA Bosnian (Bosnia and Herzegovina) ca-ES Catalan (Spain) cs-CZ Czech (Czech Republic) cy-GB Welsh (United Kingdom) da-DK Danish (Denmark) de-AT German (Austria) de-CH German (Switzerland) de-DE German (Germany) de-LI German (Liechtenstein) de-LU German (Luxembourg) dv-MV Divehi (Maldives) el-GR Greek (Greece) en-AU English (Australia) en-BZ English (Belize) en-CA English (Canada) en-CB English (Caribbean) en-GB English (United Kingdom) en-IE English (Ireland) en-JM English (Jamaica) en-NZ English (New Zealand) en-PH English (Republic of the Philippines) en-TT English (Trinidad and Tobago) en-US English (United States) en-ZA English (South Africa) en-ZW English (Zimbabwe) es-AR Spanish (Argentina) es-BO Spanish (Bolivia) es-CL Spanish (Chile) es-CO Spanish (Colombia) es-CR Spanish (Costa Rica) es-DO Spanish (Dominican Republic) es-EC Spanish (Ecuador) es-ES Spanish (Castilian) es-ES Spanish (Spain) es-GT Spanish (Guatemala) es-HN Spanish (Honduras) es-MX Spanish (Mexico) es-NI Spanish (Nicaragua) es-PA Spanish (Panama) es-PE Spanish (Peru) es-PR Spanish (Puerto Rico) es-PY Spanish (Paraguay) es-SV Spanish (El Salvador) es-UY Spanish (Uruguay) es-VE Spanish (Venezuela) et-EE Estonian (Estonia) eu-ES Basque (Spain) fa-IR Farsi (Iran) fi-FI Finnish (Finland) fo-FO Faroese (Faroe Islands) fr-BE French (Belgium) fr-CA French (Canada) fr-CH French (Switzerland) fr-FR French (France) fr-LU French (Luxembourg) fr-MC French (Principality of Monaco) gl-ES Galician (Spain) gu-IN Gujarati (India) he-IL Hebrew (Israel) hi-IN Hindi (India) hr-BA Croatian (Bosnia and Herzegovina) hr-HR Croatian (Croatia) hu-HU Hungarian (Hungary) hy-AM Armenian (Armenia) id-ID Indonesian (Indonesia) is-IS Icelandic (Iceland) it-CH Italian (Switzerland) it-IT Italian (Italy) ja-JP Japanese (Japan) ka-GE Georgian (Georgia) kk-KZ Kazakh (Kazakhstan) kn-IN Kannada (India) ko-KR Korean (Korea) kok-IN Konkani (India) ky-KG Kyrgyz (Kyrgyzstan) lt-LT Lithuanian (Lithuania) lv-LV Latvian (Latvia) mi-NZ Maori (New Zealand) mk-MK FYRO Macedonian (Former Yugoslav Republic of Macedonia) mn-MN Mongolian (Mongolia) mr-IN Marathi (India) ms-BN Malay (Brunei Darussalam) ms-MY Malay (Malaysia) mt-MT Maltese (Malta) nb-NO Norwegian (Bokm?l) (Norway) nl-BE Dutch (Belgium) nl-NL Dutch (Netherlands) nn-NO Norwegian (Nynorsk) (Norway) ns-ZA Northern Sotho (South Africa) pa-IN Punjabi (India) pl-PL Polish (Poland) ps-AR Pashto (Afghanistan) pt-BR Portuguese (Brazil) pt-PT Portuguese (Portugal) qu-BO Quechua (Bolivia) qu-EC Quechua (Ecuador) qu-PE Quechua (Peru) ro-RO Romanian (Romania) ru-RU Russian (Russia) sa-IN Sanskrit (India) se-FI Sami (Northern) (Finland) se-FI Sami (Skolt) (Finland) se-FI Sami (Inari) (Finland) se-NO Sami (Northern) (Norway) se-NO Sami (Lule) (Norway) se-NO Sami (Southern) (Norway) se-SE Sami (Northern) (Sweden) se-SE Sami (Lule) (Sweden) se-SE Sami (Southern) (Sweden) sk-SK Slovak (Slovakia) sl-SI Slovenian (Slovenia) sq-AL Albanian (Albania) sr-BA Serbian (Latin) (Bosnia and Herzegovina) sr-BA Serbian (Cyrillic) (Bosnia and Herzegovina) sr-SP Serbian (Latin) (Serbia and Montenegro) sr-SP Serbian (Cyrillic) (Serbia and Montenegro) sv-FI Swedish (Finland) sv-SE Swedish (Sweden) sw-KE Swahili (Kenya) syr-SY Syriac (Syria) ta-IN Tamil (India) te-IN Telugu (India) th-TH Thai (Thailand) tl-PH Tagalog (Philippines) tn-ZA Tswana (South Africa) tr-TR Turkish (Turkey) tt-RU Tatar (Russia) uk-UA Ukrainian (Ukraine) ur-PK Urdu (Islamic Republic of Pakistan) uz-UZ Uzbek (Latin) (Uzbekistan) uz-UZ Uzbek (Cyrillic) (Uzbekistan) vi-VN Vietnamese (Viet Nam) xh-ZA Xhosa (South Africa) zh-CN Chinese (S) zh-HK Chinese (Hong Kong) zh-MO Chinese (Macau) zh-SG Chinese (Singapore) zh-TW Chinese (T) zu-ZA Zulu (South Africa) مدة العمل ( ساعة ونصف ) SetLocaleInfo.rar

انظر صور للبرنامج نفسه من جهازي .... لاحظ الثلاث طلاب وفصولهم !!!!

جرب المرفق ترحيل.xlsm

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

تفضل التعديل حسب فهمي لطلبك db3-5.rar

تفضل هل هذا ما تريد ... importmarks.accdb

السلام عليكم ورحمة الله وبركاته انا احد الاشخاص الذين لا يحبذ ان يستعمل الكود في تخفيف أمان الاكسس ، فقد وضعته شركة مايكروسوفت في حزمة الاوفيس حتى تحمينا من ايدي المخربين ، وفي هذا الرابط شرحت كيفية عمل مجلد موثوق به للأكسس 2007 فما فوق: http://www.officena.net/ib/topic/66450-دمج-ملف-وتشغيله-قبل-أو-مع-بدء-اكسس/#comment-432363 المشكلة في كود تخفيف الامان ، انه لا يخفض مستوى أمان الاكسس لبرنامجك فقط ، وانما يخفض مستوى أمان جميع برامج الاكسس. ولكننا كمبرمجين لدينا مشكلتنا ، في انه اذا ارسلت برنامجك الى شخص ما ، فلا بد من التواصل معه و اعطاؤه الخطوات كما في الرابط ، وإلا فالبرنامج لن يعمل ، لان البرنامج يشتمل على الماكرو والوحدات النمطية. هنا اقدم لكم طريقة لجعل برنامجي فقط يعمل بمستوى أمان أقل ، فلا تظهر لي رسالة الأمان من الاكسس. العمل كله يدور حول كود ، ويجب حفظ الكود هذا في ملف بصيغة vbs ، والذي يجب ان نفتح برنامجنا عن طريقه. الكود يعمل على برامج الاكسس بصيغة mdb و accdb ، والمفروض ان يعمل على جميع اصدارات الاكسس 2003 فما فوق ، وعلى الاكسس 32بت و64بت (انا هنا اطلب من الشباب تجربته بإصدارات الاكسس التي يعملون عليها ، وإخبارنا بالنتيجة لوسمحتوا). اليكم طريقة العمل (رجاء انزال المرفق وفكه في المسار C:\jj ، وذلك حتى يمكنكم متابعة خطواتي): رجاء وضع البرنامج المرفق Seq.mdb حسب المسار التالي: C:\jj\Seq.mdb الآن اذهب الى المجلد C:\jj وافتح البرنامج Seq.mdb بالنقر المزدوج ، عند فتحه نرى رسالة أمان الاكسس ، وهذا متوقع ، وذلك بسبب انه في مجلد غير موثوق به (رجاء لا تضف هذا المجلد كمجلد أمان ، وانما اخرج من البرنامج). . الملف الآخر المرفق Seq.vbs ، يحتوي على هذا الكود: rem http://www.accessmvp.com/jconrad/accessjunkie/macrosecurity.html rem expression.OpenCurrentDatabase(filepath required, Exclusive optional, bstrPassword optional) dim o set o=createobject ("Access.Application") o.automationsecurity=1 ' set macro security LOW. o.opencurrentdatabase "C:\jj\Seq.mdb" o.usercontrol=true set o=nothing . تستطيع ان تجعله في اي مجلد (ممكن تجرب نسخه منه في اي مجلد شئت) ، وانقر مرتين على هذا الملف بُغية تشغيله ، سترى انه فتح البرنامج Seq.mdb ، وبدون رسالة أمان الاكسس ، وهو المطلوب ------------------------------------------------------------------------------------------------------------------------------------------- هذه الخطوة إضافية ، وهي لتحويل الملف السابق من صيغة vbs الى exe ، واختيار ايقونه للملف الجديد الآن ننتقل للخطوة التالية ، وهي ، اننا لا نريد ان ايقونة vbs ، وانما نريد ايقونه خاصة لبرنامجنا. هناك طريقتين: 1. ايقونة مختصر البرنامج Shortcut: وهي ان نعمل مختصر لملف Seq.vbs ، ولكن وللأسف مختصر ملف vbs يعطينا نفس ايقونة الملف نفسه ، وما عندنا طريقة لتغييرها!! لذلك ، سنعمل مختصر لملف الاكسس ، ونغير البيانات كالصورة التاليه ، بحيث يصبح مختصر ملف vbs يحتوي على ايقونة ملف الاكسس (طبعا يمكنك ان تغير الايقونة الى اي شئ شئت): . . . . وبهذه الطريقة غيّرنا ايقونة برنامج vbs الى ايقونه اخرى مناسبة 2. تحويل ملف vbs الى ملف تنفيذي exe ، وتختار له الايقونة التي تعجبك: رجاء انزال البرنامج المجاني Vbs to Exe من الرابط التالي: http://www.f2ko.de/en/v2e.php احد اسباب اختياري لهذا البرنامج ، اننا نستطيع التحكم به عن طريق Commandline ايضا ثم نتبع الخطوات التالية: ونستطيع ان نعمل لبرنامج vbs هذا كلمة سر كذلك ، . في الخطوة 6 تستطيع ان تكتب معلومات شركتك ، ونختار الايقونه التي نريدها للبرنامج (الخطوة 5) . . وتستطيع ان تجعله على سطح مكتب كمبيوترك الميزة في هذه الطريقة ، ان المستخدم لن يعرف مكان برنامج قاعدة البيانات Seq.mdb ، ولن يعرف الكود الذي كان في Seq.vbs ارجو ممن يضع ردا على الموضوع ، ان يذكر: 1. اذا اشتغل البرنامج على كمبيوتره ، 2. نسخة الاكسس التي يستخدمها. ملاحظة: الظاهر ان بعض متصفحات الانترنت حجبت انزال المرفق Seq.zip ، وذلك بسبب احتوائه على ملف vbs ، والذي يستخدمه الكثيرون لتخريب الكمبيوتر ، لذلك ، ارفق لكم Seq_2.zip والذي يحتوي على نفس ملفات Seq.zip ، ولكني غيرت صيغة الملف Seq.vbs الى Seq.txt . بعد انزال المرفق وفك ملفاته في الكمبيوتر ، رجاء تغيير مسمى الملف Seq.txt الى Seq.vbs جعفر Seq.zip Seq_2.zip

نتاج التعلم والاستفادة من اساتذة المنتدى الافاضل ( جامعة أوفيسنا ) والذين يستحقون مقاعد التدريس بأكبر الجامعات يسعدني إصدار تحديث لبرنامج مكافأة امتحانات النقل طبقا لآخر تعليمات صدرت من الوزارة للمديريات ويتميز هذا الإصدار إمكانية ادخال البيانات يدويا باللصق والقوائم المنسدلة أو عن طريق شاشة ادخال البرنامج بإمكانية التعديل في المستقطعات ونسب خصمها وذلك في صفحة نسب المستقطع أو ايقاف خصمها بوضع رقم (0) في خانة النسبة وكذلك يقوم البرنامج بحساب عدد الايام المستحقة للمحالين للمعاشات أو الوفاة بادخال تاريخ انتهاء الخدمة بعد تحديد ذلك من خلال قائمة منسدلة تحوى (قانون 155 ـ قانون 81 ـ معاشات ) حساب المكافاة لحظة ادخال بيانات الموظف ويمكن الاستعلام عن اى اسم من خلال صفحة الاستعلام مخرجات البرنامج كشوف مكافأة الموظفين ـ كشف اجمالى ـ مرايا التجمي ـ مسيرات المستقطع بالنسبة لخصم مستشفى المعلمين المطبق بمحافظة المنيا فقط يمكن ايقاف خصمه في باقى المحافظات عن طريق اختيار (لا تخصم ) من القائمة المنسدلة سواء كان الادخال يدويا أو بشاشة الادخال وكذلك يمكن عن طريق وضع (0) في صفحة نسب المستقطع أمام خصم المستشفى أسم المستخدم محمد فتحى كلمة المرور 1970 وكلمة محرر الاكواد 6101970 أرجو مراجعة البرنامج من اساتذتى الافاضل والعاملين بالتربية والتعليم بمصر 1578014707_2021.xlsb

وعليكم السلام 🙂 تفضل الطريقة ، بالصور وبالخطوات: مشاركة قاعدة البيانات على الانترنت بواسطة SQL Server - قسم الأكسيس Access - أوفيسنا (officena.net) ومجموعة اخرى من المواضيع: أكسس و اسكيوال سيرفر Access with Sql Server - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

وشكرا

اعتقد الطالب الثالث الذي تذكره في فصل اخر غير فصل الطالبين ... ابحث عنه

من بعد اذن الاخ محمد البرناوي تقضل اخي مع العلم انا فقط عدلت على زر عند الضغط على . importmarks.accdb

فضلا جرب المرفق مع الشكر test-1.xlsx

طريقة استعمال معادلات المصفوفات بسيطة جدا وهي أولا تحدد الخلايا التي تريد تطبيق المعادلة عليها مثلا من c5:c25 ثم تكتب المعادلة في شريط الصيغة ثم تضغط على ctrl+shift+enter تمت

كل الشكر لك استاذنا الفاضل / husamwahab تم تطبيق النموذج المعدل على البرنامج ومقارنة نائج التوزيع ( تسلسل الأرقام ) وكانت عشره على عشره بفضل الله ثم بفضلكم بارك الله فيك ولى سؤال واذا اردت ان اطبق ذلك على ارقام المراقبة ( الارقام السرية ) وحيث انها ذو الية توزيع اخرى ولكنها لا تختلف كثيرا حيث ان الارقام السرية هذه اود توزيعها مدارس وصناعات بمعنى المدرسة رقم واحد بها تخصص كهرباء ونجارة وتبريد مثلا عدد 3 تخصصات يتم توزيع التخصص الأول بنفس النظام السابق ثم التخصص الثاتى ثم الثالث ثم الدخول للمدرسة التالية وهكذا سؤالى هنا هل لابد عمل حلقه دورانيه ثالثه للصنعه الواحدة وللتوضيح رجاء الاطلاع على التقرير كى تتضح الفكرة db3-3.rar

وعليكم السلام اتفضل اخى راجع الرابط التالى بالتوفيق

اين ظهر هذا الخطأ ... في استيراد ملف الاكسل ... ام ماذا وضح اكثر

ريما تقصد هذا الشيء fon.xlsx

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

تفضل التعديل حسب فهمي لطلبك YAS1-2.rar

السلام عليكم احبتي في المرفق جدول يحتوي على حقل رقمي مكرر ، وقد سقطت بعض الارقام وايضا مرفق صورة بالارقام المفقودة الساقطة المطلوب ادراج هذه الارقام في مكانها وتعديل ما بعدها مثلا اول رقم مفقود هو 422 حيث ستجد في الجدول الرقم 421 ويليه الرقم 423 فالمطلوب هو تعديل الرقم 423 ليصبح 422 ثم الذي بعده هو 424 يتم تعديله ليصبح 423 ... وهكذا علما ان كثير من هذه الارقام مكررة لا يهم التكرار ستجد الرقم 424 مكرر اكثر من مرة فالمطلوب جميع الارقام 424 تصبح 423 وهكذا لجميع الارقام يمكن ان نعملها يدويا .. ولكن العمل اليدوي معرض للخطأ Copy.accdb

شكراً لك أستاذ شحادة، بارك الله بك وبعلمك

بعد إذن الإخوة المشاركين في الموضوع أهتم جدا باختصار الأكواد والمعادلات وهذا هو الملف السابق للأخ @أبو عيد ولكن بدون الأعمدة المساعدة وباستعمال معادلات المصفوفات array formula ولا أنصح بتنفيذها على عدد كبير من الصفوف وإنما في ملف للطباعة يحتوي على 20 صفا في الصفحة الواحدة جلب بيانات تلاميذ بناء على قائمة.xlsx

محتاج حد يسوى برنامج اكسيل لعياده بيطريه مدفوع يفضل يكون متواجد بالسعوديه

فقط يمكنك استخدام هذه المعادلة لتلبية طلبك فأول جزء المعادلة هو lookup ثم فتح القوس وكتابة الرقم 1 ثم علامة ثم 0 وهذا كود ثابت بالمعادلة ثم علامة / وكتابة الجزء الخاص بالبحث بالعمود الأول بالصفحة التى تريد جلب البيانات منها ثم الجزء الأخر بالمعادلة وهو Offset ثم ذكر رقم الخلية التى نود البحث من خلالها وأخيراً الجزء الأخير من المعادلة وهو ذكر العمود الثانى من الصفحة التى نريد جلب البيانات منها وهى النتيجة التى نريد اظهارها بالمعادلة =IFERROR(LOOKUP(1,0/MATCH("*"&Sheet2!$A$1:$A$45&"*",OFFSET(C69,,,COUNTIF(F:F,F69)),0),Sheet2!$B$1:$B$45),"") New Microsoft Excel 97-2003 Worksheet.xls

تفضل هذه المحاولة db1_2.rar

اريد من الاخوه كود لحذف جميع الغياب لموظف بعد مرور سنه من تاريخ التعيين مثال الموظف عين بتاريخ 11/11/1423هـ اي انه في يوم 11/11/1424هـ يتم حذف جميع الغياب تلقائيا علما بان تواريخ التعيين مختلفة للموظفين ارجو مساعدة الجميع

ارجو الفائدة لكم بهذا الكتاب القيم وشرح هذه الدالة الرائعة والخيالية كل التقدير ل أوفيسنا الرائع والزاخر كتاب شرح الدالة إف How To Use Excel IF Function (مدونة فائدة www.faedh.net ).rar

شكرا جزيلا على جهودك

شكرا جزيلا على هذا البرنامج الرائع وأروع من الرائع أيضا وفقك الله على نشر مثل هذه المواضيع

السلام عليكم بارك الله فيك أخي... ولكن ارجو تغير التفقيط من جنية ال ( ليرة سورية ) ولك الشكر......

وهذا مثال آخر dbfindlasttowletters.rar

بارك الله فيك اخي المشاكس اليك المرفق بعد التعديل وبالتوفيق dbfindlasttowletters.rar

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

بسم الله الرحمن الرحيم الأخوه الاعزاء عذراً ايها الاخوه لو طرحنا سؤال وقلنا ( كيف تكون مبرمج محترف ) أتدرى أخى الكريم ماذا تكون الإجابة ؟؟؟ قد يجد البعض صعوبة في فهم لغات البرمجة مع العلم أن الكثير لا يمكن لهم تعلمها وهذا سبب عدم إكمالهم المشوار في طريق فيجوال بيسك أو أوراكل أو أى لغة برمجة أخرى ، وأقول لمن يواجه صعوبات في لغة الإجراءات أو أي لغة برمجية أخرى في حال كنت تود أن تكون مبرمجا فيجب أن تملك مخيلة منطقية وخيال واسع وصبر بحيث أنك لن تحقق هدفك من أول درس ومن الممكن أن تتعدى المحاولات عشرات المرات دون جدوى ولكن قم بالمواصلة وسوف تكتشف فجاءة أنك أصبحت مبرمجا محترفا ويجب أن تأخذ في عين الاعتبار أنك تتعامل مع آلة وأنت من يقوم بتسيريها ،الكمبيوتر ليس أذكى منك أو أكثر منك قوة بل إنه جماد لا يعرف سوى الرقمين 0 و 1 وهو بذلك من أكثر مخلوقات الله أمية ولكن ما يتميز به عنا هو السرعة العالية في معالجة البيانات وإمكانيته للحفظ ودقته في التعامل حيث لا يوجد هناك مجال للخطأ فمن الممكن أن تقوم أحيانا بحساب عمرك 1+1 = 3 ولكن هذا الجهاز لا يمكنه ذلك في حال زودته في الطريقة الصحيحة وفي حال قمت بتلقينه بمعلومات خاطئة فلا يمكنه تصحيحها تلقائيا دون أن تقوم أنت بإخباره كيف يقوم بذلك ، ولذلك توكل على الله ولا مستحيل مع إصرار ولا يأس مع إيمان ولا جهل مع نور الرحمن . يقول سبحانه وتعالى . واتقوا الله ويعلمكم الله ، أخى بالإصرار والعزيمة تصل إلى كل ما تريد أخى المبرمج الكريم لا تنسى ان المستحيل كلمة موجوده فى قاموس الفاشلين لا ينطق بها ولا يتحدث إلا الفاشل ، فاستعن بالله ولا تعجز . أرجوا من الجميع إبداء الرأى فى هذا الموضوع لنصل سوياً إلى الاحتراف . أخيكم هشام علام ------ طالب علم من الله www.hisham.itgo.com

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

السلام عليكم أريد برنامج يتعلق بغياب وتأخر ومخالفات المعلمين { الغياب }( اسم المعلم ، التخصص ، اليوم ، التاريخ ، بعذر أم لا ، العذر ) { التأخر }( اسم المعلم ، التخصص ، اليوم ، التاريخ ، مقدار التأخر ، سبب التأخر ) { المخالفات }( اسم المعلم ، التخصص ، اليوم ، التاريخ ، نوع المخالفة )

السلام عليكم جميعا و رحمة الله وبركاته وكل عام وانتم بخير عملت برنامج في العمل نسخته ونزلته في كمبيوتر آخر ولما اردت فتح النمودج ظهرت لي الرسالة التالية: d: documents and setting\desktop\newfolder\tod-be.mbd ليست مسارا صالحا . تأكد من صحة المسار بشكل صحيح وانك متصل بالملقم الدي يوجد به الملف

السلام عليكم هل من الممكن عمل قوائم منسدله على الفورم بدل من زرر الأوامر في الأكسس . مثل التي تكون في أعلى الصفحة : File Open Save as بالفيجول بيسك ممكن وبسيطه عملها حاولت بالأكسس فلم أعرف . من يتفضل ويعلمنا كيف عمل ذلك وياليت يكون بمثال في ملف حتى يسهل تطبيقه. شاكره ومقدرة للجميع

فى مصدر بيانات التقرير ضع المعيار التالي في حقل التاريخ Between [أدخل تاريخ البداية من فضلك] And [أدخل تاريخ النهاية من فضلك] و اذا أردت اظهار التاريخين علي التقرير فضع مربعي نص و اجعل وصدرهما التعبيران التاليان [أدخل تاريخ البداية من فضلك] [أدخل تاريخ النهاية من فضلك]

السلام عليكم ورحمة الله وبركاته وبعد ايه الاخوة الكرم لدي برنامج موظفين عندي مشكلة في تحويل التاريخ الى ارقم هل يوجد كود يحلو التاريخ الى ارقم ؛ وشكراً لكم جميعاً . اخوكم المخلص فرحان منطنط المسروري

السؤال : كيف نقوم بعمل استنتاج لقيمة حقل فى الاستعلام بطريقة مركبة أي اذا كان تاريخ التسليم خاليا أو اذا كان أكير من 31-12-2003 تكون قيمة الحقل المستنتج Kk تساوي No و اذا كانت القيمة أقل من 31-12-2003 و ليست خالية تكون قيمة الحقل المستنتج kk تساوي Yes الاجابة : kk: IIf((IsNull([Delivery_Date]) Or [Delivery_Date]>#12/31/2003#),"NO","Yes")