ابوخليل

تفضلوا من هنا

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

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 بت مفروض ان يتم في الاصدارات الاحدث ..

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

الكود شغال وندز 7 32 بت ............... شوف اخوي ازهر ابحث عن osk.exe في جهازك ثم عدل المسار

استخدم Dmax لتاريخ الزيارة بشرط قبل ادخال البيانات الجديدة وتاريخ اليوم

عندي في مثالك المرفق لا يتم حذف السجل بل يخرج من الحدث فقط ويبقى الترقيم التلقائي الجديد ظاهر ولو انتقلت الى مريض آخر سوف يبقى هذا الرقم في الجدول بدون بيانات سوى معرف المريض وان قمت بحذف السجل سيختفي هذا الرقم من الجدول لانه ترقيم تلقائي .. ولن يعيد ادراج هذا الرقم المحذوف _________ ان اردت ان يبقى الرقم لاستخدامه مع مريض آخر يجب عليك عمل ضابط بحيث لا يتم حفظ السجل والطريقة هي ان تجعل حقل التاريخ في خصائص الجدول : مطلوب=نعم ، وتضع زر للخروج بدون حفظ

عليكم السلام استبدل بهذا الكود Private Sub Doctor_AfterUpdate() Dim i As Date Dim ni As Byte i = Date ni = DCount("rdate", "request", "[id]=[Forms]![main]![ID]" & " and rdate=#" & i & "#") If ni > 0 Then MsgBox ("مكرر") Cancel = True Else rdate = i End If End Sub