محتاج كود للذهاب الى سجل معين

[mom20088]

السلام عليكم

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

مرفق لكم قاعدة البيانات

New Microsoft Access Database.rar

[النجاشي]

31 دقائق مضت, mom20088 said:

السلام عليكم

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

مرفق لكم قاعدة البيانات

New Microsoft Access Database.rar

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

انا عملت لك طريقه ما ادري هل هي طلبك ام لا تفظل خذ نظره اليها

5555.rar

[mom20088]

للأسف مش هو ده الكود اللى أنا محتاجه

أنا محتاج لما أدخل تاريخ يبحث فى كل سجلات السنة مش فى سجل الشهر الحالى

يا ريت لو مساعدة من الأعضاء

تم تعديل سبتمبر 11, 2017 بواسطه mom20088

[mom20088]

ملحوظة هامة

القاعدة بتحتوى على نموذج رئيسى وبه شهور السنة ونموذج فرعى به أيام الشهر 

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

شكرا

للرفع

 

[mom20088]

للرفع

[النجاشي]

18 ساعات مضت, mom20088 said:

للأسف مش هو ده الكود اللى أنا محتاجه

أنا محتاج لما أدخل تاريخ يبحث فى كل سجلات السنة مش فى سجل الشهر الحالى

يا ريت لو مساعدة من الأعضاء

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

[رمهان]

جزيت خيرا اخينا ابو زاهر

اخي السائل

انا فكرت خارج الصندوق واعطيك فكرة سهلة

هذا الكود ليس به اوامر بحث ولكن قد يفي بالمطلوب

Private Sub Text21_AfterUpdate()
DoCmd.GoToRecord , , acGoTo, Month(Text21)
Me.DateMTarget_Subform.SetFocus
DoCmd.GoToRecord , , acGoTo, Day(Text21)
End Sub

جرب وان شاء الله تمام

تم تعديل سبتمبر 13, 2017 بواسطه رمهان

[mom20088]

شكرا أخى الكريم

تم تنفيذ المطلوب

[ابو جودي]

في 9/13/2017 at 20:44, رمهان said:

جزيت خيرا اخينا ابو زاهر

اخي السائل

انا فكرت خارج الصندوق واعطيك فكرة سهلة

هذا الكود ليس به اوامر بحث ولكن قد يفي بالمطلوب

Private Sub Text21_AfterUpdate()
DoCmd.GoToRecord , , acGoTo, Month(Text21)
Me.DateMTarget_Subform.SetFocus
DoCmd.GoToRecord , , acGoTo, Day(Text21)
End Sub

جرب وان شاء الله تمام

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

استاذى الجليل ومعلمى القدير واخى الحبيب استاذ/ @رمهان والله وحشتنى اللمسات الرمهانية 

[النجاشي]

في ‏١٣‏/‏٠٩‏/‏٢٠١٧ at 21:44, رمهان said:

جزيت خيرا اخينا ابو زاهر

اخي السائل

انا فكرت خارج الصندوق واعطيك فكرة سهلة

هذا الكود ليس به اوامر بحث ولكن قد يفي بالمطلوب

Private Sub Text21_AfterUpdate()
DoCmd.GoToRecord , , acGoTo, Month(Text21)
Me.DateMTarget_Subform.SetFocus
DoCmd.GoToRecord , , acGoTo, Day(Text21)
End Sub

جرب وان شاء الله تمام

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

أبو زاهر