السيد عبد العال

جزاكم الله خيرا اثناء فك الملف يحدث خطأ فى ملف الأكسس ولاأعرف السبب عطب فى الملف أم فى نسخة winrar خاصتى وبالنسبة للتقرير أذا كانت تقصد الطابعة فى اعمدة متعددة فهذه الخاصية موجودة فى تقارير الاكسس: File ->Page Set Up -> Cloumns وفى هذه الصفحة من ضبط الطباعة يمكنكنك تغيير عدد الأعمدة وعرضها والمسافات بينها والمسافات بين الDetail وكذلك ترتيب رص البنات بعنى يتم البدا من أعلى ثم ألى اليمن .......

=Sum([Mark]*IIf([StudentAnswer]=[CorrectAnswer];1;0)) =Sum(IIf([StudentAnswer]=[CorrectAnswer];1;0)) هناك نقطة لم تذكرها وهى : كيف يتم التعرف على الأجابة الصحيحة ويمكن وضع تصور للموضوع كالتى 1-وضع الاختبار 2-توزيع الامتحان على الطلبة 3-تلقى اجابات الطلبة 4-تقيمها 1-وضع الاختبار يتم تجهيز جدول TestDetails به الحقول الاتية: TestID Number Long Integer QustionNo Number Integer Qustion Text 200 :السؤال Mark Number Single AnswerA Text 50 :الاختيار الأول AnswerB Text 50 :الاختيار الثانى AnswerC Text 50 :الاختيار الثالث CorrectAnswer Number Byte : 1Or 2 Or 3تجهيز Form وليكن اسمهTestDetails وهذا النموذج يستخدم لوضع الاسئلة والاجابات الثلاث لكل سؤال وتحديد رقم الاجابة الصحيحة يتم عمل مربع نص للسؤال وثلاث مربعات نصوص للاجابات الثلاثة وأخر للدرجة وأخر لرقم السؤال ويتم ربطهم بالحقول ثم أدراج Frame به ثلاث خانات اختيار عنوان الاول A ورقمه1 عنوان الثانى Bورقمه 2 عنوان الثالث C ورقمه 3 يتم ربط ال Frame على حقل CorrectAnswer وتنسيق كل خانة اختبار بجوار مربع النص الدال عليها ويقوم واضع الامتحان بملا نموذج الامتحان 2-توزيع الاختبار على الطلبة نفرض أن بيانات الطلبة مسجلة فى جدول Students ومفتاحه StudentID نعد جدول ثالث TestPerStudents وهونفس الجدول TestDetails بالإضافة إلى حقلين StudentID StudentAnswer Number Byte : 1 Or 2 Or 3 والان يتم توزيع الامتحان على الطلبة بمعنى انه أذا كان لدينا 3 طلاب ونموذج اختبارواحد به 15 سؤال نحصل على جدول به 45 سجل يمكن عمل ذلك باستعلام الحاق INSERT INTO TestPerStudent ( StudentID ) SELECT Students.StudentID, TestDetails.* FROM TestDetails, Students; وبذلك نصبح مستعدين لمتحان الطلبة 3-الاختبار يتم عمل نموذج شبيه بالسابق مع الفارق الأتى يتم ربط ال Frame على حقل StudentAnswer وبهذا أذا أختار الطالب الأختيار رقم ب يتم تسجيل 2 فى حقل StudentAnswer وبذلك يصبح لدينا لكل سؤال CorrectAnswer وضعه الممتحن وStudentAnswer اختارها الطالب 4-التقييم يتم أضافة مربع نص فى Form Header ونضع فيه المعادلة الأولى يمكن ذلك باستخدام فلتر عند فتح النموذج مجرد اقتراح وتقبل تحياتى عدم وجود درجة لكل سؤال يتم استخدام المعادلة الثانية بقى سؤال وهو كيف يتم عرض الامتحان لكل طالب على حدة

ما يجب أن يخزن هو الدرجة مباشرة وبفرض ان G1 هى أجابة الطالب وتساوى 1 أذا أختار OP1 و2 أذا أختار OP2 و3 أذا اختار OP3 وأن الإجابة الصحيحة كم وضعها الممتحنR1 فيمكن وضع المعادلة التالية فى T1 =IIf([G1]=[R1];1;0) وهذه المعادلة تعطى 1 أذا كان جواب الطالب مساوى للجواب الذى وضعه المصحح و0 أذا كان الجواب خطأ

أشكرك أخى المهاجر وواسأل الله ان يجعل هذا المجهود الضخم الذى تبذله فى ميزان حسناتك بالنسبة لخطوات التنفيذ 1- يتم تنزيل الملف (المضغوط) PassWordDetect.zip 2- يتم فكه فنحصل على الملف PassWordDetect.doc 3-يتم فتح الملف PassWordDetect.doc فى برنامج ورد 4-من قائمة خيارات-> ماكرو -> وحدات ماكرو أو (Alt+F8) 5- بفتح صندوق حوار بعنوان "ودات ماكرو" ويظهر فيه اسماء الماكروهات ومن ضمنها OpenWithAnyPWord OpenWithEnglishPWord نختار احداهما ثم تنفيذ فى حالة ظهور رسالة معناها أن خاصية تشغيل الماكرو معطلة يتم تعديل هذه الحاصية من قائمة أدوات -> خيارات ->الأمان -> أمان الماكرو (أخر مقطع) ثم نضغط زر أمان الماكرو ... وفى الشاشة التى تظهر بعنوان الامان نختار منخفض ثم موافق ويتم بعدها غلق الورد ثم فتحه ونعيد الخطوات من رقم 3 5-تفتح الماكرو الصندوق الحوارى الخاص بفتح الملفات نختار اسم الملف المراد فتحه-كما نفتح اى ملف فى الورد 6-يظهر صندوق حوارى اخر يطلب كلمت السر يتم اختيار موافق 7-يبدأ البرنامج فى تجربة ملايين كلمات السر ويظهر فى اسفل شاشة الورد كلمة السر الجارى تجربتها 8-فى حالة نجاحه يفتح الملف للقراءة فقط مع رسالة تعرف كلمة السر 9-يقضل بعدها خفظ الملف حفظ باسم - لتغيير كمة السر او أزالتها

فهمت كلمة ينتقل على انه يغلق نموذج2 وبالتالى ننتقل إلى نموذج1 يجب وضع جملةفتح النموذج2 فى حدث عند النقر لاسم الطالب وليس عندالتركيز وذلك للسبب الاتى: بفرض انه عند التركيز نجحنا فى فتح نموذج 2 وعندتملا البيانات تنقل القيمة المكونة من تلصيق الثلاث اسماء ألى اسم الطالب ثم اغلقنا نموذج2 ماذا سيحدث ؟ سينتقل التركيز ألى النموذج1 وبما أن التركيز كان على اسم الطالب فسينتقل التركيز إليه بمجرد غلق نموذج وبذلك يتم استدعاء حدث عند التركيز مرة أخرى ويفتح نموذج 2 مرة أخرى وهكذا ندخل فى حلقة مفرغة لا تنتهى إلا بغلق نموذج1 نموذج 1 Private Sub اسم_الطالب_Click() DoCmd.OpenForm "نموذج2" End Sub ويتم كتابة هذا الكود فى حدث بعد التحديث لمربعات النصوص الثلاث فى نموذج2 ويمكن الكتفاء بالاسم الأخير فقط إذا ضمنا ان المستخدم سيلتزم بالترتيب Private Sub الاسم_الاول_AfterUpdate() If Not IsNull([الاسم الاول]) And Not IsNull([الاسم الثاني]) And Not IsNull([الاسم الاخير]) Then Forms("نموذج1")![اسم الطالب] = Me![الاسم الاول] & " " & Me![الاسم الثاني] & " " & Me![الاسم الاخير] DoCmd.Close acForm, Me.Name End If End Sub Private Sub الاسم_الثاني_AfterUpdate() If Not IsNull([الاسم الاول]) And Not IsNull([الاسم الثاني]) And Not IsNull([الاسم الاخير]) Then Forms("نموذج1")![اسم الطالب] = Me![الاسم الاول] & " " & Me![الاسم الثاني] & " " & Me![الاسم الاخير] DoCmd.Close acForm, Me.Name End If End Sub Private Sub الاسم_الاخير_AfterUpdate() If Not IsNull([الاسم الاول]) And Not IsNull([الاسم الثاني]) And Not IsNull([الاسم الاخير]) Then Forms("نموذج1")![اسم الطالب] = Me![الاسم الاول] & " " & Me![الاسم الثاني] & " " & Me![الاسم الاخير] DoCmd.Close acForm, Me.Name End If هذا هو المطلوب مع تحفظى على الفكرة اعتقادا منى أن هذا التكوين إذا استخدم فى أدخال البيانات الىالجدول ستظهر بعض المشاكل وتقبل تحياتى

مرحبا بك أخى الكريم هذا البرنامج تم عمله لفتح ملفات الاكسل فك حماية ملف الاكسل وقد قمت بتعديله ليعمل مع الورد وحاليا به عدد 2ماكرو الاولى باسم OpenWithAnyPWord وتفتح ملفات ذات كلمة سر حتى 15 حرف أما أذا كنت متأكدا من أن كلمة السر عبارة عن حروف أنجليزية +أرقام فقط + حروف خاصة مثل الأقواس - فقط ( بمعنى ليس بها حروف عربية) فيمكن استخدام الماكرو الأخرى OpenWithEnglishPWord ومن المعروف أن هذا البرنامج بطئ جدا لانه يستخدم اسلوب المحاولة والخطا ولكن ...... يمكن يستخد فى حالات الضرورة يفضل تعطيل خاصية فحص المكارو فى برنامج Norton AntiVius حتى يفر وقت البحث أرجو تجربة البرنامج والافادة PassWordDetect.zip

فى اانموذج الجديد الذى تقوم بتعديل البيانات فيه يتم إضافة هذا الكود فى حدث OnClose فيؤدى الى تحديث النموذج يرحى تعديل form1 الى اسم النموذج خاصتك Private Sub Form_Close() Dim x As AccessObject Set x = Application.CurrentProject.AllForms("form1") If x.IsLoaded Then Forms("form1").Recalc End If End Sub او أضافة زر ووضع الكود الأتى فى حدث Click Private Sub Command3_Click() Me.Recalc End Sub

الأخ baran المثال فى المشاركة بتاريخ 30/6/2004 Adel_8.zip الأخ فرقدى : فى الحقيقة ااكود صمم بحيث أنه إذا وجد الدائرة فلا يغير فيها شئ وينتقل إلى الخلية التى تليها وذللك ليحافظ على التنسيقات التى يضيفها المستخدم ولكن يمكن تعديل ذلك أذا رغبتم وهناك طريقة للتحديث : 1- يتم حذف جميع الدوائر عن طريق الماكرو sClearAllOval() 2- يتم عمل نسخ ولصق فى نفس المكان لأاى صف من صفوف الدرجات التى فى نطاق الدالة fDraowOval() وبذلك تشعر الدالة بتغير فى احد وسائطها فتجب على إعادة احتساب كل الدوائر التى فى نطاقها وزاقبلوا تحياتى

أخى لا أدرى ما المشكلة وربما أنك تستخدم ارقام اسماء عربية ت}دى الى اختلاف القواس او انك ضبطت List Seprator فى Control Panel إلى شئ اخر غير الفاصلة او الفاصلة النقوطة كما اشار استاذنا الكبير أبو هادى وعموما ارفقت لك المثال على اننى ثم ساقوم بحذفه لاحقا عند ما تنتهى المشكلة وارجو اخبارنا إذا علمت سبب الخطأ وتقبل تحياتى iifExample.zip

أخى الكريم علينا الاعتراف بما يضعه صانعو هذه البرامج ومطورها وهذا التصرف Frame & Option Batton هو مقصود من قبل مصصو الاكسس نضع frame حول 3 اختبارات ثم املفروض ان يختار منهم المستخدم اختيارا واحدا وعلى كبرمج أن أعرف أيهم اختار وبناء علي اختيار المستخدم أقوم باجراء معين والوسيلة هو أعطاء رقم لكل اختيار لكى احلل النتيجة إذ وما معنى أن أضع لهم نفس القيمة؟؟؟؟؟ برجاء شرح الموضوع ونقوم معا باختيار الطريق المناسبة لتصميمه وتقبل تحياتى

= FV («rate», «nper», «pmt», «pv», «due») =FV(0.025/12,10,-200) $2,018.85

فعلا الخطوات صحيحة حدث لبس فى استخدام الاسم Name فهمها البرنامج على أنها اسم التقرير وولد جملة SQL التالية: UPDATE الاعضاء SET الاعضاء.aa =1 WHERE (الاعضاء.name= 'pp') بينما كان المطلوب هو البحث بالاسم الذى الذى فى الحقل Name للسجل الحالى وينتج عنها جملة sql التالية: UPDATE الاعضاء SET الاعضاء.aa =1 WHERE (الاعضاء.name= 'ابراهيم محمود') قد تم تعديل كود حدث Detail_Print وكتب بطريقة أكثر تحديدا لإزالة اللبس ليصبح كالتالى: Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer) Dim strSQL As String strSQL = "UPDATE [الاعضاء] SET [الاعضاء]![aa] =" & Me![repno] strSQL = strSQL & " WHERE ([الاعضاء]![name]= '" & Me![name] & "')" 'MsgBox strSQL DoCmd.RunSQL strSQL End Sub وهو الان يعمل بطريقة صحيحية - تم إضافة نموذج جديد يقوم بحساب الكود عند أدراج سجلات جديدة يحسب أكبر قيمة فى المدينة ويضيف عليه1 NumFromRprt.zip

بفرض ان لدينا نموذج به مربع نص اسمه NewDefult و زر اسمه ChangeDefult ونريد عند الضغط على زر ChangeDefult أن يقوم بتغيير القيمة الافتراضية لحقل Price الموجود فى جدول Products وجعل القيمة الفتراضية مساوية للقيمة الموحودة فى مربع النص NewDefult نفوم بكتابة هذا الكود فى حدث Click للزر ChangeDefult Private Sub ChangeDefult_Click() Dim TAbleName As String Dim FieldName As String TAbleName = "Products" FieldName = "Price" CurrentDb.TableDefs(TAbleName).Fields(FieldName).DefaultValue = Me.NewDefult End Sub

الحقيقة يا اخى الكريم لقد حاولت تتبع ال\اكسل فى طريقة كتابابته للملف بمعنى اننى فتحت ملف اكسل مكتوب فيه كلمة واحدة وحفظته بدون password ثم نفس الملف مع تغيير password وذلك لحاولى 10 كلمات مختلفة ثنم فتحتهم فى ال Binary Mod وقرات الكواد المقابلة أملا ان أعثر على المكان الذى يحفظ فيه الكسل كلمة السر وبالتالى يمكن بسهولة فتحته ولكن أذهلتنى المفاجاة : يقوم أكسل XP بلخبطة أكواد الملف تماما ماعدا الجزء الخاص Summary Information - ومكانه فى نهاية الملف كذلك المعلومات الأفتاحيية والتى يخزن فيها المعلومات عن نسخة الأكسل _ vergaion - الأدهى من ذلك ان عملية اللخبطة تتم بمقادير غير ثابتة بمعنى مرة يزود 30 وبعدها ينقص 200 وهكذا والأعجب أن لن الطريقة تختلف مغ اختلاف كلمة السر الاستنتاج : لن يستطيع الأكسل نفسه فتح الملف بصورة إلا أذا كانت كلمة السر التى اعتطيت له صحيحة وقد يهسل العملية أذا عرفت الطريقة اللىتى يلخبط بها الاكسل الملف ولقد وضعت العشر ملفت وطرحتتهم من الملف الاصلى وظللت أحملق فى النتائج محاولا الوصول للعلاقة ولكن لم يممكنى ذلك ... أذا ترغي اعطيك الماكرو التى استخدمتهه ا وجرب ربما فتح الله عليك بحل اللغز وملحوظة : لتسريع الماكرو السابقة يمكن أجراء العملية علوى نظام ليس به Norton AntiVuis لأن معظم الوقت يضيع فى فى الفحص او محالولة الفحص . ,أرجو المعذرة هذا هو القدر الذى استعطته

Sub SelectTop() ActiveSheet.Cells(1, ActiveCell.Column).Select End Sub Sub SelectLeft() ActiveSheet.Cells(ActiveCell.Row, 1).Select End Sub

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) Dim strSQL As String strSQL = "UPDATE Persons SET Persons.NewNumber =" & RepNo strSQL = strSQL & " WHERE (Persons.PrName= '" & PrName & "')" DoCmd.RunSQL strSQL End Sub أولا :الافتراضات 1-نفترض أن بيانات الأشخاص مسجلة فى جدول اسمه Persons وان هذا الجدول يحتوى على حقل ترقيم تلقائى كان يستخدم قديما لرقم الشخص يوجدحقل لأاسم الشخص الثلاثى أو الرباعى واسمه PrName واننا نريد أضاافة حقل جديد اسمه NewNumber من النوع Long Integer ونريد أن نسجل فيه ألرقم من التقرير 2-نفترض أن لدلينا تقرير سنصطلح على تسميته التقرير الأصلى وهذا التقرير هو الذى يتم الطباعة منه وأن مصدر السجل فى فى هذا التقرير هو الجدول Persons ولكى يتم عمل رقم متسلل فقد تم وضع مربع نص وتسميته RepNo وتم وضع معادلة فى مصدر عنصر التحكم =1 وضبط خاصية running sum لتكون OverAll ثانيا : المطلوب:- هو نقل الأرقام التى تظهر فى مربع النص RepNo عند فتح التقرير إلى الحقل NewNumber بجدول Persons اعتمادا على الاسم الثلاثى أو الرباعى الموجود فى الحقل PrName .. ثالثا : الفكرة :- ]استغلال حدث OnPrint والذى يحدث لكل مقاطع التقرير ويهمنا مقصع Detail والذى يتكرر لكل سجل من سجلات التقرير واثناءه نحصل على الرقم الذى تم احتسابه لمربع النصRepNo وكذلك اسم الشخص فى السجل الحالى وبناء عليه يتم كتابة جملة sql استحداث NewNumber قيمة المقابل لاسم الشخص رابعا: الخطوات :-1 - يتم عمل نسخة احطاياطية من قاعدة البيانات وهى التى يتم فيها هذا العمل لحين نجاحه 2-يتم التحقق من الفتراضات السابقة والتعدبل المطلوب فى جدول persons 3 - يتم عمل نسخة مؤقتة من التقرير الأصلى 4- يتم أضافة هذا الكود السابق فى حدث OnPrint لمقطع Detail 5-نفتح التقرير فى وضع PreView وينتج عنه استدعاء اللإجراء لكل الحقول 6-نفتح جدول persons ونتأكد من القيم الجديدة 7- يتم تعديل التقرير الأصلى بجعل الرقم المتسللسل يرتبط بحقل NewNuber 8-يتم خذف التقرير المؤقت و ..... معذرة على الإطالة والإسهاب

بفرض أن الحقل المراد تجميعه اسمه TotalPrice .فيكتب فىخانة الإجمالى هذه المعادلة =Sum(IIf([TotalPrice]>0,[TotalPrice],0))

ممكن تجربة الاتى: يضاف مربع نص ويتم ضبط خصائص -> تنسيق الى نسبة مئوية وتحدد عددالمنازل العشرية وبفرض ان المبيعات هى SaleValue يتم كتابة المعادلة الأتية غى مصدر عنصر التحكم: =[SaleValue]/Sum([saleValue])

جزاكم الله خيرا ونفعكم الله به

هذا هو أخر تعديل والملف المرفق تطبييق على الموضوع -كما أعده الأخ الفاضل عادل حسين Adel_8.zip

عمل رائع بارك الله فيك وجعله فى ميزان حسناتك يا أخى أبو هادى عندى ويندوز 97 واوفيس XP ومتصل على شبكة بنظام Domain على ويندوز 2000 سيرفر فى البد اية امر net.exe view /network لان net.exe لدي الإصدار 4 وقد غيرت الجملة إلى net.exe view واستطاع بعدها الحصول على اسماء الأجهزة التى فى مجموعتى ثم استخدمت net.exe view /WorkgrouP:DR واستطاع الحصول على اسماء الأجهزة فى ال Domain وان شاء الله اوافيك بما يستجد وخالص الحب والشكر والتحية لشخصكم الكريم

أخى الفاضل بعد نقل الأكواد السابقة إلى Module نفترض أن درجات مادة التاريخ موجودة فى الخلايا P16:P45 وأن الحد الأدنى لمادة العلوم هو 48 فنذهب لخلية بعيدا عنهم ولتكن أسفل مثل الخلية P56 مثلا ونكتب هذه المعادلة =fDrawOval(P16:P45,48,0.2) نفترض أن درجات مادة الرياضيات موجودة فى الخلايا V16:V45وأن الحد الأدنى لمادة الياضيان هو 98 فنذهب لخلية بعيدا عنهم ولتكن أسفل مثل الخلية V56 مثلا ونكتب هذه المعادلة =fDrawOval(V16:V45,98,0.2) مع مراعاة المشكلتين المذكورتين ولك تحياتى

بطئ جدا ولكن للضرورة أحكام ...... بالإضافة إلى الوصلة الرائعة التى أشار إليها الأخ الفاضل الفدعانى: إليكم كود لفتح الملف فى حالة نسيان كلمة السر - حتى 16 حرف Sub OpenWithPWord() Dim I01 As Integer, I02 As Integer, I03 As Integer, I04 As Integer, I05 As Integer Dim I06 As Integer, I07 As Integer, I08 As Integer, I09 As Integer, I10 As Integer Dim I11 As Integer, I12 As Integer, I13 As Integer, I14 As Integer, I15 As Integer, I16 As Integer Dim XlsFileName As String, strPassWord As String Dim fd As FileDialog On Error Resume Next Set fd = Application.FileDialog(msoFileDialogOpen) With fd fd.AllowMultiSelect = False If .Show = -1 Then XlsFileName = .SelectedItems(1) Else Exit Sub End If End With If XlsFileName = "" Then Exit Sub Workbooks.Open Filename:=XlsFileName, Password:="", ReadOnly:=False If Err = 0 Then Exit Sub If Err <> 1004 Then MsgBox Err & "xx : " & Error Err.Clear Exit Sub End If For I16 = 31 To 255 For I15 = 31 To 255 For I14 = 31 To 255 For I13 = 31 To 255 For I12 = 31 To 255 For I11 = 31 To 255 For I10 = 31 To 255 For I09 = 31 To 255 For I08 = 31 To 255 For I07 = 31 To 255 For I06 = 31 To 255 For I05 = 31 To 255 For I04 = 31 To 255 For I03 = 31 To 255 For I02 = 31 To 255 For I01 = 32 To 255 ' ********************************** strPassWord = Chr(I01) _ + IIf(I02 > 31, Chr(I02), "") + IIf(I03 > 31, Chr(I03), "") + IIf(I04 > 31, Chr(I04), "") _ + IIf(I05 > 31, Chr(I05), "") + IIf(I06 > 31, Chr(I06), "") + IIf(I07 > 31, Chr(I07), "") _ + IIf(I08 > 31, Chr(I08), "") + IIf(I09 > 31, Chr(I09), "") + IIf(I10 > 31, Chr(I10), "") _ + IIf(I11 > 31, Chr(I11), "") + IIf(I12 > 31, Chr(I12), "") + IIf(I13 > 31, Chr(I13), "") _ + IIf(I14 > 31, Chr(I14), "") + IIf(I15 > 31, Chr(I15), "") + IIf(I16 > 31, Chr(I16), "") Application.StatusBar = strPassWord Workbooks.Open Filename:=XlsFileName, Password:=strPassWord, ReadOnly:=True If Err.Number = 0 Then Application.StatusBar = False MsgBox strPassWord Exit Sub Else Err.Clear End If ' ********************************** Next I01 Next I02 Next I03 Next I04 Next I05 Next I06 Next I07 Next I08 Next I09 Next I10 Next I11 Next I12 Next I13 Next I14 Next I15 Next I16 End Sub RmvFilePWord.xls

و العملية العكسية _البيانات موجودة فى الاكسس- يرجى مراجعة هذا الموضوع: أضغط هنا

أكرمك الله يا أخى الحبيب ومعذرة يبدو أننى فهمت سؤالك خطأ وأن شاء الله سأقوم بتو ضيح للشرح السابق فى مشاركة لاحقة بطريقة أفضل وإليك الكود الذى طلبته Dim cCol As Long cCol = ActiveCell.Column Columns(cCol).Select او فى سطر واحد هكذا Columns(ActiveCell.Column).Select