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

السلام عليكم تجد ضالتك بإذن الله في الملف المرفق... Ek_4.xlsm

السلام عليكم أشكال جديدة و جميلة للنماذج و الأزرار لعلها تنفعكم أشكال جديدة و جميلة للنماذج و الأزرار.mdb

نسيت اذكر ان فورم العمليات يفتح آليا على حركة المبيعات ، ولأنه عند التبديل بين الحركات لا يوجد ما يستدل به على نوع الحركة ، لذا اضفت لمسة تعريف بنوع العملية . buyAsale2.rar

ارجوا ان يكون هذا ما تريد قضية الاساسي 2022 - Copy.xlsm

السلام عليكم ورحمة الله وبركاته سبق وان عملت امثلة وبرامج مصغرة ومختصرة للمبيعات والمشتريات ، ويمكن من خلال البحث في المنتدى تجدونها .وهذا العمل يختلف نوعا ما عن ما سبق . يسعدني ان ارفق اخر تطوير لعمليات البيع والشراء والمخازن ومنهجي الدائم في جميع مشاريعي هو استخدام الجدول الواحد في هذا العمل المرفق تم تحقيق التالي : 1- العمل المرفق هو زبدة النظام وان شئت نسميه المحرك الأساسي ، ويمكن ان يبنى عليه جميع التقارير التي تخطر على البال بلا استثناء 2- يشتمل على عمليات البيع وعمليات الشراء واختيار المخزن المناسب 3- يشتمل على عمليات المرتجع من المبيع او المشتريات على فرضية ان مرتجع البيع هو في الحقيقة شراء والعكس صحيح 4- امكانية البيع والشراء بالنقد والآجل 5- احتساب الضريبة في المبيعات . فقط 6- عملية تسجيل الاصناف بطريقة احترافية 7- استخراج ارصدة الاصناف حسب المخازن عند كل حركة 8- سهولة في الاستخدام ( جميع عملياتك بنقرة واحدة ) 9- المخرجات لم اعملها وانما تركتها لكم .. علما انه يمكن استخراج : - ارصدة المواد - الدائن والمدين والأرباح - الكاش والآجل للجميع او حسب كل عميل وأشياء اخرى يمكن استخراجها ستكتشفونها عند فحص وتجربة المثال اتمنى ان تجدوا فيه الفائدة .. ولا تنسوني من دعوة صالحة بظهر الغيب buyAsale1.rar

اكتب هذه المعادلة بدلا من القديمة =IF(VLOOKUP(B1,Database,6,0)="","",VLOOKUP(B1,Database,6,0)) مع الشكر

تفضل بعد اذن استاذنا محمد فؤاد Officena1.xlsx

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته.. اقدم لكم اداة من برمجتي المتواضعة لتحويل اكواد الـ SQL الى VBA قبل كل شي، الاداة حصراً للمبرمجين الذين يستخدمون الكود في الادراج والتعديل والحذف وليس للأشخاص الذين يستخدمون الواجهة الرسومية للأكسس الخالية من الكود ماهي فائدة الأداة ولماذا استخدمها؟ حسناً، لو كان لدينا جدول اسمة tbl_movementes يقوم بتسجيل جميع الحركات التي تحدث ( اضافة , تعديل , حذف ) وهذا الجدول احتاجه في كثير من النماذج، فهل من المعقول ان اقوم بكتابة عبارة INSERT INTO في كل نموذج ؟ اكيد لا، سأقوم بكتابة Sub واقوم بإستدعاءه كل مرة اريد ان اضيف بها بيانات الى الجدول واختصاراً للوقت الطويل والأخطاء التي ربما ستحدث اثناء عملية التحويل، قمت بكتابة اداة تقوم بهذا الغرض الاداة وضيفتها فقط ( Insert , Update ) صورة الاداة: لنطبق على عملية اضافة بيانات جديد: 1- قم بفتح 2- ثم قم بأختيار الجدول الذي تريده، وقم بإدراج جميع الحقول، كما في الصورة 3- من النافذة العليا اختر النافذة تصميم وقم بتعديل نوع الاستعلام الى استعلام إلحاق وثم بإختيار نفس الجدول لكي يقوم بألحاق البيانات به. الآن لنرى النتيجة 3- الان قم بعرض اكواد الـ SQL 4- قم بنسخ جميع الاكواد كما في الصورة الاتية 5- الان قم بفتح الاداة، واختر النوع Insert، ثم الصق اكواد الـ SQL في مربع النص SQL 6- قبل عملية التحويل قم بإلغاء الأعمدة التي لا ترغب بها من القائمة على اليمين ( Column Remove ) مثلا سأقوم بألغاء العمود IsDeleted وذلك بالضغط على اسم العمود رسالة تخبرك بتأكيد عملية حذف العمود 7- اضغط على الزر Convert 8- تم تحويل الكود ونسخه، الان قم بلصقه في الأكسس واستخدمه الاستخدام النتيجة، تم ادراج البيانات بالجدول لنطبق على عملية تعديل البيانات: نفس الخطوات القديمة فقط من الاداة اختر نوع الاستعلام Update من المعروف ان عملية تعديل البيانات تتطلب معيار للتعديل WHERE COLUMN NAME = Number لذلك عندما نقوم بإنشاء الاستعلام نقوم بوضع عمود المعيار اخر عمود في الاستعلام هكذا من لديه ملاحظات أو اضافات تعطى للبرمج حصراً أحرم تعديل البرنامج بأحد ادوات الهندسة العكسية او نسبه لأي شخص تمت البرمجة حصرياً لمنتدى أوفسينا، اهداء الى معلمي العزيز @jjafferr تحياتي للجميع. SQL-VBA.rar

النموذج المرسل لحضرتك به نوع الحساب فى النموذج الفرع مثل ذلك

طيب وماذا بعد ظهور الرساله اليس سوف ترجع لتختار قيمه اخرى لتتناسب مع النوع الذى بالاعلى

اتفضل استاذى بعد التعديل على نوع الحساب Test.accdb

اخى العزيز @abouelhassan مشاركه مع الاخ الفاضل فقد قمت بعمل تغيير بسيط لانت تحتاج مع لرساله وهو تفيه البيانات بالاسفل على حسب اختيارك بالاعلى لعلها تكون افضل لك جرب ووافنى بالنتيحجه بالتوفيق Test(1).accdb

هذا هو المطلوب اخى بارك الله فيك وزادك من فضله اللهم امين يارب تقبل كل الاحترام من اخيك

قضية الاساسي 2022 اخر حاجة.xlsm

تفضل استاذى ارجوا ان هذا التعديل يكون المطلوب Test.accdb

عاجز عن الشكر استاذ نزار واسف لعدم تمكنى من رفع ملف لعدم وجوده وملف حضرتك هو ما كنت أريده

قضية الاساسي 2022 اخر حاجة.xlsm الكود المستخدم من نموذج الاستاذ: نموذج للأستاذ / hat شرح وتنصيب لكود تفقيط http://www.officena.net/ib/index.php?showtopic=45879#entry273104

تفضل جرب المرفق واي استفسار خبرني من فضلك الافضل تبعث ملف في المرات القادمة ضريبة.xlsx

وعليكم السلام ورحمة الله وبركاته بالتوفيق 11.xlsx

أهلا أخي عمر .. ضع هذا الكود على زر واحد .. فسيقوم بنسخ السجلات كلها ولصقها كسجلات جديدة : Me.AllowAdditions = False DoCmd.RunCommand acCmdSelectAllRecords DoCmd.RunCommand acCmdCopy Me.AllowAdditions = True DoCmd.GoToRecord , , acNewRec DoCmd.RunCommand acCmdPaste أما إذا كنت تريد نسخ ولصق السجل الذي تتقف عليه فضع الكود كما يلي : DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy DoCmd.GoToRecord , , acNewRec DoCmd.RunCommand acCmdPaste الشغل كله على هذا الزر 🙂 مراجعة فواتير العلاج الشهرى المزمن - Copy.rar

السلام عليكم أخي الكريم هذا حل يمكنك تطويره ليناسب عملك طبعاً بإضافة أعمدة مساعدة يمكنك إخفاؤها emploi 24-03-2022.xls

أو أذا أحببت أيضاً Private Sub Worksheet_Change(ByVal Target As Range) Dim i, ii As Long If Not Intersect(Target, Me.Range("A4:D" & Me.Range("a10000").End(xlUp).Row)) Is Nothing Then If Target.Value < Me.Cells(3, Target.Column) Then Target.Interior.Color = vbRed Else Target.Interior.Color = vbWhite End If End If End Sub

mohamed_omar@ Sub test2() Dim i, ii As Long With Sheet1 For i = 4 To .Range("a10000").End(xlUp).Row For ii = 1 To 4 If .Cells(i, ii).Value < Sheet1.Cells(3, ii) Then .Cells(i, ii).Interior.Color = vbRed Else .Cells(i, ii).Interior.Color = vbWhite End If Next Next End With End Sub نفس الكود ولكن

تفضل جرب هذا التعديل numberfield = Me.fash Dim A As String, MsgTitle As String, MsgBody As String MsgBody = "هذا الفسح موجود من سابق وللتاكد سيتم عرض بياناته الان" MsgTitle = "رسالة تحـــزيرية" A = DLookup("[INVOICENO]", "اشعار شحن بضاعة", "[INVOICENO]=" & Me.INVOICENO & _ " AND [invoicekind]= '" & Me.INVOICEKIND & "'AND [brnchNo]= '" & Me.brnchNo & "' ") If Not (IsNull(A)) Then If MsgBox(MsgBody, vbCritical + vbMsgBoxRight + vbYesNo, MsgTitle) = vbYes Then Cancel = True Me.Undo DoCmd.FindRecord numberfield End If End If

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

فكرة إبداعية خارج الصندوق .. أحييك 👍😉

السلام عليكم ورحمة الله وبركاته بالنسبة لي انا استخدم طريقة ثانية وهي اقوم بوضع اوامر sql في جدول واضيف عمود id مع عمود sql ثم استدعي الكود باستخدام الدالة dlookup ثم استدعيها بالكود التالي DoCmd.RunSQL DLookup("[sql]", "sql", "[id]=1")

بارك الله فيك وجزاك الله خير الثواب

أحسنت استاذ ماجد بارك الله فيك

تمام ببساطة -يمكنك استخدام هذه المعادلة للتسلسل للتخلص من هذه المشكلة .. وبالتالى كده تم اكتمال طلباتك =AGGREGATE(2,5,$A$1:A1)+1 ياسمين 2.xlsx

عليكم السلام ورحمة الله وبركاته، قمت بعمل برنامج لاداء هذا الغرض

صورة توضيحية أكثر

jpeg

احسنت استاذ أبو عيد عمل ممتاز جعله الله فى ميزان حسناتك

بارك الله فيك وجزاك الله كل خير

شكراً جزيلاً لهذا المجهود وجزاك الله خير الثواب

عمل ممتاز جزاك الله كل خير

وعليكم السلام بعد اذن استاذ محمد ... يمكنك استخدام هذه المعادلة =IF(COUNTIFS($B$2:$B$200,B2,$C2:$C200,C2)>=1,"OK","") data search1.xlsx

هذا بالطبع امر طبيعى ومنطقى لأنك تبدأ بعمود العاصمة وليس الدولة فى قاعدة البيانات وهذا اتجاه البحث بالعاصمة أما اذا أردت البحث بالدولة فعليك بإستخدام هذه المعادلة ... فلا يمكن استخدام معادلتك نهائياً عند البحث بالدولة وشكراً =INDEX($B$7:$B$11,MATCH($J7,$C$7:$C$11,0)) test1.xlsx

وعليكم السلام-يمكنك استخدام هذه المعادلة فى العمود C بداية من الخلية C3 مسحوباً للأسفل =IF(DAY(TODAY())=10,$A3,"") أما عمود تاريخ التحصيل فيمكنك استخدام له هذه المعادلة وبالتوفيق =IF(C3="","",TODAY()) Payment Date.xlsm

بارك الله فيك وزادك الله من فضله

ربما تريد هذا الشيء (أفضل من التكرار) wazkr.xlsx

السلام عليكم ورحمة الله ضع هذه المعادلة فى الخلية C28 ثم اضغط Ctrl+Shift+Enter =IFERROR(INDEX($B$2:$D$25;SMALL(IF($B$2:$B$25=$B28;ROW($B$2:$B$25));ROW(A1));2);"") ضع نفس المعادلة فى الخلية D28 و بدل الرقم 2 فى المعادلة السابقة برقم 3 و لا تنسى الضغط على Ctrl+Shift+Enter ايضا و السحب حتى آخر خلية و هكذا مع بقية الجداول

السلام عليكم - اسعد الله أوقاتكم : الزملاء المحاسبون – الأساتذة المحترمون مرفق ملف اكسل يحوي برنامجين عن احتساب نسب التحليل المالي والتحليل المقارن ( النسب الرئيسية والهامة فقط ) مع استخلاص تفسير لكل نسبة البرامج تحتوي معادلات بسيطة جدا – والغاية هي كيفية استثمار الاكسل في استخلاص نسب التحليل المالي الفكرة بالأصل لاساتذتي: ( عبد الله المدني + محمد فوزي سلام ) / + ياسرالحافظ البرامج تحتوي النسب الرئيسية ويمكن للمستثمر إضافة النسب التي تلزم لعمل مؤسسته حيث أرفقت ملف وورد بمعظم نسب التحليل المالي مع شروحات وتفسيرات وفقكم الله ياسر الحافظ " ابو الحارث " تحليل مالي اكسل.rar

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

أحبابي وإخواني الأعزاء لقد افتقدتكم جميعاً ويعلم الله لم يمنعني عنكم إلا الظروف الشديدة والحمد لله على كل حال . هذه هدية متواضعة لكم أحبابي . هام جداً : أرجو قبل التعامل مع الملف ضرورة الاطلاع على ورقة شرح الملف والتي أسميتها " HELP" ويمكن الانتقال إليها وسائر الأوراق من مفتاح " الانتقال إلى " والموجود بكل الأوراق ، وأرجو أن تكون الفكرة فيها ولو بعض الفائدة . وتقبلوا حبي وتقديري أبو عبدالله _________________________________.rar