Access XP

يجب أن يكون جدولي الادخال والثاني متماثلين تماما في عدد الحقول ونوع البيانات وحجمها حتى لا تحدث أخطاء أثناء عملية الالحاق

أخي الكريم : هنا كيفية عمل شريط أدوات http://www.mybiznas.com/access/Droos/repor...eport/index.htm أما لضغط قاعدة البيانات واصلاحها فيمكنك القيام بذلك من قائمة أدوات ثم خيارات اختر التبويب ( عام ) ثم ضع علامة صح عند ضغط عند الإغلاق فبهذا سيتم ضغط القاعدة ذاتيا عند اغلاقها كل مرة . أما سؤالك الأول فان شاء الله سأجد لك حلا قريبا

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

أخي الكريم : يمكنك القيام بذلك من خلال عمل استعلام الحاق واستعلام حذف .... لم أفهم ماذا تقصد بادخال متكرر أو خطأ في الادخال

أخي الكريم : هنا تجد برنامج يقوم بعمل نموذج لتحديد الصلاحيات مع إضافة نموذج دخول http://www.officena.net/ib/index.php?showtopic=3802 أما بالنسبة للنموذج الرئيسي لقاعدة البيانات فأنصحك باستخدام لوحة التبديل الموجودة في أكسس

هذا الكود بعد تعديله Private Sub combo_AfterUpdate() On Error Resume Next If Me.Combo = "متقاعد" Or Me.Combo = "تقديم استقالة" Or Me.Combo = "فصل من العمل" Then MsgBox "سيتم حذف هذا الموظف من السجلات الرسمية" DoCmd.SetWarnings False DoCmd.OpenQuery "set_gop" DoCmd.OpenQuery "set_gop1" DoCmd.OpenQuery "set3" DoCmd.SetWarnings True Else Exit Sub End If Me.Requery End Sub

أخي الكريم الأفضل أن تجعل الأسماء كلها في حقل واحد وتجعل الحقل الآخر هو وظيفة الأساتذة

أخي الكريم من خصائص النموذج اختر التبويب ( تنسيق ) نمط الحدود = بلا ثم اختر التبويب ( غيرذلك ) منبثق = نعم ثم اختر التبويب ( حدث ) عند الفتح = ( اجراء حدث ) ثم اضغط الزر الذي سيظهر لك واكتب Docmd.Maxmize

الحل للمشكلة كما طرحتها هو كما ذكر لك الأخ / أسامة فقط تأكد من الأسماء ... او ضع رابطا للقاعدة لمحاولة مساعدتك

هذا برنامج من ميكروسوفت اسمه HTMLHELP http://msdn.microsoft.com/library/default....lpDownloads.asp

أخي الكريم لم استطع رؤية المثال لوجود خلل أو خطأ في الرابط عموما يمكنك عمل ذلك بسهولة من خلال الكود التالي : Private Sub ComboBox1_AfterUpdate() If Me.ComboBox1 = 1 Then DoCmd.OpenQuery "اسم الاستعلام الأول" ElseIf Me.ComboBox1 = 2 Then DoCmd.OpenQuery "اسم الاستعلام الثاني" ElseIf Me.ComboBox1 = 3 Then DoCmd.OpenQuery "اسم الاستعلام الثالث" End If End Sub وذلم على افتراض أن اسم مربع التحرير والسرد هو ComboBox1 والقيم التي يضمها هي : 1 ، 2 ، 3 وتقبل مني تحية

قد يكون في هذا الرابط ما يفيدك http://www.al-jazirah.com.sa/digimag/18012004/tm41.htm

البرنامج اسمه WinRar هذا رابط تنزيله http://www.rarlab.com/download.htm

هذا ما ظهر لي There is no website configured at this address

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

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

أخي الكريم / أبو فراس تم التعديل حسب طلبك db2.rar

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

من نافذة تقارير اختاري جديد ثم معالج التخطيطات وهذا مثال db22.rar

أخي الكريم سأشرح لك ما قمت به Private Sub MyZaman_AfterUpdate() On Error Resume Next Select Case MyZaman Case Is = 1 Me.EndDate = DateAdd("d", Mudah, [BeginDate]) Case Is = 2 Me.EndDate = DateAdd("ww", Mudah, [BeginDate]) Case Is = 3 Me.EndDate = DateAdd("m", Mudah, [BeginDate]) Case Is = 4 Me.EndDate = DateAdd("yyyy", Mudah, [BeginDate]) End Select End Sub في النموذج يوجد أربعة حقول لها صلة بالكود المبين أعلاه الحقل الأول هو BeginDate وهو الخاص بادخال تاريخ بداية المدة أو العقد الحقل الثاني هو EndDate وهو الحقل الذي يظهر به تاريخ نهاية المدة أو العقد الحقل الثالث هو Mudah وهو الحقل الذي تقوم بادخال المدة فيه الحقل الرابع هو MyZaman وهو الحقل الذي تقوم باختيار الفترة الزمنية التي يحسبها البرنامج ( يوم ، أسبوع ، شهر ، سنة ) وتقوم الدالة DateAdd باختيار الفترة التي تريد إضافتها وتضيفها إلى تاريخ البداية فتستخرج تاريخ النهاية أرجو أن تكون الصورة أكثر وضوحا الآن وتقبل تحيتي

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

أخي الكريم قم بعمل تقرير مماثل لما هو موجود بالمثال مع استبدال التاريخ باسم العميل

أخي الكريم يا ليت تقوم بتوضيح أكثر للمشكلة

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

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