ابو الآء

السلام عليكم هل يمكن ان يتفضل علينا الاساذته بمشورع عمل جماعى لقاعده بيانات عاملين وتكون فى نفش الوقت درس مفتوح للمبتدئين امثالى وليكن فكره المشروع قاعده بيانات للعاملين بالتربية والتعليم ويتم تنفيذ المشروع باسم قسم الاكسس بمنتديات اوفيسنا ________________- هل نطمع فى مثل هذا الدرس

فين الملف ونكمل سواء ان شاء الله يتم بمعاونه الجميع

بارك الله فيك استاذى انتبهت الى الخطاء اسعدك الله كما اسعدتنى

بارك الله فيك ولا يهمك ان شاء الله اول ما اوصل البيت هعمل النموزج وارفعه لحضرتك براحتك انا مش مستعجل الله يعينك اخى ويبارك فيك

اليك صور الخطاء لعلها تفيد فى تحديد المشكله

اكيد فيه مشكله عندى ياريت تتفضل بالمثال الذى طبقت عليه قد اكون اخطأءت فى نقل الكود

نفس الخطاء استاذى لا اعلم السبب جرب الكود على الملف المرفق

الف شكر اخى الفاضل تعبتك معايا ربي يسعدك اخى _________________- اسف هل يمكن تطبيق الفكره التى ذكرتها فى مساهمه رقم 1

الف شكر استاذى الفاضل بارك الله فيك

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

السلام عليكم لدى الاستعلام التالى Qry_AKTVTU_1 به كود للبحث فى حقلين وتصفيه النتائج من الحقلين ارغب فى احضار الطلاب المشتركين فى النشاط الاول والثانى يعنى اختار اسم النشاط يدينى اسماء الطلاب المشتركين كنشاط اول والطلاب المشتركين كنشاط ثان student8.rar

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

السلام عليكم لدى جداول بها ترقيم تلقائي ويحدث مشكله ان هذه الجداول متغيره اى يمكن حذفها واعاده ادخال البيانات اليها فتقوم ببدء الترقيم من اخر رقم تم ادخاله وحذف مثال لدى جدول به البيانات التاليه رقم تلقائى حاله القيد 1 مستجد 2 منقول 3 باق وعند حذف البيانات وادهالها من جديد يكون الترقيم 4 مستجد عاوز الاتى فورم به كود يظهر اسما الجداول الموجوده بالقاعده يتم من خلاله اختيار الجدول المراد اعاده بدء الترقيم التلقائي له ويقوم بالتالى باعاده بدء الترقيم التلقائي له _________________________________ هل من سيبل الى الذلك

Private Sub zer1_Click() Beep If MsgBox("ÓæÝ íÊã ÊÑÍíá ÇáØáÇÈ" & vbCrLf & _ "åá ÇäÊ ãÊÃßÏ ãä ÊäÝíÐ ÇáÃãÑ .", _ vbMsgBoxRtlReading + vbMsgBoxRight + vbExclamation + vbYesNo, _ "ÊÑÍíá ÇáØáÇÈ") = vbYes Then DoCmd.SetWarnings False DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO TPstoudntE ( id, RakamKomy, ForeName, Father, Grandfathername, FamilyName, csles, alsaf, elqyed, ELEDARH, elohafza, school, dyana, activ1, activ2, Mother_name, elryada, Phone_number_Father, jopfathr, School_fees, email, el7alat5asa, mol7zat_a5saey, ahoayat, o5ra, mo7awal_in, mo7awal_in2, othredarh, othrsvhool, almo7afza, detalta7wyl, photo, datalaltak, 7alahsa7yaa, DISEASE, Blood_virtue, Specials_disease, address, eqyd_dat, ???1 ) " & vbCrLf & _ "SELECT TPstoudnt.id, TPstoudnt.RakamKomy, TPstoudnt.ForeName, TPstoudnt.Father, TPstoudnt.Grandfathername, TPstoudnt.FamilyName, TPstoudnt.csles, TPstoudnt.alsaf, TPstoudnt.elqyed, TPstoudnt.ELEDARH, TPstoudnt.elohafza, TPstoudnt.school, TPstoudnt.dyana, TPstoudnt.activ1, TPstoudnt.activ2, TPstoudnt.Mother_name, TPstoudnt.elryada, TPstoudnt.Phone_number_Father, TPstoudnt.jopfathr, TPstoudnt.School_fees, TPstoudnt.email, TPstoudnt.el7alat5asa, TPstoudnt.mol7zat_a5saey, TPstoudnt.ahoayat, TPstoudnt.o5ra, TPstoudnt.mo7awal_in, TPstoudnt.mo7awal_in2, TPstoudnt.othredarh, TPstoudnt.othrsvhool, TPstoudnt.almo7afza, TPstoudnt.detalta7wyl, TPstoudnt.photo, TPstoudnt.datalaltak, TPstoudnt.[7alahsa7yaa], TPstoudnt.DISEASE, TPstoudnt.Blood_virtue, TPstoudnt.Specials_disease, TPstoudnt.address, TPstoudnt.eqyd_dat, TPstoudnt.???1 " & vbCrLf & _ "FROM TPstoudnt " & vbCrLf & _ "WHERE (((TPstoudnt.alsaf)=6));" DoCmd.RunSQL "DELETE TPstoudnt.*, TPstoudnt.alsaf " & vbCrLf & _ "FROM TPstoudnt " & vbCrLf & _ "WHERE (((TPstoudnt.alsaf)=6));" DoCmd.RunSQL "UPDATE TPstoudnt SET TPstoudnt.alsaf = 6 " & vbCrLf & _ "WHERE (((TPstoudnt.alsaf)=5));" DoCmd.RunSQL "UPDATE TPstoudnt SET TPstoudnt.alsaf = 5 " & vbCrLf & _ "WHERE (((TPstoudnt.alsaf)=4));" DoCmd.RunSQL "UPDATE TPstoudnt SET TPstoudnt.alsaf = 4 " & vbCrLf & _ "WHERE (((TPstoudnt.alsaf)=3));" DoCmd.RunSQL "UPDATE TPstoudnt SET TPstoudnt.alsaf = 3 " & vbCrLf & _ "WHERE (((TPstoudnt.alsaf)=2));" DoCmd.RunSQL "UPDATE TPstoudnt SET TPstoudnt.alsaf = 2 " & vbCrLf & _ "WHERE (((TPstoudnt.alsaf)=1));" DoCmd.SetWarnings True DoCmd.SetWarnings True MsgBox "Êã" End If End Sub

تم الانتهاء من الكود التالى ولكن تظهر بعض الاخطاء DoCmd.SetWarnings False docmd.RunSQL"INSERT INTO TPstoudntE ( id, RakamKomy, ForeName, Father, Grandfathername, FamilyName, csles, alsaf, elqyed, ELEDARH, elohafza, school, dyana, activ1, activ2, Mother_name, elryada, Phone_number_Father, jopfathr, School_fees, email, el7alat5asa, mol7zat_a5saey, ahoayat, o5ra, mo7awal_in, mo7awal_in2, othredarh, othrsvhool, almo7afza, detalta7wyl, photo, datalaltak, 7alahsa7yaa, DISEASE, Blood_virtue, Specials_disease, address, eqyd_dat, حقل1 ) " & vbCrLf & _ "SELECT TPstoudnt.id, TPstoudnt.RakamKomy, TPstoudnt.ForeName, TPstoudnt.Father, TPstoudnt.Grandfathername, TPstoudnt.FamilyName, TPstoudnt.csles, TPstoudnt.alsaf, TPstoudnt.elqyed, TPstoudnt.ELEDARH, TPstoudnt.elohafza, TPstoudnt.school, TPstoudnt.dyana, TPstoudnt.activ1, TPstoudnt.activ2, TPstoudnt.Mother_name, TPstoudnt.elryada, TPstoudnt.Phone_number_Father, TPstoudnt.jopfathr, TPstoudnt.School_fees, TPstoudnt.email, TPstoudnt.el7alat5asa, TPstoudnt.mol7zat_a5saey, TPstoudnt.ahoayat, TPstoudnt.o5ra, TPstoudnt.mo7awal_in, TPstoudnt.mo7awal_in2, TPstoudnt.othredarh, TPstoudnt.othrsvhool, TPstoudnt.almo7afza, TPstoudnt.detalta7wyl, TPstoudnt.photo, TPstoudnt.datalaltak, TPstoudnt.[7alahsa7yaa], TPstoudnt.DISEASE, TPstoudnt.Blood_virtue, TPstoudnt.Specials_disease, TPstoudnt.address, TPstoudnt.eqyd_dat, TPstoudnt.حقل1 " & vbCrLf & _ "FROM TPstoudnt " & vbCrLf & _ "WHERE (((TPstoudnt.alsaf)=6));" docmd.RunSQL"DELETE TPstoudnt.*, TPstoudnt.alsaf " & vbCrLf & _ "FROM TPstoudnt " & vbCrLf & _ "WHERE (((TPstoudnt.alsaf)=6));" docmd.RunSQL"UPDATE TPstoudnt SET TPstoudnt.alsaf = 6 " & vbCrLf & _ "WHERE (((TPstoudnt.alsaf)=5));" docmd.RunSQL"UPDATE TPstoudnt SET TPstoudnt.alsaf = 5 " & vbCrLf & _ "WHERE (((TPstoudnt.alsaf)=4));" docmd.RunSQL "UPDATE TPstoudnt SET TPstoudnt.alsaf = 4 " & vbCrLf & _ "WHERE (((TPstoudnt.alsaf)=3));" docmd.RunSQL "UPDATE TPstoudnt SET TPstoudnt.alsaf = 3 " & vbCrLf & _ "WHERE (((TPstoudnt.alsaf)=2));" docmd.RunSQL "UPDATE TPstoudnt SET TPstoudnt.alsaf = 2 " & vbCrLf & _ "WHERE (((TPstoudnt.alsaf)=1));" DoCmd.SetWarnings True

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

حاولت ومش نحج مش عارف العيب فى ايه

هذا هوا الملف الذى يحتوى على الاستعلامات وجربت الاستعلام الاول ولكن هل يمكن جمع اكثر من استعلام فى الكود student7_2.rar

السلام عليكم تم التجربه على هذا الاستعلام DoCmd.SetWarnings False Docmd.RunSQL"strSql = "DELETE TPstoudnt.*, TPstoudnt.alsaf " & vbCrLf & _ "FROM TPstoudnt " & vbCrLf & _ "WHERE (((TPstoudnt.alsaf)=6));"" DoCmd.SetWarnings True هل هذكذا سليم ام لا وهل يمكن وضع استعلانمات متتاليه

ان شاء الله سوف اقوم بالعمل من بدايته افضل والحمد لله الاساتذه هنا لا تخل علينا باى حل لاى مشكله او اى افكر بارك الله فيك واستاذى وفيهم جميعاا

هل يمكن سحب الجداول فقط من الملف ام فى هذا اعتداء على حقوق الملكيه الفكريه الجدوال بها بيانات مهمه

بارك الله فيكم

بارك الله فيك دائما سباقا بالخير زرقنا الله واياك الجنة

بارك الله فيك دائما سباقا بالخير زرقنا الله واياك الجنة

بارك الله فيك استاذى الفاضل سوف اقوم بالدراسه جيدا ومحاوله الفهم والتطبيق الى ان احاول التطلبيق اتركك فى رعايه الله وحفظه