أبو إبراهيم الغامدي

أهلا حنان.. ☺️ لا أكتمكِ سراً.. بعد أن ضمّنت ميكروسوفت أكسس بعنصر التحكم <Edge Browser Control> أنفقت وقتاً كبيراً في استكشافه! ولم أخرج من ذلك بشيء يمكن أن يكون صالحاً للنشر! لكن إذا كان هناك سؤال في جزئيةٍ محددة، سوف أجيبكِ على قدر ما وصلت إليه إن شاء الله، ولكن في مشاركةٍ مستقلة!

أهلا حنان.. لا، لا يلزمكِ هذا، لأننا نضع الشروط في جملة <Where> قبل أن تظهر البيانات على النموذج.. أما عن شريط التمرير الرأسي [المعيب] الذي يظهر في وضعية النموذج المستمر <Continuous Forms> فيمكن معالجة الأمر بطريقتين -- إما باستخدام النموذج الفرعي، وهذا مألوف ومعروف عند الجميع.. -- وإما باستخدام النموذج في وضعية النموذج المنقسم <Split Form>، وهذا الثاني في نظري أجمل! ؟ هل يؤثر الاستعلام الحرفي في سرعة الاستجابة.. جربت البحث الحرفي على ملف نصي بصيغة <CSV> به [200،000] سجل (موصل Linked) عن طريق الاستعلام ولم أر تأخراً ملحوظاً في الاستجابة.. التعديل التالي به تطبيق للمفاهيم سابقة الذكر.. Search By Characters.zip

يمكنكِ استخدام المعامل "Like" بدلا من المعامل "=" بهذه الطريقة Me.RecordSource ="Select * From TblLabData Where Ege Like '*" & Me.TxtSearch & "*'" وهذا مثال بالبيانات أعلاه Search By Characters.accdb

أرجو إن كان لك اتصال مباشر بالأستاذ فادي أبو وسام، أن تقول له نيابة عني.. لا بأس، طهور إن شاء الله.. اللهم رب الناس أذهب البأس، اشفه وأنت الشافي، لا شفاء إلا شفاؤك، شفاءً لا يغادر سقما.

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

لا تقلق! إنما هو عتاب محب لأحبابه ومكانتكما عندي عالية علو سهيل.. بداية جيدة وفالٌ حسن.. تسمية الجداول يدل على أن هناك معرفة مكتسبة من ZATCA!.. للأسف الجهاز الذي أعمل عليه لا يوجد به برنامج أكسس لكن.. هل قمتما بقراءة المراجع التي أرفقتها؟ أريد جوابا بنعم أو لا.. لأنه إذا كان الجواب بنعم سوف أقوم باستخدام المصطلحات التي فيها بدلا عن الكلمات والمعاني العربية!

نعم يا أبا متعب! ولكن نريدك أن تغبر يديك وتنقب معنا، لأنك من أصحاب المشاركة، ومعني بالدرجة الأولى..

يا أبا حاتم، بالفعل أنا أعطيتك الخطوات التي يجب أن تبداء بها وإذا لم توفق لفهم الخطوات فهذا يعني أنك لست بمطور نظم! فاصرف همتك لأمر أكثر ملائمة لقدراتك. يجب أن نهتم أولا بإنشاء قاعدة بيانات بمتطلبات المكلف، وأيضا متطلبات الزكاة والدخل (ZATCA).. لا يمكن أن نبدأ أبدا بدون قاعدة بيانات تحتوي على الجداول التالية -- جدول بيانات المكلف -- جدول بيانات رأس الفاتورة -- جدول البيانات التفصيلية للفاتورة -- جدول تذييل الفاتورة (إن لزم الأمر) -- جدول الموردين -- جدول العملاء (منشاءات أو أفراد) يمكن استخدام قاعدة بيانات (NorthWind) كمثال للتأسيس.. لابد وبشدة أن تتصور أنك تجلس مع مكلف وتناقشة في قاعدة البيانات التي تتضمن بيانات الفاتورة وتنظر إلى أي مدى توافق متطلبات المكلف مع متطلبات ZATCA.. المراجع التالية لا غني عنها في فهم المرحلة الثانية من الفوترة! صفحات قليلة يمكن أكلها مع براد شاى بعد العصر.. E-invoicing Resolution.pdfE-Invoicing-Detailed-Guidelines.pdf أتمنى للجميع التوفيق والسداد

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

الآن هنا من يريد أن يتعلم! إذن لدينا بعض الخطوات التي يجب أن نقوم بها قبل الشروع في تطوير النظام البرمجي.. 1. الجلوس مع المكلف (دافع الضرائب) لمعرفة ماهية نشاطة التجاري. 2. البيانات التي يطلبها المكلف في مراقبة نشاطه التجاري. 3. تتميم هذه البيانات بمتطلبات ZATCA في بيانات الفاتورة. 4. تمثيل متطلبات المكلف و ZATCA واقعيا في قاعدة بيانات أكسس. 5. التسجيل في منصة المطورون التجريبية، وتنزل حزمة SDK والمراجع المتعلقة بها. البيئة التجريبية لطلبات التكامل والربط ضمن واجهة برمجة التطبيقات (API) مجموعة أدوات التحقق من الامتثال وحزمة أدوات تطوير البرمجياتت تنزيل جافا SE 11 ومافوق.. 6. تنزيل المراجع التعريفية بنظام الفوترة لمعرفة المصطلحات ورموزها للتعود على ذلك أثناء المناقشة هنا. الموارد التعليمية أتمنى ممن يريد أن يتعلم أن يكون جاداً، لأن مشوار الربط والتكامل طويل ويحتاج إلى صبر! وأنا رجل ملول، قد أترك الشرح ثم أعود إليه، وما على المحسنين سبيل.. أتمنى أن يقوم كل متعلم ببناء قاعدة البيانات التي تخصه ولا يرسلها إلى المشاركة، وسوف أقوم أنا أو أحد المتبرعين ببناء قاعدة بيانات بناءً على اقتراحات المشارين.. ألهمِ اللهُ الجميع الفهم والصبر..

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

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

أهلا بك أ. @محمد احمد لطفى في فريق الخبراء.. أرجو أن يتهيأ لك الوقت لترينا بعضاً من فرائدك البرمجية!

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

وعليكم السلام... افتح مشاركة جديدة

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

أهلا بك @عبد الله قدور ليس الأمر كذلك! كل مافي الأمر أن عرض الصورة غير مرتبط بمصدر بيانات النموذج.. الصورة في مثالك لها تنسيق مختلف عن نسق الصور التقليدي! ولأنها معالجة بطريقة مختلفة فلن تظهر في عارض الصور.. حاولت معالجة الصورة لكني لم أصل إلى حل إلى الآن.. إذا كانت الصور المخزنة في الجدول جميعها بهذا النسق، فسوف أبحث عن حل قدر المستطاع.. إن شاء الله بالنسبة لمثالك قمت بالتعديل عليه حتى تتمكن من الإضافة التعديل والحفظ Database8.accdb

وعليكم السلام أستاذ @عبد الله قدور الأستاذ @ابو البشر ذهب بعيداً..! بسبب التوصيف غير الواضح في الاقتباس ("لقد قمت بتخزين صورة في كائن ole")، وما ينبغي أن تكون علي العبارة ("لقد قمت بتخزين صورة في حقل ole") لعرض الصورة المخزنة في حقل OLE يتطلب الأمر عنصر تحكم Image، وباستخدام الخصيصة PictureData يمكن عرض الصورة Me.ImgViewer.PictureData([Your OLE Fied]) المثال المرفق يقوم بتخزين الصورة في حقل OLE ومن ثم عرضها باستخدام عنصر التحكم Image PictureViewer.accdb

أهلا @Foksh في ظني أن هذا ملف وورد غُيرتْ لاحقة الملف إلى accdb! هذا كل ما في الأمر! جميع تطبيقات أوفس التي تعتمد على ملفات XML في بنائها هي من هذا القبيل! ميزة 7z أن كل ملف يمكن إجراء فك الضغط عليه! جرب إنشاء ملف (وورد، أكسل، بوربوينت،..) وقم بفك الضغط عنه باستخدام 7z سوف تجد نفس النتيجة!! الهنود، يستخدمون هذا الاسلوب لكسر كلمة المرور لهذه الملفات!! جرب مع أكسل! هذا لا ينطبق على أكسس لأنه لا يعتمد على XML في بنائه!!

أهلا بالجميع.. الحقيقة أن الزملاء قاموا بعمل جبار في تطويع أكسس للإنجاز الفكرة.. بارك الله في الجهود.. تحقيق طريقة HTML مع أكسس أرى أن فيها صعوبة! ولم أجرب فعل ذلك.. لكن استخدام محتوى HTML في أكسس، فذلك ممكن... Pattern_Keypad_ADB.zip

وعليكم اسلام @عبد الله قدور الغلط في القطعة التالية من الشفرة ' تمرير قيم المعلمات .Parameters.Append .CreateParameter("@Param1", adInteger, adParamInput, , 123) .Parameters.Append .CreateParameter("@Param2", adVarChar, adParamInput, 50, "SampleValue") .Parameters.Append .CreateParameter("@Param3", adDate, adParamInput, , Date) عند إنشاء المحدد لا يجب أن يقترن بالمعامل (@). هذا الإقتران يكون عند إنشاء الإجراء فقط.. قم بإزالة المعامل فقط ' تمرير قيم المعلمات .Parameters.Append .CreateParameter("Param1", adInteger, adParamInput, , 123) .Parameters.Append .CreateParameter("Param2", adVarChar, adParamInput, 50, "SampleValue") .Parameters.Append .CreateParameter("Param3", adDate, adParamInput, , Date) إذا أردت اعطاء المحددات قيمة جديدة لا تقم بإنشاءها مرة أخري.. فقط مرر القيم الجديدة بالطرية التالية Param1.Value=Id Param2.Value=Name Param3.Value=Date ComObj.Parametrs.Refresh

كنت تعرف؟! هذا يعني أنك في ذلك التاريخ كنت راشداً!! (؟2+23=>؟؟) نحن بحاجة إلى @شايب لحل هذي المعادلة...

على الرحب والسعة! هناك أمر آخر يمكن استخدامه لهذا الغرض غاب عن بالي لقلة من يهتم له! ألا وهو SwitchBoard (لوحة التبديل)! وهو يعمل في كلا البيئتين (التطويرية accdb) أو (الإنتاجية accde)! بعد إنشاء لوحة التبديل عن طريق المعالج، يمكنك بعد ذلك التحكم في لوحة التبديل عن طريق الجدول دون الحاجة إلى الحاجة إلى استخدام المعالج!!!

أهلا بالجميع.. أولا.. دعوني أتوجه بالشكر للاستاذ @AbuuAhmed لبعد نظره البرمجي.. فليست القضية أن تقدم حلاً! أو تسبق إليه! بل يجب أن يتعدى ذلك إلى كونه صالحا للتطبيق كمنتج! ثانيا.. سبق لى وفي مشاركات عدة تقديم هذا المطلب ضمن الحل.. لكن لم يكن ذلك هو المطلوب من السؤال.. ثالثا.. هناك طريقتان سبق وأن استخدمتهما ضمن الحلول قمت بالمساهمة فيها وهما.. ** استخدام أدوات ActiveX .. لكن ليست هي الأسهل! ولا الأجمل! وتحتاج إلى Class Module لتمرير الأحداث ** استخدام أدات WebBrowser وهي الأسهل! والأجمل! في نظري! هذه الأمثلة لتطبيق الفكرة (استخدم Office64Bit) Database.zip

أهلا بكم.. لكن كيف تقوم الأداة بتخزين البيانات في حقل مصدر التحكم؟ وأيضا ماذا لو كان النموذج غير مرتبط بمصدر بيانات؟ هذه الأسئلة لا يمكن تجاهل الإجابة عنها!! عندما واجهت أبا جودي مشكلة عدم تطابق البيانات، قام بفحص البيانات العائدة من صندوق التحرير والسرد بالتابع TypeName، ليتفاجأ أن البيانات العائدة من نوع (متعدد، متنوع)! فلماذا لم يقبل صندوق الرسائل عرض البيانات كنص؟! السبب في ذلك أن البيانات العائدة وإن كانت من النوع (متنوع)، إلا أنها على هيئة مصفوفة بيانات! ومصفوفة البيانات أفرادها من النوع (متنوع). وكان الأولى فحصها البيانات العائدة من صندوق التحرير والسرد بالتايع VarType. يعيد هذا التابع رقما يشير إلى نوع البيانات كما هو مبين في الرابط التالي: VarType function بعد معرفة أن البيانات العائدة من صندوق التحرير والسرد هي مصفوفة بيانات؛ كيف يمكن قراتها جميعا دون الحاجة إلى عمل دوارة For... Next؟ يمكن استخدام التابع Join لهذا الغرض.. Private Sub cmdRequired_Click() Debug.Print VarType(cboEmpSection.Value) 'تعيدالرقم 8204، انظرالاقتباس أعلاه MsgBox Join(cboEmpSection.Value, ", ") ' يمكن استخدام محدد الفصل Debug.Print Join(cboEmpSection.Value) ' يمكن تجاهل محدد الفصل End Sub