Shivan Kurdi

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

شكرا لك استاذنا @ابو خليل تم التجربة ونجحت 100% والآن تبقى الاشكالية فيما لو تم التعديل فى تسميات بعض الحقول أو التعديل فى نوعية البيانات (كتغير من نص الى رقم أو الى true-false) المشكلة التي ليس لها حل هو ما خط بالاحمر ، اما تغيير الخصائص فليس مشكلة اصلا الا اذا تغير نوع البيانات المدخلة "ابو خليل" سامحوني لادخل في هذه الجزئية الصغيرة نقدر ان نعمل تعديل في تسميات بعض الحقول ايضا لكن بهذه الطريقة اي نعمل تعديل في مسميات بطريقة غير مباشرة ( خدعة ) اي نقدر اولا نعمل حقل جديد في جدولنا اللي احنا نريد ان نعدل تسمية لاحد حقوله وبعدين نعمل استعلام اوبديت للحقل القديم الى حقل الجديد بتسمية الجديدة وبعدين نحذف الحقل القديم وتم تجربة هذا ايضا ونجحت فيها 100% ايضا

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

اتفضل اليك الكود 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 لان اذا تريد ان لا يحذف السجل وكان من قبل كنت عمل عليه تعديل راح يرجعه الى مثل القبل هذا والله يعلم تحياتي