ابوخليل

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

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

وعليكم السلام نعم يمكن تنفيذ ذلك يتم استدعاء الحدث لنفرض لديك اجراء هكذا : Private Sub Command9_Click() يتم استدعاؤه بهذه الطريقة : Call Command9_Click

تفضل تطبيق لما تفضل به استاذنا ابو ابراهيم Data991.rar

تم وضع الكود DoCmd.GoToRecord , , acLast عند حدث تحميل النموذج والكود هذا شغال والمشكلة كانت في التسلسل والفرز ، فأنا عملت فرز في الاستعلام جرب ووافني بالنتيجة test4.rar

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

تفضل New Access Application.rar

اكسس لا يخدمك في الرسم ولكن يمكن تدرج صور من ماسح مثلا واذا الرسم بسيط كما ذكرت مجرد مربع او مستطيل فيمكن تسجل الابعاد وهي تؤدي الغرض ، مثل بعض برامج الخياطة الرجالية الطول = كذا العرض = كذا انحراف الزوايا = لايوجد او كذا سم وتكتب جميع التفاصيل المعتاد كتابتها

اكتب الكود هكذا Private Sub Form_Open(Cancel As Integer) Dim i As Integer i = DMax("[ChitN]", "invoices") DoCmd.GoToRecord , , , i End Sub واذا كان رقم الفاتورة نصي يصبح الاعلان هكذا : Dim i As String اوارفق مثالك لنطلع عليه عن قرب حيث ذكرت ان مصدر النموذج اكثر من جدول

الرسائل الخاصة تتاح للاعضاء آليا اذا بلغ عدد مشاركاته 100 فأكثر

نعم الفكرة كانت واردة ولكن لاحظ ان استعلام التوحيد هذا ينتج من تشغيل 50 استعلام واكثر طريقة ابي ابراهيم اكثر احترافية

ولا اروع

تم التطبيق على 4 اعمدة يمكنك اكمال البقية ملحوظة : اسم الحقل في اكسس لا بد ان يبدأ بحرف Data99.rar

اعمل ما تقدر عليه من الخطوات اعلاه ، على الاقل الخطوة الاولى ثم ارفع المرفق

لان الحقول غير منضمة يجب الاعلان عن نوعها Dim i, ii As Integer i = Nz([t1]) ii = Nz([t2]) MsgBox i + ii sum msgbox2.rar

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

تقبل الله طاعتكم ، كل عام وانتم بخير

لم توضح طريقة اتصال هذا النموذج بالجداول ؟ اذا المصدر لهذا النموذج استعلام يجمع هذه الجداول فيمكنك الوصول الى السجل الاخير باستخدام احد الدالتين : Dmax اذا يوجد ترقيم تلقائي بحيث ترجع الدالة اكبر رقم تم تسجيله او الدالة Dlast للذهاب الى آخر سجل وقبل كل هذا جرب اولا استخدام هذا الامر DoCmd.GoToRecord , , acLast

ما خلاص لا بد تلغي الجدول frmControlSub

اذا نأتي على هواه ورغبته ولا نرتبط برقم محدد وتعديل على فكرتك Replace([mobile number];Right([Mobile Number];4);"0" & Right([Mobile Number];4);1;1) ما شاء الله حلول جاءت تباعا شكرا للاستاذ شيفان كنا نقرأ من كتاب واحد

مشاركة مع استاذنا ابو ابراهيم فيما لو اردنا المرونة وعدم التقيد برقم محدد او مكان محدد Left([Mobile Number];7) & "0" & Right([Mobile Number];4) هذا ينطبق على الارقام المطروحة هنا وعددها 11 فاقتطعنا 7 من اليسار و 4 من اليمين ثم وضعنا الصفر بينها

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

استخدم دالة DlookUp لجلب حقل الاجمالي من الاستعلام

تفضل Access2.rar

يابو نادر حاولت .. جبتها يمين .. يسار .. ولم اصل الى حل يبي لها تفرغ .. وسعة صدر والسؤال هو ليه ما تجعل عملك على اكسس ؟ فامكانيات التقارير افضل ولا تقارن بوورد .