zahrah2016

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

تفضلي أختي الكريمه : مي الكيال قاعدة بيانات بها نموذج وتفتح لك ملف وورد بناء على طلبك بالتوفيق اخي الغالي : جعفر السلام عليكم ورحمة الله وبركاته اتمنى ان تكون بصحة جيده انت وجميع الأخوة الكرام هنا في المنتدى اختكم : زهره محمد العبدالله ( أم عهود ) zahrah.rar

تفضل اخي الكريم ملفك بعد التعديل الخطأ لديك انك استخدمت في معايير الإستعلام Combo6 بينما الصحيح الموجود في النموذج هو Combo8 db2_up.rar

اخي الفاضل لا يوجد اي مشكلة بعد التعديل وحتى تتأكد بنفسك وتقطع الشك باليقين انظر هذا الملف zahrah.rar وهذا ملفك لم اقم بالتعديل عليه سوى ما قمت بإضافته في القائمة من النموذج الثاني db_201_up2.rar

اخي الفاضل محمد الشاعر بالنسبة لموضوع ادخال البيانات فتستطيع انشاء زر امر لإضافة سجل جديد ولا يوجد به مشكله ومن ثم تستطيع ادخال البيانات اما اذا كنت تقصد في النموذج الفرعي السفلي للمواد لنفس الطالب فتستطيع ادخال المواد بدون مشكله . اما ما يخص الإستعلام عن طالب معين بالرقم فهذا ناتج عن الخصائص الموجوده في مربع التحرير والسرد حيث ان مصدر الصف يكون منشيء استعلام وليس استعلام حقيقي حسب العبارة التالية : SELECT tblStudent.ID, tblStudent.Id_ST FROM tblStudent; ثم نضع هذا الكود في حدث بعد التحديث لمربع التحرير والسرد الخاص برقم الطالب Private Sub NCombo_AfterUpdate() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[ID] = " & Str(Nz(Me!NCombo, 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub وهذا الملف بعد التعديل za_StudentAndCourse_UP.rar

اخي الفاضل اسامة السلام عليكم ورحمة الله وبركاته ايضا هذا حل أخر لضمان عدم التكرار بأي حال من الأحوال افتح الجدول في وضع التصميم ثم وهذا ملفك بعد التعديل za_db_up.rar

بارك الله فيك اخي العمده على المشاركه اخي الفاضل سوالف ليل السلام عليكم ورحمة الله وبركاته تستطيع عمل ما تريد من خلال برنامج الأكسيس بدول الخروج منه فيوجد به معالج للتخطيطات مستقل عن برنامج الأكسيل راجع هذا الرابط لتعرف طريقة عمل التخطيطات بالشرح المصور http://www.arabteam2000-forum.com/index.php?showtopic=87442 اما اذا رغبت في عمل توصيل بين عدة نقاط مختاره فيمكن الرجوع الىهذا الرابط http://www.arabteam2000-forum.com/index.php?showtopic=99692 za_LINKING_POINTS.rar وعموما هذا هو البرنامج قمت بعمله لكي تتضح لك الرؤية والفكره في توصيل النقاط ملاحظة : يجب ان تقرأ تعليمات البرنامج الموجوده في زر أمر علامة الإستفهام ؟

اخواني الكرام بارك الله فيكم جميعا على المشاركه وهذا أحد الحلول المقترحه za_StudentAndCourse.rar

تفضل أخي الكريم قم بالتجربه الآن db_201_up.rar

تفضل اخي الكريم المثال مع شرح الطريقة db2__up.rar

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

تفضل أخي الكريم البرنامج بناء على طلبك za_Report.rar

أخي الفاضل السلام عليكم ورحمة الله وبركاته قد لا تكون هذه الميزه متوفره في مبع التحرير والسرد في برنامج الأكسيس لأن مربع التحرير والسرد ComboBox يعتمد على منشىء الإستعلام والذي بدوره معتمد على جدول معين وهو جدول Disease لهذا سوف تظهر كل الحقول مهما حاولت فهذه الخاصية غير متوفرة . ولكن يمكن التحايل على هذا الوضع بعمل التالي : 1. انشاء جدول جديد بإسم Disease2 مشابه تماما للجدول Disease ولكنه فارغ من البيانات . 2. نقوم بإنشاء استعلام الحاق بإسم مثلا qryDisease ومهمته هذا الإستعلام تكون في الحاق ما نقوم بإختياره كل مره من الجدول Disease الى الجدول Disease2 حسب معيار الشرط الموجود في جملة الإستعلام هذه INSERT INTO Disease2 ( DiseaseName ) SELECT Disease.DiseaseName FROM Disease WHERE (((Disease.DiseaseName) Like [forms]![main]![Disease])); حيث نلاحظ في المعيار انه يقوم بإلحاق العبارة او المرض المشابه فقط لمربع التحرير والسرد الذي اخترناه . الآن يجب ان نقوم بحذف هذا المرض من الجدول لأننا قد الحقناه الى الجدول الثاني Disease2 وستكون جملة الإستعلام الخاصة بالحذف حسب الشرط السابق DELETE Disease.DiseaseName FROM Disease WHERE (((Disease.DiseaseName) Like [forms]![main]![Disease])); هنا ايضا نلاحظ انه تم حذف المرض المختار من الجدول Disease نهائيا وهذا لا يهمنا في شيء طالما اننا قد قمنا بإلحاقه الى الجدول الثاني . الآن نقوم بالتجربه في النموذج وسنجد انه عند حدث بعد التحديث لمربع التحرير والسرد سيتم حذف كل مرض يتم اختياره حتى نكمل جميع الأمراض ولا يتبقى في مربع التحرير والسرد اي مرض لأنها الحقت الى الجدول الثاني . من خلال هذا الكود الذي يقوم بإستدعاء استعلام الإلحاق واستعلام الحذف معا وفي نفس الوقت Private Sub Disease_AfterUpdate() DoCmd.SetWarnings False DoCmd.OpenQuery "qryDisease" DoCmd.OpenQuery "qrydel" Me.Disease.Requery Me.Refresh DoCmd.SetWarnings True End Sub 3. الآن بقى عندنا خطوه وهي ارجاع ما تم الحاقه الى الجدول Disease2 الى الجدول Disease وستم ذلك من خلال عملية عكسية للحالة السابقة حيث نقوم بإنشاء استعلام الحاق من الجدول Disease2 الى الجدول Disease وحذف البيانات من الجدول Disease2 ليكون جاهزا لأي مهمه جديده . من خلال الإستعلامين التاليين INSERT INTO Disease ( DiseaseName ) SELECT Disease2.DiseaseName FROM Disease2; DELETE Disease2.DiseaseName FROM Disease2; والخطوة الأخيره هي ان نقوم بإنشاء زر امر لكي يقوم بإستدعاء هذين الإستعلامين من خلال الكود التالي Private Sub RestorTable_Click() DoCmd.SetWarnings False DoCmd.OpenQuery "qry2" DoCmd.OpenQuery "qry3" Me.Refresh End Sub قد تكون الطريقة طويله ولكنها تفي بالغرض ويتم عملها لمرة واحدة فقط اي انها الآن جاهزة للإستخدام ولا تحتاج الى اي تعديل وهذا ملفك بعد التعديل قم بالتجربه عليه من خلال اختيار جميع الأمراض مع ملاححظة وضع الـ SerialNumber قبل اختيار اي مرض لأنه سوف ينتقل مباشرة الى الجدول الثاني استمر في اكمال جميع الأمراض حتى النهاية ولا تحاول ضغط زر الأمر استعادة جدول الأمراض وانت في منتصف الأمراض الموجوده في مربع التحرير والسرد حتى لا تفقد البيانات من كلا الجدولين لذا يجب ان تقوم بإنتهاء كاملا من جميع الأمراض وحتى ترى ان مربع التحرير والسرد اصبح فارغا في هذه اللحظة تستطيع استعادة جدول الأمراض من جديد . za_Anamo_up.rar

ايضا هذا مثال آخر على هذه العملية كنتي قد قمتي بطرحه في موضوع آخر حيث بمجرد ادخال ايام الخصم فإنه سيتم خصم 7 ساعات عن كل يوم وحفظ النتيجة في الجدول مع ملاحظة عدم تجاوز ايام الخصم لأن كل يوم يمثل 7 ساعات فمثلا لو كان لديك 20 ساعه في مجموع ساعات التأخر فليس من المعقول ان تقومي بحسم 5 أيام لأنها تمثل 35 ساعة لهذا يجب عدم تجاوز مجموع ساعات التأخر . zadb4_UP3.rar

اخي الفاضل العمده اعلم ان الأداة هي DEMO ولكنها تعمل بشكل سليم ولا يوجد بها اي مشكلة وهذه الأداة خاصة بتغيير شكل الـ Skin فقط للنموذج . يوجد في الشركة Suite Pack او مجموعة كاملة لكل شيء مثل الأزرار والقوائم ومربعات التحرير والسرد وغيرها الكثير وحجمها تقريبا 145 ميقابايت اذا رغبت في انزال كامل المجموعة فهذه هي الروابط eXSuiteالرابط الأول او eXSuiteالرابط الثاني اما اذا رغبت في انزال مجموعات محدد فأختر منها من هنا http://www.exontrol.com/excustompack.jsp علما بأنها غير مجانية واذا رغبتها كاملة فعليك الدفع . اخي الفاضل ابو ليان هذه الأشكال خاصة بهذا البرنامج فقط حيث يوجد به برنامج داخلي يقوم بتعديل وتوليد هذه الأشكال بناء على طلبك ولكن عليك الدفع اولا لكي تحصل على نسخة كاملة منه .

اخي الفاضل العمده وبقية الأخوان الكرام السلام عليكم ورحمة الله وبركاته لكي نقوم بتغيير شكل نموذج الأكسيس يلزمنا بعض الخطوات البسيطة والسهلة نقوم بعملها فعلى بركة الله نبدأ . اولا : نسخ عنصر اكتيف اكس Active X واشكال النماذج 1. يوجد في الملف المرفق مكتبة تدعى ExSkin.dll وهي الأداة التي تقوم بتغيير شكل النموذج الى عدة اشكال لذا نقوم بنسخها مباشرة الى مجلد نظام الويندوز C:\WINDOWS\system32 2. يوجد في الملف المرفق ملفات تنتهي بالإمتداد esk وهي عبارة عن اشكال جاهزة للنماذج نقوم بوضعها في نفس مجلد قاعدة البيانات التي نعمل عليها . ثانيا : ادراج الأداة في برنامج الأكسيس 1. نقوم بفتح برنامج الأكسيس ومن ثم نقوم بإنشاء نموذج جديد - او نستخدم احد النماذج الموجوده في قاعدة بياناتنا والتي سبق وان قمنا بعملها - في وضع التصميم . 2. نذهب الى شريط قوائم الأكسيس العلوي ونختار ادوات ثم ادراج ثم نختار عنصر تحكم Active X 3. سيفتح لنا نافذة عناصر التحكم والمكتبات الموجوده في مجلد نظام الويندوز نقوم بالبحث عن عنصر التحكم ExSkinForm ActiveX Control ثم نقوم بإختياره ومن نضغط على موافق . 4. سيتم ادارج عنصر التحكم في النموذج ( وهو في وضع التصميم ) 5. بعد ظهور عنصر التحكم على النموذج نقوم بالضغط عليه بزر الماوس الأيمن وسيفتح لنا قائمة نختار منها كائن ExSkinForm ActiveX Control وستظهر لنا قائمة فرعية نختار منها Load Skin 6. بمجرد الضغط على تحميل الشكل او الجلد Load Skin سيتم فتح نافذة البحث عن الملفات الخاصة بالأشكال ( التي وضعناها سابقا في نفس مجلد القاعدة ) والتي تنتهي بالإمتداد esk 7. نقوم بإختيار اي شكل من الأشكال ثم نضغط Open وسيتم اغلاق النافذة . 8. نقوم الآن بالحفظ او الضغط على زري الأمر في لوحة المفاتيح Ctrl+S ثالثا : تفعيل المكتبة ExSkin 1.0 Control Library في مراجع الأكسيس 1. نفتح النموذج في وضع التصميم ثم نقوم بالضغط على المفتاحين ALT+F11 من لوحة المفاتيح لنصل بسرعة الى محرر الفيجول بيسك الخاص بكتابة الأكواد ونختار من القوائم Tools ثم نختار References 2. نبحث في القائمة عن المكتبة ExSkin 1.0 Control Library ثم نقوم بوضع علامة صح عليها ثم نضغط OK وسيتم اغلاق النافذة . اخيرا نضع هذا الكود عند حدث التحميل للنموذج Private Sub Form_Load() ExSkinForm0.Visible = False ExSkinForm0.Refresh End Sub

اخي الفاضل ابو ليان السلام عليكم ورحمة الله وبركاته يعود سبب البطىء لعدة اسباب منها خاصة بجهاز الكمبيوتر زمنها ما يخص البرامج اما ما يخص الكمبيوتر فقد يكود ان المعالج لديك ليس سريع بما فيه الكفاية يعني اقل من 2 قيقاهيرتز او قد تكون الذاكرة RAM قليلة في حدود 256 ميقابايت او ان الهاردسك ممتلىء جدا بالبرامج وقد يكون لديك بعض القطع يوجد بها تعارض مع قطع اخرى في جهاز الكمبيوتر . اما يخص البرامج فقد يكون هناك برامج مقيمه في الذاكره مع بدء فتح الكمبيوتر وستجدها موجوده بكثره بجانب الساعة في شريط المهام وايضا قد يكون لديك ملفات مؤقته لم تقم بحذفها او التخلص منها واخيرا كثرة فتح عدة برامج في نفس الوقت وجعلها علىسطح المكتب بدون اغلاقها . كل هذه الأسباب تسبب البطيء الشديد لأي برنامج وخاصة انك تستخدم برنامج الأكسيس مع خاصية البحث والتصفيه فهذا كفيل لأخذ طاقة المعالج كاملا والذاكره . لهذا حاول تجنب كل الأسباب السابقة ولا تنسى ايضا ان تقوم بين كل فتره وفتره بعمل ضغط واصلاح لقاعدة البيانات وستجد ان شاء الله البرنامج يقوم بالعمل على اكمل وجه . لقد عملت لك المثال السابق ووضعت به اكثر من 20 ألف سجل وقمت بالتجربه عليه ولم ألاحظ اي بطىء في البرنامج بل انه يقوم بعمل التصفية المباشرة بمجرد ادخال اي حرف في اقل من جزء من الثانية . للمعلومية : جهاز الكمبيوتر لدي به المواصفات التالية : المعالج : انتل سرعة المعالج : 3,6 قيقاهيرتز الذاكره : 2 قيقابايت الهاردسك : 256 قيقابايت Try_Now_up2.rar

تفضل اخي الفاضل الطاير عملت لك برنامج خاص بفتح الملفات خذ الأكواد منه وقم بتعديل مسمى مربعات وزر الأمر النص في الكود كما هو لديك . المسار الإفتراضي لموقع الملفات هو C:\Record\Sader\2007 وهذا هو البرنامج قم بالتجربه عليه اولا ثم انقل الأكودا منه za_OpenFile.rar

تفضلي اختي الكريمه ريم برنامجك بعد التعديل بناء على طلبك za_12_up.rar

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

بارك الله فيك اخي الفاضل العمده على المشاركه اخي الفاضل zhajaj هذا برنامج تم عمله مخصوص لهذه العملية وستجد تعليمات البرنامج على النموذج za_BirthOfDate.rar

اخي الفاضل قم بإنشاء مربع نص غير منضم وليكن اسمه مثلا txtCount في النموذج ثم اضف هذه العبارة في آخر كود البحث Me.txtCount = DCount("[name]", "Qza")

تفضل اخي الكريم هذا برنامج تم عمله مخصوص لغرض تحويل جملة الإستعلام SQL الى كود VBA كل ما عليك هو اتباع تعليمات البرنامج الموجوده عليه za_Convert_SqlToVba.rar

تفضل اخي الكريم هذا المثال بناء على طلبك za_RepeetData.rar

اخي الفاضل صباح حسين كان من الأفضل ان تعمل تقرير مبني على الإستعلام للطباعة بدلا من طباعة النموذج عموما هذا برنامجك بعد التعديل وتستطيع طباعة النموذج المبني على الإستعلام سبب عدم طباعة النموذج لديك هو انك لم تقم بإختيار اسم النموذج لهذا تم التعديل الآن افتح النموذج ثم ادخل رقم المضخة BB1-GA-144A1 ثم قم بالضغط على زر الطباعة وسوف تتم الطباعة . ملاحظة : يوجد لديك سجلات غير مكتملة البيانات بنفس رقم المضخة ولا يوجد إلا سجل واحد فقط به بيانات لذا وجب التنبيه . Sabah.rar