aboeessaa

اخي / الفيلسوف111 ممكن ترفق تصميم الجدول الرئيسي لديك (بدون سجلات) و ساحاول ايجاد حل عملي شكرا لك

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

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

يمكنك استخدام الكود التالي Function Num2YearlyNum(ByVal Num As Long) As Long Dim CuurentYear As Long CuurentYear = Year(Now()) If Num <= 9999 Then Num2YearlyNum = CuurentYear * 10000 + Num Else Num2YearlyNum = Num MsgBox "رقم اكبر من 9999 لا يمكن التحويل" End …

يمكن التحكم تماما من خلال تعديل الكود الى مايلي Private Sub Form_Current() Call LockTable("Table", 65) End Sub اما الاجراء LockTable فهو على الشكل التالي Sub LockTable(ByVal TableName As String, ByVal MaxRecord As Long) Dim sExpr, sCriteria As String Dim Cuure…

الاخت / سعودية 2006 قمت بالاطلاع على الملفات المرفقة ولاحظت مايلي : 1- لم يتم ضغط قاعدة البيانات من داخل آكسس لذلك كان حجمها كبيراً. 2- الامثله ما هي الا نسخ من قاعدة بيانات برنامج (معارف) 3- اعتقد ان هدفك من تجميع عدة بيانات هو الحصول على قاعدة بيانات على مست…