اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

اريد تقسيم بيانات جدول اكسس الى ملفات اكسس تبعا لكل مدرسة


الردود الموصى بها

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

المثال.rar

رابط هذا التعليق
شارك

الاخ / محسن

 

يرجى توضيح اكثر 

 

ما المقصود  لو الجدول في الاكسس به عشيرن مدرسة اريد كود يقسمهم عشرين ملف اكسس مسماه باسماء المدارس وبنفس بيانات الاكسس

تقصد عشرين سجل وليس عشرين ملف 

 المطلوب ان شاء الله سهل 

رابط هذا التعليق
شارك

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

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

اظن كل ما انت بحاجته هو نموذج يظهر بيانات كل مدرسة لحالها تماما كما نستخدم الاستعلامات البسيطة

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

رابط هذا التعليق
شارك

ايوا 

نعم يااستاد / رضوان 

 

الاخ محسن يريد حاجة معينة وهي غير واضحة 

 

يمكن الاخ/ راعي الغنم قد وضح فكرة يمكن تكون هي  وجهة نظر الاخ / محسن

 

انا راي من راي الاخ راعي الغنم

نرجو التوضيح اكثر اخي محسن وكلنا تحت امرك

رابط هذا التعليق
شارك

هذا حل غير عملي ولا علمي!!!!

تريد 75 قاعدة بيانات ل75 مدرسة, وتريد تدخل بيانات كل مدرسة من قاعدتها المنفصلة, وتريد اجراء استعلاماتها وبحوثها وطابعاتها منفصلة لحالها!!!

اكيد انك غاوي تعب ^_^

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

رابط هذا التعليق
شارك

اشكرك اخي علي مساهمتك

وان كان اسلوبك به بعض الحدة "ولو كنت فظا غليظ القلب لانفضوا من حولك"

ومع دلك ادا عرف السبب بطل العجب

انا اعمل بمركز توزيع اسطوانات على المدارس فمجبر عل نسخ كل مدرسة علي اسطوانه وارسالها للمدارس ومن ثم تجميعها مرة اخري في قاعدة ام

وشكرا

  • Like 1
رابط هذا التعليق
شارك

اولا: انا اعتذر منك اخي الكريم جدا وانا معترف بخطئي

ثانيا: يعلم الله لم يكن قصدي التعالي عليك او انتقاص ماتقوم به

ثالثا: ان كان قصدك بتقسيم قاعدة البيانات هو ان يكون برمجيا ومن خلال زر امر بنموذج القاعدة الام فهذا يجيبك عنه الاعلم مني

وان كان قصدك يدويا فهو حسب ماذكرت لك سابقا ولأنه سيلزمك تغيير عناوين وتسميات كل مدرسة على حدة والله اعلم...

رابط هذا التعليق
شارك

قم بانشاء نموذج و زر أمر

ضع في زر الأمر الكود التالي


 Dim ws As Workspace
   Dim db As Database
 
   Dim sqltext, Sc_Name As String
   Dim i, m As Long
   
Dim qdfNew As DAO.QueryDef

   
   Dim LFilename As String
   
 
   Set ws = DBEngine.Workspaces(0)
   m = DMax("school_no", "data_kids")
   
   For i = 1 To m
   If DLookup("school_no", "data_kids", "[school_no] =  " & i) Then
   sqltext = "SELECT data_kids.* FROM data_kids WHERE (((data_kids.school_no)= " & i & "));"
On Error Resume Next
With CurrentDb
    .QueryDefs.Delete ("School")
                          
    Set qdfNew = .CreateQueryDef("School", sqltext)
   
End With

   LFilename = "c:\sample\Schl_" & i & ".mdb"

 


   If Dir(LFilename) <> "" Then Kill LFilename
   
   'Create a new mdb file
   Set db = ws.CreateDatabase(LFilename, dbLangGeneral)
   
   'For lookup tables, export both table definition and data to new mdb file
   DoCmd.TransferDatabase acExport, "Microsoft Access", LFilename, acTable, "School", "data_kids", False

   DoCmd.DeleteObject acTable, "School"
   End If
Next i

   
   db.Close
   Set db = Nothing
   MsgBox "Done"

مع ملاحظة مايلي :

1 - يمكنك تغيير اسم المجلد الذي تريد حفظ البيانات فيه من نفس الكود

2- قمت بتسمية الملفات بارقام المدارس لأنها ستكون أسهل عليك عند استعادة الملفات

لكن ان رغبت الحفظ باسم المدرسة نفسها فسيكون الكود كما يلي

استبدل السطرين

End With

  LFilename = "c:\sample\Schl_" & i & ".mdb"

بالسطرين التاليين

 
 


End With
Sc_Name = DLookup("school_name", "data_school", "[school_no] = " & i)


 LFilename = "c:\sample\" & Sc_Name & ".mdb"
رابط هذا التعليق
شارك

السلام عليكم

أنا جربت هذه العلمية وذلك بالطريقة التالية:

ضمن الجداول يكون هناك جدول يحوي اسم المدرسة ورمزها  وأيضا الرقم المدني لمدير المدرسة ويكون فيه رمز المدرسة مفتاح أساسي

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

نظهر الجدول بيانات المدارس في نموذج بحيث عند ادخال رمز المدرس والرقم المدني لمدير المدرسة بطريقة صحيحة يظهر زر الدخول للبرنامج(او لشاشة البيانات)

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

بهذا تضمن ان المدرسة تدخل على بياناتها فقط

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information