mostafaatiya

شكرا لمتابعتك وتعب حضرتك معايا وجعله الله في ميزان حسناتك انا قمت بالفعل بالتجربة ولكن بقيت المشكلة كما هيا قمت بعمل مثال بسيط لتوضح الفكرة في الشاشة الرئيسية يوجد جداول باسم TB_JOP TB_SCH TB_STU TB_STU1 TB_STU2 TB_STU3 ويوجد قاعدة بيانات باسم DATA محتاج اعمل استيراد للجداول الموجوده وتحمل اسم TB1 TB2 محتاج لما اعمل استيراد تم حذف الجدول TB1 وجدول TB2 فقط وتبقي باقي الجداول TB_JOP TB_SCH TB_STU TB_STU1 TB_STU2 TB_STU3 ولا يتم حذفها ولكن يتم حذف TB1 وجدول TB2 فقط في حين الاستيراد مرة اخري واسف علي تعب حضرتك معايا واتمني تكون الفكرة وصلت استيراد.rar

شكرا دكتور كاف يار بارك الله فيك الكود يعمل بنجاح ولكن البرنامج ده نقطة تجميع بيانات من اكثر من نسخة مثلا انا عندي 100 قاعدة بيانات بمختلف الاماكن وانا بجمع جميع البيانات دي الجداول واحدة ولا يتم تغيير اسمها لكن طبعا البيانات اللي مختلفة انا محتاج اعمل استيراد للجداول اللي هحددها زي ما حضرتك تكرمت وعدلت الكود تمام لكن محتاج اني لما اعمل استيراد ميمسحش جميع الجداول انا محتاج يمسح الجداول اللي انا محددها فقط مثال بسيط هعمل استيراد لــ 3 جداول فقط عايز لما اعمل استيراد تاني من قاعدة بيانات اخري يوم بحذف الــ 3 جداول اللي انا عملتلهم استيراد قبل كده وليس جميع الجداول وشكرا لحضرتك

شكرا دكتور كاف يار بارك الله فيك الكود يعمل بنجاح لكن الكود بيقوم بستيراد جميع الجداول وانا محتاج جداول محدده فقط يعني مثلا عندي 10 جداول انا محتاج اجيب اسحب 3 جداول فقط وليس جميع الجداول وشكرا لحضرتك

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

السلام عليكم ورحمه الله وبركاته بالملف المرفق كود من صنع الاخت زهرة يقوم باستيراد جدول محدد وليس ربط جداول تم وضع اسمه في الكود الذي يقوم بالامر ولكن حين قمت بنسخ الكود واستخدامة في اكسس2010 للاسف لا يعمل محتاج تعدل بسيط علي الكود حتي يصلح العمل عليه في حاله اكسس 2010 او اكسس 2003 وكود اقوم بالضغط عليه يقوم بحذف جداول اقوم بتحديد اسمها وجزاكم الله خيرا الملف بالمرفقات استيراد جدول.rar

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

شكرا لمتابعه حضرتك د كاف يار ولكن مش ده اللي انا اقصده انا محتاج كود اقوم من خلاله بتنفيذ العملية من خلال زرار الدفع وليس من خلال النموذج الفرعي بالنسبالي النموج الفرعي هو يعطي بيانات فقط من خلال بحثي في المنتدي وجدت هذا الكود ولكن لا اعرف اذا كان يقوم باللي انا محتاجة ام لاء وشكرا لحضرتك On Error GoTo enderr DoCmd.SetWarnings False 'النموذج Set Rs = Forms![frm_SlsInvHd]![frm_TInvDt].Form.RecordsetClone 'الجدول للتحري Set RsEdit = CurrentDb.OpenRecordset("Tbl_Items") Rs.MoveFirst 'دوران Do While Not Rs.EOF RsEdit.MoveFirst 'دوران للجدول Do Until RsEdit.EOF 'اذا وجد السجل If RsEdit!itname = Rs!itname Then 'تحريره RsEdit.Edit RsEdit!vlbleQ = RsEdit!vlbleQ + Rs!vlbleQ RsEdit.Update End If RsEdit.MoveNext Loop Rs.MoveNext Loop Set Rs = Nothing Set RsEdit = Nothing MsgBox " تم تعديل السجلات الى الجدول بنجاح ", vbInformation, "تم " Exit Sub enderr: MsgBox " خطا في البيانات ", vbInformation, "لم يتم التعديل" DoCmd.SetWarnings True

السلام عليكم ورحمه الله وبركاته محتاج كود تحديث وليس استعلام اذا امكن يوجد لديا نموذج formstudent يحتوي علي اسم الطالب + قيمة القسط + تاريخ الدفع + رقم القسط وعندي جدول الدفعات tbPayment ويحتوي علي كود الطالب + رقم القسط + قيمة القسط + تاريخ الدفع محتاج كود تحديث لما اقوم بتحديد الطالب + تحديد رقم القسط يتم تحديث الحقل في الجدول بناء علي الشرط الذي تم تحديده اللي هو كود الطالب ورقم القسط ويتم تحديث حقل قيمة القسط Payment بالمبلغ المحدد بالنموذج وتحديث حقل Paymentdata بالتاريخ المحدد بالنموذج مثلا مبسط يعني مثلا حدد احمد وحددت القسط الاول يتم تحديث قيمة القسط وتاريخ الدفع بناء علي هذا التحديث وان امكن اضافة رساله بمتابعه العملية او الغاءها وهكذا ولكم جزيل الشكر والتقدير كود تحديث.rar

شكرا جدا لحضرتك بارك الله فيك ولا يهمك يا فندم كفاية ردك علي الموضوع جزاك الله كل خير

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

السلام عليكم ورحمه الله وبركاته تشغيل استعلام الحاق بشرط عندي جدول tbdrgat ويحتوي علي كود الطالب - اسم الطالب - والسنه الدراسية - والترم اسم الطالب مكرر مرتين ترم اول وترم تاني عمل استعلام وجمعت الترم الاول والترم الثاني مع بعض يعني جمعت درجات الترم الاول والثاني وقمت باستخراج المتوسط للترمين محتاج اشغل استعلام الحاق لنفس الجدول بس بشرط انو يتم الالحاق مرة واحدة فقط وميقبلش عملية الالحاق مرة تانية لعدم تكرار البيانات وللاسف مفيش امكانية اني اضيف مفتاح اساسي لتفادي ها الخطأ وشكرا لحضرتكم جميعا استعلام الحاق.accdb

شكرا جدا لحضرتك د. كاف يار تم الاجابة بارك الله فيك وجعلة في ميزان حسناتك

UP

السلام عليكم ورحمه الله وبركاته مرفق بالملف كود الحاق بشرط لبيانات بنموذج غير منضم لجدول عندي جدول DATATB ونموذج FRM_DATA ويوجد بالنموذج كود الحاق بشرط لحقول غير منضمه محتاج اعدل في الكود علي اساس انو يعمل لرقم وليس لتاريخ الكود المرفق يتحقق من وجود تاريخ معين اذا سبق وتم ادخال هذا التاريخ للعميل لايقوم بالتسجيل وتظهر رسالة انه تم التسجيل من قبل لهذا العميل ده كلو موجود بالكود ولكن انا محتاج تعديل الكود ان يتحقق من ID العميل و YearCODE العام يعني لو العميل اللي رقم هويته 2013 تم تسجيلة في عام 2020 وانا جيت في نفس العام اضيفة يظهر رسالة بان العميل تم تسجيلة من قبل ولا يقوم بالتسجيل واذا كان العميل لا يتم تسجيلة لهذا العام يسجل عادي ده الكود Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From DATATB Where [ID]=" & Me.ID) rst.FindFirst "[data_eldfa1]=" & DateFormat(Me.d1) If rst.NoMatch = False Then MsgBox "سبق وتم تسجيل رقم الهوية لها العام" Exit Sub End If For i = 0 To Me.f - 1 rst.AddNew rst!ID = Me.ID rst!NAMEClient = Me.NAMEClient rst!Governorate = Me.Governorate rst!YearCODE = Me.YearCODE rst.Update Next i MsgBox "تم الالحاق بنجاح" وده السطر تحديدا اللي محتاج اعدل عليه rst.FindFirst "[data_eldfa1]=" & DateFormat(Me.d1) الملف بالمرفقات ولكم جزيل الشكر الحاق بشرط.accdb

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

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

تسلم ايدك ياريس ده المطلوب ولكن يوجد ملحوظة صغيره هل من الممكن تعديل الكود واضافة النصف يعني مثلا انا لما بدخل الدرجة 15.5 بيجبر الدرجة في المجموع الي 15 محتاج اني الطالب مثلا جاب 10.5 يتم حساب النصف ولا يتم جبر النصف الي رقم صحيح وشكرا لحضرتك

السلام عليكم ورحمه الله يوجد بالملف نموذج وبه 10 حقول غير منضم محتاج اجمع مجموع الــ 10 حقول في خانة المجموع واذا تركت حقل فارغ يتم الجمع يعني مثلا عني الترتيب من الاولي الي العاشر ادخل الدرجة الاولي والثانية والسادسة والتاسعه مثلا يتم حساب الدرجات المدخلة حتي واا كان فيه حقول فارغه وشكرا لكم جزيل دالة جمع.accdb

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

السلام عليكم ورحمه الله وبركاته محتاج اعمل الرسم البياني الموجود علي الصورة وتطبيقة علي الملف الموجود ولكم جزيل الشكر المصنف1.xlsx

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

السلام عليكم ورحمه الله وبركاته كنت محتاج دالة لجبر الكسور في الاستعلام يعني مثلا عندي الرقم ( 11.3333333 ) محتاج يتجبر الي ( 11.5 ) مثلا او ( 11.7777777 ) يتجبر الي ( 12 ) او يبقي كما هو مثلا الي ( 11.7 ) وشكرا

up

السلام عليكم ورحمه الله وبركاته برنامج الحماية الخاص بالاستاذ رضا عقيل بيسهل كتير جدا علينا في عمل الحماية علي اي برنامج وكمان من افضل ما في البرنامج هو عمل نسخة تجريبية للمشروع اتمني عملية التعديل علي البرنامج ليتوافق مع نسخة اوفيس 2010 حيث ان البرنامج يعمل علي اوفيس 2003 فقط وحولت اطبق العمل علي اوفيس 2010 لكن للاسف منفعش اتمني من الاخوة الكرام او الاستاذ رضا عقيل عملية التعديل علي البرنامج ليتوافق مع نسخة اوفيس 2010 فما فوق للعلم البرنامج مفتوح المصدر وليس عليه اي حماية من خلال الاستاذ رضا عقيل ملف الحماية حماية برامج الأكسس.rar

شكرا جدا لحضرتك وجزاك الله خير هو المطلوب بارك الله فيك