كيفية البحث في كامل الجدول من خلال نموذج فرعي

أرى أن مافيه ردود !!!!!!!!

إذا كانت هذه الطلبات صعبة جداً

فيمكن أن يكون البحث من النموذج الرئيسي ( نموذج Almuntdiat ) وإذا كانت هذه صعبة أيضا فأمري إلى الله أعمل نموذج ثالث وأضع فيه البحث ولكن هذا يكون حل أخير بعد أن نعجز عن إيجاد حل .

وأما نقل المتميزين إلى جدول المتميزين فإذا كان صعباً أيضاً هو الآخر فربما أعمل نموذج ثالث أيضاً يكون النقل من خلاله وهذا بعد اليأس من إيجاد حل .

وأما المشكلة الأخيرة فهي حساسة وأريدها ضروري لو سمحتم

مع أني مكوف منكم

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

إلى هذه الدرجة الطلب صعب !!!!!!!!!!

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

ما أود السؤال عنه هو :

هل كود التأكد من وجود السجل المحدد في الجدول الملحق إليه صحيح أم خاطئ ؟

أرجو ألا تبخلوا علي بالإجابة ...

وإليكم كود إلحاق السجل بجدول المتميزين مع التأكد من وجوده هناك :

DoCmd.SetWarnings False

' أريد فقط توجيهي في السطر التالي هل هو صحيح أم يحتاج إلى تعديل لأني أخذته من مشاركة قديمة
w = DLookup("[num]", "student", "[num]=m")

If IsNull(w) Then
	If MsgBox("سوف يتم نسخ السجل المحدد إلى جدول التميز" & vbCrLf & _
	"هل تريد بالتأكيد نسخ السجل المحدد", _
	vbInformation + vbYesNo, _
	"تأكيد نسخ سجل") = vbYes Then
	stDocName = "ToAltmyuz"
	DoCmd.OpenQuery stDocName, acNormal, acEdit

	DoCmd.SetWarnings True
	End If
Else
DoCmd.SetWarnings True
MsgBox "هذا السجل موجود مسبقاً ولا يمكن نسخه مرة أخرى", vbOKOnly, "تنبيه"
DoCmd.CancelEvent

End If
End Sub

وحل السؤال الثاني موجود في المرفقات

بقيت المسألة الثالثة والتي أتمنى مساعدتكم فيها بارك الله فيكم .

arabteam.rar

اخي الفاضل معاوية

السلام عليكم ورحمة الله وبركاته

خف علينا شويه الله يرحم والديك

دائما مستعجل وتريد الاجابة خلال دقيقه على الاقل اعطي الاعضاء فرصه يحاولوا

عموما هذا ملفك بعد التعديل بكافة الطلبات

لعمل بحث : اكتب اسم العضو او رقمه

مثلا اكتب رقم 5 او اكتب سعود ثم اضغط على زر البحث الجانبي ( على شكل منظار )

لاعادة البحث من جديد : اضغط على زر بحث جديد

لترحيل عضو للمميزين : اضغط على زر نسخ عضو الى التميز

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

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

اضفت لك محمد ورقمه 1 وسعود ورقمه 5 في المميزين حاول تضيفهم مره ثانية وشوف الرساله والاجراء

وهذا مثالك بعد التعديل

ArabTeam.rar

اختكم

زهره

أولاً : أشكرك أخت زهرة على الرد والإجابة ، وهذا ليس بغريب عليك .

ثانياً : أنا أقدر ظروف الجميع وأعرف أن لهم مشاغل كثيرة والكل يسأل والكل أيضاً يريد إجابة .

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

ثالثاً : أنا لم أرسل الرد الثاني والثالث إلا بعد مرور مايقارب 24 ساعة . أعتقد بأنها كثيرة جداً على شخص مطلوب منه البرنامج بعد يومين فقط . ( على فكرة البرنامج لأحد الأصدقاء وهو محتاج له وليس للبيع حتى لايفهم أحد خطأ )

و إذا كنت قلت كلمة جارحة أوغير ذلك فأعتذر بشدة .

عموماً أهم شيء هو صفاء القلوب .......... :D

على العكس اخي معاويه

بل حياك الله وبياك وعلى الرحب والسعة

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

لذا لم يحصل الا كل خير وبارك الله فيك

اختكم

زهره

هذا من طيب أخلاقك وصفاء معدنك كمت تعودنا منك