أكسس وبس

اخى اشكرك على اهتمام حضرتك نسخت الكود ولكن مازالت نفس المشكلة

للاسف الملف لا يفتح هناك مشكلة

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

اخى واستاذى الكريم قمت باضافة الكود فى نموذج Trans_in وجربت الكود ولكن هناك عدة مشاكل 1- النموذج الفرعى لا يعمل 2- عند الحذف تظهر رسالة خطا بعد رسالة تأكيد الحذف كما فى صورة خطا2 3- عند الخروج من النموذج تظهر رسالة كما فى صورة خطا لاننى عامل كود عند الخروج وعند النقر على مفتاح خروج ومع اغلاق نموذج Me.TotalAmount = Me.dd مرفق القاعدة بعد اضافة الكود ارجو ان يسعنى كرمكم قاعدة بيانات4 - Copy.rar

اشكرك اخى واستاذى الكريم بنود الفاتورة فى النموذج الرئيسي وهو رقم الفاتورة - تاريخ الفاتورة - كود المورد ما اقصده هو حذف كل ما يتعلق بالفاتورة سواء فى النموذج الرئيسي والفرعى ما ارجع كميات الاصناف الى السابق للفاتورة التى تم حذفها اما جدول Stor1 هو خاص بالمخزن رقم 1 وليكن المحل مثلا هو اننى اقوم بتكويد الاصناف ثم عند الخروج من شاشة التكويد Names يتم الحاق الاصناف الى الجداول الخاصة بالمخازن ليتم احتساب الكميات للاصناف بعد عملية الوارد او الصادر وهنا Stor1 يمثل المحل

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

الاخوة والاساتذة الافاضل فى المرفق نموذجين الاول : Trans_in فاتورة مشتريات عبارة عن نموذج رئيسي ونموذج فرعى لاصناف الفاتورة الثاني : Trans_out فاتورة مبيعات عبارة عن نموذج رئيسي ونموذج فرعى لاصناف الفاتورة فى النماذج الفرعية لفاتورة المشتريات والمبيعات يوجد مفتاح حذف قصاد كل صنف لحذف الصنف وارجاع الكمية كما هى قبل الشراء او البيع وهذا الامر للصنف معين فقط المشكلة التى اريد المساعدة اننى عند حذف الفاتورة باكملها من النموذج الرئيسي من مفتاح حذف الفاتورة اريد ارجاع كميات الاصناف كما هى مرة واحدة للاصناف الموجودة فى النموذج الفرعى قبل تسجيل فاتورة مشتريات او مبيعات وذلك بعد حذف الفاتورة باكملها واستخدمت الكود الخاص بحذف صنف فى النموذج الفرعى ولكن لا يجدى Private Sub أمر12_Click() On Error Resume Next If IsNull(Me.Number) Then MsgBox "السجل فارغ ", 48, "حورس" Else If MsgBox("هل اريد حذف الصنف من الفاتورة", vbInformation + vbYesNo, " حورس تحذير") = vbYes Then mm = mm - Qty_in bb = bb - Qty_in DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord ' Refresh DoCmd.SetWarnings True MsgBox "تم حذف السجل", 48, "حورس " Else MsgBox "تم الإلغاء ", 48, "حورس " End If End If End Sub عند اضافة صنف للفاتورة يتم الضغط مرتين بالفارة على كود الصنف يظهر نموذج بحث عن صنف يتم البحث عن صنف ثم الضغط مرتين بالفارة على الباركود خاص بالصنف المراد اضافته يتم غلق النموذج ويتم اضافة الصنف تلقائي للفاتورة فى النموذج الفرعى واضافة الكمية جزاكم الله خيرا قاعدة بيانات4.rar

طيب ايه اسباب ان الملف يعمل كده حتى لا تحدث مرة اخرى

خلاص استعوض الله فى البرنامج ولا لسه فى امل

جزاك الله خيرا انا عملت استرجاع للجهاز لاخر تاريخ كان البرنامج شغال وكانت نفس المشكلة نفسي ارجع بس الجداول عندى نسخة فاضية

مفيش اى حلول يارب تكون جمعه مباركة على الجميع

تشكر اخى واستاذى الكريم وجزاك الله خيرا والله انا بطلب مساعدتكم الا بعد جهد وبحث اقوم به وفعلا انا جربت برنامج حضرتك لكى احاول استرد الجدول ما نفع على فكرة املف معمول على اكسس 2003 واذا طلب كلمة الشفت او الوحدة النمطية موجودة كلمة مرور الشفت ??))^^/*-+[] كلمة مرور الوحدة النمطية ib**@@[rh](-+) الله المستعان

اشكرك يا استاذى الكريم ربنا يبارك فيك اتمنى من الله عز وجل ان الاقى حل

انا عامل للبرنامج كلمة مرور للشفت والوحدة النمطية لو مطلوبة اكتبها

اخى واستاذى الكريم جزاك الله خير دخل على المشاركات وقمت بتنزيل البرامج ولكن دون جدوى دى نسخة من البرنامج املى فى الله ثم فى اساتذتى الكرام ان اجد حل حورس ادارة المحلات 2 - Copy.rar

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

اشكرك على ردك ومرورك وجزاك الله خيرا وسامحنى ولكن للاسف الاجابة لم تفى بالغرض لان عند فتح فاتورة جديدة يبقى اجمال الفاتورة الاولى فى الفاتورة التالية اشكرك يا اخى الكريم ايضا الحل لا يفى بالغرض لان حضرتك جعلت حدث بعد تحديث الكمية المباعة Forms!trans_out.Form!TotalAmount = Me.Ttotal وبالتالى لغيت مربعات النص الغير منضمين اجمالى الفاتورة والذى ياخذ القيمة من النموذج الفرعى ومربع الصافى فاتورة بيع.rar

شكرا على التنمر كان ممكن ترد انا لم افهم سؤالك او معرفش بدل التنمر

الاخوة الافاضل السلام عليكم ورحمة الله وبركاته فى المرفق يوجد مشكلتين فى فاتورة مبيعات Trans_out وبه نموذج فرعى Sales لبنود اصناف الفاتورة فى اسفل فى تذيل النموذج الفرعى مربع نص غير منضم لجمع حقل ال Total المشكلة الاولى للاسف قيمة الحقل تظهر فى مربع نص التجميع عند فتح النموذج الفرعى Sales لوحده وعند فتح نموذج فاتورة المبيعات Trans_out لا تظهر قيمة التجميع فى مربع النص فى النموذج الفرعى وبالتالى لا يظهر فى النموذج الرئيسي فى مربع نص t1 المشكلة الثانية اريد نقل قيمة مربع نص الغير منضم dd الى مربع نص منضم TotalAmount عملت كود على مفتاح خروج Me.TotalAmount = Me.dd ولكن لا بد من فتح الفاتورة مرتين ليتم نقل القيمة جزاكم الله خيرا فاتورة بيع.rar

معلش انا اسف اذا كان طلبى مش واضح

الاخوة الافاضل فى المرفق نموذج فاتورة بيع Trans_out و نموذج paymentcuss متابعة تحصيل العملا يوجد مشكلتين الاولى فى نموذج Trans_out الخاصة بفاتورة المبيعات يوجد مربع نص غير منضم ddd الصافى ومربع نص منضم اسمه TotalAmount لقيمة الفاتورة فى حقل Total فى جدول Issue_doc خاص برأس فاتورة المبيعات عملت كود بوظفتين عند الخروج عن طريق مفتاح خروج Me.TotalAmount = Me.ddd لكى يتم نقل القيمة من مربع نص غير منضم ddd لمربع نص منضم TotalAmount لحقل Total On Error Resume Next والثانية تشغيل استعلام الحاق Naqdi لتحصيل المبلغ فى حالة ان حقل نوع الدفع نقدى لجدول Catch_Receiv كان تم تحصيل المبلغ من العميل DoCmd.SetWarnings False If Me.pay = "نقدى" Then DoCmd.OpenQuery "Naqdi" DoCmd.OpenQuery "hoho" ' MsgBox "تم الترحيل بنجاح" DoCmd.SetWarnings TrueEnd If المشكلة هنا ان الجزء الاول من الكود لا يعمل Me.TotalAmount = Me.ddd ويالتالى يكون الحاق البيانات ناقص يتم الحاق بيانات العميل ونوع الفاتورة بدون قيمة الفاتورة total فى جانب الدائن من جدول Catch_Receiv اما المشكلة الثانية فى نموذج paymentcuss رئيسي لتحصيل نقود من العملاء به نموذجين فرعين الاول خاص بفواتير العملاء والثاني بالتحصيل والدفع للعملاء يتم اختيار اسم العميل يظهر فواتيره فى النموذج الاول Custmerinvoice ثم اقوم بتسجيل المبلغ المحصل من العميل فى النموذج الفرعى الثاني paymentcus لجدول Catch_Receiv الخاص بالتعاملات النقدية قمت بجعل حقل رقم السند Catch_Receiv يضيف ترقيم بزيادة 1 ( =Nz(DMax("Catch_Receiv";"Catch_Receiv");0)+1 ) فى خاصية القيمة الافتراضية ولكن المشكلة عند اضافة قيمة فى خانة مدين او دائن يتم ترقيم رقم السند فى السجل التالى بنفس رقم السند فى السجل السابق مما يظهر رسالة بتكرار البيانات الرجاء من اهل الخبرة ان يسعنى صدركم وان يكون مطلبى ان شاء الله خفيف 122.rar

الاخوة الافاضل فى المرفق نموذج فاتورة البيع Trans_out يتم عمل فاتورة البيع واختيار بنود الاصناف فى الفاتورة وعند الضغط على مفتاح خروج يتم تشغيل استعلام Naqdi الحاق بيانات من نموذج الفاتورة الى جدول Catch_Receiv فى حالة ان تكون نوع الدفع فى الفاتورة ( نقدى ) وكأن تم تحصيل مبلغ الفاتورة اريد المساعدة فى عمل استعلام تحديث قيمة حقل Credit فقط فى جدول Catch_Receiv وذلك عند تعديل بنود اصناف الفاتورة او زيادة اصناف الفاتورة حيث يتم تغير قيمة اجمالى الفاتورة فاتورة بيع.accdb

هو ده المطلوب بعينه جزاك الله خيرا فى الدارين واسعدك فى الدارين

اين اهل الخبرة

اخوانى الاساتذة فى المرفق نموذج Names يوجد جنب كل سجل مفتاح لنقل اسم الصنف من جدول Names الى جدول1 عملت استعلام الحاق اريد المساعدة فى كود لتشغيل استعلام الحاق لسجل الذى جنب مفتاح نقل السجل فقط مع عدم التكرار او يعطى رسالة لقد تم نقل السجل فاتورة بيع.accdb