رمهان

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

لان حقل لديك هو جزء من مصدر التقرير ( جدول او استعلام او جملة اس كيو ال) ولكنه ليس مضافا كاحد عناصر التقرير .. بالتوفيق

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

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

هذا تعديل على مثال الاستاذ ابو عارف Private Sub Gender_AfterUpdate() Combo7 = "" If Me.Gender = "Male" Then Combo7.RowSource = "-" Combo7 = "-" Else Combo7.RowSource = Chr(34) & "Yes" & Chr(34) & ";" & Chr(34) & "No" & Chr(34) Combo7.Requery Combo7.SetFocus Combo7.Dropdown End If End Sub بالتوفيق

وهذه فكره Private Sub Gender_AfterUpdate() Combo7 = "" Combo7.RowSource = Choose(Gender.ListIndex + 1, "-", "Yes;No") End Sub بالتوفيق

حيا الله الاستاذ الغالي ابا عارف مش ممكن اختصار السطر اعلاه الى : combo7.rowsource="yes;no" تحياتي

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

هلا والله بالاساتذة الغائبين الحاضرين والله انا مار سريعا وفي اخر ساعه من يومي لكن ماادري استاذ جعفر هل تم اخذ الحسبان كذلك ايام الويك اند ؟ تحياتي للجميع

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

قريبا باذن الله وسأعرض احد برامجي هنا بعد تردد كبير

العفو استاذ خلف وتقبل تحياتي

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

هذا تطبيق ومحاولة رمهانية متمنيا لكم التوفيق Private Sub Form_Current() Me.Parent!total = Me.ActiveControl End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) On Error Resume Next Set rs = Me.RecordsetClone: rs.MoveLast: rs.MoveFirst a = rs.GetRows(rs.RecordCount) If KeyCode = 16 Then For ii = 0 To Me.SelWidth - 1 For i = 0 To Me.SelHeight - 1 xsum = xsum + a(Me.SelLeft + ii - 2, Me.SelTop + i - 1) Next i Next ii End If Me.Parent!total = xsum End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error Resume Next Set rs = Me.RecordsetClone: rs.MoveLast: rs.MoveFirst a = rs.GetRows(rs.RecordCount) For ii = 0 To Me.SelWidth - 1 For i = 0 To Me.SelHeight - 1 xsum = xsum + a(Me.SelLeft + ii - 2, Me.SelTop + i - 1) Next i Next ii Me.Parent!total = xsum End Sub قاعدة البيانات1.accdb

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

لو اصبح لكفيل مشتري .. والعكس لو اصبح المشتري كفيل ؟؟؟ تحياتي

الحل عن طريق ثلاث خصائص للنموذج seltop selheight selwidth حاول اخي عبدالله ان تقرا عنهم وتجرب وان شاء الله اعود لك بتطبيق في اقرب فرصة حسب وقتي تحياتي

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

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

هات مرفق للتطبيق تحياتي

Private Sub Command112_Click() If IsFontInstalled("Arial") = True Then MsgBox "الخط مثبت على الجهاز" Else MsgBox "الخط غير مسطب على الجهاز" 'Call IsFontInstalled("Anehila") End Sub بالتوفيق

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

في حدث زر فتح التقرير وبعد سطر امر فتح التقرير اتبعه بامر التكبير maximize ثم امر الزووم عن طريق docmd.runcommand accmdzoom100 بالتوفيق

اعتقد ان الجواب مكرر في المنتدى ولكن مش متاكد = Right(filepath, Len(filepath) - InStrRev(filepath, ".")) ضع المسار كامل بدلا ل filepath ومعناته خذ من اليمين مقدار طول المسار مطروحا منه عدد مكان وجود النقطة من اليمين وهو هنا سيصبح مابعد النقطة بالتوفيق

عزيزي ذكرني سؤالك باول مسالة برمجية مرة علي وهي طبعا معتادة في مناهج البرمجة هذا تعبير في الاستعلام ويمكنك ادخال nz لتلاشي القيم الفارغة Expr1: IIf([date1]>[date2] And [date1]>[date3] And [date1]>[date4],[date1],IIf([date2]>[date1] And [date2]>[date3] And [date2]>[date4],[date2],IIf([date3]>[date1] And [date3]>[date2] And [date3]>[date4],[date3],[date4]))) بالتوفيق