نجوم المشاركات

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

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

جميل جدا ابا جودي حيث ان المثال اعطى مساحة لعدد الحروف وايضا راعى النظامين 32 ، 64 طبعا انت الغيت المكتبة الخاصة بمعالجة رمز Qr واستبدلتها بملف تنفيذي خارج بيئة اكسس يحتوي ايضا على عمليات التشفير ( hex و base64 ) بمعنى انها اختفت عن من يريد التعلم . المثال جميل ومحكم لمن يريد الحاق هذه الخدمة لبرنامجه جزاك الله خيرا وشكرا على الساعات الطوال والايام التي قضيتها للوصول الى المطلوب

أخي @tlayt kamal أعتقد أن طريقتك غير مناسبة لحفظ بيانات المنخرطين أو ( المشتركين) بالطريقة التي تريدها .. حيث أنها ستسبب لك مشكلة كبيرة في قاعدة البيانات في المستقبل عندما يصبح عدد المشتركين كبيرا .. ستمتلئ القاعدة بالجداول وستتوقف عن العمل بعد فترة .. الطريقة الصحيحة هي عمل جدول واحد به بيانات جميع المشتركين وربطه بجدول البيانات الأساسي .. بهذه الطريقة : وعمل فورم لإدخال المشتركين وإضافة بياناتهم بالمرة عن طريق نموذج فرعي هكذا : وهذا الملف المعدل : AMAN.accdb

In worksheet module put the code Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("C5:CJ5")) Is Nothing Then Application.EnableEvents = False If Target.Cells.CountLarge > 1 Then Target(1).Select Application.EnableEvents = True End If End Sub

لكم من ألف شكر وجزاكم الله خيرا

منكم تعلمنا استاذي الفاضل .... بارك الله فيك وفي اخلاقك النبيلة ..

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

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

تفضل ..... f (1).accdb Dim FileNum As Integer Dim msgstyle FileNum = FreeFile Open "D:\officena.txt" For Append As #1 Print #1, Forms!pay!f; "" Close FileNum MsgBox Space(20) & "تمت العملية بنجاح..تجد الملف باسم D:\officena" & Space(20), msgstyle, "للمعلومية"

كنت اظن انك ستبحث عن وظيفة تدرج كمديول تقوم بعمل المكتبة وهذا لا يخص المواصفات السعودية بل هو في صميم انشاء الرمز

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

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

تفضل أخي محمود : طباعة تقرير بشرط.rar

1 - بيانات الدفع كلها تتخزن في الجدول Details 2- نعم بالضبط .. فورم خاص بالبحث عن الفترات التي تحددها ( من تاريخ ) ( إلى تاريخ ) .. أو تضيف حقل [نعم/لا] في جدول Details لكي تختار الفترات المراد دفعها .. 3 - الفاتورة تكون مستندة على الاستعلام الذي يفرز لك السجلات في رقم 2 .

اذن : حاول تصغير الهوامش في اعدادات الصفحة .....

نعم ممكن أخي العزيز عمل استعلام من خلاله أنت تختار الفترة التي تريدها أن تظهر ..

تفضلوا من هنا

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

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

السلام عليكم بالاضافة الى ما تفضل به استاذنا الفاضل Mossak وله الشكر تفضل اخي الكريم user..date..date.rar تحياتي

سلمت يمينك يا شيخ

أستاذ Kareem.Omar أين الضغط على الإعجاب لهذه الإجابة الممتازة ؟!!!💙

الى جميع الاخوى الاعضاء اضع بين ايدكم في منتدانا الكريم على ال جميع بلمعلومات ملف عله نستفيد منه والعطاء لله ومن الله تكرمون وتقبلو تحياني local_month_and_day_names.rar

أخي علي جزاك الله خيرا و جعله في موازين حسناتكم

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