أبوبسمله

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

اخى الفاضل @moopsiop وعليكم السلام اخى خالد لا تستاذن فنحن الذين نستاذنكم بالمشاركم فنتعلم منكم اخى العزيز جزاك الله خيرا مثال اخى اخالد افضل واقصر فالتعديل ضع الكود التالى فى حدث بعد التحديث وغير ما يلزم من اسماء الحقول والجدول الحقل = رقم الهويه الجدول = TABLE1 ID = اسم الحقل فالنموذج وانتبه هنا الاسم ممكن لعلك قد تكون غيرت الاسم بخلاف مصدر التحكم وهذا اذا كان حقل رقم الهويه نوع بياناته رقم Private Sub ID_AfterUpdate() If (DLookup("[رقم الهوية]", "TABLE1", "[رقم الهوية]=[ID]")) Then MsgBox "تنبيه الرقم المدخل " & " ( " & [ID] & " ) " & " عقوا... تم تسجيله مسبقا ُ جرب رقم آخر", vbCritical, "تنبيه" DoCmd.CancelEvent Me.Undo End If End Sub اذا كان نوع بيانات الحقل نصى ضع الكود التالى مع اتباع نفس التعليمات السابقه Private Sub ID_AfterUpdate() If (DLookup("[رقم الهوية]", "TABLE1", "[رقم الهوية]='" & [ID] & "'")) Then MsgBox "تنبيه الرقم المدخل " & " ( " & [ID] & " ) " & " عقوا... تم تسجيله مسبقا ُ جرب رقم آخر", vbCritical, "تنبيه" DoCmd.CancelEvent Me.Undo End If End Sub ان لم تستطع التعديل فارفق مثالك ليتم التعديل عليه اخى الفاضل تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

شوف اخى افاضل الحقل المراد فى المثال حقل رقمى فاذا كان عندك حقل نصى غيرالسطر بالسطر التالى وعدل CountNum = DCount("*", "date2", "[id]='" & [Forms]![d]![txt] & "'") تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

وفيك بارك الله اخى @Abu Farid واحاول معكم على قدر فهمى لاتعلم منكم ومعكم وتسلم ايدك على الاكواد الرائعه والبسيطه وجزاك الله خيرا على مشاركتك معنا لنتعلم منكم فمازلنا نحبو على الطريق تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

اخى الفاضل @Hussein888 اعتذر لك عن التاخير ولكن اعذرنى فاننى اجتهد فالتعلم ومازلت احبو عالطريق لاتعلم وعدم وجود مثال يجعل الوضع مرهق لاخوانك واساتذتنا فكل مثال يختلف عن الاخر فى طريقه عمله وضوابطه قمت بعمل هذا المثال ع حسب فهمى لسؤالك على امل ان يكون مطلبك وارجو ان تعذرنى وان تعذر اخوانك واساتذتنا وتلتمس لنا العذر تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق frmUPDate.accdb

وعليكم السلام ورحمه الله وبركاته اخى الفاضل فضلا لاامرا ارفق مثال لما تريد ارفق لك مثال عالسريع وعلى قد حالى لما فهمته منك فى حال كانت النماذج منبثق =لا وكذلك شكلى او مشروط = لا frm1 ; frm2 فى حال كانت النماذج منبثق =نعم وكذلك شكلى او مشروط = نعم frm3; frm4 ارجو ان يكون فى ذلك مساعدتك تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق frm.accdb

الشكر لله ثم لاخواننا واساتذتنا الافاضل ورحم الله والديك ووالدينا والمؤمنين والمؤمنات والمسلمين والمسلمات الاحياء منهم والاموات بالتوفيق اخى

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

وعليكم السلام اخى الفاضل شوف الرابط التالى تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

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

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

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

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

ماشاء الله لاقوه الا بالله اللهم صل وسلم وبارك على سيدنا محمد وآله ومن والاه معلم الامه بفضلك وكرمك ورحمتك يا ارحم الراحمين سؤال من استاذى الجليل @ابوخليل واجابات روعه من اخوتى واساتذتى @محمد ابوعبد الله و @Abu Farid وتعلمنا فيه دروس اكثر زادكم الله من فضله وعلمه اخوتى واساتذتى الكرام جزاكم الله خيرا تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

جزاك الله خيرا اخى @Abu Farid وكود جميل وممتاز بارك الله فيك وزادك الله من فضله وعلمه تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

السلام عليكم مشاركه مع اخى محمد @محمد ابوعبد الله واخى عبدالله اخى محمد @حلبي للحصول على الشهر السابق Private Sub Command2_Click() ' الشهر السابق Dim x1, x2 As Date x1 = DateSerial(Year(Date), Month(Date) - 1, 1) - 1 x2 = DateSerial(Year(Date), Month(Date), 0) myCriteria = "[T1].[COURSEDATE] Between #" & x1 & "# and #" & x2 & "#" 'myCriteria = "[T1].[COURSEDATE] Between DateSerial(Year(Date()), Month(Date()) - 1, 1) And DateSerial(Year(Date()), Month(Date()), 0)" Me.TSUB.Form.Filter = myCriteria Me.TSUB.Form.FilterOn = True End Sub لم تظبط معى للحصول على الشهر السابق عند الضغط مره اخرى للحصول على شهر 11 وهكذا ان شاء الله ساحاول غدا مع اخوانى تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

اخى الفاضل عماد محاوله منى على قد حالى وهى باستخدام نموذج رئيسى مع الفرعى المستمر الرئيسى لادخال البيانات وتظهر فالنموذج المستمر مباشره ولاكن لاتستطيع التعديل على t4 لانه مغلق واعذرنى فمازلت اتعلم معكم تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق PR1.mdb

وفيك بارك الله اخى واستاذى @Ali Mohamed Ali تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

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

وعليكم السلام مشاركه لاخى علاء و فضلا لا امرا عند وضع سؤال يرجى وضع مثال لما تريد وعلى حسب ما فهمت فالنموذج قف على الحقل t4 وفالخصائص تمكين = لا وممكن تضيف الخاصيه مؤمن معها = نعم تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

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

بارك الله فيك اخى @at_aziz بارك الله فيك اخى واستاذى @محمد سلامة نتعلم منكم ومن اخوانى واساتذتى وفقكم الله لما يحبه ويرضاه بارك الله فيك اخى @Abu Farid وان شاء الله اراك قريبا من خبراء منتدانا الغالى فلمساتك واضحه وفقكم الله لما يحبه ويرضاه اعاننى الله واياكم على خدمه اخواننا الكرام تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

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

بارك الله فيك اخى واعاننا الله على خدمتكم بالتوفيق اخى

الحمدلله اللذى بعمته تتم الصالحالت الشكر لله ثم لاخى واستاذى @kanory جزاه الله خيرا وجميع اساتذتنا بالتوفيق اخى