kanory

هكذا <<<<<>>>>>> DoCmd.OpenReport "rpt_class", acViewPreview, , "class Like '*" & Me.lst4.Column(1) & "*' AND class Like '*" & Me.lst4.Column(1) & "*'" دائما الشروط تكتب بين علامتي تنصيص انظر للكود بعد تفريغ الشرطين يصبح هكذا DoCmd.OpenReport "rpt_class", acViewPreview, , "هنا بكتب جميع الشروط والمعاريير" وهذا شكل الشرطين class Like '*" & Me.lst4.Column(1) & "*' AND class Like '*" & Me.lst4.Column(1) & "*'

بالعكس النتيجة شغال في الحالتين ..... فقط تأكد من اسم الجدول المرتبط .....

جميل اخي الكريم ....ز

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

بارك الله فيك ...... بالتوفيق ,,,,,,,

شركة واحدة فقط ....

بالنسبة للنقطة الاولى ... نعم ولكن اعتقد هناك طرق اخرى النقطة الثانية ممكن في التقرير الفرعي وممكن في التقرير المجمع ....

مثل هذا <<<<<<<>>>>>>> split.accdb

في حدث عند النقر المزدوج لـــــ lst4 ضع هذا الكود <<<<<<<>>>>>>> DoCmd.OpenReport "rpt_class", acViewPreview, , "class Like '*" & Me.lst4.Column(1) & "*'"

لاحظ الفرق بين ظهور الصف الاول من التقرير والصف الثاني من حيث السرعة !!!!! Nouveau Microsoft Access Database.accdb

حياك الله أبو زهرة ..... بارك الله فيك ... New Microsoft Access Database.rar

استخدم شيك بكس .....

بل VB افضل من حيث الحماية واخفاء ما تريد حمايتة وخاصة في مثالك تريد عدم التعديل الا برقم سري ..... لان الماكروا حتى بعد حماية القاعدة وتحويلها mde يمكن الاطلاع عليها وتعديلها

تفضل <<<<<<<>>>>>>> transport (3) (1).accdb

فاضية ؟؟؟؟؟؟؟ تقصد بيضاء بدل الصفر ..... صحيح ؟

متوافق اخي مع معظم النسخ ..... حاول فتح الموضوع السابق وطبق الشرحات بها حتى يعمل معك أو اضغط على Shift باستمرار مع تشغيل الملف ثم شغل النماذج من داخل البرنامج ...

تفضل <<<<<>>>>> v2016_183.zip

ليس لديك سجل به اصفار ولكن لديك بعض الحقول اصفار .....

انظر هنا <<<<<<<>>>>>>>>

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

حياك اخي الكريم ..... بالتوفيق

تاكد من هذه التعديلات بارك الله فيك >>>>>>> انظر الصور وطبق في نموذجك ........

حياك اخي @عبد اللطيف سلوم بالتوفيق ........

تفضل <<<<<<>>>>>> b2.accdb

استخدم قاعدة IF لاني اكتب على الموبايل تفضل <<<<<<>>>>>> Private Sub السيارة_جاهزة_Click() If Me.السيارة_جاهزة = True Then Me.السيارة_مغادرة = False ElseIf Me.السيارة_مغادرة = True Then Me.السيارة_جاهزة = False End If End Sub Private Sub السيارة_مغادرة_Click() If Me.السيارة_مغادرة = True Then Me.السيارة_جاهزة = False ElseIf Me.السيارة_جاهزة = True Then Me.السيارة_مغادرة = False End If End Sub مثال نعم لا.accdb