مشكلة في ترقيم تلقائي لقاعدة بيانات مؤسسة مالية

[pinkpanther]

السلام عليكم

شباب قاعد احاول انشئ قاعدة بيانات

اواجه حاليا بعض مشاكل في انشاء القاعدة ....

اتمنى أن اجد منكم المساعدة والعون

---------

تم انشاء القاعدة باكسس 2000 انجليزي

قاعدة البيانات صممت لـ : شركة قروض مالية (تعطي قروض للناس)

فكرة القاعدة :

الشركة لديها عملاء، واسماء العملاء تم ادراجهم في جدول A

لكل عميل شركات ، واسماء شركات كل عميل تم ادراجها في جدول B

لكل شركة من شركات العميل اكثر من قرض وتفاصيل القروض لكل شركة تم ادراجها في جدول C

لكل قرض من قروض الشركة ضامنين واسماء الضامنين لكل قرض تم ادراجها بجدول E

لا بد أن اطلع على جميع العملاء مع شركاتهم وقروضهم والضامنين لهم بجدول A كالصورة هذه :

المشكلة الاولى: اريد ان اطبق الترقيم التلقائي على الاربع الجداول كما بالصورة

المشكلة الثانية : عدم قدرتي على انشاء فورم اوتقارير بعرض التصميم للجداول الأربعة !

تم ارفاق ملف كمثال

بانتظار الخبراء ...

اخوكم بنك بانثر

acccss2000.zip

[anamo]

أخي بينك بانثر..

حملت الملف لكن لم أستطع التعديل عليه ..

بالنسبة للترقيم التلقائي فالحل الذي لدي هو كالتالي..

في كل جدول من الجدال الأربعة أنشئ خانة جديدة وسمّها مثلا: ManualAutoNumber

أنشئ نموذج لكل من الجداول الأربعة

الآن ضع الكود التالي في الحدث عند الإغلاق, والحدث عند الحذف, لكل من النماذج الأربعة, مع تغير إسم الجدول في الكود من A,B,C,D

If DCount("[ManualAutoNumber]", "A") = 0 Then
DoCmd.CancelEvent
Else
With Me.Recordset
     .MoveFirst
    Me.ManualAutoNumber = 1
    For i = 2 To Me.RecordsetClone.RecordCount
    .MoveNext
      Me.ManualAutoNumber = i
    Next i
    End With
End If

[pinkpanther]

اخي anamo

شكرا لمساعدتك ... تم تعديل الملف وانشاء الله راح يفتح

مشكلة تصميم الفورم والريبوتات تم حلها في الملف المرفق

لكن الارقام لم تحل حتى الان

ياليت تضع الكود بالملف المرفق ولك مني جزيل الشكر والامتنان

اخوك / بنك بانثر

acccss2000yyy.zip

[anamo]

أخي بينك بانثر

جرب الملف المرفق

لاحظ أن خانة ال ManualAutonNmber لن تستطيع التعديل عليها

ولن تتغير هذه القيمة إلا بعد إغلاق النموذج

يمكنك وضع الكود في حدث بعد التحديث للنموذج, لكن هذا سيتهلك جزءا من الوقت والذاكرة لتنفيذه كل مرة

acccss2000_ANAMO.zip

[pinkpanther]

شكرا لك

تحياتي

[أبا عمر]

ينقل