ابوخليل

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

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

تفضل Public Function countMyDate(myId As Integer) Dim rs As DAO.Recordset Dim i, r As Integer Set rs = CurrentDb.OpenRecordset("count_alawa") rs.MoveFirst Do While Not rs.EOF For i = 1 To rs.Fields.Count - 1 If myId = rs!id Then If Not IsNull(rs.Fields(i).Value) Then r = r + 1 End If End If Next countMyDate = r rs.MoveNext Loop rs.Close: Set rs = Nothing End Function db1.accdb

عليكم السلام اغلب تسميات الحقول في مثالك هي دالات محجوزة في اكسس تفضل هذا بريمج صغير لدالات اكسس ، قبل ان تعتمد التسمية ابحث عنها فيه اذا عدلت المرفق ارفعه مرة اخرى dbx.mdb

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

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

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

كنت اعمل على المثال وسبقني اخي ابو بسملة ادرجها للفائدة Dim rs As DAO.Recordset Dim x As Integer Set rs = CurrentDb.OpenRecordset("SELECT count_alawa.* FROM count_alawa WHERE count_alawa.id=" & [Forms]![form1]![id]) x = Month(txtDate) rs.Edit rs.Fields(x) = Me.txtDate rs.Update rs.Close: Set rs = Nothing

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

صباح النور التوزيع يختلف من رغبة لأخرى ما سعة القاعة .. استاذ او اثنين او ثلاثة ... وهكذا في سؤالك 40 قسمة 18 = 2 ويتبقى 4 .. ماذا ستفعل بهم الافضل ان ترفق مثالك تجنبا لكثرة الأخذ والرد .. موضحا فيه مطلوبك

للاسف نموذج المبيعات يختلف لاحظت انه ثقيل جدا يجري عمليات تأخذ وقتا بحيث تظهر قيمة dd متأخرة جدا فحين ينفذ الكود تكون قيمة dd = صفر الحل بانك تعيد النظر في عمليات النموذج وتنظر في سبب هذا البطء او انك تجعل الحدث عند النقر على تفصيل النموذج او حدث النقر على الحقل نفسه وهذا ما فعلته لك بعد عملية البيع انقر على تفصيل النموذج او على الجقل نفسه وخذ بالاعتبار اني اساعدك وانا غير مقتنع بطريقة عمل البرنامج خاصة ما يخص الارصدة قاعدة بيانات7 .rar

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

اذا تقصد تحويله من Accde الى Accdb او من mde الى mdb اعتقد انه لا يمكن وعلى الرغم من وجود اعلانات في النت لبرامج مدفوعة يدعون انها تقوم بالتحويل ، الا اني حسب خبرتي في اكسس وتجربتي لمثل هذه البرامج وجدتها تقوم بالتحويل ولكن بعد نزع جميع الاكواد من المحرر .

من اجل تفهم الفكرة يوجد حقل في الرئيسي اللي هو dd ياخذ بياناته من الفرعي على شان تظهر البيانات لازم ننشط الرئيسي بعد كل حدث ، لاحظ التنشيط [Forms]![Trans_in].Refresh موجود في اكثر من حدث في الفرعي بالنسبة لحقل المجموع في الرئيسي جعلته يعمل مع كل تنشيط من اجل تظهر في الحال وانت تعمل نعم اكيد يمكنك وانتبه لمسميات النماذج والحقول

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

جرب كذا شوف التعديل على نموذج المشتريات وعطلت الخروج عند النقر على الزر من اجل تشوف النتيجة قاعدة بيانات5 .rar

اما خاصية محسوب فالافضل انك لا تعمل بها حتى لو كانت عندك

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

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

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

اخي الكريم طلبك الاخير اختلف عن الموضوع الاساسي لطفا افرد لطلبك موضوعا وعنوانا جديدا مختصرا للمشكلة

عليكم السلام تفضل0 Dim tblx As String tblx = Me.Modifiable5 DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\Edusoft\Record.accdb", acTable, tblx, tblx, False المرفق هو الواجهة التي على سطح المكتب Record.accdb

تفضل Stu3.mdb

جزيت خيرا د.حسنين والجميل في العمل مفارقة المتصفح اكسبلورر

لم افهم .. اختيار اكثر من حصة وضح اكثر لأن المخالفة تحصل في وقت محدد .. اي في حصة محددة