ابو جودي

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

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

اتفضل جورج الطويل تعديل 3 .accdb

طيب مربع السرد ياللى باسم gender يتم استخدام الكود فى الحدث عند التغيير Private Sub gender_Change() Select Case Nz(gender, "") Case "": national = "" Case Is = "ذكر": national = "لبناني" wadeaa.RowSource = "متأهل;أعزب;مطلق;ارمل" wadeaa.Requery Case Is = "انثى": national = "لبنانية" wadeaa.RowSource = "متأهلة;عزباء;مطلقة;ارملة" End Select End Sub بخصوص الوضع العائلى لابد ان يكون مربع السرد wadeaa غر منضم وبدون مصدر التحكم وبعدين سوى بجواره مربع نص مخفى يكون مصدر التحكم حقه wadeaa ياللى كان تبع مربع السرد

اتفضل اعتقد علامة = بعد [dateread] غير موجوده والا ارفق مثال ="[Nameread]='" & [x1] & "'" And [dateread]= Between Nz([Forms]![fmainreader]![x2]) And Nz([Forms]![fmainreader]![x3])

اولا هذا المثال مبنى بتقنية ال HTML وبروفيسيور هذه التقنية هو الاستاذ @أبو إبراهيم الغامدي ولكن ملاحظة : المثال للاسف لا يعمل عندى .... أوفيس 2021 , 64Bit

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

اتفضل يا سيدى SetMultiPrinter.accdb

نعم يوجد تمكين الشفت.mdb

السلام عليكم ورحمة الله تعالى وبركاته انا افتقد الاستاذ جعفر كثيــــــــــرا... كل يوم اترقب دخوله الى المنتدى ارجوكم من يستطيع التواصل مع استاذى الجليل ومعلمى القدير الاستاذ @jjafferr لا يتردد عن ارسال السلام والتحية اليه واسال الله تعالى ان يعود الينا سالما غانما فى اقرب وقت

وعليكم السلام ورحمة الله تعالى وبركاته جزاكم الله خيرا يا دكتور شغل وشرح وصوت ولا اجمل و ولا اروع شكرا يا دكتور @SEMO.Pa3x لو تكرمت ممكن نسخة من السورس كود مفتوح المصدر يا دكتور للاداة المبرمجة بلغة NET. اسال الله تعالى الرحمة والعفو والغفران لكم و لكل المسلمين و لوالديكم و والداى وكل المسلمين برحمته التي وسعت كل شيء اللهم ان ابائنا قد احسنوا الينا منذ يوم ولادتنا اللهم وبحق هذا الاحسان ارحمهما و اغفر لهما برحمتك التى وسعت كل شيء اللهم ارحم من فى بطن الارض من ابائنا و استرهم يوم العرض يارب العالمين يا رب انت خلقتهم وانت اخذتهم وانت الرحيم فليس غيرك ارحم بهم اللهم ارحمهم و اغفر لهم اكرم نزلهم و وسع مدخلهم اللهم اجعل قبورهم روضه من رياض الجنة واجمعنا بهم في جنة النعيم برحمتك يا ارحم الراحمين مع النببين والصديقين والشهداء ارحم يارب من مات منهم بالدنيا ولم يمت في قلوبنا اللهم ارحمه فهو اغلى من فقدنا واسكنه فسيح جناتك يا ارحم الراحمين اللهم من بقى منهم فى هذه الدنيا بارك فى اعمارهم وارزقهم ثوب العافية وحبب الايمان الى قلوبهم وتقبل اعمالهم وارزقنا برهم وارض عنهم يارب واجعلهم راضين عنا يارب العالمين واحسن يارب خاتمتنا وخاتمتهم وكل المسلمين .. آمين آمين آمين 🤲

اتفضل الدائن والمدين.rar

انا كتبت لك الحل على فكرة واذا مش عارف تنفذ هذه قاعدتك بعد التعديل اجازات الضباط1 - Copy.zip

اللهم امين يارب العالمين 🤲

الموضوع اصلا من منتدى اوفيسنا ليش التكرار ؟ فى راس محرر اكواد النموذج تجد السطرين التاليين 'هذا مثال أعتز به فهو حقا إلتقاء للفكر العربى 'وكذالك من دواعى سرورى به مشاركتى العمل فيه خبير وعملاق من عمالقة أوفيسنا رمهان لان كنت انا صاحب الفكرة وتمت على يد الاستاذ @رمهان رجاء تقليل المواضيع المكرره والاكواد بالمسميات التى وضعتها 'هذا مثال أعتز به فهو حقا إلتقاء للفكر العربى 'وكذالك من دواعى سرورى به مشاركتى العمل فيه خبير وعملاق من عمالقة أوفيسنا رمهان ''رمهان ''اوفيسنا Private Sub comb_Search_AfterUpdate() On Error Resume Next Me.Filter = Nz(comb_Search, "id") & " Like ""*" & txt_Search & "*""": Me.FilterOn = True End Sub ''رمهان ''اوفيسنا Private Sub txt_Search_Change() On Error Resume Next FindAsType = txt_Search.Text Me.Filter = (Nz(comb_Search, "ID")) & " Like ""*" & FindAsType & "*""": Me.FilterOn = True txt_Search.SetFocus txt_Search = FindAsType txt_Search.SelStart = Len(FindAsType) End Sub يغلق للتكرار

اين مرفق القاعدة الرئيسية .

اتفضل 1- تاريخ اخر اضطرارية =Format(DMax("[التاريخ]","القطع1","[نوع الصرف] ='اضطرارية'"),"yyyy/mm/dd") 2- تاريخ اخر حافز =Format(DMax("[التاريخ]","القطع1","[نوع الصرف] ='حافز'"),"yyyy/mm/dd") 3- تاريخ اخر مغادرة =Format(DMax("[التاريخ]","القطع1","[نوع الصرف] ='مغادرة'"),"yyyy/mm/dd") 4- تاريخ اخر سنوية =Format(DMax("[التاريخ]","القطع1","[نوع الصرف] ='سنوية'"),"yyyy/mm/dd")

اذا ناوى تتعامل مع سيكوال يبقى سيب الاكسس وروح ل vb.net ولكن سيكون هناك اختلافات قليلة فى بناء الاكواد وبما انك نويت التغيير ما انصجك بال vb.net انصحك بالتوجه فورا وبدون تفكيــر لـ #C

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

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

يضاااااااااااااف للمكتبـــــــــه وقت الحصاد

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

وهذا تعديل من اخر ببعض التعديلات لالغاء الكمبو بوكس من النموذج الفرعى واخيرا اتمنى على الله تعالى ان لا تكون هناك تعديلات اخرى لات بجد تعبت خلاااااااص Test1(5).zip

طيب شوف كده Test1(4).accdb

تسلم ايدك فعلا