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

تفضل تم التوصل الى النتيجة المطلوبة بفكرة سهلة جدا وفريدة ايضا نتيجة طالب2.rar

تفضل أخي الكريم (ولو أردت دعمي قم بتحميل الملف من الموقع الذي أرفع عليه ملفاتي فالأمر لا يستغرق أكثر من دقيقة واحدة) Marquee Movable Text In Worksheet Selection Change YasserKhalil Officena.rar

سيساعد ذلك على اختصار الوقت بصورة قد تكون هائلة لأنه سيتم استدعاء سجلات الحركة للصنف فقط ثم تمر على كل سجل المعادلة الحسابية بدلا من كافة سجلات الجدول الخمسين ألف أحتاج تشرح لي هذه النقطة المفترض الحركة إما صرف أو اضافة وفي الصورة الحركة صفر لأن السجل يكون حركة اضافة أما متوسط السعر مضروبا بالكمية فهو قيمة الرصيد كما بالصورة بصورة عامة حتى لو كان هناك خطأ بالنقطة الأخيرة فاذا كان متوسط السعر صحيح بالصورة السابقة فهذا معناه أن الكود جاهز للاستخدام وسوف أرفق لك المثال فبرجاء مراجعة متوسط السعر في السجلات وهذه هي الفانكشن قبل التنقيح والتعديل لصنف واحد حتى هذه النقطة حتى يستفيد من يهتم من الزملاء Option Compare Database Option Explicit Dim balance, bal, i, avg1, avg2, toval, tovalue, zval As Integer Function qty_normalize() '''''''''''''''''''''''''''''''''' Declaring ''''''''''''''''''' Dim db, dbs As DAO.Database Dim rst As DAO.Recordset Dim qdf, qryLoop As DAO.QueryDef Dim item_a, item_b, strSQL As String Set dbs = CurrentDb: Set db = CurrentDb For Each qryLoop In CurrentDb.QueryDefs If qryLoop.Name = "Q" Then DoCmd.DeleteObject acQuery, "Q" Next ''''''''''''''''''''''''''''''''' Building Quary ''''''''''' strSQL = "SELECT Transactions.ID, Transactions.Item, Trans_top.zdate, Transactions.Out, Transactions.[In], Transactions.Zvalue, Transactions.AvgPrice, Transactions.BalanceAfter, Transactions.Tovalue, Trans_top.Orient, Trans_top.Warehouse, Trans_top.Doc, Transactions.Code FROM Trans_top INNER JOIN Transactions ON Trans_top.[Doc] = Transactions.[Doc] GROUP BY Transactions.ID, Transactions.Item, Trans_top.zdate, Transactions.Out, Transactions.[In], Transactions.Zvalue, Transactions.AvgPrice, Transactions.BalanceAfter, Transactions.Tovalue, Trans_top.Orient, Trans_top.Warehouse, Trans_top.Doc, Transactions.Code ORDER BY Transactions.Item, Trans_top.zdate;" Set qdf = CurrentDb.CreateQueryDef("Q", strSQL) DoCmd.OpenQuery qdf.Name Set qdf = db.QueryDefs("Q") Set rst = qdf.OpenRecordset() Set rst = CurrentDb.OpenRecordset("Q", dbOpenDynaset) rst.MoveLast: rst.MoveFirst ''''''''''''''''''''''''''''''''' Setting to Zero ''''''''''' item_a = item_b = rst!Item balance = avg1 = avg2 = tovalue = toval = zval = 0 ''''''''''''''''''''''''''''''''' The first Row ''''''''''''' balance = rst!In CurrentDb.Execute ("Update transactions Set BalanceAfter = " & balance & " where [id] = " & rst!ID & "") avg1 = Round(rst!zvalue, 2) / Round(rst!In, 2) tovalue = Round(Int(balance * avg1), 0) CurrentDb.Execute ("Update transactions Set AvgPrice = " & avg1 & " where [id] = " & rst!ID & "") bal = balance zval = rst!zvalue toval = tovalue rst.MoveNext '''''''''''''''''''''''''''''''''Starting of Row(s) Later ''''''''''''' With rst For i = 0 To rst.RecordCount - 1 If item_a = item_b Then balance = Val(balance) + rst!In - rst!Out CurrentDb.Execute ("Update transactions Set BalanceAfter = " & balance & " where [id] = " & rst!ID & "") item_b = rst!Item ''''''''''''''''''''''' In Or Out ''''''''''''' If rst!In <> 0 Then avg2 = Round(Round(toval + rst!zvalue, 2) / Round(bal + rst!In, 2), 2) tovalue = Round(balance * avg2, 0) CurrentDb.Execute ("Update transactions Set AvgPrice = " & avg2 & " where [id] = " & rst!ID & "") avg1 = avg2 Else avg2 = avg1 tovalue = Round(balance * avg2, 0) CurrentDb.Execute ("Update transactions Set AvgPrice = " & avg2 & " where [id] = " & rst!ID & "") End If ''''''''''''''''''''''' A new Item ''''''''''''' Else balance = 0 item_b = rst!Item balance = Val(balance) + rst!In - rst!Out CurrentDb.Execute ("Update transactions Set BalanceAfter = " & balance & " where [id] = " & rst!ID & "") avg1 = Round(rst!zvalue, 2) / Round(rst!In, 2) tovalue = Round(balance * avg1, 2) CurrentDb.Execute ("Update transactions Set AvgPrice = " & avg1 & " where [id] = " & rst!ID & "") End If ''''''''''''''''''''''' Storing Values ''''''''''''' toval = tovalue bal = balance zval = rst!zvalue ''''''''''''''''''''''' Next Row or End '''''''''''''' .MoveNext If Not .EOF Then item_a = rst!Item Else GoTo en: End If Next End With ''''''''''''''''''''''' Deleting Query And Closing Recordsets '''''''''''''' en: rst.Close DoCmd.Close acQuery, "Q", acSaveYes DoCmd.DeleteObject acQuery, "Q" Set rst = Nothing Set qdf = Nothing Set db = Nothing Set dbs = Nothing End Function

السلام عليكم ةرحمة الله تم تعديل على الكود وفق ما فهمته من المطلوب... أرجو أن يفي بالمطلوب... تقبل الله منا ومنكم الصلاة والصوم والقيام وصالح الأعمال... بن علية إضافة قيمة ثابتة + فرق كسر الجنيه بخلية واحدة.rar

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

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

بسم الله الرحمن الرحيم اولاً الشكر كل الشكر الى اساتذتى الكرام الذى بفضلهم وصل المشروع الى هذا الحد وبالاخص : استاذ : جعفر لك جزيل الشكر استاذ : ابو عبدالله لك جزيل الشكر استاذ : شيفان لك جزيل الشكر استاذ : ابو خليل لك جزيل الشكر شرح العمل ببساطة يقوم المستخدم باختيار الالوان التى يريدها من نموذج color وتطبق على جميع البرنامج فقط قم باستدعاء هذه الداله فى حدث عند التحميل Call Color_V(Me) وسوف تقوم هى بضبط الاعدادات قم بستدعاء الوحدات النمطية والجدول الخاص بالتخزين الاكواد و النموذج الى برنامجك دون تعديل ويتوفر بالاصدارين لـ2010 و لـ2003 ونتمنى من اساتذنا ان يقوموا بتعديله حتى يصبح برنامج كبرنامج مسقط التقارير او القلعة ولا اسألكم سوي الدعاء Color 2010.zip Color2003.zip

إخواني الأعزاء السلام عليكم ورحمة الله وبركاته برنامجي الصغير والسريع للحماية برقم القرص الصلب أهديه إلى إخواني المبرجين المبتدئين في عالم الأكسس ملحوظة : نموذج التسجيل لا يظهر إلا مرة واحدة عند بداية التسجيل ثم يختفي كل ما عليك هو استيراد نموذج التسجيل ونموذج الترحيب والجدول إلى برنامجك ( لا تنسى تعديل اسم النموذج الرئيسي داخل الكود والذي هو في المثال "QQ" وتستبدله باسم النموذج الرئيسي في برنامجك المعادلة : ( رقم التسجيل = رقم النسخة + 55 * 2 ) وبإمكانك التعديل داخل الكود كما تشاء أمل أن يحوز على القبول والرضا فلا تنسوني من صالح دعائكم . تقبلوا تحياتي ،،، حماية برقم القرص يظهر مرة واحدة.rar

أعتقد أن استعمال كود التفعيل القديم في يوم آخر غير اليوم الذي تم التفعيل فيه يخرج رسالة ( رقم التفعيل خاطئ) ولا يجدد المدة إلا إذا استعملت ملف التفعيل مرة أخرى بكود تفعيل جديد

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

للإجابة على استفسارات الزملاء البرنامج يعيد المدة الى ١٤٠ يوم مع استعمال كود تفعيل جديد. * يرجع هذا لأنك تملك الملف الذي ينتج أكواد التفعيل بينما المستخدم لن يملكه. ملحوظتي الشخصية بهذا الخصوص: كيف سيتم تغيير المدة بعد الفترة التجريبية؟! علما بأن الكود المسئول عن المدة في الملف المغلق عند المستخدم. الحل : أن تكون المدة ضمن كود التفعيل يقرأها البرنامج فيكون مفتوحا لهذه المدة المحددة. ........... هل يمكن الوصول لرقم المدة في الريجيستري؟ بالفعل يمكن الوصول له من مبرمج متمكن يعرف أين يتم تخزين القيم بواسطة الفيجوال بيسك للتطبيقات. ............ وأخيرا أتوجه إلى أخي الحبيب @صالح حمادي بالتماس عدم الاعتماد على الريجيستري في تخزين كل البيانات. ممكن نعتمد عليه في تخزين قيمة رقم البرنامج والسيريال وتاريخ البداية بعد تشفيره. وفقنا الله وإياكم لكل خير

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

عند فتح نموذج البداية اكتب Private Sub Form_Open(Cancel As Integer) DoCmd.ShowToolbar "Ribbon", acToolbarNo End Sub

نعم أخي شفان هذه هي الإجابة شكرا جزيلا أنا أضفت برنامج التفعيل مع المرفق لأن الهدف من المنشور هو تعليمي فقط طبق هذا الكود: SaveSetting "mm", "nn", "nember_days", 0 نعم يمكن ذلك باستخدام رقم الهارديسك إلا إدا كنت تعرف اسم المجلد الرئيسي و اسم القسم و اسم المفتاح و هذا لا يمكن معرفته لأنه موجود لاكود و النسخة التي تعطى للمستخدم تكون مغلقة

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

اذا تريد اخفاء الشاشة اكتب في نموذج البداية فقط

السلام عليكم اخى ناصر الهدف من مسح التسطير ثم اعادته - لانه قد تختلف عدد اسطر واعمده البحث - بافتراض تم البحث وكانت النتائج 20 صف وتم تسطيرها - ثم تم البحث مثلا عن قيمه اخرى وكانت النتائج على 10 اسطر ان لم يكن هناك مسح تسطير ثم اعادته حسب عدد النتائج الجديده ستجد ان التسطير الى الصف 20 في حين ان النتائج الى الصف 10 - وبالتالى حتى وان استخدمت الطريقة السابقه سيكون هناك مسح فى البدايه ثم اعادة تنسيق ( سطرين من الاكواد )) كما هناك امر يجب مراعاته - ((( الوقت ))) - اعتقد ان وقت مسح التسطير واعادته اقل بكثير من ال مسح ال Autofill واعادتة -- اما وان اردت معرفة اسلوب العمل بطريقة ال Autofill بهدف الاستفادة - يرجى ادراج نموزج مبسط جداً مشروح فية المطلوب - ويفضل ان تفتح به موضوع جديد -- تقبل مرورى وتحياتى

وعليكم السلام إليك الملف التالي فيه ما تريد إن شاء الله من هنا

السلام عليكم انظر المرفق test.rar

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

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

وعليكم السلام ورحمة الله وبركاته كل عام وأنتم بخير اجعل اتجاه القراءة من اليمين إلى اليسار، عن طريق الضغط على زري Ctrl + Shift بلوحة المفاتيح الأيمن الجهة اليمنى (مرفق صورة توضيحية). دمتم بخير

ابشر اخي الكريم sandanet القاعدة على نمط 2007 وهذا مرفق ل 2003 واالغيت فيها المعدل العام لانه حقل محسوب تحياتي genexam1-2003.rar

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

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

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

السلام عليكم اخي @Aliko لتطبيق هذه الحماية اعمل الخطوات التالية 1- اوصل الفلاشة التي ستصبح دارة الحماية لبرنامجك 2- افتح النموذج flash سيظهر في النموذج رقم التسلسلي للفلاشة قم بنسخ هذا الرقم 3- افتح النموذج hi في عرض التصميم واذهب الى الحدث عند عداد الوقت وافتحه 4- قم باستبدال رقم الفلاشة القديم بالجديد كما في الصورة 5- ثم انسخ هذا الكود الى نموذج الترحيب الموجود في برنامجك او قم بنقل هذا النموذج الى برنامج واجعله نموذج الترحيب اي الذي يفتح عند فتح البرنامج سيقوم الكود عند فتح البرنامج بالتاكد من اتصال هذه الفلاشة في الكمبيوتر فاذا وجدها اكمل عمل البرنامج واذا لم يجدها يغلق البرنامج طبعا هذا ليس له علاقة بالمستخدمين داخل البرنامج هو في حال تم بيع نسخة من البرنامج للزبون مع الفلاشة لا يمكنه بيع هذه النسخة لشخص اخر دون الرجوع اليك

بارك الله فيك وجزاك الله خير ونفع بك اخي الفاضل صالح الله يعطيك الصحة والعافيه برنامج مهم جدا ومطلب لكل مبرمج وفقك الله اخي

اخى وحبيبى فى الله الاستاذ / بن عليه حاجى تم حل جزئية المسح حال عدم توافر أحد الشرطين باضافة هذا السطر If Range("AA" & n) <> "منتدى" Then Range("AM" & n) = "" '+ Range("AM" & n) & If Range("AA" & n) <> "اوفسينا" Then Range("AM" & n) = "" '+ Range("AM" & n) أرجو التقييم وإن كان هناك تعديلا أخر يرجى التعديل بما تراه سيادتكم مناسبا هذه واحدة أما الاخرى لقد حاولت تطبيق نفس الشروط السابقة على نظام العمود الواحد دون جدوى برجاء فضلا أخى الحبيب الاطلاع على المرفق التالى والافادة بإذن الله شاكر فضل حضرتك وجزاكم الله خيرا إضافة قيمة ثابتة + فرق كسر الجنيه بخلية واحدة.xlsb.rar

وعليكم السلام ورحمته الله وبركاته وتقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الاعمال شكرا لك أخى وحبيبى فى الله أخى بن عليه تمام الله ينور على حضرتك ويبارك فى عمرك بس فيه حاجة صغيره الا وهى مع تغير الشرط الى " العربى " على سبيل المثال لايتم مسح القيم الخاصة بالشرطين المحددين بخلايا العمود AM بمعنى أوضح انه لابد من مسح محتويات خلايا العمود AM يدويا فهل من سبيل لمسح محتويات خلايا العمود AM تلقائيا حال عدم تحقق أحد الشرطين المحددين شاكر فضل حضرتك **** وجزاكم الله خيرا**** اخوكم ناصر المصرى

شرح البرنامج: 1- يتعامل البرنامج مع الرجستري في حماية النسخة ( الريجستري عباره عن قاعدة بيانات في نظام التشغيل Windows .و يحتوي على معلومات أجهزة النظام و البرامج المثبتة والإعدادات، و بيانات حسابات المستخدمين على الكمبيوتر. و أي عملية تقوم بها على الجهاز تخزن بالريجستري . ) 2- عند أول تشغيل للبرنامج يقوم بحفظ تاريخ أول يوم للاستخدام و عدد أيام النسخة التجريبية و خوارزمية التفعيل كلها في الرجستري و يحذف الجدول الذي يحمل جميع البيانات بعد نقلها و حفظها بالرجستري. 3- للإطلاع على الجدول tbl الذي يشتمل المعلومات المهمة يجب عليك فتح البرنامج في وضع التصميم دون تشغيله لأنه عند أي تشغيل للبرنامج سوف يحذف الجدول و في حال لم تجد الجدول حمل نسخة أخرى من البرنامج. 4- اسم الحقل الذي يحدد مدة الفترة التجريبية هو nemberday 5- كل مرة تقوم بتشغيل البرنامج يقوم بحفظ التاريخ و الوقت الحاليين في الرجستري لمنع التلاعب بالتاريخ. 6- لحفظ قيمة بالرجستري نستخدم الكود التالي: SaveSetting AppName , Section, Key ,Setting appName اسم المجلد الرئيسي Section القسم KEY المفتاح Setting القيمة المراد تخزينها 7- لاستعادة القيمة من الرجستري نستخدم الكود التالي: dim X X = GetSetting(AppName , Section, Key) X هو الذي سوف يأخذ القيمة التي سوف نستدعيها 8- لحذف القيمة من الرجستري نستعمل الكود التالي: DeleteSetting AppName , Section, Key 9- و هذه هي الوحدة النمطية التي إستعملتها في البرنامج: Function salah(frm1 As String, frm2 As String, frm3 As String) 'On Error Resume Next Dim firstdate As Date Dim lastdate As Date Dim lasttime As Date Dim expdate As Date Dim nameschool As String Dim numschool As Double Dim khawarezmia As String Dim nember_days As Integer '-------------------------------------------------------------------- firstdate = GetSetting("aa", "bb", "firstdate", Nz(firstdate)) If firstdate = Empty Then SaveSetting "aa", "bb", "firstdate", Date End If firstdate = GetSetting("aa", "bb", "firstdate", Nz(firstdate)) '--------------------------------------------------------------------- lastdate = GetSetting("ss", "tt", "lastdate", Nz(lastdate)) If lastdate = Empty Then SaveSetting "cc", "dd", "lastdate", Date End If lastdate = GetSetting("ss", "tt", "lastdate", Nz(lastdate)) '--------------------------------------------------------------------- lasttime = GetSetting("zz", "hh", "lasttime", Nz(lasttime)) If lasttime = Empty Then SaveSetting "ee", "ff", "lasttime", Now End If lasttime = GetSetting("zz", "hh", "lasttime", Nz(lasttime)) '--------------------------------------------------------------------- nember_days = GetSetting("mm", "nn", "nember_days", Nz(nember_days)) If nember_days = Empty Then nember_days = 1 End If expdate = DateAdd("d", nember_days, firstdate) '--------------------------------------------------------------------- khawarezmia = GetSetting("gg", "pp", "khawarezmia", Nz(khawarezmia)) If khawarezmia = Empty Then numschool = DLookup("numscho", "tbl") SaveSetting "ii", "jj", "numschool", numschool khawarezmia = DLookup("khawr", "tbl") khawarezmia = Replace(khawarezmia, "numschool", numschool) SaveSetting "gg", "pp", "khawarezmia", khawarezmia nameschool = DLookup("namescho", "tbl") SaveSetting "kk", "ll", "nameschool", nameschool nember_days = DLookup("nemberday", "tbl") SaveSetting "mm", "nn", "nember_days", nember_days End If For Each ttable In CurrentData.AllTables If ttable.Name = "tbl" Then DoCmd.DeleteObject acTable, ttable.Name End If Next If Date < lastdate Then MsgBox "تاريخ الجهاز خاطئ" DoCmd.Quit Else If Date = lastdate And lasttime > Now Then MsgBox "ساعة الجهاز خاطئة" DoCmd.Quit End If If Date >= expdate Then MsgBox "إنتهاء مدة التفعيل عليك الإتصال بالمبرمج " SaveSetting "mm", "nn", "nember_days", 1 DoCmd.OpenForm frm3 DoCmd.Close acForm, frm1 Else SaveSetting "zz", "hh", "lasttime", Now SaveSetting "ss", "tt", "lastdate", Date nt = DateDiff("d", Date, expdate) MsgBox "بقي لك " & nt & " يوم على إنتهاء التفعيل" DoCmd.OpenForm frm2 DoCmd.Close acForm, frm1 End If End If End Function 10- و هذا الكود الخاص بإعادة التفعيل: numschool = GetSetting("ii", "jj", "numschool", Nz(numschool)) '--------------------------------------------------------------------- khawarezmia = GetSetting("gg", "pp", "khawarezmia", Nz(khawarezmia)) '--------------------------------------------------------------------- nameschool = GetSetting("kk", "ll", "nameschool", Nz(nameschool)) '--------------------------------------------------------------------- nember_days = GetSetting("mm", "nn", "nember_days", Nz(nember_days)) '--------------------------------------------------------------------- If Me.numero_act = Eval(khawarezmia) Then SaveSetting "mm", "nn", "nember_days", 140 nember_days = GetSetting("mm", "nn", "nember_days", Nz(nember_days)) DeleteSetting "aa", "bb", "firstdate" DeleteSetting "ss", "tt", "lastdate" DeleteSetting "zz", "hh", "lasttime" MsgBox "لقد تم تفعيل برنامجك لمدة" & nember_days & " يوما" salah Me.Name, "drm", "نموذج1" Else MsgBox "رقم التفعيل خاطئ" End If و هذا هو البرنامج مفتوح المصدر بصيغة 2010 و 2003 فترة تجريبية.rar فترة تجريبية2003.rar

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

اي المفروض شغالة بس ممكن نحتاج تعديل لضبط الناتج انظر الصورة وراجعها معي خصوصا ما يلي : السجل الأول : للصنف يكون حركة اضافة طبعا حسب التسلسل التاريخي وتكون معادلة متوسط السعر الكمية المضافة مقسوماً على القيمة السجلات التالية للصنف : اذا كان خصم يأخذ آخر متوسط واذا كان اضافة فتكون المعادلة قيمة رصيد للصنف بالحركة السابقة مضافا إليه قيمة الصنف في الحركة الحالية ثم نقسم الناتج على مجموع رصيد ما بعد الحركة السابقة للصنف + كمية الاضافة الحالبة ومع بداية صنف جديد نعود لمعادلة السجل الأول ومش مهم تراجع النتيجة المهم جوهر المعادلة خاصة ما هو مكتوب هنا باللون الأحمر حيث هل يقصد برصيد الصنف للحركة السابقة أياً كانت سواء حركة اضافة أم حركة خصم أم اضافة فقط ؟ http://

وعليكم السلام ورحمته الله وبركاته شكرا لك سيدى واخى الفاضل الاستاذ / بن عليه حاجى وكل عام وانتم بخير بمناسبة شهر رمضان الكريم اولا تم مسح محتويات خلايا العمود AL لذا يرجى فضلا تنفيذ الكود ستلاحظ سيادتكم ان الكود قد أتى بقيمة كسر الجنيه وقدرة 65 قرش بالخلية AL8 وحتى 99 قرش الذى يمثل فرق القروش الناتج عن طرح جملة المستقطع من جملة المستحق = 2458.88 - 201.33 = 2257.65 المطلوب بعد إذن سيادتكم انه فى حالة لو الشرط المبين بالخلية AA8 = منتدى يتم خصم مبلغ 50 جنيها من جملة الصافى+ فرق كسر الجنيه الناتج عن طرح جملة المستقطع من جملة المستحق وهكذا الشرط الثانى يتم خصم مبلغ 100 جنيه من جملة الصافى + فرق كسر الجنيه الناتج عن طرح جملة المستقطع من جملة المستحق وان لم يتحقق الشرطين فتصبح النتيجة = فرق كسر الجنيه الناتج عن طرح جملة المستقطع من جملة المستحق فقط برجاء الاطلاع على المرفق التالى **** شاكر فضل حضرتك *** وجزاكم الله خيرا اضافة قيمة ثابتة بخانة الجنيهات بشرطين+111.xlsb.rar

السلام عليكم ورحمة الله لو أمكن وضع في شيت جديد النتيجة المنتظرة (المرجوة)... الشرح في المرفق غير مفهوم البتة بن علية

تفضل اخى الكريم الفكرة فى الموضوع انك بتضع الكود الموجود بالزر فى حدث بعد التحديث لاختيارك وبالتالى يتم تنفيذ الكود بعد كل اختيار انظر المرفق genexam2.rar

هل جربت أن تحفظها باسم جديد وبنوعية حفظ حديثة؟! من تبويب ملف file حفظ باسم save as نوعية الحفظ save as type

مشاركة مع الاستاذ صالح وللاثراء لبداية الشهر اكتب التعبير في المربع الاول بداية اشهر =DateSerial(Year([m5s1]),Month([m5s1]),1) ولنهاية الشهر =DateSerial(Year([m5s1]),Month([m5s1])+1,0) بالتوفيق

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

السلام عليكم بالنسبة لي انا استخدم هذا الكود في حدث عند التحميل في النموذج الافتتاحي DoCmd.ShowToolbar "ribbon", acToolbarNo

يا صاحب ابتسامة الجميلة نحن لا نهاجم على اي شخص كلكم احباءنا في الله ونبحكم في الله اتفضل انا عملت كوبي باست لاحد مشاركاتي قبل يوم اتفضل الصق هذا الكود في وحدة نمطية Option Compare Database Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Sub HideAccess() Call ShowWindow(Access.hWndAccessApp, 0) End Sub Public Sub ShowAccess() Call ShowWindow(Access.hWndAccessApp, 5) End Sub وفي نموذج عند تحميل او عند فتح اكتب HideAccess للاخفاء و ShowAccess للاظهار من جديد وهذا هو رابط الموضوع

انت بتهزر صح ؟ انت بجد يحثت فى المنتدى والا بتهزر هذا فقط غيث من فيض

غير صحيح ، فالمنتدى مليء بمثل هذه المواضيع اعرض الروابط التي بحثت عنها داخل المنتدى

مساء الخير ما شاء الله أبداع لكن ممكن شرح الطريقه التي تم أضافة الصوره بها .

أخى الغالى وأستاذى القدير // ياسر خليل بوركتم وجزيتم عنا خير الخير ولى تعقيب بسيط على وجهة نظركم التى هى أقرب إلى واقعنا فى عالمنا هذا _ بقصة بسيطة سأسردها لك أنا وظيفتى مطور إدارى بإحدى شركات الإستشارات جاءت إحدى الشركات التى تمتلك عده فنادق صغيرة بأكثر من دولة تطلب تطويرا لكافة الأمور الإدارية ومن طلباتها إنشاء نموذج للعملاء ( زوار الفندق ) - شرط يكون بملف اكسل يقبل تصدير البيانات للبرنامج الذى يستخدموه وقدمت ملف اكسل يستخدموه ::: المفاجأة أن الملف من إنتاج إحدى المنتديات الأجنبية عمل عليه أكثر من 9 أعضاء مذكورين بالملف وبالفعل تم تنفيذ الملف وكافة الأمور التى طلبوها وبما إن الشركة إل أعمل فيها بها نظام كل ما يتم إنتاجه من أفكار وتطبق على أرض الواقع يتم عرضها على جميع المختصين بجميع الفروع الخلاصة وهى المطلوب فكرة إنتاج ملف من منتدى تهتم به شركة بالنسبة لإمكانياتنا كدولة لا توجد وجه مقارنه مع العلم أنها شركة صغيرة فى عالم الشركات الكبرى فمن هنا آتتنى الفكرة وخاصة كم الطلب على شيت الكنترول وكمية الأكواد المعروضة بالمنتدى والتى تختص بشيت الكنترول وطبعا أعلم جيدا كم الاختلاف بين وجهات النظر لدى المختصين والمهتمين بشيت الكنترول ولكن عندما يكون هناك شيت برمجى شبه متكامل أعتقد أن تلك وجهات النظر المتباينة سيتم تقليصها وأتقدم بخالص الشكر لكم أخى الكريم على إهتمامك وتفاعلك مع الموضوع وتقبل منى وافر الاحترام والتقدير

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

تفضلوا هذا الموضوع للاثراء وتابعو الردود للاخر ستجدو ما يعجبكم http://www.officena.net/ib/topic/64269-لمسة-جمالية-لبرنامجك-ايا-كان-هو-عرض-صور-بطريقة-جميلة/ image & userform_2.rar