ابوخليل

السلام عليكم استغربت من تأخر الرد على موضوعك ، فدخلت وعرفت السبب مثالك المرفق سيء جدا حاول ان ترفع آخر غيره وحاول اختصاره على النموذج محل التعديل والنموذج الفرعي والجداول المرتبطة بالنموذجين فقط لدي بعض الملاحظات على الاكواد .. منها : استخدامك لـــ on error resune next في معظم الاكواد وهذا خطأ ... لانستخدم هذه العبارة الا في حالاات استثنائية قصوى ايضا وظيفة اخفاء الاطارات لاحظت تكرارها في غالب الاكواد ، وهذه الوظيفة لا تستخد الا عند فتح نموذج البداية

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

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

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

تفضلوا من هنا

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

vat = (Format(text4, "0000.00")) tax = (Format(text5, "000.00"))

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

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

لا تطبق على برنامجك فقط شغل المثال المرفق بعد لصق المجلد وتسجيل المكتبات المثال يعمل واعطيتك النتيجة بالصور

هذه هي النتيجة

نسيت شيئا فك الضغط عن الملف والصق المجلد بجميع محتوياته على قرص C ( منكم واليكم ابا جودي) Reference.rar

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

هذه محاول لتطبيق المرحلة الثانية تشفير البيانات ولكن التشفير لا يدعم العربية .. آمل من الاساتذتي الكرام ايجاد الحلول ايضا عنوان المؤسسة مقيد بـــ 12 حرف آمل ايضا من اساتذتي فك القيد ملحوظة : حمل تطبيق الهيئة من المتجر ( هو عبارة عن كيمرا لقراءة الكيو آر ) اسمه : E-Invoice Qr Reader استدراك : المثال المرفق امتداد لموضوع ابو جودي هنا DataQr.rar

يبدوا اني لم افهم مطلوبك في مشاركتك الأولى جيدا شكرا د.كاف يار

عليكم السلام عملك صحيح 100% فقط يوجد لديك مشكلة في النموذج الثاني او في قاعدة البيانات الافضل برأيي انك تنقل جميع كائنات مشروعك الى قاعدة جديدة اذا اردت اغلاق النموذج رقم1 اكتب في آخر الكود التالي : DoCmd.Close انظر مثالك بعد نقله الى قاعدة جديدة Database9.accdb

تفضل هذا الذي تمكنت من استعادته اتمنى ان يفي بالغرض adel2.rar

لا .. لا .. ليس بسعر البيع بل بسعر الشراء لان ربح السلعة ارجعتها الى الزبون وتبقى لديك سعر الشراء اقرب لك المسألة لما تبيع سلعة بدينارين يتم تسجيلها في حقل المبيعات لما يتم ارجاعها ( قلنا انها عملية شراء ) سيخرج من الصندوق دينار للزبون وسيدخل للمخزن سلعة بدينار عند الجرد وتدقيق الحسابات سيتضح كل شيء بناء على بنود التعريف (نوع العملية)

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

السلام عليكم اخوي حسين لا بد تنتبه لعملية المرتجعات ‘ وفي مثالك خلل يجب ان نعلم ان : مرتجع المورد = بيع ،،، ويسجل في حقل البيع مرتجع البيع = شراء ،،، ويسجل في حقل الشراء المهم بعد التعديل انظر المثال تم عمل استعلامين واحد لتجميع الكميات حسب الصنف والثاني لاستخراج الفرق بين المشتريات والمبيعات TEST_2.rar

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

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

مشاركة مع اخي موسى تفضل Dim ctl As Control For Each ctl In Me.Controls If xtyp <> "" Then Cancel = False Me.pay = "اجل" Else MsgBox "لا يمكن التسجيل الا بعد تعبئة حقل نوع الفاتورة " Cancel = True Undo Exit Sub End If Next ctl اضفت الكود مرتين في حدث قبل التحديث للنموذج وفي حدث زر الحفظ الاصل ان يتم النقر على زر الحفظ بعد اكتمال البيانات فإما يحفظ او يلغي جميع ما تم تسجيله ويمكنك تعطيل السطر Undo من اجل التسهيل على المستخدم وعدم اعادة كتابة البيانات وانما يكتفي باختيار نوع الفاتورة اما كوني كررت الكود في حدث قبل التحديث للنموذج حتى يتم منع الحفظ فيما لو تم اغلاق النموذج قبل الضغط على الزر امكانية التسجيل2.accdb

اخ عزيز .. اسعدني مرورك ومشاركتك ، وكل من شارك من اخوتي واحبتي لا يحضرني جهاز يحتوي على اصدار حديث ولكني اتوقع ان اظهار لوحة المفاتيح يتم من خلال سطر واحد كما في مشاركتي الاولى ، لانه ومن المنطق كما تم التشغيل في الاصدار 7_ 32 بت مفروض ان يتم في الاصدارات الاحدث ..

تمام احسنت صنعا ، ينصح دوما وبشدة بعدم ادخال الترقيم التلقائي ضمن الحقول المعرفة عند تصميم الجدول