محسن سرحان قام بنشر مارس 21, 2015 قام بنشر مارس 21, 2015 اخوانى عندى قاعدة بيانات بها جدولين الاول به بيانات ودرجات الطلاب والثانى به اسماء المدارس التى يوجد بها الطلاب وقمت بربط الجولين باستعلام واحد والسؤال الان اريد زر في نموذج يفصل كل مدرسة على حده ثم ينشئ ملف اكسس بنفس بيانات الطلاب واسم ملف اكسس يكون نفس اسم المدرسة عنى لو الجدول في الاكسس به عشرن مدرسة اريد كود يقسمهم عشرين ملف اكسس مسماه باسماء المدارس وبنفس بيانات الاكسس والملف المرفق به المثال ارجو التعديل عليه المثال.rar
الحلبي قام بنشر مارس 21, 2015 قام بنشر مارس 21, 2015 الاخ / محسن يرجى توضيح اكثر ما المقصود لو الجدول في الاكسس به عشيرن مدرسة اريد كود يقسمهم عشرين ملف اكسس مسماه باسماء المدارس وبنفس بيانات الاكسس تقصد عشرين سجل وليس عشرين ملف المطلوب ان شاء الله سهل
محسن سرحان قام بنشر مارس 21, 2015 الكاتب قام بنشر مارس 21, 2015 ملف يقوم بالمطلوب ولكن يقسم القاعدة الي ملفات اكسل باسماء المدارس ارجو التعديل بدل اخاج ملفات اكسل تكون اكسس تصدير لإكسل.rar
rudwan قام بنشر مارس 23, 2015 قام بنشر مارس 23, 2015 دعنا نفهم ماهو الغرض من عملية التقسيم هذه علنا نساعد في صياغة أفضل من انشاء ملفات متعددة
محسن سرحان قام بنشر مارس 24, 2015 الكاتب قام بنشر مارس 24, 2015 اخي رضوان اشكرك بشدة الغرض من التقسيم هو التعامل مع كل مدرسة كقاعدة منفصلة
راعي الغنم قام بنشر مارس 24, 2015 قام بنشر مارس 24, 2015 اولا لست بحاجة لاخراج كل مدرسة في ملف اكسس منفصل لحاله لانك ستحتاج حذف القواعد القديمة في كل مرة تحدث بيانات المدرسة في القاعدة الام او انك ستدخل بيانات كل مدرسة من قاعدتها المنفصلة وبالتالي لم تعد بحاجة القاعدة الام. اظن كل ما انت بحاجته هو نموذج يظهر بيانات كل مدرسة لحالها تماما كما نستخدم الاستعلامات البسيطة هذا حسب ما فهمت من كلامك ومن الجداول المرفقة..
الحلبي قام بنشر مارس 24, 2015 قام بنشر مارس 24, 2015 ايوا نعم يااستاد / رضوان الاخ محسن يريد حاجة معينة وهي غير واضحة يمكن الاخ/ راعي الغنم قد وضح فكرة يمكن تكون هي وجهة نظر الاخ / محسن انا راي من راي الاخ راعي الغنم نرجو التوضيح اكثر اخي محسن وكلنا تحت امرك
محسن سرحان قام بنشر مارس 25, 2015 الكاتب قام بنشر مارس 25, 2015 انك ستدخل بيانات كل مدرسة من قاعدتها المنفصلة وبالتالي لم تعد بحاجة القاعدة الام. بالفعل انا في حاجة لقاعدة منفصلة لكل مدرسة
راعي الغنم قام بنشر مارس 25, 2015 قام بنشر مارس 25, 2015 هذا حل غير عملي ولا علمي!!!! تريد 75 قاعدة بيانات ل75 مدرسة, وتريد تدخل بيانات كل مدرسة من قاعدتها المنفصلة, وتريد اجراء استعلاماتها وبحوثها وطابعاتها منفصلة لحالها!!! اكيد انك غاوي تعب ^_^ اذا انت جاد في طلبك فاستمر على ما انت عليه في التصميم وبلاش من جدول data_school واعمل 75 نسخة لقاعدة البيانات
محسن سرحان قام بنشر مارس 26, 2015 الكاتب قام بنشر مارس 26, 2015 اشكرك اخي علي مساهمتك وان كان اسلوبك به بعض الحدة "ولو كنت فظا غليظ القلب لانفضوا من حولك" ومع دلك ادا عرف السبب بطل العجب انا اعمل بمركز توزيع اسطوانات على المدارس فمجبر عل نسخ كل مدرسة علي اسطوانه وارسالها للمدارس ومن ثم تجميعها مرة اخري في قاعدة ام وشكرا 1
راعي الغنم قام بنشر مارس 26, 2015 قام بنشر مارس 26, 2015 اولا: انا اعتذر منك اخي الكريم جدا وانا معترف بخطئي ثانيا: يعلم الله لم يكن قصدي التعالي عليك او انتقاص ماتقوم به ثالثا: ان كان قصدك بتقسيم قاعدة البيانات هو ان يكون برمجيا ومن خلال زر امر بنموذج القاعدة الام فهذا يجيبك عنه الاعلم مني وان كان قصدك يدويا فهو حسب ماذكرت لك سابقا ولأنه سيلزمك تغيير عناوين وتسميات كل مدرسة على حدة والله اعلم...
محسن سرحان قام بنشر مارس 26, 2015 الكاتب قام بنشر مارس 26, 2015 مش قادر افهم قصدك ايه يا ريت لو تضع مثال لما تقول
rudwan قام بنشر مارس 26, 2015 قام بنشر مارس 26, 2015 قم بانشاء نموذج و زر أمر ضع في زر الأمر الكود التالي 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"
محسن سرحان قام بنشر مارس 27, 2015 الكاتب قام بنشر مارس 27, 2015 اشكرك اخى رضوان قمت بعمل نمودج وزر امر وكان هناك مجع مفقود اختته من الريفانس ولكن الكود بيشتغل لحد done اوح لل c لا اجد ملفات ارجو وضع مثال شغال افضل
rudwan قام بنشر مارس 28, 2015 قام بنشر مارس 28, 2015 ربما لديك مشاكل في المراجع هذا الملف يعمل لدي و بدون اي مشاكل اذا لم يعمل عندك حاول اضافة المرجع التالي Microsoft DAO 3.6 SlicingDB.rar
محسن سرحان قام بنشر مارس 28, 2015 الكاتب قام بنشر مارس 28, 2015 الملف مصنوع با اصدارات الاوفيس ارجوك وضعه اوفيس 2003
srsr2003 قام بنشر مارس 29, 2015 قام بنشر مارس 29, 2015 السلام عليكم أنا جربت هذه العلمية وذلك بالطريقة التالية: ضمن الجداول يكون هناك جدول يحوي اسم المدرسة ورمزها وأيضا الرقم المدني لمدير المدرسة ويكون فيه رمز المدرسة مفتاح أساسي نربط رمز المدرسة من جدول بيانات المدارس برمز المدرسة في الجدوال الاخرى فرض تكامل مرجعي بحيث عند حذف المدرسة من جدول المدارس تحذف البيانات التابعة لها في الجداول المرتبطة بها نظهر الجدول بيانات المدارس في نموذج بحيث عند ادخال رمز المدرس والرقم المدني لمدير المدرسة بطريقة صحيحة يظهر زر الدخول للبرنامج(او لشاشة البيانات) نربط زر الدخول بماكروا يقوم أولا بحذف بيانات جميع المدارس عدا الرمز المحدد في النموذج ثم يدخل إلى شاشة البيانات بهذا تضمن ان المدرسة تدخل على بياناتها فقط
محسن سرحان قام بنشر مارس 30, 2015 الكاتب قام بنشر مارس 30, 2015 اشكرك اخي العزيز رضوان جربت المرفق ودهبت للمسا المحدد فلم اجد به ايه قواعد ارجو تجربته ثم اخباي بالنتيجة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.