Bluemind

اخوي ه>ا المنتدى لحل مشاكل واستفسارت مستخدمي برامج الاوفيس على ايه حال انت لم تستخدم قوقل ولا حتى حددت اسماء الادويه باي دوله على العموم قم باستخدام قوقل واكتب التالي في محرك البحث اسماء الأدوية لقد وجدت منتديات كثيره يوجد بها اسماء الادويه على شكل ملف اكسل

اخوي طلبك غير واضح تخمين لحل السؤال كود الدواء - نوع الحقل رقم الا ا>ا كان يوجد هناك حروف في الكود فانك تستخدم نص ويكون مفتاح اساسي اسم الدواء- نوع الحقل نص الصنف-نوع الحقل نص ويكون على شكل قائمه منسدله تستمد بياناتها من جدول منفصل اسمه الاصناف السعر- نوع الحقل عمله ه>ا ما فهمته من سؤالك بالتوفيق

تفضل اخوي ان شاء الله يكون المطلوب وعلى فكره حاول تجنب اللغه العربيه في تسميه الحقول و في حاله عدم معرفه الترجمهو اضطريت للغه العربيه اكتب على سبيل المثال Emthan اي امتحان Diyah1.zip

اخوي ممكن عمل >للك عن طريق التنسيق الشرطي من تنسيق او format اختر conditioal format او تنسيق شرطي اختر بعدها المجال ال>ي تريط طبيق الشرط عليه ثم اكتب في خانه المعييار او cretiria اكتب >=1000 ثم قم بتنسيقات امطلوبه تنفي>ها على الخليه ثم جرب كتابه 1000 او اكبر منها

اخوي حسين حدث خطا عندي عندما حاولت فتح القاعده قم انت بالخطوات التاليه افتح قاعده البيانات و اضغط زر شيفت و استمر بالضغط عليه حتى تاتيك شاشه الجداول و النما>ج ..... تصميم قاعده البيانات سوف تجد الجداول انت لم توضح ماهو المطلوب هل هو وضع الجداول في قاعده منفصله من دون النما>ج و الاستعلامات وغيرها ، ام تردي تغير التصمميم اما ما>ا؟؟؟!!! ارجوا التوضيح

اخوي حسين الرجاء ارفاق القاعده الى المشاركه مباشره و>لك عن طريق ارفاقها في ملف مضغوط او احد مراكز التحميل المجانيه وليس الربيد شير

اخوني ه>ي تسمى مد التعبئه التلقائيه للبيانات و الفورميلا في اكسل 2007 سوف تجدونها من خيارات اكسل >متقدمه او Advanced> ثم اختر Extend data range and formula..... > قم بازاله علامه التشيك كما في الصوره

اخوي ارفق برنامجك او مثال عليه وذلك عن طريق ضغطه في ملف rar او zip

اخوي حامل المسك السلام عليكم ورحمه الله وبركاته عيدك مبارك وكل عام وانت بخير حسب طلبك الاخير في حدث قبل التحديث للحقل sjll او before update قم بوضع الكود التالي : كود Private Sub sjll_BeforeUpdate(Cancel As Integer) Const conMESSAGE = "هذا الطالب اجتاز الامتحان ولا يمكن تسجيله مره اخرى." Dim strCriteria As String strCriteria = "sjll = " & Me.sjll & " And A" If Not IsNull(DLookup("sjll", "Students", strCriteria)) Then MsgBox conMESSAGE, vbExclamation, "Invalid operation" Cancel = True Else strCriteria = "sjll = " & Me.sjll If DCount("*", "Students", strCriteria) = 2 Then MsgBox conMESSAGE, vbExclamation, "Invalid operation" Cancel = True End If End If اما بالنسبه لنتيجه لايوجد حاجه لتخزينها حيث انها تحسب تلقائيا وتتحدث لذلك لايوجد حاجه لتخزينالنتيجه في حقل و ارجوا ان تضع جميع المتطلبات مره واحده لكي لا يحدث تعارض بين الاكواد فيتم التاخير و اعاده العمل من جديد MaxMinAvg_4_.zip

اخوي هذا ملف اوفيس 2007 وليس 2003 تاكد من وجود 2007 لديك

اخوي هل وضعت ماكرو لفتح تقرير معين!!؟؟ تاكد من وجود هذا التقرير وكذالك تاكد من اسمه او ارفق قاعده البيانات لاتاكد من الماكرو

اخوي ماهو نص الرساله لهذا الخطأ!!!

اخوي للاسف لم استطع التعديل على المرفق لوجود مشكله فيه الخطوات بسيطه قم بوضع الكود السابق في حدث عند الخطا او on error للتقرير كما في الصوره كود If DataErr = 3071 Then Response = acDataErrContinue MsgBox "الرجاء كتابه تاريخ وليس رقم." Else MsgBox "Error#: " & DataErr Response = acDataErrDisplay End If بعد ذلك قم بحفظه ثم حاول معاينه التقرير بعد ذلك سوف تظهر لك رساله تطلب التاريخ من الى ادخل الرقم واحد لكلا الرسالتين وسوف تظهر لك الرساله

اخوي هل استبدلت رقم الخطا الظاهر اعلاه "3071" بXXXXX حيث يصبح الكود كاتالي كود If DataErr = 3071 Then Response = acDataErrContinue MsgBox "الرجاء كتابه تاريخ وليس رقم." Else MsgBox "Error#: " & DataErr Response = acDataErrDisplay End If

في برنامجك استبدل FORM2 ب اسم النموذج الفرعي لديك

حياك الله اخوي حامل المسك بالنسبه ل سؤالك هذا فا هذه العباره =[Forms]![FORM2]![NAME] تعتبر مؤشر لكائن ما في نموذج معين حيث ياخذ"txtSearch2" القيمه التي في حقل اسمه Name من نموذج FORM2 من كائنات النماذج Forms ارجو ان تكون الفكره واضحه الان كل عام و انت بخير

اخوي هذا رساله تظهر بالتاكيد لان البيانات المدخله تخالف نوع البيانات التي توجود في الاستعلام لاخبار المستخدم ان هذه البيانات المدخله خاطئه واستبدال رساله اكسس التي تظهر لك برساله مفهومه و بالعربي قم بالخطوات التاليه اولا في حدث on error لو عند الخطا في التقرير الذي لديك اكتب الكود التالي كود MsgBox "Error#: " & DataErr Response = acDataErrDisplay ثم احفظ ثم جرب تشغيل التقرير و ادخل بيانات خاطئه كما في السابق بعد ذالك سوف يظهر لك رساله فيها رقم قم بتسجيل هذا الرقم بعد ذلك قم بستبدال الكود الي فوق بالكود التالي مع تعديل الرساله بالرساله الي تبغاها طبعا استبدل XXXXX برقم الخطا الي ظهرلك اول كود If DataErr = XXXX Then Response = acDataErrContinue MsgBox "الرجاء كتابه تاريخ وليس رقم." Else MsgBox "Error#: " & DataErr Response = acDataErrDisplay End If انتظر اجابتك اريد رقم الخطا

اخوي لا يوجد مرفقات!!!

اخوي وضح اكثر المشكله؟؟ هل عند فتحها يعطيك اكسس اي رساله !!؟؟ على الاقل ارفق القاعده لمحاوله فتحها

اخوي حامل المسك قم بتحميل الملف المرفق ثم قم باستيراد الوحدات النمطيه الى قاعد بياناتك عن طريق التالي: من علامه التبويب اختر External Date او استيراد بيانات خارجيه ثم حدد القاعده التي في المرفقات بعد انزالها ثم اختر الوحدات النمطيه الثلاث منها بعد ذلك اذهب الى الاحداث من خصائص النموذج و واحداث المربعات g1 و g2 و g3 و g4 و احداث مربع الخيارات"طريقه احتساب النتيجة"Frame14 و حدث مربع النص "النتيجه" وحدث مربع الخيارات "التقدير النهائي"Frame32 قم بنسخ الكود وضعه كلا حسب موقعه طبعا القاعده المرفقه مشابهه لقاعدتك هناك امر اخر وهو في حاله وجود محكمين و تم اختيار حذف الطرفين فان النتيجه سوف تكون صفر وعليه فان هذا الخيار لا يستفاد منه MaxMinAvg__3_.zip

حياك الله اخوي بالنسبه الى التقدير النهائي الموجود في برنامجك وهو على شكل ازرار اختيار او Option buttons ولكن هو ليس كما طلبت فقم انا بعمل مربع يحتوي على اربع ازرار حسب طلبك ، ممتاز،جيدجدا..... و اسم هذا المربع هو Frame32 ويجد به اربع ازرار اقيامها مرتبه من 1 الى 4 (طبعا الترتيب مطلوب). 1 ل ممتاز ، 2 جيدي جدا ..... طبع يمكنك مشاهده هذه القيم من خصائص كل زر موجود بالمربع بمجرد الضغط على الزر طبعا اسم المربع الذي يظهر الدرجه اما بحذف اعلى و اقل درجه او حساب المعدل اسمه text30 وهذا موجود سابقا في النموذج الي ارفقته(يجب تعديل اسمه حسب ماهو موجود لديك) في حدث النموذج عند الحالي او On current قم باضافه الكود التالي و لاتمسح الكود القديم كود Select Case Me.Text30 Case 89.5, Is > 89.5 Me.Frame32 = 1 Case 75, Is > 75 Me.Frame32 = 2 Case 60, Is > 60 Me.Frame32 = 3 Case 60, Is < 60 Me.Frame32 = 4 Case Else Me.Frame32 = 1 End Select خطوه اخيره لقفل هذا المربع وعدم التحكم فيه الا من خلال تغير الدرجه هو من خصائص المربع Frame32 قم بقفله من بيانات>قفل =نعم استخدم الملف المرفق وعدل اسماء مربع النص و مربع الخيارات حسب ماهو موجدو لديك تواجدي في المنتدى من السبت الى الاربعاء من الساعه السابعه صباحا حتى السابعه مساء كما امل وضع جميع الاسئله مره واحده ليتم الاجابه عليها لضيق الوقت قبل اجازه الحج MaxMinAvg__2_.zip

اخوي حامل المسك ما فهمت عليك الله يحفظك!! هل جربت الكود ام لا؟؟ الكود جاهز بس عدل اسم المربع الي يوجد به الخيارين "المعدل" و "حذف اكبر قيمه و اصغر قيمه" انا لم لم يعمل البرنامج عندي لوجود النسخه الانجليزيه عندي و لستخدامك اللغه العربيه في كثير من الاحيان و انا ان شاء الله اساعدك بالي اقدر عليه

اخوي ادراج لاتستطيع يكون مصدر بيانات للتقرير نعم تستطيع و لاحظ معنى كلمه ادرج لان معناها القدره على ادراج الجدول مثال ما تريد ومثل ماتشاء سواء كنت مستخدم للبرنامج او مصمم في اكسس ادراج جدول يعني تصميم قاعده بيانات اي مصمم للبرنامج اما اذا كان قصدك كيف تظهر البيانات في التقرير على شكل جدول فهي بسيطه ارفق قاعده بياناتك للتعديل عليها

اخوي حامل المسك بارك الله فيك لوجود مشكله يمكن لاستخدامك اللغه العربيه في بعض التسميات ووجود النسخه الانجليزيه عندي ما قدرت اعدل على ملفك بس عملت برنامج مشابه يقوم بعمل متطلبك كالتالي في حدث عند الحالي او On Current لنموذجك ضع الكود التالي: كود With Me If .g1 > .g2 And .g1 > g3 And .g1 > g4 Then Me.maxg = Me.g1 ElseIf .g2 > .g1 And .g2 > .g3 And .g2 > g4 Then Me.maxg = Me.g2 ElseIf .g3 > .g1 And .g3 > .g2 And .g3 > g4 Then Me.maxg = Me.g3 Else Me.maxg = Me.g4 End If End With With Me If .g1 < .g2 And .g1 < g3 And .g1 < g4 Then Me.ming = Me.g1 ElseIf .g2 < .g1 And .g2 < .g3 And .g2 < g4 Then Me.ming = Me.g2 ElseIf .g3 < .g1 And .g3 < .g2 And .g3 < g4 Then Me.ming = Me.g3 Else Me.ming = Me.g4 End If End With Select Case Me!Frame14 Case 1 Me!result = (Nz(Me.g1 + Me.g2 + Me.g3 + Me.g4) - Nz(Me.Text6 + Me.Text8)) / 2 Case 2 Me!result = Nz(Me.g1 + Me.g2 + Me.g3 + Me.g4) / 4 Case Else Me!result = 0 End Select طبعا قم بمسح مصدر السجل لكلا الحقلين(اعلى درجه و اقل درجه) لعدم الحاجه لتخزين قيم قد تتحدث من وقت الى اخر واجعلها unbound تاكد من تغيير مسمى مجمع الخيارات "إطار /إطار محيط69" الى" Frame14" ثم في حدث بعد التغيير او after update للاطار Frame14 (طبعا هذا لتحديد احتساب النتيجه اما بحذف اكبر و اصغر درجه او المعدل) ضع الكود التالي كود Select Case Me!Frame14 Case 1 Me!result = (Nz(Me.g1 + Me.g2 + Me.g3 + Me.g4) - Nz(Me.Text6 + Me.Text8)) / 2 Case 2 Me!result = Nz(Me.g1 + Me.g2 + Me.g3 + Me.g4) / 4 Case Else Me!result = 0 End Select MaxMinAvg.zip

اخوي اقرا المقاله التاليه عن مشكلتك http://support.microsoft.com/kb/897764/ar يجب عليك تحديث الاكسس الى Access 2002 SP3