أحمد العيسى

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

الأخ/ محمد حجازى شكراً على إضافتك .. لكن لى استفسار بسيط هل توجد نسخة منها تعمل على Windows98 الأخ/ hzlar ما تم عمله من خلالك هو صندوق بريد له كلمة سر لا يعرفها غيرك إذا حدث إختراق لن يكون لجهازك وإنما لبريدك فقط والميزة الوحيدة الجديرة بالاهتمام هو استخدام هذا الصندوق لتخزين الملفات والوصول إليها واستجلابها من أى مكان آخر غير جهازك وذلك بالدخول على صندوق بريدك باستخدام الأسم وكلمة السر، والتى يجب ألا يعرفها سواك عموماً أنا أضع فى هذا الصندوق ملفات صغيرة مفيدة ، لا تحتوى على أى سر قومى

السلام عليكم هى تجربة قد تنجح وقد تفشل ، ملخصها وضع مجموعة من الأسئلة وإجابتها على صفحات المنتدى على أن يستكملها باقى الأخوة المحترفون بالإضافة أوالتنظيم أوالتبويب أو جميع ما سبق ولا أنكر أننى قد استفدت كثيراً من هذه المعلومات فى تنقيح برامجى الخاصة وذلك من خلال توجيه الأسئلة وتسجيل كل إجابة أتلقاها فى ملف خاص على جهازى .. لتبدأ على بركة الله سؤال1: عندي مشكلة لا أعلم كيف احلها وهي عندما احب ان اتعامل مع قواعد البيانات من خلال الفيجوال بيزك . عندما اعرف القاعدة من خلال Dim dbs As Database يظهر الخطأ ولا استطيع التكملة في هذا التطبيق هل يوجد آداه لتعريف هذا ؟ الجواب: من قائمة Tools ا---> References أضف المرجع : Microsoft DAO 3.6 Object Liprary أو إي إصدار منها سؤال2: نريد استخراج اعلي درجات لخمس أشخاص وذلك بالتسلسل التالي :- يتم ترتيب الخمسة الأوائل من حيث المعدل فإذا تساوى بالمعدل نرتبهم حسب المجموع فإذا تساوى المجموع نرتبهم حسب الاسم ترتيب أبجدياً الجواب: بفرض حقل رقم الطالب SN حقل الاسم Name حقل المجموع Total حقل المعدل Ava افتح استعلام جديد واكتب في SQL هذا الاستعلام وهذا ما تريده SQL SELECT TOP 5 SN, Name, Total, AVA FROM T1 ORDER BY AVA DESC , Total DESC, Name; سؤال3: كيف يمكن التحكم بعدد سجلات المطبوعة في الصفحة الواحدة , أي لو كان لدي تقرير مؤلف من مئة صفحة , كيف يمكن جعله يطبع كل عشرة سجلات في صفحة واحدة ؟ الجواب: توجد هناك طريقة عملتها وقد كانت مفيدة للغاية معي وهذه الطريقة تتطلب منك ثلاثة عناصر العنصر الاول: مربع نص في مقطع التفصيل يقوم بالترقيم التلقائي للسجلات واسمه Counter. العنصر الثاني: مربع نص في مقطع تذييل التقرير يحتسب عدد السجلات في التقرير واسمه RecCounter ويمكنك ان تجعلهما غير مرئيين إذا لم تكن بحاجة إلى بياناتهما. العنصر الثالث : فاصل صفحات تضعه في مقطع التفصيل واسمه Fasel. ثم قم باظهار مربع الخصائص لمقطع التفصيل وفي البند (عند التنسيق) قم بعمل الاجراء التالي: IF Counter Mod 10=0 And Counter<>RecCounter THEN Fasel.Visible=True Else Fasel.visible=False EndIF وتلاحظ ان الشرط يقوم على انه كل ما ان يصل عدد السجلات إلى عشرة أو مضاعفاتها يقوم باظهار الفاصل الا في حالة اذا كان العدد الكلي للسجلات يقبل القسمة على عشرة يتجاهل هذا الفاصل حتى يظهر الاجمالي الذي ذكرته والا فانه كان سيجعل الاجمالي يظهر في صفحة مستقلة . سؤال4: المعدل يحسب بقسمة المجموع على الرقم 12 وناتج الاستعلام فى خانة المعدل بالفعل تظهر لكننا نريد أن يظهر الرقم فى خانة الاستعلام كرقم بحد أقصى عددين عشريين فهل نستطيع اداء ذلك داخل الاستعلام الجواب: mm: Round([summ]/12,2) mm : المعدل summ : المجموع سؤال 5: لماذا فى تقرير الصفحة الثانية يأتي رأس العمود زاحفا لليمين وهى مشكلة فى أوفيس اكس بي الجواب: الاول : ان تستغني عن وضع العنوان فى راس الصفحة بوضعه فى راس مجموعة تجميع معينه و تجعل خاصية التكرار لراس هذه المجموعة مفعلة الثاني: ممل قليلا و هو وضع حقل مستنتج فى الاستعلام المبني عليه التقرير قيمته ثابتة و عمل تجميع به و جعل خاصية التكرار لراس المجموعة الخاصة به مفعلة الثالث : من خصائص التقرير أختر تنسيق ثم إتجاه ثم من اليمين الى اليسار حولها الى من اليسار لليمين الرابع : من عرض تصميم التقرير اختيار أمر إعداد الصفحة من قائمة ملف اختيار الامر الثالث (أعمدة) ومنه ازالة علامة صح من امام (مماثل للتفصيل) ومن ثم زيادة عرض التقرير التقرير قليلا سؤال6: عندي كود اود ان احميه بكلمه سر كيف الطريقه وطريقه فك الحمايه الجواب: أفتح أي وحدة نمطية 1. من قائمة tools أختر البند الأخير 2. ثم أفتح protection 3. ضع علامة صح أمام lock project 4. أكتب كلمة المرور وتأكيدها في الاسفل سؤال7: عندما أضغط على خاصية تكبير النموذج Max أثناء عرض النموذج يكبر، هنا لا توجد مشكلة ... لكن عندما أريدعرض نموذج بعده أجده أيضا كبيرا لماذا لايكون الثاني على الوضع المصمم عليه الجواب: باستخدام الامر docmd.movesize يمكنك تحديد مكان و حجم الشاشة فى حدث عند تغير المقاس للنموذج docmd.movesize 150,150,700,500 أي علي مسافة 150 و 150 من أعلي يسار الشاشة و عرض 700 و ارتفاع 500 مثلا لتحديد المقاس فقط Private Sub Form_Resize() DoCmd.MoveSize , , 4600, 5300 End Sub سؤال8: كيف أجعل الرقم بعد الفاصلة اذاكان أقل من الربع يتم إلغاءه وإذا كان يتراوح ما بين أكثر من الربع الى أقل من الثلاثة أرباع يصبح نصف وإذا كان ثلاثة ارباع يصبح واحد ويضاف الى العدد الصحيح الجواب: جرب أن تكتب العبارة التالية في استعلام Expr1: Fix([s_Mark])+Switch(([s_Mark]-Fix([s_Mark]))<=0.25;0;([s_Mark]-Fix([s_Mark]))>=0.75;1;([s_Mark]-Fix([s_Mark]))<0.75;0.5) واستبدل [s_Mark] باسم الحقل الذي يحتوي الرقم عندك سؤال 9: أريد كود لتفادي مشكلة احتمال الفشل في حذف محتويات بعض الجداول Sub DeleteAllTables() Dim dbs As Database Dim rst As Recordset Dim Table As TableDef Dim ErrCount As Long On Error Resume Next Set dbs = CurrentDb DoCmd.SetWarnings False Do ErrCount = 0 For Each Table In dbs.TableDefs If Not Table.Name Like "MSys*" Then If Table.Connect = "" Then DoCmd.RunSQL "DELETE * FROM " & Table.Name & ";" Set rst = dbs.OpenRecordset(Table.Name, dbOpenSnapshot) If rst.RecordCount > 0 Then ErrCount = ErrCount + 1 End If End If Next Loop Until ErrCount = 0 DoCmd.SetWarnings True rst.Close Set dbs = Nothing MsgBox "Done" End Sub

السلام عليكم مجهود رائع .. بارك الله فيك أتمنى استكمال هذا المجهود بتعريب أداة InputBox

السادة الأفاضل السلام عليكم عرض الأخ العزيز محمد حجازى إرسال دعوات مجانية لعمل بريد لدى Gmail ولم يلتفت الكثير من الزوار لهذه الدعوة الكريمة !!! رغم أن السعة الممنوحة لهذا البريد 1000ميجابايت الجديد هنا هو أنك تستطيع استخدام صندوق بريدك هذا لتخزين ملفاتك المهمة والتى تخشى عليها من الضياع إذا حدث ضرر لاقدر الله لقرصك الصلب . والعملية فى منتهى السهولة .. فقط قم بتشغيل الملف الموجود بالمرفقات وبعد إعادة تشغيل النظام سوف تجد درايف جديد تم إضافته لمجموعة تقسيمات الهارد باسم Gmail Drive يمكنك نسخ ولصق ما تريد إلى هذا الدرايف بسرعة ملفتة كما تعودت ولكن يجب أن يكون اتصالك بالإنترنت مفتوحاً .. مع خالص التحية gmailfs_105.zip

السلام عليكم: الأخ/ psd 1 يمكنك ذلك من خلال تسجيل ماكرو ، أو اتبع الخطوات التالية 1-انسخ الماكرو الموجود فى نهاية المشاركة 2-افتح وورد ومن قائمة أدوات اختر : ماكرو > محرر Visual Basic 3-من قائمة Insert اختر Module ثم الصق فى الموديل ما سبق نسخه 4-اغلق صفحة Visual Basic وارجع لصفحة وورد 5-من قائمة عرض اختر أشرطة أدوات > تخصيص ، ومن التبويب الأوامر وتحت قائمة فئات اختر وحدات ماكرو لتظهر فى القائمة المقابلة أمر خط_الرقعة واضغط علية بالماوس مع السحب إلى شريط القوائم وليكن داخل قائمة إدراج 6-يمكنك تعديل الاسم والخواص بالضغط بالزر الأيمن على الأمر الجديد وذلك قبل غلق مربع حوار تخصيص Sub خط_الرقعة() ' خط_الرقعة ماكرو ' Selection.InlineShapes.AddOLEObject ClassType:="Decotype", FileName:="", _ LinkToFile:=False, DisplayAsIcon:=False End Sub

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

السلام عليكم الأخ الفاضل / smart التطبيق ممتاز وبه حرفية عالية ونتمنى عمل هذا المجهود على برنامج أكسس قريباً لكن نرجو منك وضع كلمة المرور الخاصة بحماية صفحات التطبيق وذلك لزوم الاستفادة والتعديل . ألست معى فى أن أهم أهداف منتدانا هو التعلم والتعليم وفقك الله مع خالص التحية

الأداة بدون الاسطوانة المذكورة ( Multilingual ) لن تفيدك شيئاً

توجد اسطوانة قائمة بذاتها ضمن مجموعة أوفيس أكس بى باسم Microsoft Office Multilingual User Interface Pack تحتوى على اللغتين الانجليزية والفرنسية يجب تنصيب أى منهما على الأوفيس العربى أولاً وذلك قبل طلب تغيير لغة الواجهة من اللغة العربية إلى اللغة المطلوبة ضمن قائمة Microsoft Office Tools

شكرا أخى عبداللطيف على هذا التوضيح بارك الله فيك

إجابة غامضة لأن ويندوز لا يعترف بها

سؤال لو تكرمتم ما هى التطبيقات التى يستخدم فيها هذا الخط ؟ علما بأن امتداد ملفات هذه الخطوط OTF وليس TTF

شكراً جزيلاً أخى الفاضل محمد حجازى جارى التسجيل والمعاينة

شكراً أخى محمد على مبادرتك وإليك بريدى أدناه ahmeissa@hotmail.com

عفواً أخى وفى خلال أيام سوف تصبح سعة بريدك 250 ميجا كما حدث مع جميع الزملاء

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

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

كتب أحد الزملاء لاأذكر أسمه هذا الموضوع: لقد قرأت موضوعاً حول زيادة مساحة البريد الهوت ميل الى 25 ميجابايت و مجانية بنسبة 100% يرجى اتباع الخطوات التالية: 1 - إذهب إلى Hotmail.Com وسجل دخولك 2 - إذهب إلى Options من لوحة تحكم بريدك 3 - إذهب إلى My Profile .. وانتظر قليلا لتحميل الصفحة 4 - قم بتغيير البلد إلى United State واختار المدينة New York وضع هذا الرقم 10001 في الـ Zip Code ومن ثم إعتمد البيانات. 5 - بعد الإنتهاء من الخطوات السابقة بطريقة سليمة .. إعمل Sign Out من الهوتمايل 6 - إذهب إلى هذا الرابط : http://memberservices.passport.net/memberservice.srf 7 - إضغط على: Close my .NET Passport account 8 - سوف يطلب منك تسجيل الدخول مرة أخرى .. تابع إجراءات تسجيل دخولك .. وانتظـــر 9 - الآن ستظهر لك صفحة بها هذا الزر "Contact Hotmail" .. إضغط عليه 10 - سوف يطلب منك إعادة كتابة الباسورد للتأكد من عدم وجود عمليه إحتيال أو اختراق 11 - الآن ستظهر صفحة وبها خيارين .. اختار "Close My Account" .. 12 - ستظهر لك صفحة عنوانها Confirmation of Closed Account 13 - الآن ارجع للصفحة اللي كنت فيها قبل الخطوة الـ 12 .. فقط اضغط على زر الـ Back من المتصفح 14 - ستظهر لك مرة أخرى الصفحة التي تحدثنا عنها فالخطوة رقم 11 .. الآن إضغط على خيار "Cancel" .. 15 - ستتوجه إلى صفحة لتسجيل دخولك مرة أخرى على الهوتمايل .. إكتب إيميلك والباسورد .. وبعدين Enter 16 - ستتوجه الآن إلى صفحة بعنوان Congratulations! .. وفي خيار إسمه Activate My Account ... إضغط عليه .. ومن ثم ستظهر صفحة تالية بها خيارين .. اختار "I Accpet" .. 17 - سوف ترى فى الصفحة التالية كلام كتير .. وفي آخر سطر فيها Or, sign up for FREE E-mail .... إضغـــــــــــــط على جملة FREE E-mail ... 18 - ستظهر لك صفحة الآن بها شركات الإعلانات .. تفاداها وانزل لنهاية الصفحة .. وإضغط على Continue مبروك .. إيمايلك أصبح 25 ميجا الآن تعليق : جربت هذه الخطوات ونجحت تماماً .. ولكن لى سؤال إذا غيرت البلد مرة أخرى هل ستعود السعة القديمة؟ بالطبع لن أخاطر فقد أسعدنى جداً زيادة سعة بريدى وكما قيل لى فى خلال 30 يوما سوف يصبح 250 ميجا

السلام عليكم الأخ/ hussen1 تم طرح هذا الموضوع فى الرابط http://www.officena.net/ib/index.php?showtopic=4197 وكان لنا شرف مشاركتك بها أما بخصوص ظهور الأرقام بالعربية أو الانجليزية يمكنك التحكم بها من إعدادات إقليمية بلوحة التحكم إذا كنت تصر على أن أكسل لا يفهم العربية

بعد أبجدة الأسماء والإطمئنان على الترتيب العام من خلال عمودين : العمود الأول لرقم الجلوس والعمود المجاور له للرقم السرى ثم إخفاء كل من عمودى الأسماء ورقم الجلوس وأخيرا حماية الصفحة بكلمة سر ، وذلك فى حالة إذا كان معك عضو كنترول وظيفته إدخال الدرجات فقط ولا تريده الإطلاع على الأعمدة المخفية. يمكنك الإطلاع على ما يفيدك فى هذا الشأن من خلال الرابط http://www.officena.net/ib/index.php?showtopic=3828

عملياً الموضوع مرهق لمن يدق الأرقام السرية إذا كانت الوسيلة عشوائية فالمتبع أن تكون الأرقام السرية مرتبطة مع أرقام الجلوس من خلال خانة الأحاد أو خانتى الأحاد والعشرات فمثلاً إذا كان رقم الجلوس 456 فمن الأفضل أن يكون الرقم السرى 1056 وهكذا

الأخ الفاضل / محمود المثال الذى وضعته هنا من مشاريع مختلفة وأحدهما تمت كتابته بأكسل 5 أو 97 ( لا أذكر ) والذى يحتوى على الدالة GRADE وحيث أن هناك اختلاف بين الإصدارات المختلفة . إذن من الصعب تذكر الخطوات التى تمت حينها. عموماً سأحاول معك بطرق أخرى عسى أن نصل الى حل ، وأدعو الزملاء للإشتراك معنا 1) افتح ملف " تطبيقات_مدرسية.xls " 2) اضغط Alt+F11 3) اضغط F2 4) من القائمة المنسدلة All Libraries اختر AGE.XLS 5) حدد العنصر GRADE وبضغط زر الماوس الأيمن اختر Properties... 6) سوف تلاحظ أن التعليمة التى تريدها موجودة فى خانة Description: إذن لما لا نحاول بنفس الطريقةأن نكتب تعليمة مشابهة للعنصر nDay ثم نضغط Ok حاول أنت وأعلمنى بالنتيجة.

تفضل أخى sHIFT.rar

معذرة لقد تم حل مشكلة الشيفت ببرنامج sHIFT.mde