ابو جودي

اتفضل يا دكتور تم تعديل الاستعلام كذلك حذف من الفرعى (1).accdb

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

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

يا دكتور جرب استبدال الكود تبعك اللى على Listbox بالكود الاتى Dim mydb As dao.Database Dim rs As dao.Recordset Dim rss As dao.Recordset Dim str As String str = " [list] = '" & List20 & "'" Debug.Print List20 Set mydb = CurrentDb Set rs = mydb.OpenRecordset("analysis", dbOpenDynaset) rs.FindFirst str Set rss = mydb.OpenRecordset("special-det") rss.AddNew rss![id] = Me.id rss![Analysis] = rs.Fields(2) rss![normal] = rs.Fields(3) rss![Tam] = rs.Fields(4) rss.Update Me.special22.Requery

ببساطة تريد عمل فلتر على القيم True , False وكما اشار استاذى القدير @ناقل المرفق بصراحة اتعجب ممن يريد اجابه ولا يريد تعب نفسه بوضع مرفق ويستسهل تعب الاخرين الذين يريدون مساعدته وعلى من يريد تقديم المساعدة ان يحضر البخور العمانى ويضرب الودع ليفهم الية العمل وطريقة التفكير التى تمت بها القاعدة وللاسف ما عندى بخور عمانى الان

ممكن اطلع على مرفقكم استاذى

لا شكر على واجب أستاذي الفاضل ولكن فضلا وكرما وليس امرا تأشر بأفضل إجابة للأستاذ ناقل.. ليكون من المعلوم انه تمت الإجابة على السؤال

هذا كلام مفهوم وان شاء الله مقدور عليه بأمر الله ولمن استوقفتني تلك العبارة فعلا لم اقدر على الفهم

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

الله الله ان استطعت لجعلتها افضل إجابة تسلم الايادى استاذى القدير

انتم الأجمل أستاذي الجليل ومعلمي القدير و والدى الحبيب أستاذ @ابوخليل نعم استاذى وكذلك المرفق الأخير هذا يدعم كلتا النواتان 32 , 64 كذلك فقط هذا الاخير الذى اشرت اليه يعتمد على مكتبة جافا وملفات الـ dll الخاصة بها نعم أستاذي الجليل وذلك لما احسسته من صعوبة وعناء بعض أحبابي في طريقة تسجيل المكتبة لذلك اشرت في رأس الموضوع الى كل الموضوعات السابقة لتكون مجمعة في هذا الموضوع ليكون بمثابة البستان وليقطف منه كل من يريد ما تشتهيه نفسه من خلال متابعتي لأحبابي وردهم على المشاركات السابقة ونظرا لأهمية الموضوع حتى وأن البعض من احبابنا أراد أداة تسهل عملهم أمعنت النظر ليخرج بأبسط ما يمكن واقل تعقيد ليخدم الجميع... فقط لوجه الله تعالى جزانا الله وإياكم وكل المسلمين خيرا ان شاء الله فعلا الموضوع كان متعب جدا جدا جدا وتقريبا ظللت بدون نوم لفترات كبيرة بسببه.. ولكن من كان يهمهم هذا الموضوع اهميتهم عندي اكبر وانت على رأسهم أستاذي الجليل وفى النهاية الحمد لله تعالى الذى هدانا وما كنا لنهتدي لولا ان هدانا الله عزوجل فذلك فضل الله الذى تتم بنعمته الصالحات سبحانك اللهم لا علم لنا الا ما علمتنا انك انت العليم الحكيم

اسف جدا جدا انا فعلا نسيت الموضوع ده

اتفضل يا سيدى يتم عمل ملف text على القطاع D اسم الملف النصى : Officena f.accdb

ضع الكود الاتى قى الاستعلام مع تغيير اسم الجدول TblName باسم الجدول تبعك MyNum: DCount("ID","TblName","ID <=" & [ID])

السلام عليكم ورحمة الله تعالى وبركاته بعد جلسات العمل والنقاش هذه وأيضا تلك وأيضا تلك وأيضا تلك واخص فيها أستاذي الجليل ومعلمي القدير و والدى الحبيب أستاذ @ابوخليل له كل الشكر والتقدير وكذلك أصحاب المواضيع الذين حثوا الهمم لإخراج مثل هذا العمل اهداء الى منتدانا الحبيب واحبابنا الكرام اليكم كود الاستجابة السريع QR CODE (يدعم اللغة العربية) حسب متطلبات هيئة الزكاة والضريبة والجمارك السعودية علما انه يتم قراءة الرمز عبر قارىء خاص بالهيئة ( تطبيق جوال ) حمل من هنا : تطبيق هيئة الزكاة والضريبة والجمارك كما يتم قراءة الرمز عبر قارىء خاص من خلال موقع على الانترنت إذهب الى الموقع : من هنا الشرح ... مهم جدا مفيش أي شرح متطلبات التشغيل كالتالي : فقط يرجى التأكد من وجود الأداة qr.exe داخل مجلد باسم Reference في نفس مسار قاعدة البيانات اسالكم الدعاء بظهر الغيب لصديقي في العمل و الذى ساعدني في عمل ملف qr.exe أتمنى لكم تجربة ممتعة ... ================================================== KSA E-Invoicing QR-Code.zip

وبفضل الله تعالى هذا المرفق الاخير يمكن تجربة مسح الqrcode من هنا لقراءة البيانات منه https://aliphia.com/zatca-qrcode/#scan-using-file E-Invoicing.zip

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

جرب الاتى ولاخظ انك تختار اسم ومكان كل مجلد تحديدا حتى لو 100 مجلد او اكثر MD("D:\Officena\Access\VBA\a\b\c\d\e\f\g\h") MD("D:\Officena\Access\VBA\1\2\3\4\5\6\7\8") لو تقصد لازم التعديل من الكود فقط اقول لك لا اعمل جدول واعمل الدالة DLookup لتكون بذلك الشكل MD(DLookup("[FldName]","tblName")) وفى الجدول اكتب المسار الذى تريده طبعا ممكن تعمل معيار للدالة لاختيار حقل محدد وتسطيع عمل loop على كل سجلات الجدول لينشئ كل المجلدات بجانب او داخل بعضها او فى اماكن متفرقة دفعة واحدة بضغطة زر اذا كيف لا يتيح مرونة

اتفضل MdiaPlayer.zip

لازم رقم قومى مضبوط يا دكتور طبعا جرب الرقم ده يا دكتور 31710180101875 31407030101341

اعمل ضغط واصلاح للقاعدة اضغط القاعدة باى برنامج مثل winrar لو مازال الحجم كبيرا ارفعها على ميديا فاير او top4top وضع رابط الملف

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

لا شكر على واجب زكاة العلم نشره وانا اقل طالب علم فى خذا الصرح الشامخ

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

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