abouelhassan

استاذى الحبيب لقلبى احمد الفلاحجي @احمد الفلاحجي زادك الله من فضله يارب امين عندما طبقت هذا الكود لاستثناء حالة الصرف من الاغلاق عند العودة للسجلات التى لاينطبق عليها عليه الغلق اجدها مغلقة ايضا هل من مساعدة للتصحيح رجاء اخى 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 احترامى وتقديرى

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

شكر وتقدير وفائق الاحترام استاذى الحبيب لقلبى

متابع

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

جرب هذا التحقق من الانترنت.accdb

هل من جديد استاذنا لاستكمال الموضوع بارك الله فيك اخى

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

اخى الكريم اجد مشكلة فى استخدام كى بورد الجهاز عند الضغط 5+5 ثم انتر الناتج يظهر صفر مشكور اخى الكريم

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

زادكم الله من فضله استاذى @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 سجل واكثر وهل فيه استعلام اغير فيه والله احاول التطبيق والتعلم معلش شوية تفاصيل لاخيك ان شاء الله افه ما تتكرم علي وتشرحه لى لكى اقوم بالتنفيذ اخى سامحنى اذ اثقل عليك فهو من عشمى فيك اخى الكريم ان تعلمنى ممكن فضلك الله به اخى زادك ان شاء الله احترامى وتقديرى اخى