محمد ايمن

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

جميل جدا بارك الله فيك اخي الكريم

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

جزاك الله كل خير اخي ابو خليل

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

انا بانتظار ردك أخي ابو خليل و جزاك الله كل خير سلفا

اخي الكريم الحقول الواجب توافرها في فاتورة البيع اسم الزبون رقم الزبون ( ان وجد ) رقم الفاتورة المواد المباعة سعرها ( الافرادي و الإجمالي ) إجمالي الفاتورة ( رقما و كتاية ) و للحديث بقية إن شاء الله

اخي الكريم انا اعرف الكود ولكن احببت ان الفت انتباهك له وجزاك الله كل خير

اخي محمود اطلب منك امهالي بعض الوقت لان جهازي في الصيانة و جميع ملفاتي عليه و للحديث تتمة إن شاء الله

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

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

جزاك الله كل خير اخي ابو آدم لكن لي استفسار بسيط مامعنى ( وسّع مستوى التعقيد لتتضح الأمور أكثر ويكون الأداء أشمل )

بسم الله الرحمن الرحيم منذ ان حملت المرفق و انا افكر في طريقة لشرح الفرق بينهما و ساحاول ان اشرح عسى ان يستفاد منها اولا : الكود يتم وضع الكود في زر امر او عند تحميل نموذج او اغلاقه و يكون الكود خاصا بمعنى ينفذ عند حدث الضغط على زر الامر ( oopen ) مثلا private sub oopen_click docmd.openform"11" end sub نلاحظ في بداية الكود كلمة ( private ) اي خاص و الكود هنا ينفذ فقط عند الضغط على زر ( oopen ) ثانيا : الوحدات النمطية تحتوي الوحدات النمطية على اكواد او وظائف و على عكس ( الكود ) يمكن استدعاء الوحدة النمطية في اي نموذج وهي لا تتحس بالأحداث مثلا Public Sub openform() DoCmd.openform "ff" End Sub نلاحظ وجود كلمة ( public ) اي عمومي يقوم هذا الكود بفتح النموذج ( ff ) و يتم استدعائه بهذا الشكل Private Sub Command0_Click() Call openform End Sub حيث نضع هذا الكود في اي زر موجود ضمن اي نموذج فائدة : لا يجوز تسمية الوحدة النمطية بنفس اسم احد الكودات الموجود داخلها ( مثلا لا يجوز تسمية الوحدة النمطية السابقة باسم openform بل يجب اعطائها اي اسم آخر ) فائدة : لا يمكن ان تكتب في الوحدة النمطية ( oopen_click ) لان الوحدة النمطية لا تتحسس بالأحداث ثالثا : الوحدة النمطية للفئة الوحدة النمطية للفئة تجمع بين الوحدة النمطية و الكود بمعنى آخر الكود التالي ينفذ عند فتح النموذج private sub form_open Set Anim = New clsFormAnimate end sub و عملية فتح النموذج فعليا هي حدث ولكن لا يمكن ان نكتب الكود السابق ضمن وحدة نمطية حتى لو استعملنا كلمة ( public ) لان الوحدة النمطية لا تتحس بالأحداث ( كما ذكرنا سابقا ) انما تخزن كودا عاما يتم تعريفه باسمه و ضمن اسمه نكتب ما نريد ان ينفذ لكن الوحدة النمطية للفئة يمكن ان تتحس بالأحداث و تتعامل معها مثلا يمكن ان تكتب ضمن الوحدة النمطية للفئة Private Sub mForm_Load() MsgBox "hi", vbInformation End Sub الكود السابق يعطي رسالة ( hi ) عند تحميل نموذج و لكن اي نموذج !!!! الجواب هو اي نموذج نرغب به فقط علينا استدعاء الوحدة النمطية للفئة لتنفيذ هذا الكود فائدة : الوحدة النمطية للفئة تستدعى باسمها على عكس الوحدات النمطية كيف يتم استدعاء الوحدة النمطية للفئة ؟؟ 1 - ننشئ وحدة نمطية للفئة و نسميها ( open1 ) نكتب الكود التالي في قسم التصريحات العامة للوحدة النمطية للفئة Public withevents mform As Access.Form حيث يتم تعريف المتغير ( mform ) كنموذج 2 - نكتب هذا الكود في الوحدة النمطية للفئة Private Sub Class_Initialize() mForm_Load Beep End Sub عند تحميل الوحدة النمطية اذهب الى ( mform_load ) 3 - نضيف هذا الكود الى الوحدة النمطية للفئة Private Sub mForm_Load() MsgBox "hi", vbInformation End Sub عند تحميل ( mform ) اظهر رسالة ( hi ) و طبعا ( mform ) تم تعريفه سابقا كنموذج اكسس 4 - نكتب هذا الكود في قسم التصريحات العامة للنموذج الذي نرغب ان يتم استدعاء الوحدة النمطية للفئة فيه و ليكن مثلا ( 123 ) Dim Anim As open1 تم تعريف متغير ( anim ) كوحدة نمطية للفئة 5 - نكتب هذا الكود في حدث تحميل النموذج ( 123 ) Set Anim = New open1 تم ضبط المتغير ليستدعي الوحدة النمطية للفئة فائدة : لايمكن كتابة الكود التالي لاستدعاء الوحدة النمطية للفئة Private Sub Form_Load() Call open1 End Sub الكود المكتوب ضمن الوحدة النمطية للفئة السابقة يقوم باصدار صوت تنبيه و يظهر رسالة مكتوب فيها ( hi ) الكثير يسأل هل يجب ان اكتب كل هذه الجريدة من اجل صوت تنبيه و رسالة ترحيب الجواب هو لا ولكن يتم انشاء الوحدات النمطية للفئة من اجل عدد نماذج اكبر و عمليات كودات اكبر و في النهاية ربما يستطيع المرفق ان يشرح افضل مني وارجو ممن يستطيع ان يشرح افضل مني ان يسهم في شرح الموضوع و اعتذر على الإطالة مثال عن انشاء الوحدات النمطية و الوحدات النمطية للفئة.rar

اخي ابو خليل هذا ما توصلت اليه حاليا ( هل توجد طريقة افضل من وجهة نظرك ) و للحديث تتمة إن شاء الله أرصدة الزبائن6.rar

متابعة الموضوع في http://www.officena.net/ib/index.php?showtopic=41934

عفوا اخي ابو خليل يبدو اني اسئت التوضيح الاستعلام ( الرصيد النهائي ) مصدره الجدول ( mk ) اما الاستعلام ( final11 ) مصدره الجدول ( final1 ) الغاية من هذه العملية نسخ او تحديث بيانات الجدول final1 ( اعتقد انه في حال وجود سجلات جديدة لا يمكن التحديث )

اخي ابو خليل تحية طيبة و بعد استطعت ( و الفضل لله عز وجل ) ان احصل على الرصيد النهائي لكل زبون عن طريق الاستعلام final11 ولكن هناك مشكلة صغيرة كيف استطيع تحديث بيانات الجدول final1 من الاستعلام ( الرصيد النهائي ) اي اريد ان يتم نسخ كافة بيانات الاستعلام ( الرصيد النهائي ) الى الجدول ( final1 ) ؟؟ أرصدة الزبائن5.rar

اخي محمود السلام عليكم و رحمة الله و بركانه اخي محمود بالنسبة الى حجم النموضج تستطيع تحديد ارتفاع النموذج و عرضه وذلك بواسطة الكود Me.InsideHeight=7500 me.InsideWidth=4000 حيث InsideHeight ارتفاع النموذج و insidewidht عرض النموذج قم بتغيير الارقام الى ما يناسب حاجتك اما بالنسبة الى اشرطة القوائم فيطول الحديث فيها انظر الرابط التالي و سأجهز لك ملف فيديو يشرح طريقة انشاء القوائم المختصرة و اشرطة القوائم http://www.officena....l=&fromsearch=1 و للحديث تتمة إن شاء الله

جزاك الله كل خير اخي ابو آدم

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

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

ولا اي رد ؟

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

كلامك صحيح اخي ابو خليل تستخدم في الرسائل عادة و لكن قلة قليلة من يعرف ( chr10 و chr13 ) و انا شخصيا اول مرة اعرف هذين الكلميتين :signthankspin:

عذرا اخي ابو آدم لو سمحت لاخيك الصغير التدخل قليلا vbCrLf تستخدم لنقل المحرف الى سطر جديد و البدء من اليسار اما ( _ ) فتستخدم لتقطيع الكود الى اسطر db1.rar