ابو جودي

السلام عليكم كل الشكر والتقدير للاستاذ شيفان ويعد اذن استاذى الحبيب شيفان ممكن ارفق الملف مرة اخرى بتعديل بسيط شيكات.rar

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

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

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

اعتذر لضيق وقتى بالامس من عدم محاولة تلبية طلب اخينا الحبيب الفايع وكل الشكر والتقدير لاخينا الحبيب Shivan Rekany النتيجة رائعة جدا جدا

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

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

في باقي حقل total ممكن توضح اكثر هل قصدك total فى نموذج sear تساوى total فى نموذج wared لو كان ده طلب حضرتك اتفضل جرب المرفق بالنسبة للشرح معلش اعذرنى انا مضطر للمغادرة الان ولكن ممكن حضرتك تراج المشاركة هنا فيها الشرح تفصيلا قاعدة بيانات4_up.rar

جرب المرفق ده طيب وبعد كده نتفاهم قاعدة بيانات4_Backup.rar

وبعد الضغط على مفتاح خط سير المعاملة يتم فتح النموذج sear ويكون رقم القيد في هذا النموذج هو نفس القيد في النموذج wared هل يكون هناك اى بيانات اخرى غير رقم القيد فى هذا النموذج ؟

طيب مفروض بعد ملئ البيانات ايه اللى يحصل ؟! اضغط زر حفظ واعادة توجيــــه

ابدأ باى نموذج ؟ sear ام sears

طيب معلش هتعب حضرتك خلينا نبدأ من الاول خالص المفروض ابدأ باى نموذج ؟ sear ام sears

افكار رائعة فعلا تسلم ايدك

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

يعنى المرفق الاخير ده اللى شغال وحضرتك عاوز تنقل فكره منه الى المرفق بالمشاركة الأولى ؟

اولا مافى اى فايروسات يجوز من سيرفر موقع رفع الملفات ودى القاعدة وتقليلا لحجم القاعدة ارفقتها بدون اى صور اخى الحبيب الفايع يفضل وضع الثور مرتبطة فى مجلد خاص بها فى نفس مسار قاعدة البيانات تقليلا لحجم قاعدة البيانات قاعدة بيانات.rar

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

ارفع البرنامج على اى موقع رفع ملفات مش لازم ترفقه فى المنتدى علشان المساحة

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

السلام عليكم ورحمة الله تعالى وبركاته استاذى الحبيب ومعلمى الجليل ممكن سؤال على استحياء مال الحكمة من قول حضرتك مع التنبيه انه يتم تشغيل الاستعلام اولا ثم النقر على الزر ولماذا لم تقم بعمل الكود بهذا الشكل فيتم الضغط على الزر مباشرة فيشغل الاستعلام اولا ثم الكود البرمجى بعد الاستعلام ؟!!!!!! Private Sub Command0_Click() DoCmd.SetWarnings False DoCmd.OpenQuery "استعلام اضافة بيانات" DoCmd.SetWarnings True Set rs = CurrentDb.OpenRecordset("select * from emp where [اسم الموظف] Like '" & [Text1] & "*'"): rs.MoveFirst Set rs1 = CurrentDb.OpenRecordset("select * from transfer where [اسم الموظف] Like '" & [Text1] & "*'"): rs1.MoveFirst While Not rs.EOF Set rs2 = rs.Fields(7).Value Set rs3 = rs1.Fields(7).Value rs1.Edit While Not rs2.EOF rs3.AddNew rs3!FileName = rs2!FileName rs3!FileData = rs2!FileData rs3.Update rs2.MoveNext Wend rs1.Update rs.MoveNext rs1.MoveNext Wend End Sub _upمثال1.rar

اخى الحبيب اولا محدش فاهم خط سير الجداول ولا الية عمل البرنامج المشكلة التانية لو حد حابب يحلل البرنامج من الالف الى الياء حتى يستطيع فهم ما سبق البرنامج مش كامل يعنى انا عن نفسي مش قادر افهم النتيجة اللى انا وصلت لها ادت المطلوب واللا لاء على كل حال جرب الاتى فى نموذج الـ sadrt على زر الامر إضافة خط سير (توجيه) (إحالة ) جرب الكود الاتى وياريت لو توضح الية العمل وترفق القاعدة كاملة DoCmd.OpenForm "sear", , , "[no]=" & Me![number]

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

اعتذر على التاخير كنت باصلى انظر التعديل على المرفق هذا الكود هو الخاص بتطبيق الصلاحيات على النماذج Private Sub Form_Open(Cancel As Integer) FrmAbilities (Me.Name) If ContinueCode = False Then Exit Sub End Sub Dlookup_up2.rar