ابوآمنة

لإثراء الموضوع سأرفق لك برنامج الخليل المحاسبي يعتمد على مكتبة ADO في نموذج تكويد الأصناف يحتوي على جدولين جدول التصنيفات "TblCategories" وجدول الاصناف "tblSanf" في نموذج واحد وكل جدول له وظيفة معينة والطريقة كالتالي : تضع هذا الكود في رأس النموذج ويمكن استدعاء أكثر من جدول في نموذج واحد Dim Xdb As DAO.Database Dim Xrs As DAO.Recordset Dim XrsItems As DAO.Recordset ولإضافة سجلات جديدة في الجدول الأول "tblSanf" Private Sub InsertItemR() With XrsItems .AddNew .Fields(0) = Me.txtItemCode .Fields(1) = Me.txtItemName .Fields(2) = Me.cboCat ' .Fields(3) = Me.cboUnit1 ' .Fields(4) = Me.cboUnit2 ' .Fields(5) = Me.txtUnitValue .Fields(3) = Me.txtPurPrice .Fields(6) = Me.txtSalePriceG .Fields(5) = Me.txtSalePriceNG .Fields(4) = Me.txtSalePriceM .Fields(7) = Me.txtNotes .Fields(8) = Me.cboWh .Fields(10) = Me.txtbarcode .Fields(11) = Me.txtbar ' .Fields(15) = Me.txtIDtems .Update End With End Sub وللتعديل في سجلات الجدول الأول "tblSanf" Private Sub UpdateItemR() With XrsItems .Edit .Fields(0) = Me.txtItemCode .Fields(1) = Me.txtItemName .Fields(2) = Me.cboCat ' .Fields(3) = Me.cboUnit1 ' .Fields(4) = Me.cboUnit2 ' .Fields(5) = Me.txtUnitValue .Fields(3) = Me.txtPurPrice .Fields(6) = Me.txtSalePriceG .Fields(5) = Me.txtSalePriceNG .Fields(4) = Me.txtSalePriceM .Fields(7) = Me.txtNotes .Fields(8) = Me.cboWh .Fields(10) = Me.txtbarcode .Fields(11) = Me.txtbar ' .Fields(15) = Me.txtIDtems .Update End With End Sub ولإضافة السجلات في الجدول الثاني "TblCategories" Private Sub InsertR() With Xrs .AddNew .Fields(0) = Me.txtId .Fields(1) = Me.txtName If IsNull(Me.cboParent) Then .Fields(2) = 0 Else .Fields(2) = Me.cboParent End If .Update End With End Sub وللتعديل في الجدول الثاني "TblCategories" Private Sub UpdateR() With Xrs .Edit .Fields(0) = Me.txtId .Fields(1) = Me.txtName If IsNull(Me.cboParent) Then .Fields(2) = 0 Else .Fields(2) = Me.cboParent End If .Update End With End Sub وتضع هذا الكود في حدث عند التحميل Private Sub Form_Load() Set Xdb = CurrentDb Set Xrs = Xdb.OpenRecordset("select * from TblCategories") Set XrsItems = Xdb.OpenRecordset("select * from tblSanf") End Sub وتتأكد من إضافة المكتبة الخاصة ADO هذه الطريقة من الأستاذ محمد أجول وهذه قناته في اليوتيوب يشرح هذه التقنية اعتقد في درس رقم 32 أو 33 ‏‏BuySal19_v09.rar

السلام عليكم تحديثات وتحسينات يوم الخميس / 25 - 07 - 2019 م : -مراجعة حساب الصندوق ومحاولة معالجة الأخطاء المحاسبية . -عدم إضافة صورة جديدة للمستخدم حتى يتم تعبئة اسم المستخدم . - تحسينات وإصلاحات أخرى . -الآن أصبح الإصدار الحالي أكثر استقراراً . الرابط الدائم لبرنامج الخليل المحاسبي "متجدد" وبالتوفيق ‏‏BuySal19_v09.rar

عاود فتح البرنامج من جديد ، لا توجد مشاكل لدي في فتح النماذج ما دمت دخل باسم المستخدم وكلمة المرور .

الملف بالمرفق BuySal-20190723T053343Z-001.zip

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

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

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

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

السلام عليكم ماشاء الله تبارك الله أخي عبداللطيف كعادتك الهدية لا تفارقك إبداع ولمسات رائعة تشكر عليها وإلى الأمام

شكراً معلمنا الجليل ابا جودى شكر الله سعيك ، وغفر ذنبك ، وأعلى درجتك . وزادك الله علماً وفهماً وعملاً .

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

السلام عليكم عندنا لكم أيها الأخوة الزملاء بتحديثات وتحسينات وإضافات ليوم السبت / 20 - 07 - 2019 م الموافق 17 ذو القعدة 1440هـ وهي كالتالي : توحيد الألوان والخطوط في النماذج . تعديل خطأ المبلغ السالب في الفاتورة . تعديلات طفيفة على كود إخفاء شاشة الأكسس إضافة شاشة خاصة بسداد الديون ( زبون - مورد ) . إصلاح بعض الأخطاء البرمجة . الرابط الدائم لبرنامج الخليل المحاسبي "متجدد" بالتوفيق

آسف أستاذي ومعلمي جعفر

افتح موضوع جديد راح يفيدوك الأخوة

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

شكراً معلمنا الجليل أبا جودى على هذا البرنامج الأكثر من رائع وروعة البرنامج أنه جمع بين تشغيل إذاعة القرآن وتشغيل مقاطع الفيديو في نموذج واحد , فشكراً لك بحجم السماء لكن لي طلب اعجبتي فكرة إخفاء إطار الأكسس فحاولت إضافتها في البرامج لم تفلح تظهر في الجانب الأيسر والوحدة النمطية تحمل أكواد كثيرة لا أستفيد أنا من وجودها لدي في البرنامج فأرجو إضافة المهم منها وشكراً لك وإليك المرفق لو تكرمت تضيفها . ‏‏BuySal19_v07.rar

السلام عليكم الاخ سمير اعطني رأيك في حساب الصندوق بطريقة الدائن والمدين تم عمل استعلام توحيد باسم f ودمج أربع جداول في استعلام واحد

أخي / سمير الجبالي ملاحظاتك تهمني كثيراً لكن البرنامج هو ( مشروع كبير جداً ) حتى الآن لم يكتمل جاري التطوير حسب ما لدي من وقت . وسأقوم لا حقاً بشرح ما تيسر منه وكيفية التعامل معه . اكتب ملاحظاتك وتصوراتك بشرح كافي ولا حقاً سيتم إضافة ما تيسر منها . وبالتوفيق .

تحديث جديد تم إضافة شريحة السعر في نموذج الفاتورة :

اتبع الخطوات التالية : تأكد من ضبط هذه الإعدادات وأخبرنا بالنتائج . أنزل النسخة الجديدة من هذا الرابط : الرابط الدائم لبرنامج الخليل المحاسبي "متجدد" بالتوفيق

حياك الله أخي سمير تم إجراء بعض التعديلات بناء على ملاحظاتك القيّمة و فيما يلي الرابط : الرابط الدائم لبرنامج الخليل المحاسبي "متجدد" آمل التجربة وتزيدي بملاحظاتك

أخي عبداللطيف ضع هذا الكود في مربع نص "UN" اسم المستخدم في هذا النموذج الموضح في الصورة: Private Sub UN_AfterUpdate() Dim X X = (DLookup("[UN]", "Users", " deCode([UName],'UN')= UN ")) If Not IsNull(X) = True Then MsgBox "تنبيه اسم المستخدم " & " ( " & [UN] & " ) " & " تم تسجيله مسبقاً جرب اسم آخر", vbCritical + vbDefaultButton1 + 1572864, Compan UN = Null Else: Exit Sub: End If End Sub يقوم الكود بالتحقق من اسم المستخدم إن كان مسجلا مسبقا في جدول المستخدمين أم لا

مدري نظارتي تصلح لك الله يجعلنا وإياكم ممن طال عمره وحسن عمله ، لم أجد أخطاء . بروكت وشكراً لتواضعك

برنامج رائع ولمسات احترافية فشكراً لك استاذنا مسفر

اسم المستخدم Admin محجوز في جدول المستخدمين احذف المستخدم الحالي واكتب في حقل اسم المستخدم Admin كلمة المرور :1234 راح تدخل باسم مسؤول النظام