Shivan Rekany

الان انا عم استخدم موبايل غدا ان شاء الله راح اعود

اتفضل اليك الكود Expr3: IIf(Right([F5];2)="-x";Replace([f5];"-x";"");[F5])

اخي @ابا جودى هل تريد بيطلع هكذا

قاعدتك كان بها اثنان حروف فقط هما C , X مع علامة "-" لذا خذ هذا لعمل السريع Expr2: Replace(Replace(Replace([pn_EGM];"-";"");"x";"");"C";"")

وجزاك الله كل خير

لا داعي للشكر استاذي الفاضل المهم ان تستفيد منه في اي وقت ممكن شكرا لك استاذي نريد منكم ان تستفيدوا منه وتساعدوا من يحتاج مساعدتكم

هدية : اكواد اكسس السلام عليكم ورحمة الله وبركاته اليكم هذه الهدية الصغيرة الحجم وكبيرة المنفعة ( باذن الله ) راح يساعدكم في عملكم http://codevba.com/ وهذه صورة لشريط الاكواد وهذه هو الملف codevba.zip وشكرا لاستاذنا جعفر على ادراج الرابط لكي لا يخالف الملكية الفكرية

اولا مبروک لكل اعضاء المنتدى انت هدية من الله عز وجل لنا وللمنتدى وبعدين اهنئك الترقية والف الف مبروك

شوف كود عند الفتح او القي نظرتا الى استعلام مصدر الكومبوبوكس

Private Sub Alhasm_AfterUpdate() Me.نص32 = Me.Alhasm / Me.n1 End Sub اتفضل مع القاعدة عملت فقط في فاتورة شراء اكمل الباقي برنامج مخزون.rar

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

شكرا لك استاذي الفاضل انا ما فتحت اليوتيوب بل فتحت الفيديو هنا لذا ما رأيت رابط التحميل شكرا لك مجددا و وفقك الله في جميع اعمالك

كالعادة عم اطلب ان ترفع مع شروحاتك ....... وشكرا لك على هذا الشرح الجميل تحياتي

جرب هذا الكود لعل قصدك بيكون هذا Private Sub SalleSMM_AfterUpdate() If Me.SalleSMM = "نعم" Then Me.ConnexSMM.Locked = False Me.ConnexSMMType.Locked = False Me.PcBurSMMT.Locked = False Me.ImpSMMT.Locked = False Me.PcBurSMMNF.Locked = False Me.ImpSMMNF.Locked = False Me.OndulSMMT.Locked = False Me.OndulSMMNF.Locked = False Me.PcPortSMMT.Locked = False Me.DataShowSMMT.Locked = False Me.PcPortSMMNF.Locked = False Me.DataShowSMMNF.Locked = False Else Me.ConnexSMM.Locked = True Me.ConnexSMMType.Locked = True Me.PcBurSMMT.Locked = True Me.ImpSMMT.Locked = True Me.PcBurSMMNF.Locked = True Me.ImpSMMNF.Locked = True Me.OndulSMMT.Locked = True Me.OndulSMMNF.Locked = True Me.PcPortSMMT.Locked = True Me.DataShowSMMT.Locked = True Me.PcPortSMMNF.Locked = True Me.DataShowSMMNF.Locked = True End If End Sub

غدا ان شاء الله راح القي نظرتا الى طلبك

اتفضل احتمال يكون ةهنالك فيه مطلبك والله يعلم تقبل تحياتي

بارك الله فيك وفينا اجمعين

اتفضل عملت لك فاتورة المبيعات وانت اعمل في فاتورة المشتريات واستخدمت هذا الكود Forms![فاتوره مبيعات]![تابع23]![name] = Forms![فاتوره مبيعات]!user1 برنامج مخزون.rar

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

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

اي يعني نعمل جدول خاص غير مرتبط لنموذج الامامي لكل جهاز تماما انا معك هذا ما كان في ذهني شكرا

مشاركة مع السيد @محمد ابو عبدالله من الافضل ان لا تستخدم ME.Undo لان اذا تريد ان لا يحذف السجل وكان من قبل كنت عمل عليه تعديل راح يرجعه الى مثل القبل هذا والله يعلم تحياتي

اخي @sandanet السلام عليكم ورحمة الله وبركاته انا معك على لكن هناك ملاحظة عند المشاركة اكثر من جهاز على القاعدة البيانات يجب ان نستخدم احد من الطرائق الاتية 1 / ان نأخذ الارقام هارد و ... الخ من الجهاز الاساسي وليس للجهاز المشترك ... اي يعني الجهاز المشترك يستخدم الارقام الجهاز الاساسي وليس لنفسه 2/ نستخدم كود IF مع OR وخزن النتيجة العملية الحسابية مع الكود 3/ ان نستخدم جدول وبيأخذ اكثر من سجل حسب المشاركتي السابقة تحياتي

مشاركتا مع السيد @محمد ابو عبدالله فرضنا اسم المربع النصي اللي تدخل التاريخ هو MyDateTascil استخدم هذا الكود قبل التحديث if Me.MyDateTascil > Date Then msgbox "لا يجوز تاريخ التسجيل الطلاب بيكون اكبر من التاريخ اليوم" Cancel = -1 endif