نجوم المشاركات

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

..... شاهدوا المرفق أخوكم عماد الحسامي

السلام عليكم الحلقة الثانية من دورة الفيزيو http://www.officena.net/ib/index.php?showtopic=55614 هذا الفيديو يوضح كيفية عمل تخصيص لواجهة المستخدم : = شريط ادوات الوصول السريع Quick Access Bar = شريط الأوامر ( علامات التبويب و مجموعات الاوامر ) Ribbon و هذا لا يخص الفيزيو فقط و لكن ينطبق على كل تطبيقات الاوفيس بنفس الطريقة تماما لمتابعة باقي الحلقات: http://www.officena.net/ib/index.php?showforum=161

بالمرفق كود يحذف نفسه بعد ما يشتغل مرة واحده كود يحذف نفسه بعد ما يشتغل مرة وحده.rar

السلام عليكم ورحمة الله وبركاته أشكر الأساتذة الأفاضل على هذا المديح. وأنا على استعداد لعمل كافة الدروس في ملفات PDF أشكركم جزيل الشكر لتشجيعكم لي. وأحمد الله أن عملي نال الإعجاب. سائلة المولى أن يكتب أجرنا وأجركم ويكون في ميزان حسناتنا. والله ولي التوفيق.

اخى الفاضل Collate هي عملية ترتيب الصفحات يعني لو هتطبع عشر نسخ مثلا ل 5 صفحات او اكثر .. تطلع الأوراق مرتبة كل نسخة وراء بعضها لو عملتها False هيطبع الورقة الأولى 10 مرات ثم الثانية 10 مرات وهكذا IgnorePrintAreas هي عملية تجاهل تحديد ناحية الطباعة وانا عملتها False علشان لوحددت مدي معين للطباعة وليكن من A1 الى B5 ودخلت على تخطيط الصفحة Page Layout واخترت ناحية الطباعة Print Area ثم تعيين ناحية الطباعة Set Print Area لطباعة هذا المدي فقط فيقوم الماكرو بطباعة هذا المدي بينما اذا غيرتها الى TRUE سيتم تجاهل التحديد وطباعة الصفحة كاملة ارجو ان اكون وفقت في توصيل المعلومة لك تحياتي

هذا غير واضح لي ، لاني جربت ضغط الزر المذكور ولم يتغير التبويب يلزم زيادة في شرح المطلوب جرب الكود الذي تفضل به الاستاذ رمهان مشكورا فهو يقوم بالمهمة

بعد اذن الاستاذ ابو خليل Private Sub o_Change() Me.tr.Value = Me.tr.ItemData(o.Value) End Sub مع العلم ان لي تحفظ على استخدام الكمبو بوكس لتغيير التاب . فاصلا كانك دبلت عنصرين لهم نفس الوظيفة . اقصد هل الاسهل للانتقال لتاب معينة بالنقر على الكمبو ثم تركيز النظر على القائمة ثم الاختيار ام الاسهل مباشرة بالنقر على التاب . بالتوفيق

حاول ان تستبدل الفاصلة بالفاصلة المنقوطة في المعادلات لعله يكون السبب في ذلك عند تنفيذ المعادلة ربما يجب ان تستعملها كمعادلة صفيف ( Ctrl+shift+enter)

اخي الكريم يمكن حسب تصميمك في المثال ايجاد الحل ولكننا نحتاج الى جملة برمجية اطول من الحاجة حيث انك جعلت مربع التحرير يأخذ بياناته من جدول بينما في جدول البيانات جعلت الحقل يأخذ البيانات نفسها ولكن كقيم مكتوبة داخل الاستعلام لذا قمت بتعديل نوع الحقل داخل الجدول الى رقمي وكذلك مربع التحرير لتصبح الجملة البرمجية التي تحقق مطلوبك هكذا : Private Sub o_Change() Me.tr.Value = Me.o.Value End Sub اما اذا اردت الابقاء على عملك بدون تعديل فيمكن حينها ان اعمل لك الكود المناسب ولكنه سيكون اطول قليلا حيث سيكون لكل تبويب شرطا يخصه علامة الجدوله2.rar

الاخت الكريمة Morestuy روعه روعه روعه ربنا يبارك فيك ويجعله فى ميزان حسناتك ويكون صدقه جارية لك الاستاذ / فاكهة المنتدى ( طبعا عارفينه ) كان خلاص يئس لعدم تجاوب الاعضاء وكان حزين جدا جدا جدا لدرجة انه فكر يوقف وانا حاولت اعمل عملية انعاش للموضوع وقمت باضافه درس والاستاذ الكبير الجموعى قام بشرح جميل ايضا لكن بعد الملف بتاعك ده دب الامل بعروقنا تانى والله وحسينا انى اللى بنعمله فى ناس عايزاه وهنكمل ان شاء الله مكملين مكملين مكملين يالا يا كبير مستنيك بدرس جديد ( حبيبى العلامه / ياسر خليل ) وانا معاك حضر درس

الأخ عبدالرحمن هاشم المحترم السلام عليكم ورحمة الله وبركاته ،،، قال رسول الله صلى الله عليه وسلم إذا مات ابن آدم انقطع عمله إلا من ثلاث صدقة جارية أو علم ينتفع به أو ولد صالح يدعو له وسؤالي إخوتي ربنا يجزيك خير ويجعله في ميزان حساناتك وعملك ان شاء الله، وارجو ان ان تشرح الطريقة للبحث بكتابة اي حرف او رقم للحقول جميعا في المثال ومرفق الملف ( وهل العلاقات صح؟) مثلا اذا كتبت اي جزي من رقم الموظف او جزء من الأسم او جزء من المدينة او جزي من رقم التليفون او جزء من رقم الهوية سوف يتم فلتره حسب ذلك لكن ارجو الشرح بالتفاصيل بقدر الإمكان لآني جديد ومعلوماتي قليلة وبالصور لو تكرمت ولكم جزيل الشكر Database4.rar

السلام عليكم ورحمة الله وبركاته. هذا الدرس السادس. الدرس السادس.pdf

جرب أخي الفاضل هذا التعديل حسب طلبك بالتصفية بـ(الفصل) الملف الخاص بي.rar

بادئ زي بدء يجب عليّ أولا أن أستأذن معلمينا الأفاضل عن طرح هذا الشرح طبقا لطلب الأخ (بدوي) فأنا لست بمعلم وتلميذ لديكم أخي الفاضل مبدئيا هو بحث مبني على الاستعلام مثل أي طرق بحث أخرى تنفذ بالاستعلامات ، وسأبدا من الشرح على القاعدة المرفقة من عند إنشاء نموذج البحث المطلوب على جدول لديك ولنفترض لعملاء tbl_cust والذي يحتوي على ID_cust وNamCust وAdrs... إلخ والمطلوب هو البحث عن (اسم العميل NamCust).. 1- أولا سنضع الدالة المرفقة (من عمل معلمنا الفاضل أكسسنا) في القاعدة التي تريد العمل عليها.. والتي مهمتها أن تتجاهل الحروف المهمة وتشكيلات الحروف 2- تبدأ بتصميم مبدئي لنموذج البحث بوضع مربع نص غير منضم والذي سيتم الكتابة بداخله عن المطلوب البحث عنه وسنسميه مثلا txtSearch ونحفظ النموذج مثلا باسم SrchCust 3- تبدأ بتنفيذ الاستعلام مبني على الجدول tbl_cust ومهمته هو جلب النص الذي ستكتبه في مربع البحث txtSearch بالنموذج SrchCust ◘ وسنأتي في الاستعلام على صف (الحقول) ونكتب هذا السطر ClrText([NamCust]) ومعنى ClrText هو عمل الدالة التي وضعناها مسبقاً بأن تعمل مع حقل اسم العميل NamCust ◘ وتنتقل أسفله في صف (المعيار) وتضع هذا المعيار: Like "*" & ClrText([forms]![SrchCust]![txtSearch]) & "*" ومعناه جلب البحث بعمل الدالة التي وضعناها سابقا (ClrText) طبقا لحقل البحث txtSearch الموجود بالنموذج SrchCust... ثم نحفظ الاستعلام مثلا باسم Qry ونغلقه ◘ نذهب الآن للنموذج SrchCust لإنشاء القائمة التي ستظهر فيها نتائج البحث ونختار (مربع قائمة) وعند وضعها بالنموذج سيخبرك الأكسس باختيارك لوصلها بالجداول أو الاستعلام... وستختار الاستعلام الذي فعلناه منذ قليل Qry.. أي تجعل مربع القائمة مصدره الاستعلام... ونسمي مثلا مربع القائمة SearchList ◘ أصبحت الآن على وشك الإنتهاء ولا ينقصك سوى وضع الأكواد في مربع نص البحث txtSearch لينفذ أمر البحث.. مفهومه أن يقوم بجلب ما ستكتبه في حقل البحث ليجلبه في مربع القائمة SearchList ستختار خصائص الحقل + حدث + (عند مفتاح لأعلى) ونضع هذا الكود: Select Case KeyCode Case Is = vbKeySpace Exit Sub Case Else Me.Refresh If Me.SearchList.ListCount = 0 Then Me.txtSearch.SetFocus End If Me.SearchList.SetFocus Me.txtSearch.SetFocus End Select أصبح الآن النموذج جاهز للبحث ولكن ينقصك كود في النموذج في حدث (عند الفتح) و(عند الإغلاق) ولذلك لتجنب الأخطاء عند الكتابة في مربع نص البحث txtSearch من أجل أن يكتب الكلمة كاملة • كود عند فتح النموذج Application.SetOption "Behavior entering field", 2 • كود عند إغلاق النموذج Application.SetOption "Behavior entering field", 0 وبهذا فقط انتهيت من إعداد النموذج بالبحث عن أسماء العملاء.. ------------------------------------------------------------------------------------------------------------------------- ولو أردت أن تضغط مثلا على سجل معين تريد الدخول على بياناته بالكامل لتستعرضها أو تعدل عليها في نموذج آخر وليكن اسمه مثلا FrmCust فستحتاج بوضع هذا الكود في حدث عند النقر مرتان في مربع القائمة SearchList Dim stDocName As String Dim stLinkCriteria As String stDocName = "FrmCust" stLinkCriteria = "[ID_cust]=" & Me![SearchList] DoCmd.OpenForm stDocName, , , stLinkCriteria DoCmd.Close acForm, "SrchCust", acSaveYes ومفهومه هو فتح النموذج FrmCust بعد النقر المزدوج على السجل المطلوب ويجلبه عن طريق الرابط الذي يربط بينه وبين المنقور عليه في مربع القائمة SearchList عن طريق كود العميل ID_cust ثم سيقوم بإغلاق نموذج البحث SrchCust.. ويمكنك حذف هذا السطر لو أردت أن لا يغلق النموذج أتمنى أن أكون وفقت في الشرح.. نسألكم الدعاء والسلام عليكم نموذج بحث.rar

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

اخى الفاضل ضع الكود التالى في اى موديول وقم باستدعائه >>> طبعا تقدر تغير اسم الشيت من Sheet1 الى اي شيت تريده Application.DisplayAlerts = False Sheets("Sheet1").Delete Application.DisplayAlerts = True مرفق ملف للتوضيح تحياتي DeleteSheet.rar

عزيزي اعمل استعلام للجدول واضف التعبيرين التاليين Expr1: Left([name];InStr([name];"-")-1) Expr2: Right([Name];Len([Name])-InStr([Name];"-")) بالتوفيق

الأخ الفاضل مهند إثراءاً للموضوع تفضل الملف التالي Delete Sheets.rar

أخى الفاضل تفضل الملف المرفق، لربما به ما طلبت، لاتحتاج لحذف اسماء من الكمبو لانك ان اخترت اسم سبق ادخال درجته سيتم استدعاء الدرجة السابقة وتستطيع التعديل عليها تحياتي درجة الامتحان.rar