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

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

الحلقة الأولى: مقدمة (نظرة سريعة على بعض قضايا تطوير التطبيق) *********************************************** سبق أن أشرت في الجزء الأول من المذكرات إلى أن إنتاج تطبيق برمجي يمر تقليدياً بخمسة مراحل أساسية: 1. دراسة الجدوى والتحليل. 2. التصميم. 3. التنفيذ (كتا…

بسم الله الرحمن الرحيم تمهيد الحمد لله وحده، والصلاة والسلام على من لا نبي بعده، اللهم صلّ على محمد وعلى آل محمد كما صليت على إبراهيم، وبارك على محمد وعلى آل محمد كما باركت على إبراهيم، في العالمين إنك حميد مجيد. أما بعد... مضت على نهاية الجزء الأول من هذه الم…

أخي slave: كلامك في الصميم، وقد كنت أتفكر كثيراً في الشهور الأخيرة في مسألة اسم القسم؛ أغلب رواد قسم مبرمجي قواعد بيانات أكسس هم في الحقيقة من مستخدمي، وليس مبرمجي، قواعد بيانات أكسس... هذا تالله من أعجب ما قرأت... وأختلف معه كليةً... الحق أن أغلب الأسئلة قد أ…

وعليكم السلام ورحمة الله وبركاته... في الملف المرفق، تجد المحاولة التالية: إضافة حقل للتاريخ الميلادي (في النموذج والجدول) تعيين خاصية On Dbl Click إلى: =Open_Cal([ActiveControl];0) لاحظ أن الصفر كمعامل في استدعاء الدالة السابقة يحدد التاريخ الميلادي، بينما ال…

كما اقترح الأخ همام، تستطيع الحصول على هذه الخلاصة باستخدام Crosstab Queries. من أجل الخلاصة بدون مجموع، يمكن استخدام الاستعلام التالي: TRANSFORM nz(Count(TBL1.ID),0) AS CountOfID SELECT TBL1.NmaeKSM AS القسم FROM TBL1 GROUP BY TBL1.NmaeKSM PIVOT TBL1.NameRTB;…

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

بلى أخي خالد، يمكن التحويل إلى مختلف أنواع البيانات، باستخدام الداول المناسبة (من ملفات المساعدة): فقط، اختر النوع المناسب، مثلاً: SELECT Max(CDbl(الراتب.الراتب)) AS MaxمنالراتبFROM الراتب; لأن بعض الأنواع الرقمية لا تحمل الكسور العشرية... والله أعلم.

أخي العزيز أبا عدنان، بارك الله فيك، ونفع بك، وأحييك على الفكرة الجميلة، لعل أخانا أبا شادي يستفيد منها... أخي العزيز أبا شادي: أرجو منك المعذرة، فقد كان الكود يعاني بالفعل من علة bug، إذ نسيت بسبب العجلة أن أضيف إلى شرط if جزءاً مهماً: If IsNumeric(z) And x.V…

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

حياك الله أخي الكريم، حاول أن تستخدم شيئاً مثل التالي: NVL(ersalia.class, 'w') = NVL(:class, NVL(ersalia.class, 'w')) وهكذا مع بقية الحقول في المقارنات في مقطع WHERE. بهذا الشكل، نعوض عن القيم الخالية بأي قيمة (هنا، الحرف w)، مما يستبعد مشاكل المقارنة مع القيم…

أخي الكريم، تجد بإذن الله مرادك في العديد من الكتب والمواقع، لكنني أحببت أن أوجهك هنا نحو السلسلة التي كتبتها في قسم الأكسس بعنوان (مذكرات حول تصميم قواعد البيانات وتطبيقاتها)، وتجد رابطها في توقيعي أدناه. لقد تم تجميع الحلقات في كتاب، على الرابط التالي: /inde…

وعليكم السلام ورحمة الله وبركاته... لست متأكداً أخي الكريم، من أنني قد فهمت مرادك جيداً، لكن إذا كان كل المطلوب هو تجاهل الكسر تماماً، فيمكنك استخدام الدالة Int، كما يلي: Private Sub Text1_LostFocus() Me.Text2.Value = DLookup("[group_name]", "Qgroups", "[sgrou…

وإياك جزى الله خيراً، وفيك بارك الله، أخي العزيز أبا شادي... من أجل تنفيذ المطلوب من الممكن نقل الفحص في حالة حرف C إلى حدث BeforeUpdate لمربع النص (حتى يتم الفحص بعد إدخال القيمة كاملة، وقبل الحفظ). وعلى هذا يصبح الكود كالتالي: Private Sub z_BeforeUpdate(Canc…

أخي الكريم، عندما تريد الاستعلام بمعلومية حقل قد يترك فارغاً، ولا تريد ذلك أن يؤثر في نتيجة الاستعلام، فاستخدم الدالة NVL بالشكل التالي: ERSALIA.NAME = NVL(:pname, ERSALIA.NAME) وعلى هذا تصبح عبارتك كالتالي: SELECT ALL ersalia.no, ersalia.class, ersalia.name, …

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

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

وعليكم السلام ورحمة الله وبركاته، أخي الكريم أبي شادي... حاول أن تجرب مثل هذا الكود في حدث KeyPress لمربع النص، وهدفه تقييد الإدخال حرفاً حرفاً، اعتماداً على قيمة Ascii الحرف المدخل (رموز الآسكي للأرقام تقع بين 48، وهو الصفر، و57، وهو التسعة): Private Sub z_Ke…

السلام عليكم ورحمة الله وبركاته، أحببت أيها الإخوة الكرام أن أطمئنكم بإذن الله، فقد راسلني أخونا محمد ندا قريباً، وهو بالفعل مشغول بالعمل غاية الانشغال، أسأل الله أن يسدد خطاه، ويبارك مسعاه، ويبلغه مناه... آمين. لكنني بالفعل أشاطر أخي أبي عدنان السؤال عن أخينا…

أخي الكريم، ومن بعد إذن الأخت زهرة، تجد في المرفق مثال للإرسال عبر الأكسس، يمكن تعديله كما تحب، المهم أنه قد تم تحويل دوال الـAPI التي وفرها الموقع بلغات php، asp، وvb.net إلى vba. قمت بالتحويل من نسخة php، وقد اشتركت في الخدمة، ونجحت محاولة الاستعلام عن الرصي…