hkh007

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته : أستاذنا الكريم أبو هادي : الإجابة كافية و وافية . ما شاء الله ، دقةٌ في التشخيص و كمالٌ في العلاج .. أشكرك من أعماق قلبي ، وأسأل الله أن يجزيك عنا كل خير ويزيدك . والسلام عليكم ورحمة الله وبركاته أخوكم حسن

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

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته : الأخ sasg: ستجد طلبك على هذا الرابط ، ضمن الأمثلة المنشورة http://www.mybiznas.com/access/Top/SpreadExamples/index.htm وأرجو ممن يدخلون إلى هذا الموضوع مراجعة استفساري التالي قمت بتطبيق الكود الخاص بتبديل لون السجل الحالي ، إلا أن الكود عمل للسجلات المعروضة في بداية النموذج فقط ، أي أنه تم تلوين السجل الحالي بلون مختلف لأول 21 سجل فقط ، وفشل الكود عند باقي السجلات . Private Sub Form_Current() Dim blRet As Boolean blRet = fScrollInfoCurrentRecord(Me, False) End Sub Private Sub Form_Load() Dim blRet As Long blRet = fCreateDib(Me) blRet = fScrollInfoCurrentRecord(Me, True) Me.TimerInterval = 250 End Sub وأرفق لكم مثالناً لتطبيقي للكود . رجاء المساعدة ممن يجد حلاً لتبديل لون السجل الحالي مهما بلغ عدد السجلات . والسلام عليكم ورحمة الله وبركاته أخوكم حسن EX

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

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

جزالك الله خيراً

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

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

أستاذي الكريم أبو نعيم : السلام عليكم ورحمة الله ، وجزاك الله عنا كل خير ، ونشكر لكم اهتمامكم ، أما بعد ؛ فلم أجد الكود الذي ذكرت ، وأرفق لكم مثالاً على ذلك ، علماُ ، أني سبق وأن جربت الحلول التالية : ـ جربت أن أضع في حدث عند عم الوجود في القائمة رسالة MsgBox إلا أن الذي حدث أن رسالتي صارت تظهر بعد رسالة الآكسس (عدم الوجود في القامة). ـ كما جربت كافة حالات الماكرو SetWarnings و CancelEvent فلم يؤثر ذلك في النتيجة ولكم جزيل الشكر مقدماً يا سيدي . والسلام عليكم أخوكم حسن . المثـــــــال

السادة الأفاضل : هل هناك طريقة للتخلص من رسالة عدم الوجود في القائمة (مربع تحرير وسرد)علماُ أن خاصية تلالتزام بالقائمة محددة بنعم .

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

السلام عليكم : أوافقك الرأي في أن ذلك يعيب البرنامج إذا كان المستخدم سيدخل البيانات ، ويبدو أني لم أستوعب سؤلك حينها بشكل جيد (وأعتذر لذلك)، أما وقد فهمت ما تقصد فأرفق لك مثالاً يتضمن طريقتين لحل مشكلتك ، معي أني أظن أنك وصلت لحلها ، ويضم المثال أيضا إجابة على تساؤلك الأول . المثال : http://www.geocities.com/hassn_khalifa/datq.mdb أما سؤالك الثاني فأنصحك بزيارة موقع الأخ أبو حمود على الرابط : http://www.mybiznas.com/access/Top/Functions/index.htm والسلام عليكم حسن

السلام عليكم : تحياتي للجميع الأخ العزيز ، اصنع جدولاً يكون فيه حقل لليوم وحقل آخر للشهر وباقي الحقول المطلوبة ثم صمم استعلاماً وأكتب في معايير اليوم Day(Now()) وفي معايير الشهر اكتب . وستنجح إنشاء الله Month(Now()) علماً أني اعتمدت هذه الفكرة لإعداد جانب من بأحد برامجي خاص بنافذة بعنوان "حدث في مثل هذا اليوم" حسن

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

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

بفرض أن حقل التاريخ الأول هو DAT1 وحقل التاريخ الثاني هو DAT2 أنت تريد الآن حقلاً ثالثاً يحسب لك الفرق بين تاريخي الحقلين ، انشئ استعلام بسيط وأضف حقلاً سمه مثلاً DAT3 , واكتب فيه [DAT3: [DAT1]-[DAT2] اعرض النتائج خبرنا النتائج

العبارة مرة ثانية SELECT CARno FROM XX WHERE CARMIL >=([LASTMIL]+5000) OR DATE() >= [LASTDAT]+90

استخدم عبارة SELCT كما في المثال : SELECT CARno FROM XX WHERE L CARMIL <=([LASTMIL]+5000) OR (DATE() >= [LASTDAT]+90 حيث : CARno رقم السيارة XX اسم الجدول CARMIL عداد السيارة LASTMIL عداد آخر صيانة LASTDAT تاريخ آخر صيانة ـ على كل حال الفكرة هي عبارة SELCT بشرطين بينهما OR وتذكر أن أولوية تنفيذ العبارة لما بداخل الأقواس أولاً ، وحاول تكييف الفكرة مع ما تحتاج ، وخبررنا النتائج . حسن

الأخ العزيز والاستاذ الكريم أسامة : هذا بالضبط (y) ما كنت أبحث عنه ، و لا تتصوّر مدى امتناني لاستجابتك ولجهدك في إعداد المثال ، وفقك الله وزادك من علمه ، شكراً شكراً شكراً :hart: حسن :$

السلام عليكم : هل وصل الملف ، الرجاء نشره لتعم الفائدة . والسلام عليكم

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

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

السادة الأكارم ، أخواني : هّلا أرشتموني إلى موقع يقدم استضافة لأتمكن من تحميل قاعدة البيانات ؟ وشكراً سلفاً

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