أحمد مبارك الحيقي

الأخ الفاضل هاني عوض... مرفق مثال بسيط مفتوح المصدر بناءً على الملف الذي تفضلت به، يقوم بترميز بعض حقول الجدول المختار من قبل المستخدم، لكن هناك ملحوظتين صغيرتين: 1. الكود المرفق يشفر الحقول النصية فقط. 2. الدوال incode وdecode تأخذ معاملين: القيمة المراد تشفي…

وعليكــم السـلام ورحمة الله وبركاتـه.. الأخ الكريم.. تم بعض التعديل في أنواع وأسماء الحقول في الملف المرفق، لكن الحل كله هو في استخدام هذا الاحتساب في الحدث التالي: Private Sub foreign_AfterUpdate() d = (CCur(foreign) / Nz(CCur(DFirst("f", "Table2")), 0)) * Nz…

الأخ الكريم (أبو عارف).. أهلاً بك وسهلاً، ويا مرحباً بك في هذا الشهر المبارك... ولكن مهلاً مهلاً، كلماتك كبيرة علي، وقد لاحظت أنك لست بغريب على اليمن: بارك الله فيك، وجعلني عند حسن ظنك... الأستاذ الفاضل إيهاب... على الرغم من أنني لست على علم بما كان من مشاركات…

رقم الحلقة (30) الأخ العزيز sandm... بالفعل، كان ذلك خطأً ناتجاً عن الغفلة (ربما مع نقص السكر في رمضان:))... المعذرة... أقسام اللغة يوحي اسم SQL (Structured Query Language لغة الاستعلامات البنيوية) بأن وظيفتها هي فقط استعادة البيانات، لكن الحق أن إمكانياتها أك…

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

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

وعليك أخي أسأل الله أن يديم نعمته... إذا كان المقصود هو حقول DAO، فإن القيمة الرقمية لحقل الترقيم التلقائي هي (4) dbLong، لكن يمكنك جعله ترقيماً تلقائياً من خاصية أخرى غير ال Type، وهي Attributes (القيمة 49 dbAutoIncField كما أشرت أنت سابقاً)... بإمكانك البحث …

حياك الله أخي العبدلي... الترقيم التلقائي الناتج هو حقل رقمي Long يحتل 4 بايتات... ربما لم أفهم المقصود، فأرجو المعذرة..

وعليكــم السـلام ورحمة الله وبركاتـه.. أخي الرميلي، الدالة DSum التي استخدمتها في احتساب مجموع دقائق التأخر بعذر وبدون عذر، ليست كالدالة Sum التي استخدمتها لاحتساب مجموع دقائق التأخر ككل... DSum تتعامل مع الجدول المحدد فيها كمعامل ثاني مباشرة، ولذلك تأتي بمجمو…

وعليكم السلام ورحمة الله وبركاته... أخي العبدلي جرب النوع COUNTER، مثلاً: DoCmd.RunSQL "create table tblTest (tstNo counter, tstName char(50))" الجدول الناتج يحوي حقلين: واحد ترقيم تلقائي، والآخر نص... والله أعلم.

وعليكم السلام ةرحمة الله... وليسمح لي الأستاذ محمد ندا، من بعد إذنه، يمكن إضافة الكود التالي بعد استدعاء التقرير مباشرة: With Reports(stDocName) .OrderBy = Me.lstFields.Column(0) & Choose(Me.opt.Value, " Asc", " Desc") .OrderByOn = True End With كما في الملف ا…

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

الأخ الكريم... لي سؤال أولاً حتى نستطيع المساعدة: كيف تملأ الجدول tblCopyLoan؟ لأن أرقام القروض بين الجدولين tblLoan وtblCopyLoan مختلفة، ولا أظن هذا مقصوداً...

رقم الحلقة (28) تحذير: يبدو أن حلقات الدورة ستكون شبه يومية في البداية إن شاء الله... SQL: مقدمة لا بد مما ليس منه بد. والمقدمات لا بد منها. أنا لا أحب أن أقذفك مباشرة في الماء، ثم أراك تخبط بيديك، فإما أن تصل إلى الحافة، وإما....؟ وبالمناسبة، بما أنك ضيفي في …

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

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

وعليكــم السـلام ورحمة الله وبركاتـه.. أخي، المطلوب هو مجرد التأكد من أن الموظف لم يسبق إدخاله بنفس اليوم، وهذا ممكن بكثير من الطرق، واحدة منها في الملف المرفق بعد التعديل... أرجو إعادة تحميل الملف لأنني أشك في أن النسخة الأولى لم تكن معدلة كما ينبغي... ghyab_…

أخي الكريم... بالإضافة إلى وصلات أخينا الأصيل جزاه الله خيراً، الملف المرفق يحوي نموذجاً، وماكرو... انسخهما إلى قاعدة بيانات السيرفر عندك، لكن كن على حذر: النموذج يحوي مؤقتاً يعمل على الدوام من أجل فحص الوقت، وعند مطابقة وقت الجهاز للوقت المحدد في الكود، يقوم …

المعذرة أخي، بالفعل نسيت الملف المرفق، لكن على كل حال الاستعلام الذي كتبته هو نفسه استعلام qta في ملفك، مع إضافة حقل فقط... worke.rar

وعليكــم السـلام ورحمة الله وبركاتـه.. تم أخي التعديل على الاستعلام qta، في الملف المرفق، والفكرة هي في استخدام الدالة Switch كالتالي: SELECT name, mar, bayan, dat_b, statu, dat_s, Switch(statu="معاينة",DateAdd("yyyy",1,dat_s),statu="اخطار اول",DateAdd("m",2,d…