Accessna

جرب هذا الكود : Private Sub ItemNo_Change() If Trim(Nz(Me.ItemNo.Text, "")) <> "" Then Me.Qty.SetFocus End If End Sub وأنصحك بعمل حقل آخر لإدخال رقم الصنف يدويا ويكون أحدهما غير منضم لأنك بهذه الكيفية للقراءة سيكون صعب عليك التحكم وخصوصا أن الطول غير ثابت

إذا كان حقل رقم الصنف أول حقل سوف يحرر بالسجل فهذا الحدث "حتما" سيشعر به : Private Sub Form_Dirty(Cancel As Integer) Me.ItemCode.SetFocus MsgBox Me.ItemCode.Text End Sub

أخي جرب أن تضع هذا الكود Private Sub ItemCode_Change() MsgBox Me.ItemCode.txt, , "Change event" End Sub إذا هذا الحدث لم يشعر بكتابة القارئ فستضطر لعملية اختبار لكل الأحداث بأن تضع نفس الكود في كل منهم مع تغيير إسم الحدث فمثلا حدث قبل التحديث سيكون كالتالي : P…

بكل تأكيد حلك هو الأفضل بلا نقاش وخصوصا أنه لا داعي لتخزين المجموع والدرجة كذلك يمكن عمل دالة بالفجوال لاستخراج الدرجة تستخدم الـ Case بدلا من استخدام الـ If في أفضل من ناحية السرعة في حال أن السجلات عددها كبير شكرا لك

المثال بعد التعديل لاحظ الحدث بعد التحديث في صناديق النص للدرجات TKDEER2.rar

طيب أخي أنت علقت على الملاحظة الأخيرة ونسيت كل ماقبله فالرجاء التعليق

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

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

أكتب في حدث بعد التحديث AfterUpdate [الكمية].SetFocus ولو أني أشك أن المؤشر عند خروجه من خلية رقم الصنف فلن يتمكن من تنفيذ هذه العبارة فأقترح عليك أن تجعل قيمة الـ Tab Index للكمية هي قيمة حقل الرقم زائدا واحد أي بمعنى : إذا كانت قيمة التاب إندكس للرقم 5 تكون …

:) عموما أنا أستطيع أن أصمم الكود ولكني أعتذر فلن أعمله لثلاثة أسباب : - الأول أن الحل فيه كفاية ولا داعي لاللجوء إلى الكود - ثانيا أني أرغب في ترك الفرصة لأخي محمد - ثالثا لأني لا أعلم حتى الآن أن حلي هو المطلوب دمتم موفقين

مبروك ahamied الشهادة هل لك تحدثنا عن تجربتك وتزودنا بمعلومات عن الشهادة وعن المستوى الذي يستطيع المبرمج معه خوض التجرة وعقبال مانشوف إسمك يزاحم بل جيتس

لكن هناك اختلاف في الحلين .. فأيهما طابق المطلوب ؟ لأن شرحك للمطلوب لم يكن واضحا بشكل جيد لأحدنا وإلا لتطابق الحلان

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

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

المثال مرة أخرى malik3.rar

الآن فقط أنهيت التعديل وتفاجأت بمشاركة الأخ حاكم .. أرجو المعذرة لقد قمت بإضافة حقل واحد لملف المدارس وهو حقل Area كرقم بدل الإسم malik2.rar

وهذا حل آخر ولكن لا يمكن أن يزيد عن أربع شروط بحيث جعلنا أول شرط هو اللون الإفتراضي ولكن لا يمكن منع السجل الجديد "آخر السجلات" من بقائه بدون لون علما لم أطلع على مثال الأخ محمد للآن وسوف أطلع عليه لاحقا Darajat2.rar

بما أنكم كثر ما شاء الله فسوف أوضح لكم المطلوب حسب ما فهمت أنا أنا لم أطلع على حلولكم ولكن أعتقد أنكم قمتم بالجزء الأكبر من المطلوب ولكن هناك مطلب آخر هو فلترة/فرز السجلات حسب قيمة مختارة من Combo Box أو الذهاب للسجل المطلوب حسب الإختيار

للأسف التنسيق الشرطي محدود بثلاث شروط فقط ولكن هناك مخرج ربما يفي بالغرض باستخدام باقي الشروط في حقل آخر Darajat.rar

هناك طرق كثيرة لفحص صحة البيانات فمنها مثلا تستطيع وضع هذه العبارة Is Not Null في خاصية Validation Rule وتستطيع وضع رسالة في نفس الحقل كذلك في خاصية Validation Text عذرا ، لم أنتبه أن هناك رد قبلي قد يكون فيه الحل الوافي