abouelhassan

زادكم الله من فضله استاذى @jjafferr وأستاذى @kanory

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

بارك الله فيك اخى الكريم @Eng.Qassim باشمهندس قاسم اشكرك نعم اخى هو كود استاذى الحبيب @احمد الفلاحجي ابو بسملة ربنا يراضيه يارب قمت بتبديل الكود اخى بالتالى If Me.chek = True Then Me.AllowAdditions = True Me.AllowEdits = True Me.AllowDeletions = True Else Me.AccountsType.Enabled = False Me.Registration_Date.Enabled = False Me.Pay.Enabled = True Me.Pay.Locked = False Me.Account.Enabled = False Me.Customer_ID.Enabled = False Me.Registration_Text.Enabled = False Me.Registration_document_Number.Enabled = False Me.Debit.Enabled = False Me.Creditor.Enabled = False Me.Balance.Enabled = False End If End Sub و تم الحمد لله بفضل الله وفضلك ها هو اخى الكريم زادك الله من فضله وبارك لك اخى الكريم اشكرك تقبل احترامى

حاولت اضافة هذه الجملة بس ما ضبطت If Len(Me.Pay & "") Then Me.AllowAdditions = True Me.AllowEdits = True end if

السلام عليكم اخوانى الافاضل هذا الكود الغرض منه فى حالة السجلات المتاحه للتعديل فالجدول تحمل القيمه نعم اى مؤشر على حقل الشيك بوكس والباقى لايمكن التعديل عليه والغرض منه عدم اتاحة التعديل على السجلات ناتج الفلترة Dim z As String, d As Integer z = DateSerial(Year(Date), Month(Date), 10) 'day 10 TempVars.Add "MonthNow", DateSerial(Year(Date), Month(Date), 1) d = DCount("*", "qryDcount") If Date >= z And d > 0 Then DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE Financial_Records SET Financial_Records.chek = False " & _ "WHERE (((Financial_Records.Registration_Date)<[TempVars]![MonthNow]));" DoCmd.SetWarnings True End If If Me.chek = True Then Me.AllowAdditions = True Me.AllowEdits = True Me.AllowDeletions = True Else Me.AllowAdditions = False Me.AllowEdits = False Me.AllowDeletions = False End If احتاج استثناء حالة الصرف Pay تكون متاحة للتعديل فى كل الحالات فى الفلتر اكون شاكر فضلكم اخوانى الافاضل الاعزاء بارك الله فيكم

شكر وتقدير واحترام من اخيك

السلام عليكم اخى استاذ احمد الفلاحجي بارك الله فيك وبك ولك اخى الكريم معلش استاذى احتاج استثناء الخلية Pay بحيث يتم تنفيذ الكود تمام كما هو ما عدا Pay يمكن تعديلها هل بالامكان مساعدتى اخى الكريم اكون شاكر فضلك وكرمك اخى

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

بارك الله فيك اخى نفذت التعديل يعمل فقط حال لم اختار فلترة باختيار مصدر تمويل يحضر كل مصادر التمويل اشكرك اخى الكريم ارجوا الاطلاع على المرفق اخى الكريم Test0.accdb

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

بارك الله فيك اخى الكريم جداااااااااااا تعمل ممتازة اتمنى توضيح اين يكمن التعديل بارك الله فيك باشمهندس قاسم اخى الحبيب زادك الله من فضله واكرمك اخى الكريم اللهم امين يارب استاذى الحبيب ابو جودي بارك الله فيك اخى الكريم جدااااااااااا فهمت التغير ويعمل تمام ممتاز زادك الله من فضله وكرمه اللهم امين يارب بس فى شئ اخى لعد تطبيق التعديل يظهر عندى مصدر التمويل رقم وليس اسم والمفروض انه كان يظهر اسم مصدر التمويل هكذا هنا لكى اتمكن من معرفة مصدر التمويل وامكانية تعديله حيث انه لدى اكثر من 100 مصدر تمويل ولن اتمكن من معرفت مصدر التمويل اذا كان رقم تقبل احترامى وتقديرى المرفق الاول Test1 يطهر مصدر التمويل رقم المرفق الثاى Test2 مصدر التمويل يظهر تمام اسم بس التعديل لم يعمل فيه بارك الله فيك اخى الكريم Test1(1).accdb Test2.rar

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

غفر الله لك استاذي الكريم وجزاك الله خيرا يارب هل من حل لهذا المشكل تقبل احترامي وتقديري لك اخي الكريم

كمان استاذى اكتشفت ان تعديل حضرتك بيحضر البيانات رقم مش اسم وانا كده مش هعرف اسم مصدر التمويل اعتقد اخى ان المشكلة تكمن فى المعيار الموجود بالاستعلام او بالاستعلام نفسه Like "*" & [forms]![Form1]![Customers]& "*" انظر اخى هنا التعديل الخاص بحضرتك مصدر التمويل رقم انا كده مش هعرف اسم مصدر التمويل لدى مصادر تمويل تتعدى100 احتاج اسماءها هل يمكن الاكتفاء بتعديل فى الاستعلام او كود لتنفيذ الفلترة بمصدر التمويل الى التقرير هكذا احترام وتقدير وخالص الدعاء

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

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

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

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

بارك الله فيك اخى حبيبى الباشمهندس Eng.Qassim ممكن حضرتك توضح لى السبب الله يرضى عنك اخى الكريم زادك الله من فضله وغفر لك اللهم امين

السلام عليكم اخوانى الافاضل احتاج من سيادتكم المساعدة فى تفسير سبب هنا قمت بعمل تصفية بالتاريخ من 1/7/2021 حتى 30/6/2022 كما بالصورة اخترت تقرير -اجمالىPDF-مصدر التمويل ظهر التقرير تمام قمت بعمل تصفية بواسطة مصدر التمويل كما بالصورة اخترت مصدر التمويل يوميات قمت ب اختيار تقرير -اجمالىPDF-مصدر التمويل ظهر التقرير هكذا فى حين عندما اعمل تصفية ب يوميات2 واختار التقرير يظهر البيانات احتاج معرفة سبب عدم ظهور التقرير فى حال عدم اختيار مصدر تمويل فى التصفية يظهر التقرير وعنداختيار التصفية فى مصدر التمويل يوميات لايظهر وظهوره تمام فى حال اختيار يوميات2 بارك الله فيكم اخوانى Test1.accdb

استاذى الحبيب Eng.Qassim بارك الله فيك تسلم ايدك وعينك يارب اخى الكريم حالة الصرف لايتم التصدير للكسيل تم ولم يتم بالرغم من انى عدلت جدول Report1 والاستعلامQuery1وQueryForExportوtempQry والكود xlWs.Cells(1, 14).Value = "حالة الصرف" xlWs.Cells(x, 14).Value = rs2.Fields("Pay") زادك الله من فضله وكرمه Ex-Test2.accdb

والله شرح ولا اروع استاذى الغالى @jjafferr بميزان حسناتك يارب ويديك الصحة والعافية ويبارك لك أن شاء الله

استاذى للاعتذار استاذى Eng.Qassim انا ارفقت ملف ليس به حالة الصرف ولكن الفلتر موجود ويعمل تمام بس احتاج كود بسيط يصدر للاكسيل اى ناتج فلترة اى فلترة تظهر يمكن ترحيلها للاكسيل ويكون بسيط اخى حتى اتمكن من فهمه بارك الله فيك اخى الكريم احترمى وتقديرى T2Q - Copy.accdb

ربنا يبارك لك ويغفر لك ولوالديك استاذى انا والله والله والله دعوا لك يوميا عن ظهر الغيب تقبل احترامى

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