السلام عليكم ورحمة الله وبركاته
مشكوررررررر ( يامشرفنا الغالي ) (f)
الاخ والاستاذ العزير / مصلح
بالنسة لكتابة الود باليد اجابتي نعم كتبت الكود بيدي ، وبالنسبة للاسئلة انا عندي سؤال منذ البدء ولكن قلت أأخرة شوية .... السؤال اذا ما مليت كل السجلات في الفورم وضغطت امر الحفظ ورحت على الجدول وشيكت البيانات الي دخلتها ناقصة فلا اجد شيء :confused:
وفي انتظار المزيد :P................
السلام عليكم
أخي وعزيزي الاستاذ / مصلح الحريصي
حقا أنت على حق وكنت متأكد أنك سوف تطرح وتناقش نقص المشاركات من بقية الاعضاء هل هو أن أغلب الاعضاء مستواهم عالي جدا أو أنه الشرح صعب .... لا أعلم
أما سؤالك حول كتابة الكود فاني أكتب الكود وأذا حصل بعض الخطأ في كتاباتي أعمل له نسخ لمعرفة الخطأ.
أستاذي / فيصل
شكرا على مشاركتك الجميله ..... لكن كنت أتمنى أن تكون باللغة العربيه لاني في الانجليزي ضعيف
عندي طلب لك أخي لو سمحت التكرم بشرح بعض ماجاء في الكتاب المرفق مع أمثله لكي نستفيذ أكثر
عندي عتب بسيط إلى الاستاذ النشط الاخ فيصل قصدي فهد الدوسري ;) وايضا الى المشرف الغالي الاستاذ / أشرف خليل أين مشاركتكم هنا لماذا لانراها أتمنى أن أرى نورها هنا يطل علينا
كلمه أخيره الى الاستاذ / الغالي مصلح
أن من أشد المحتاجين إلى مثل هذه الدروس التي احس فعلا أنها أعطتنيي الكثير في رفع مستوي الضعيف فلا تحرمنا من مثل هذه المشاركات وأنا اعلم أنك مشغول جدا لكن أقول جزاك الله خير على ماتقدمه.
مازلت منتظرا
مع الشكر الجزيل مقدما للاستاذ مصلح
الأخ / فيصل هذا ما أردته المشاركة فشكراً لك
الأخ : System
هذا الخطأ ليس عندي ولا أعرف ما هو الخطأ لعلك تضع مثالك هنا لأراه0
الأخ : shz
بإذن الله سوف نستمر مازال لدينا القدره والمعرفة شاركنا فقط0
الأخ ابو البراء
أعتذر لك فقد نسيت الموضوع فأرجو المعذرة وهذ رابط للصور أرجو أن تظهر وبشكل واضح
جزاك الله خيرا
واضحة
لم ابحث عنها في لغة البيسك للتطبيقات وانما في القاعدة نفسها
شكرا
حفظ التعديلات على السجل
أعرض النموذج في وضع التصميم ثم أنقر على زر تعديل سجل وأرى أن يغير عنوانه إلى (( حفظ التعديلات )) هذا أدق في المعنى0 من خصائص أختر حدث ثم عند النقر وفي الوحدة النمطية أكتب الكود التالي:
If MsgBox("هل تريد حفظ التغيرات التي أجريتها على البيانات", "" _
& vbMsgBoxRight + vbYesNo + vbDefaultButton2, "") = vbYes Then
Dim db As Database, rsCust As Recordset
Set db = CurrentDb
Dim strSQL As String
strSQL = " UPDATE customeTbl "
strSQL = strSQL & "SET customerID= " & Me![customerID]
strSQL = strSQL & ", customeName= '" & Me![customeName]
strSQL = strSQL & "', customeAddress= '" & Me![customeAddress]
strSQL = strSQL & "', customeTel= '" & Me![customeTel]
strSQL = strSQL & "' WHERE customerID=" & [customerID] & ""
db.Execute strSQL
Call ClearControls
Else
Exit Sub
End Ifوهو مطابق في الإسلوب لما سبق اللهم تعديلات بسيطة بالتمعن يسطيع كل واحد إستيعاب فكرة الكود وعمله 0
سوف يتم شرحه لاحقاً مع مثال على ما سبق
أرجو للجميع التوفيق0
السلام عليكم ورحمة الله وبركاته
استاذي / مصلح
ممكن تبص علي مثالي انا كمان وشكراً ........................
الحمد لله
السلام عليكم ورحمة الله وبركاته
الاخ / مصلح
احنا في الانتظار ........ هل من جديد ..... نتمنى تكون بخير :D
السلام عليكم
تلميذ متحمس جداً كبقية الزملاء
هذا هو المثال على ما سبق ( طلعت عيوني من كتابة الأكواد ):confused:
بس الكود الأول الخاص بالحفظ للأمانة نسخته علشان كل شوي يطلع خطأ إكتشفت إنه من طريقتي في كتابة msgbox بس للأسف ما عرفت الترتيب الصحيح لها.
المهم بقية الأكواد كتبتها غصب مو طيب ( مو أبغى أتعلم ):P
ملاحظة : بالنسبة لكتابة كود الحذف ( ذكرت أخي مصلح أنه في حدث بعد التحديث ) والصحيح أنه في حدث عند النقر كبقية الأوامر :o
أنتظر مرورك أخي مصلح والتعليق على المثال (clock)
(f)(f)(f)(f)
الأخوة : zhs , System , ابو يعلى
أمثلة ممتازة جداً وعندما طلبت أن تكتبوا الأكواد ليس من باب التعجيز ولكن ما أردته من ذلك هو حفظ الأكواد فقط فبالتكرار ترسخ المعلومة في الذاكرة وأكثر معلومة ترسخ هي التي نخطيء فيها ونحاول مرة وثنين حتى نصل للحل الصحيح0
بالنسبة للجديد فبإذن الله ولكنني مشغول لأني لم أنتهي من الدورة بعد ولكن سأحاول0
الأخ أبو يعلى معذرة في خطأ الكود الخاص بالحذف وبارك الله فيك على التنبيه
مرحى مرحى يبدو أنه فاتني الكثير
موضوع هام جداً جزاكم الله خيراً
(f)(f)(f) الورود لأخي مصلح (f)(f)(f)
السلام عليكم ورحمة الله وبركاته
أخي العزيز رضا عقيل
الحمد لله الذي من عليك بالشفاء
حياك الله و الحمد لله على السلامة ... لك وحشه والله .
آخر مشاركة لك في تاريخ 19/7/2003 واليوم بحمد الله رجعت سالم ومعافى باذن الكريم الى منتداك ... ننتظر مشاركاتك .
========
========
موقع أبو حمود لتعليم الأكسس
أشكرك أخي أبو عبد الرحمن
والله انته كمان لك وحشه كبيره
وتحياتي لجميع الأعضاء
والورود لأبو طالب (f)(f)(f)
السلام عليكم
استاذي / مصلح
اسمح لي ساقوم بنقل بعض ما جاء في كتاب المرجع الاساسي لقاعدة البيانات
ACCESS 2002 للمؤلف مجدي محمد ابو العطا ليستفيد الجميع من ذلك
وعذرا سوف اقوم فقط بنقل ماجاء في الكتاب والامثله .... طبعا على استاذة المنتدى العظيم
أولا : ماذا تعني كلمة SQL ؟
SQL : STRUCTURED QURY LANGUAGE
س / ماهي استخدامات SQL ؟
تستخدم في الاتي :
1 - اسنخراج بيانات من جدول أو أكثر.
2 - استخراج احصائيات عن بيانات في جدول مثل ( المجموع ، المتوسط الحسابي ، أصغر قيمة ، أكبر قيمة ... الخ )
3- تعديل بيانات جدول.
4- إنشاء الجداول و الفهارس وتعديلها.
س / ماهي بعضض أوامر SQL ؟
الامر وظيفته
1. SELECT : اختيار مجموعة محددة من السجلات طبقا لمعايير محددة
وفرز النتائج وتجميعها.
2. DELET FORM : حذف مجموعة سجلات من جدول.
3. ISER INTO : إضافة مجموعة سجلات إلى جدول.
4 . UPDATE : التعديل في الحقول داخل الجدول.
5. TRANSFORM : إنشاء جدول مختصر يستخدم محتويات الحقول
كعناوين للأ عمدة.
س / ماهي وظيفة الامر SELECT وماهي صيغته ؟
يستخدم الامر في الاتي :
1. اختيار مجموعة من السجلات
2. اختيار مجموعة من الحقول داخل السجلات.
صيغتها :
SELECT { FIELD LIST} FROM { TABLE LIST}
حيث FIELDLIST تعني : مجموعة الحقول
و TABLELIST تعني : مجموعة الجداول
أمثله على الامر SELECT :
س / كيف يمكن الحصول على جميع الحقول الموجودة بجدول CUSTOMERS ؟
الحل :
SELECT * FROM CUSTOMERS
حيث * تعني جميع الحقول.
س / كيف يمكن اختيار مجموعة معينة ( محددة ) من الحقول المجودة في الجدول ؟
المطلوب اختيار الحقول التالية :CUST_NAME و PHONE من الجدول
CUSTOMERSالحل يكون كما يلي :
1. كتابة اسم الحقول المطلوب ويفصل بينها ( , )
SELECT CUST_NAME , PHONE FROM CUSTOMERS
س/ كيف يمكن اختيار مجموعة من الحقول من أكثر من جدول ؟
المطلوب :
1. اختيار الحقول التالية ITME_ CODE و ITME_ NAME من جدول ITMES
2. اختيار الحقول التالية SUPP_NAME و PHONE من جدول SUPPLIERS
الحل يكون كما يلي :
1. كتابة أسم الجول متبوع بنقطة ( . )
2. كتابة أسم الحقل متبوع بـ ( , )
3. كتابة جميع الجداول ويفصل بينها بـ ( , ) ( تكون على تحت لكن لم استيطيع الحصول عليها ) .
الصورة العامه :
SELECT ITMES.ITME_CDE,ITEMS.ITME_NAME,SUPPLIERS.SUPP_NAME,SUPPLIERS.PHONE. FROM ITMES,SUPPLIERS
اتمنى ان تكون الصورة واضحه
هل أكمل انا في انتظار رأيكم وخصوصا انت يا استاذ / مصلح
ما شاء الله ... ما شاء الله ... جزاك الله ألف خير ...(f)
الله يعطيك العافيه
وهذا هو طلب الأخ / مصلح بأن يشاركه أحد الأعضاء في هذا الجهد الكبير
وبإنتظار المزيد إن شاء الله
جزاك الله خير
الأخ shz
بارك الله فيك وهذا عمل ممتاز وأريد أن يشارك كل من يستطيع لا أقول بأن تكون مشاركاته من بنات فكره ولكن ما يجد سواء له أو لغيره فليس الهدف إبراز مهارة وإنما التعلم مما نعمل أو تقع أعيننا عليه وفيه الفائدة 0
أنا لم أنسى الموضوع ولكن أحالول أتعامل مع أدوات أكتفي إكس في أكسيس مثل أداة شبكة البيانات المسماه MSHFlexGrid ففيها مميزات كثيرة جداً وهذا مثال على ذلك ولكنني لا أدري هل يعمل على أجهزة لم تكن فيه بعض الأدوات
جربوا المثال وأخبروني بالنتيجه0
شكرا استاذي / مصلح
ونحن في انتظارك وبارك الله فيك وجزاك الله خير
وانا في انتظارك حتى تعود لاكمال الدرس ..... ودعنا في هذا البريك ( الفسحه ) نحاول ان نجتهد ونحضر الى محاضرتك الممتعه والشيقه والمفيده جدا.
لم يعمل الملف معي ويطلب
1. ملف carlctrl.ocx الاصدار 1.0
2. ملف msadodc.ocx الاصدار 6.0
3. ملف mschrt20 الاصدار 2.0
انا في انتظار هذه الملفات وشكرا
هذا الموضوع مغلق.