mrnooo2000

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

جرب هذا الكود Private Sub txtdate_AfterUpdate() If Format(Me.txtdate, "yyyy") <> Format(Date, "yyyy") Then If Format(Me.txtdate, "yyyy") > Format(Date, "yyyy") Then MsgBox "higher_year" txtdate = "" ElseIf Format(Me.txtdate, "yyyy") < Format(Date, "yyyy") Then…

تسلم اخى koao اتمنى ان يكون هذا مطلوبك اخى at_aziz zx.rar

اخى العزبز لقد اجابك اخونا احمد مبارك اليك البرنامج بعد التعديل Warehouses_System_up.rar

بعد اذن اخى عمانى تقضل اخى Private Sub txtdate_AfterUpdate() If Me.txtdate > Me.txt2 Then MsgBox ">" Me.txtdate = "" End If If Me.txtdate < Me.txt1 Then MsgBox "<" Me.txtdate = "" End If End Sub رسالة تنبيه فقط إذا كان تاريخ اليوم أكبر أو اصغر من تاريخ اليوم ا…

تفضل اخى ماتريد فى النموذج طبق نفس الشىء فى التقرير zx.rar

اولا احب اشكر الاخ عمانى فطريقته افضل بكثير ثانيا بالنسبة للكود القديم فبه تعديل بسيط xx = Right(xx, 5) If xx = "02/30" Then ثانيا بالمرفق طلبك الاخير 30-2.rar

ارفق كودك لفحصه

تفضل اخى الشرح مع الكود حساب العميل.rar

عدل الكود الى الاتى If IsNull(Me.a) Then MsgBox "ÇÏÎá ÑÞã ÇáÚãíá" Else Dim stDocName As String Dim stLinkCriteria As String stDocName = "tbltafaseltalapiat" DoCmd.OpenForm stDocName, , , stLinkCriteria End If

هذا شىء طبيعى جدا لانمربع النص غبر منضم اربط مربع اللنص بحقل فى الجدول

اسف اخى نسيت حذف النموذج الاخر ليس له ضرورة هذا هو طلبك 30-2.rar

اخى هذا ما وصلت اليه بناءا على معطياتك ارفق بياناتك فى ملف نصى و قاعدة بيانات بها جدول بالشكل المطلوب ( النهائى) ملاحظة حرف واحد قد يحدث فارق New تطبيق Microsoft Office Access.rar

هذا هو حلى لمشكلة التاريخ 30/2 و كذلك لعرض الشهر الهجرى 30-2.rar

تفضل اخى هذا ما طلبت و لكن اعتقد ان طلبك غير منطقى و لن يعطى النتيجة الصحيحة فالرقم هو 50 هللة و انت تريد ان يظهر 500 هللة بالنسبة لباقى المطلوب بخصوص التاريخ فسأحاول فيه ان شاء الله افادك الاخ omani db2.rar

هذا الملف للتصدير و الاستيراد export & import xls.rar

يمكنك اخى العزيز ان ترفق محاولتك و ستجد يد العون ممدودة ان شاء الله و لم اقصد الا تحفيزك و الله الموفق

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

مشكلتك انك لا تحاول التطبيق فيبدو انك تريد كل شىء جاهز عموما انصحك بجعل الاسماء فى الجدول بالانجليزية و قبل كل شىء يجب عليك ملاحظة الاكواد و محاولة التطبيق عليها لكى تتعلم و هذا مطلوبك New تطبيق Microsoft Office Access.rar

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