zahrah2016

31 دقائق مضت, محمد طاهر said:

السلام عليكم

الأخت زهرة

سعدنا  جميعا بعودتك للمشاركة 

الحساب القديم موجود

http://www.officena.net/ib/profile/5674-zahrah/

 

هل أقوم بدمجه ؟

 

اخواني الكرام

وعليكم السلام ورحمة الله وبركاته

بارك الله بكم جميعا واخص بالذكر استاذي ومعلمي المهندس محمد طاهر فقد جمعتني به ذكريات سابقه على مدى 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]));

DELETE Disease.DiseaseName
FROM Disease
WHERE (((Disease.DiseaseName) Like [forms]![main]![Disease]));

Private Sub Disease_AfterUpdate()
DoCmd.SetWarnings False
DoCmd.OpenQuery "qryDisease"
DoCmd.OpenQuery "qrydel"
Me.Disease.Requery
Me.Refresh
DoCmd.SetWarnings True
End Sub

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