ابو جودي

جرب المرفق ده طيب وبعد كده نتفاهم قاعدة بيانات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

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

المرفق لو تكرمت

طيب بما انك عاوز تشتغل على الموضوع ده انا اولا تحت امرك واحاول بقدر المستطاع ان شاء الله تقديم المساعدة ولكن انا لاحظت الاتى قبل البدء اولا وبادئ زى بدء هناك بعض المشاكل مع كود التشفير وعلى الرغم من اننى قمت بتشفير كل بيانات الجدول الا اننى تراجعت مرة اخرى عن التشفير وعلشان حضرتك تتأكد من كلامى جرب اولا خد باك اب من القاعدة لانها هيحصل بها عطب ثانيا جرب عمل مستخدم جديد بهذا الاسم xxxxxxxxxxxxxxxxxxx سيتم اضافته ولكن لن يظهر الاسم جرب اضافى مستخدم باسم : Technical support وهنا ستحدث الفاجعة وتتعطل القاعدة الاسم الاول xxxxxxxxxxxxxxxxxxx عدد الحروف = 19 الاسم الثانى Technical support عدد الحروف = 17 راجع هذا الرابط قد تجد به فائده

بعد اذن اخويا الحبيب Shivan Rekany اتمنى ان يكون هذا طلبك ان شاء الله وببساطه وبدون اى استعلامات UnOpenForm_up.rar

حد جرب القاعدة المثال ؟

ممكن المرفق لو تكرمت

طلب حضرتك قتل بحثا فى هذا الموضوع

المرفق لو تكرمت

اتفضل ان شاء الله يكون ده طلبك غيرت هذا الجزء من الكود القديم ده (*.xls)", "*.xls") بهذا الكود (*.xls;*.xlsx)", "*.xls;*.xlsx") -2استيراد بيانات.rar