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

عليكم السلام تفضل هذه المحاولة ارجو ان تكون طلبك Color1.rar

وعليكم السلام -بسيطة , تفضل المثال 1 _xlsm.xlsm

نصيحتي لك تعلم لغة الجافا java أو javascript فهي بوابتك لجميع اللغات الأخرى سهلة و من خلالها تستمد اللغات الأخرى

ابشر ::::: اولا : اضفنا تجميع للتقرير .... ثانيا : عدلنا في خصائص رأس المجموعة التي انشأناها فرض صفحة جديدة بعد المقطع انظر الصور لعلها ابلغ من الشرح ....

ربما يكون هذا هو المطلوب .. تم إضافة تاريخ السداد المبكر في الخلية L15 تعديل معادلة العمود B & C تعديل معادلة الأشهر المسددة .. بالتوفيق ‫المثال ء _2.xlsm

السلام عليكم ورحمة الله وبركاته.. اقدم لكم اداة صغيرة من برمجتي وضيفتها تغيير اسم الدولة/المنطقة التي تعتمد عليها الكثير من البرامج خصوصاً العربية التي تعتمد الـ 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

هذا ما اردته بارك الله فيك اخ علي .. سبحان حاولت كم فعلت ولم تنجح معي وجعل حلها على يديك وجاك الله خير

بارك الله بجهودك القيمة يا اخي الكريم ورحم الله والديك في الدنيا والاخرة هذا هو المطلوب شكراً جزيلاً

تفضل هذا التعديل thaaer.zip

هل تريد مجاميع لجميع انواع الحسابات (وفق / او بدون) نطاق تاريخ معين او سنة مالية محددة

تفضل هذا المثال Scaneer.accdb

الحل من وجهة نظري هو حماية تركيب المصنف فلا يمكن للمستخدم تغيير اسماء الشيتات ولا ترتيبها Review ---> protect workbook ---> password ---> structure ---> OK وبالنسبة للتعبير عن الشيت فهناك 3 طرق أولها ترتيب الشيت sheets(1) وللشيت اسمان اسم ظاهر في التبويبات وهذا في الكود الذي يعبر عنه sheet1.name والاسم البرمجي وهو يظهر في مستكشف المشروع في شاشة vbe ويكون رمزه sheets("data").codename وهذا الاسم البرمجي codename هو الذي لا يتأثر بتغير ترتيب الشيت ولا تسميته ففي الصورة السابقة Name = Data Codename = Sheet1 index = 1 بالتوفيق

جزاك الله خيرا استاذ محمد وبارك الله في علمك وصحتك ومالك وأهلك

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

بارك الله فيك ، ولو اردت اخي الغالي ، ان اعمل للفرع كله بحيث يكون ظاهر نسب الموظفين والمتبقي لهم كام ، واجمالي المحقق للفرع كله كنسبة

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

ماشاء الله فعلا فنااااان ترابط احترافي للأحداث و واقعي فعلا مهندس وصف وصفه

تفضل اخي الكريم If Nz(DCount("[invoice]", "[Table1]", "[invoice] =" & Me.qty), 0) > 0 Then MsgBox "رقم الفاتورة مكرر" End If تحياتي

هذا ما قصدته عفواً لم انتبه لعدم كتابة <>0 تحياتي

حسب الصورة لاستعلامات التحديث .... اضافة 0401 اضاف 000 حذف اول رقمين حذف اول سته ارقام عكس شرحك ..... ارجو التوضيح ..... على العموم انظر المرفق بدون الحاجة للاستعلامات ..... فقط ادخل الرقم ثم انتر تجد الرقم معدل مباشرة جرب وأعلمنا بالنتيجة ... تعديل (1).mdb تم استخدام هذا الحدث .... Me.Text72 = "0401" & Mid(Costomer, 7, 8) & "000"

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

واجهتنى مشكله نتيجه تغيير الاعمده مرفق الملف واريد نقل الكود اليه بحيث يعمل بطريقه سلسه مع العلم بان العمود الذى سيقوم بنقله بدون تكرار هو العمود ( DES. CODE - AC ) فى شيتSTORE ينقل الى شيت الرصيد بدون تكرار ... وشكرا مقدما على مجهودك Store5 - Copy.xlsm

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

وعليكم السلام محمد.. الملفات الثنائية لها معرفات نصية في أول سطر من الملف! يمكن الاستفادة من هذه الميزة للتعرف على الملف الأصلي حتى لو غُيرت اللاحقة! افتح الملف بواسطة محرر النصوص التقليدي للحصول على معرف الملف ثم استخدم هذا المعرف في فحص القيمة.. في أكسس الشفرة التالية تفي بالغرض إن شاء الله Sub TestData() On Error Resume Next Dim fn, ft fn = CurrentProject.Path & "\testdata\testdata.msi" Open fn For Input Access Read As #1 Line Input #1, ft Close #1 If ft Like "*Standard ACE DB*" Then Name fn As Replace(fn, ".msi", ".accdb") End If End Sub

السلام عليكم استاذي الفاضل محمد صالح اللهم ربي يحفظك ويبارك فيك جزاك الله خيرا قمت بتنصيب البرنامج في بارتشن ال E هذه المرة اشتغلت ال Apache ولم تعمل ال Mysql كما في الصورة المرفقة

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

بعد اذن استاذ محمد اخي مصطفى هل جربت تغيير اعدادات التاريخ من الويندوز قد تكون هي السبب مع هذا مشكلة غريبة لماذا مع الرقم 12 يجب ان تكون المشكلة بتنسيق التاريخ بالكامل عند كتابة اي يوم عموما هذه محاولة Private Sub TextBox1_AfterUpdate() Dim sdate As Date sdate = DateValue(Val(Me.TextBox1.Value) & "/" & Month(Date)) TextBox1.Value = Format(sdate, "yyyy/mm/dd") End Sub

تفضل كيفية إضافة توقيع في Outlook 8 نموذج لتوقيع بريد الكتروني مهني

وعليكم السلام-اهلا بك اخى الكريم فى المنتدى ... على الرغم ان هذه المشاركة مخالفة لتعليمات وقوانين المنتدى ويجب حذفها لعدم احتوائها على ملف موضح فيه كل المطلوب بكل دقة , حيث أنه لا يمكن العمل على التخمين وتجنباً لعدم اهدار وقت الأساتذة .... الا ان طلبك يمكن حله بهذه المعادلة فلنفترض اذا كان الرقم موجود بالخلية B2 - فيمكنك وضع هذه المعادلة فى خلية اخرى كما تريد =SUBSTITUTE(b2," ","")

ترقيم تلقائي يتجدد مع بداية كل سنة على النحو التالي 1300001 1300002 1300003 1400001 1400002 وهكذا ................. باعتبار الرقم 13 ، 14 هو السنة والترقيم لاشك سيكون تبعا للسنة الحالية Private Sub Form_BeforeInsert(Cancel As Integer) On Error Resume Next Dim xLast, xNext As Integer Dim prtyr, prtTxt As Integer prtyr = Right(DatePart("yyyy", Date), 2) prtTxt = Left(DMax("ID", "tbl1"), 2) xLast = DMax("ID", "tbl1", prtTxt = prtyr) If IsNull(xLast) Then xNext = 1 Else xNext = Val(Mid(xLast, 3, 5)) + 1 End If Me!ID = prtyr & Format(xNext, "00000") End Sub ترقيم تلقائي جديد كل سنة.rar

ملفك كبير جدا من الأفضل العمل على شيت الإكسيل نفسه وليس على يوزرفورم بارك الله فيك تفضل البرنامج.xlsm

بقي هذا الكود للاختيار Sub sheck() Range("a1:H8").Interior.ColorIndex = xlNone For i = 1 To 8 k = i Mod 2 For j = 1 To 8 m = j Mod 2 If k = m Then Cells(i, j).Interior.Color = 255 Next Next End Sub

السلام عليكم ورحمة الله في الملف المرفق تم وضع معادلة باستعمال الدالة SUMPRODUCT مع اعتبار فترة الإحصاء (بدايته ونهايته)... أرجو أن يكون المطلوب... بن علية احصاء.rar

بعد اذن أخى الغالى ياسر الملف ده جاهز Removing all spaces from text.rar Removing all spaces from text.rar

جرب الملف التالي ...تم الانتهاء بحمد الله من تصحيح 300 اسم (الورقة التي تبرعت بها) في ربع ساعة تقريباً إليك الملف التالي ..تم وضع الأسماء في العمود A وبالنقر على زر Process سيتم تصحيح الأسماء وفقاً لورقة العمل الشروط والأسماء الصحيحة إن شاء الله في العمود D أتمنى أن تكون قد وصلت الفكرة .. وأعتقد بعد هذا الكم من الأسماء يمكن أن يكون الملف مرجع لتصحيح الأسماء :dance1: Fix Names.rar

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

جزاك الله خيرا استاذ عبد الله وجاري البحث عن حل شكرا لك

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

الأخ الكريم والفاضل عادل بك حنفى الملف الأخير ممتاز ووافى ونقدر نقول هو ده ما نتمناه لى ملحوظة صغيرة قد أكون فشلت فى شرحها وهى إسم المادة التى سيوضع فى الكشف الذى سيتم طبعه لن يكون بالرقم ولكنه سيكون بالإسم وعلى كل حال لحل هذه القضية الرجاء فى الملف المرفق أن تفك الربط بين الخلية F5 و الخلية L7 مع الإبقاء على كل شئ كما هو ولاحظ أنه سيقوم مستخدم البرنامج بكتابة أسماء المواد بنفسه وبترتيب موعد إمتحانها فى العمود M تحت كلمة أسماء المواد بالنسبة للون اللبنى أو الأزرق الذى يظهر عندى بالثلث الأيسر من الملف يبدو أنه خطأ عندى فى الأوفيس طالما لا يظهر مع الأخوة الذين جربوا الملف الرجاء العمل على الملف المرفق حيث تم تعديل بسيط فى الصفوف المكررة لأعلى فى شيت طبع الكشوف والحمدلله على كل حال الملف بالوضع الحالى غاية فى الإمتياز ساقية اللجان.rar

السلام عليكم اذن يجب تجربة الملف التالي و ابداء الراي NewLast2 الساقية.rar

ما مضمون رسالة الخطأ؟؟ للعلم أنا عندي نسخة أوفيس 2007 والكود شغال ومية مية ياريت يشاركنا أحد الإخوة هل الكود يعمل عنده أم لا على أوفيس 2003 وعلى أوفيس 2007

تفضلي أختي الفاضلة أتمنى أن يكون هو المطلوب ظپط±ط² ط¨ظ…ط¹ظٹط§ط±ظٹظ†.rar

ياريت مزيد من التوضيح

رائع أخي خالد خلدك الله في جناته

أخي خالد أنت لا تحتاج لإذن مني بل أنا آمل أن تعجبك هذه الصورة وتنال رضاك حتى يعم الخير

يوجد مثل شعبي مصري يقول : إن فعلت خير ما تشورش بمعنى إذا أردت أن تفعل شيئا كله خير فلا تطلب المشورة من أحد وتوكل على الله فهنيئا لك ولكل من رأى الصورة وفهم معناها وعمل به شرف لي أخي أحمد مجرد مرورك على ردودي

يبدو أن الملف فقد جزء من خصائصه بعد حفظه بصيغة يدعمها أوفيس 2003 لأني فتحت الملف ولم أجد قائمة بالأصناف تختار منها فهذا رابط لنفس الملف بصيغة يدعمها أوفيس 2007 و 2010 هنـــــأ

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

مشكور أخي hben دالة رائعة فعلا

اخي العزيز المشكلة كانت من شقين - الاول انك جعلت المعيار يعتمد على قيمة خاصية Tag للكومبوبوكس وبصراحة لاول مرة ارى هذه الطريقة حتى وان كانت ممكنة فلماذا لا تستخدم الطريق المباشرة فالاستعلام يفضل ان يعتمد على قيمة تكون هي قيمة مباشرة او غير مباشرة لعنصر تحكم في النموذج - الثاني والاهم انك حددت قيمة المعيار اما Yes او No مع ان هذا النوع من الحقول يمكن ان يظهر باكثر من تنسيق مثل "Yes/No-True/False..." بالاضافة الى ان القيمة قد تتغير باختلاف اللغة فقد تظهر (Yes او نعم او True او صواب) ولكن الاضمن هو جعل المعيار True و False (وخاصة عند استخدام اكواد VBA) او استخدام القيم -1 و 0 في الاستعلامات كما في التعديل المرفق ارجو ان اكون قد وفقت في الحل والشرح مع تحياتي,,, db_invoice.rar