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

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

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

وعليكم السلام ورحمة الله وبركاته كلا بالطبع، يمكن تعيين الخصائص بعد التقسيم، المهم ألا ننسى أن نعين الخصائص لكل النسخ.

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

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

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

وعليكم السلام ورحمة الله وبركاته... هذا النوع من البرامج -أخي الكريم- يسمى command-line program، أو console program، ويعمل في نمط نصي فقط، ولا يحتاج لأكثر من لوحة مفاتيح وشاشة. في يوم من الأيام، كانت كل البرامج من هذا النوع (قبل اختراع الماوس، ثم الرموز المرئي…

هذا الكود صحيح أيها الأخ الكريم، لكنه يعتمد على فئة class اسمها clsCommonDialogs ودالة اسمها GetPath، ليستا مرفقتين. كما أنه يقوم بحفظ واستعادة بعض القيم في نظام تسجيل ويندوز registry. على كل حال، لقد قمت بتبسيط المثال باستبعاد التعامل مع مسجل الويندوز، وباستخ…

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

وعليكم السلام ورحمة الله وبركاته... جرب أخي تعديلاً مثل التالي: SELECT quriy1.id, quriy1.date, quriy1.medeen, quriy1.daeen, Format(DSum("nz([daeen],0)-nz([medeen], 0)","[daily]","t <=" & [t] & "and id = " & [id]),"0.00") AS Rassed, quriy1.t FROM quriy1; لاحظ: …

أعتذر أخي عن التأخير، والأمر يسير إن شاء الله... الخطوة الأولى أن تستخرج المسار (مع اسم الملف) من المتغير sSourceDB، بدون اللاحقة (.mdb) كالتالي: sBackupDB = Left(sSourceDB, Len(sBackupDB) - 4) هذا يعيد كل أحرف المتغير sSourceDB من اليسار عدا الأربعة أحرف الأخ…

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

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

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

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

المعذرة، لا يهمني التقييم السالب شخصياً البتة، بقدر ما تهمني القيمة العلمية للتقييم: هل يمكن أن يخبرني الشخص الذي قيم بالسالب، ما المشكلة في هذه المشاركة؟ هذه المشاركة لا تحتمل التقييم بالسالب، لأنه مجرد اقتراح لمعالجة المرتجع والتالف، إن أحببت خذه، وإن أحببت …

وعليكم السلام ورحمة الله وبركاته، حل ممكن اخي هو أن تعين خاصية النموذج الفرعي enabled إلى No من وقت التصميم، ثم تفعلها من حدث Dirty للحقل المذكور، كالتالي: Private Sub pagenumber_Dirty(Cancel As Integer) Me.daily.Enabled = True End Sub والله أعلم... account.ra…

وعليكم السلام ورحمة الله وبركاته، أخي الكريم... أرجو أن يكون التعديل في الملف المرفق يوافق مرادك، وهو كالتالي: Private Sub cmdInstallment_Click() Dim i As Integer DoCmd.SetWarnings False For i = 1 To Int(txtmon / txtpart) DoCmd.RunSQL "INSERT INTO T_m VALUES (…

من الممكن أخي استخدام كود مثل التالي في حدث BeforeUpdate للنموذج: Private Sub Form_BeforeUpdate(Cancel As Integer) Dim sName As String sName = Me.name1 & " " & Me.name2 & " " & Me.name3 If Nz(DCount("*", "Table1", "name1 & ' ' & name2 & ' ' & name3 = '" & sNam…

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