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

أخي عماد في محرر SQL لاستعلام جديد إنسخ الكود التالي بعد تعديل اسم الجدول و اسم الحقل ، كما هو لديك SELECT Min(Field1) AS Top2 FROM table1 WHERE (((table1.[Field1]) In (SELECT TOP 2 Field1 from table1 ORDER BY Field1 DESC))); مرفق التطبيق والله من وراء القصد ... شكرا NA_Top2.rar

السلام عليكم مرحبا بكم فى الدرس الاول لتطبيق اورانج ربما لا يعرفه الكثيرين من غير المختصين ، و لكنه باختصار تطبيق مفتوح المصدر يحوي مستويات متعددة لتحليل البيانات ، و ليس فقط التحليل ، و لكن يتعدى ذلك الي الذكاء الصناعي Artificial Intenligence و التحليل العميق للبيانات Data Mining و يمكن استخدامه بطريقة مفيدة على مختلف المستويات. كما انه يمتاز بسهولة الاستخدام. و هذه خطوة على طريق المستقبل فى علوم تحليل البيانات Data Science و التي من اجلها افتتحنا مجموعة الاقسام التي من ضمنها هذا القسم الوليد، و الخاصة بالبحث العلمي و تحليل البيانات و الذكاء الاصطناعي و التي امل من الجميع الاهتمام بها و المشاركة فى الاضافة اليها باذن الله. و قد وجد العديد من الجرويات المهتمة ببعض اجزاءها ، لذا تم اضافة هذه الاقسام املا ان تثري المعرفة فى هذه المجالات باذن الله. و باذن الله سيلي ذلك التطرق الى لغة ال R و يتميز هذا التطبيق بسهولة الاستخدام و وجود امكانيات كبيرة تضم و تتعدي امكانيات الاكسيل و الاكسيس فى التحليل ، و يمكن استخدامه ايضا فى تحليل البيانات الموجودة فى الاكسيل كما سنرى لاحقا باذن الله لا أزعم الخبرة الكبيرة به ، و انا حاليا اتعلمه ، و ساشارككم ما اتعلمه خطوة بخطوة ، و اتوقع باذن الله ان يتحول الكثيرين لاستخدامه تماشيا مع التوجهات الحديثة فى تحليل البيانات ، و لكن كما تحدثنا كثيرا فى هذا المنتدى و نكرر مرة اخرى ان افضل طريفة للتعلم هي الشرح ، فانا ايضا استهدف من هذه السلسلة ليس فقط نشر اللعلم و لكن التعلم ، فباعدادها اكون قد سلكت افضل سبل التعلم . ولتوضيح الامر ، هذا الرسم يوضح انماط التعلم و درجة الاحتفاظ بالمعلومة بها لكل نمط و قد رايته اكثر من مرة و لا اعرف مرجعه العلمي و لكني مقتنع به تماما بالرأي و الواقع و الممارسة خلال السنوات الماضية ، و باستمرار ، حيث كان اخر رد لي فى المنتدى تعلمت مجموعة معلومات اضافية فى موضوع كنت ملما به تماما او بالاصح كنت اعتقد ذلك، الي ان اكتشفت بعض التفاصيل و انا اعد الرد لم اكن ملما بها ، بل و اضاف اعضاء اخرون ردود جديدة اضافت الي معرفتي ، بعد ان ظننت اني ملم به الماما كاملا. و الرسم المرفق من محاضرة لاحد المتحدثين فى منتدى دبي العالمي لادارة المشاريع: باختصرا فان درجة الاحتفاظ بالمعلومة تكون فى ادني مستوياتها بمجرد الاستماع ( 5%) ، ثم ترتفع تدريجيا بالترتيب التالي الاستماع 5% القراءة 10% المشاهدة بالصوت و الصورة 20% البرهنة او مثال عملي 30% الحوار بين مجوعة 50% التجربة بالفعل 75% التدريس للاخرين 90% و هذا يتطابق مع تجربتي فى الحياة و المنتدى و لمستها فى ارتفاع مستوى العديد من الاخوة الفاعلين فى الرد على مواضيع المنتدى حيث تطور مستواهم الفني بدرجة كبيرة جدا حتى اصبحوا خبراء فى مجالاتهم. و سابدأ سلسلة الدروس اعتمادا على الدروس التعليمية المنشورة من قبل فريق البرنامج و هذا رابطها اضغط هنا و باذن الله نتعدي ذلك مستقبلا الدرس الاول طبعا قيل أن نبدأ يلزمك تحميل التطبيق ، و هو تطبيق مجاني مفتوح المصدر و يمكن التحميل من هنا باسم الله نبدأ 1- لنبدأ بفتح التطبيق ، و سنجد الشاشة التالية تظهر لنا و من مجموعة Data على اليسار ، نختار المكون (Widget) المسمي File ثم ننقر على ايقوتة File او نسحبها و سيظهر فى الحالتين فى فى لوحة التصميم Canvas على اليمين ، او كحل ثالث يمكن ان ننقر فى لوحة التصميم بالزر الايمن للماوس و نختار File 2- الخطوة التالية هي تحديد مصدر البيانات الذي سيتم استخدامه ، و هذا بالنقر المزدوج على ايقونه الملف ثم نختار Browse documentation Data Sets من اسفل الشاشة و ستظهر الشاشة التالية مع ملاحظة ان بيانات الملف تظهر بالفعل فى الشاشة السابقة لاني قد سبق لي استخدامه قبل ذلك و بعد ذلك نختار احدي قواعد البيانات الموجودة مع التطبيق و هي IRIS.tab ,و سنري سويا فى دروس قادمة كيف نستبدلها لملف اكسيل او انواع اخرى من البيانات 3- الخطوة التالية تهدف لاظهار البيانات الموجودة فى الملف IRIS للتعرف عليها و لذلك نقوه باختبار المكون (Widget) المسمى Data Table و اضافتها الى لوحة التصميم بنفس الطريقة السابقة لتصبح الشاشة كتالي و يلي ذلك ربط الملف بالبيانات عن طريق سحب القوس الرمادي الخارجي للملف الي ان يتم وصله بالقوس الخارجي الخاص بالداتا و يسمى الشكل السابق الذي يحوي المكونات و قناة الاتصال بينها ب مسار التدفق Workflow و هكذا نكون قد قمنا بعمل اول مسار تدفقي Workflow لنا فى برنامج اورانج و الان نستطيع تصفح البيانات و استعراضها و ذلك بالنقر المزدوج على جدول البيانات Data Table و هذه البيانات تمثل البيانات الخاصة ببعض انواع الزهور من حيث طول الساق و خلافه كما توضح الصورة فإن الsepal هي الأوراق الخضراء الخارجية التي تحيط بالداخلية الملونة و التي تسمي petal أو البتلات ، كما أن iris هي زهرة السوسن و هذا الملف سنسخدمه فى دروس قادمة باذن الله و تمثل الحقول به ما ما يبدو انه مقاسات لطول و عرض اجزاء من الزهور و للتعرف اكثر عليها دعونا نراه بصورة بيانية و كما سنلاحظ الرسوم البيانية هذا غاية فى السهولة من حيث الاعداد و التنسيق و لعمل رسم بياني نختار المكون (Widget) المسمي Scatter Diagram أو مخطط التشتت من مجموعة Visualizaition و الذي يهدف بصفة عامة الي ابراز العلافة بين اي متغيرين ليصبح شكل لوحة التصميم كالتالي: ثم نصل المكون (Widget) الخاص بالملف بمثيله الخاص بمخطط التشتت و بعد ذلك ننقر مرتين على المكون (Widget) الخاص بمخطط التششت ليظهر الرسم البياني التالي و يمكن التعرف على الاوامر الموجودة على يسار الشاشة لتغيير شكل و طريقة الرسم بسهولة و مثلا باختيار Sepal Lengh كنقاط للرسم يظهر الشكل التالي و بذلك ينتهي الدرس الاول ، و أسأل الله التيسير لاستكمال باقي السلسلة و تعلم و نشر ما يفيد الدرس الثاني - اضغط هنا www.officena.net

IELTS speaking test امتحان المحادثة في الايلتس - الامتحان مدته 14 دقيقه - مع examiner - مسجل - ممكن في نفس يوم الامتحان او قبله او بعده - الامتحان واحد بالنسبه للاكاديمى و امتحان الهجرة - تلات أجزاء الجزء الأول عبارة عن تلات مجموعات من الأسئلة المجموعه الأولى بتبقى حاجة من اتنين ياما عن مكان سكنك او عن شغلك او دراستك Tell me about where you live? I live in a three bedroom flat with my family, it overlooks ( a green yard/ the Nile/ any other landmark) and is situated in a cosmopolitan area in (name of city) What do you like about it? I have my own room and it is arranged the way I want it to be. Would you like to live there in the future? I would want to but life changes and I will have my own place someday I have lived there all my life, around (x) years الإجابة على كل سؤال تبقى مختصره جمله او جملتين كفايه Do you work or are you a student? What kind of work do you do? I work as a/an …… What do you enjoy or dislike about it? The thing that I like the most or dislike the most is (gerund to verb every morning) – having to get up really early every morning Would you like to stay in this job in the future? I guess so, it pays well and I learn a lot everyday What subjects do you study? I study (English, maths, science and geography, etc) Why did you choose these subjects? I am planning to pursue a degree in engineering/literature/ science or medicine and these topics are prerequisites to this major. المجموعة التانية و التالتة أسئلة عن اهتماماتك او نشاطاتك حوالى اربع أسئلة على كل موضوع Learn to : paraphrase the questions Use complex grammatical structure to show preferences Compare between two things List information in full sentences Generalize on topics Show frequency Show personal opinion Recall historical events in your life Free Time I’d like to move on and ask you some questions about your free time 1. What type of activities do you like to do in your free time? 1. The types of activities I normally like to do in my free time fall between two things, sports and socializing 2. How long have you been interested in these activities? 1. I guess I have been interested in these kinds of activities ever since I started going to school. I met a lot of my friends through enrolling in sports class and we would usually go out together afterwards. 3. Do you like to do these activities alone or with other people? (Why)? 1. I would say, with other people. There is no point in doing everything alone. Where is the fun in that 4. Do you think people have enough free time? (Why/why not)? 1. In this time and age, people seem to run short of time, though they technically enjoy the same 24 hours our ancestors had but today, people juggle many balls in the air and that accounts for their busy schedules. So I think they don’t have as much free time as their counterparts had the in the past. Family I’d like to move on and ask you some questions about your family. 1. How many people are there in your family? 2. Do you all live in the same house? (Why/why not)? 3. What things do you like doing together? 4. Who is your favourite family member? Timing Let’s move on and talk about being on time for appointments. 1. Is being late acceptable in your culture? (Why/why not)? 2. Are you ever late for appointments? (Why/why not)? 3. What type of excuses do you think are alright for lateness? 4. How do you feel when someone is late for an appointment with you? Neighbours Let’s change the topic and talk about your neighbours 1. Do you know the people who live next door to you? 2. How often do you see each other? 3. What kind of relationship do you have? 4. How can neighbours be helpful? 5. What kind of problems can people have with their neighbours in a big city? Food Moving to a new topic, I’d like to discuss cooking and meals with you. 1. Do you enjoy cooking? (Why/why not)? 2. What type of things can you cook? (Why)? 3. What kinds of food are popular in your country? 4. Is it an important part of your culture to have dinner parties? (Why)? 5. Do you prefer to eat with other people or on your own? (Why)? Dreams I’d now like to discuss your night time dreams with you. 1. Do you dream much at night? 2. Do you often remember your dreams? 3. Do you think we can learn anything from dreams? (Why)? 4. Do people in your country talk about their dreams? (Why)? 5. Do you think that dreams can come true? Magazines and Newspapers Okay, let’s move to a different topic and discuss magazines and newspapers. 1. Which do you prefer reading, newspapers or magazines? (Why)? 2. What type of stories do you like to read about? (Why)? 3. Do you think reading a magazine or a newspaper can help you learn a language? (Why)? 4. Why do you think some people prefer magazines to newspapers? Humour Let’s change the topic and talk about comedy and humour. 1. What type of programmes do you find funny on TV? 2. Which types of programmes are most popular in your country? (Why)? 3. What kind of things make you laugh? (Why)? 4. Do you like to make people laugh? (How)? 5. Do you think it is important to have a sense of humour? (Why)? Museums Let’s move on and talk about museums. 1. Are museums popular in your country? 2. Did you visit museums when you were a child? 3. Do you like to visit museums nowadays? 4. Do you think you should pay to visit museums? Mobile Phones Now let’s talk about mobile phones. 1. Do you have a mobile phone? 2. At what age did you first get a mobile? 3. What do you most use it for? 4. Is it a nuisance if people use mobiles in public places such as trains and buses? Television We'll now talk about television. 1. How many hours a day do you spend watching television? 2. What type of television programs do you like to watch? 3. Do you think children in your country watch too much television? 4. Do you think television is useful for education in schools? The Sea Now we'll talk about the sea. 1. Do you like to go on holiday by the sea? 2. Are there many hotels by the sea in your country 3. What kind of activities can people do by the sea? 4. How long do people normal visit the sea for when they go on holiday?

الاخوة الاعزاء وعباقرة البرمجة في اكسس المحترمين عندي جدولين الاول اسمه الموظفين فيه حقول التاليه : مسلسل رقم رقم الموظف رقم اسم الموظف نص العمل نص الفئة مربع تحرير وسرد مرتبط بجدول اخر بالاضافة الى حقول العنوان والهاتف وغيرها الجدول الثاني حقوله هي: رقم الموظف رقم اسم الموظف نص العمل نص الفئة مربع سرد بالاضافة الى حقول عدد ايام الحضور التاريخ مبلغ اليوم الحافز وحقول اخرى المطلوي: عند كتابة بيانات الجدول الاول تهر في الحقول المتشاهبة في الجدول الثاني عند كتابة اسم الموظف في الجدول الثاني الفئة

السلام عليكم جرب الكود المعدل التالي: Private Sub Worksheet_Change(ByVal Target As Range) Dim lr As String Dim Destwb As Workbook, Source Dim path As String Source = ThisWorkbook.FullName path = "D:\hhh\" If Target.Column = 3 Then lr = Sheets(1).Range("c" & Rows.Count).End(xlUp).Rows.Value End If With Application .ScreenUpdating = False .EnableEvents = False End With Set Destwb = ActiveWorkbook With Destwb .SaveAs Filename:=path & lr, FileFormat:=52 End With Workbooks.Open Source MsgBox "You can find the new file in " & lr Destwb.Close With Application .ScreenUpdating = True .EnableEvents = True End With End Sub بن علية حاجي

السلام عليكم جرب الكود التالي: Sub tasfia() ActiveSheet.Unprotect Password:="Write here your password" Application.ScreenUpdating = False Sheets("الدرجات").Range("A4:Q404").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Sheets("تصفية").Range("G3:H4"), CopyToRange:=Sheets("تصفية").Range("B6:Q406") _ , Unique:=False If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData End If [B7:O407].Interior.ColorIndex = xlNone [B7:O413].AutoFilter Field:=4, Criteria1:="<>" [B7].Select Application.ScreenUpdating = True ActiveSheet.Protect Password:="Write here your password" End Sub والله أعلم

اشكرك استاذ مصطفى

ومشاركة مع اخي ابو آدم يمكنك استخدام SELECT TOP 1 Field1 FROM table1 WHERE Field1 In (SELECT TOP 2 Field1 FROM table1 ORDER BY Field1 DESC) ORDER BY Field1; جعفر

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

أو إستخدم الجملة select Field1 from Table1 where Field1 = ( select max(Field1) from Table1 where Field1 < ( select max(Field1) from Table1 ))

للتعرف على ثاني أعلى قيمة SELECT Min(Field1) AS Top2 FROM table1 WHERE (((table1.[Field1]) In (SELECT TOP 2 Field1 from table1 ORDER BY Field1 DESC))); أو select Field1 from Table1 where Field1 = ( select max(Field1) from Table1 where Field1 < ( select max(Field1) from Table1 ))

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

انا اعتذر منك اخي ابو آدم ، فلم اكن اعرف انك الاستاذ القدير نارت لبزو ، النار على علم فأهلا وسهلا بعودتك بيننا في بيتك ، منتدى الاكسس جعفر

أحسن الله اليك أبا خليل شكرا لمرورك الطيب

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

اهلا وسهلا ومرحا بــ استاذنا القدير نارت لبزو ابي آدم عوداً حميدا أدام الله علينا وعليكم رضاه ونعمه وعافيته

للتراجع عن عملية الحفظ للسجل الحالي في النموذج و عند حدث ( قبل التحديث ) ... نضع الكود التالي : Private Sub Form_BeforeUpdate(Cancel As Integer) If Me.Dirty = True Then If MsgBox("Do you wish to save the changes?", vbQuestion + vbYesNo, "Save Record?") = vbNo Then Cancel = True Me.Undo End If End If End Sub

أخي طاهر ما تطلبه متاح ولكن هل تسمح وتشرح لي سبب تكرار المعلومات في الجدولين !! شكرا

اخي ابو زاهر سبقتني خلف زر الامر رجوع لم يكن هناك كود للالغاء او حذف ما حرر من سجلات جرب الكود الذي حملته ووافنا بالنتائج لعموم الفائدة شكرا

اذن غير الكود الى هذا IIf([date1]>=Date();[date1];IIf(Day([date1])>=28;28 & Format(DateAdd("m";1;[date1]);"/mm/yyyy");28 & Format([date1];"/mm/yyyy"))) db1 (1).rar

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

أخ مصطفى محمود مصطفى اعرف ما تشير اليه ولكن الخليه I48 تحتوي على معادلة وهي ناتج جمع الخلية D48 على التاريخ في الخلية H48 .. هل وصلت لك المعلومه .. الذي اريده فقط العمل على الصف 48 فقط لانه يختلف عن الصفوف الاخر ..

طيب نفترض اسم الحقل هو iTotal ، وفي اعداداته اجعل مصدره كما هو في الاستعلام ، ثم ضع هذا الكود في حدث "الحالي" للنموذج ، me.iTotal=IIf(IsError([Text16]);0;[Text16]) جعفر

من الموقع تضيف الصورة وتكتب النص وهو هيكتشف نوع الخط ويطلع نموذج له http://www.arafonts.com/detector.aspx

محدش بيرد لية طب الى شايف انها ماتنفعش يقولى مش هينفع مش اكثر شكرا

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

اخي عندما تستخدم اختصار ctrl + h او ctrl + f لعملية البحث ستظهر لك ضمن الشاشة خيارات وستجد ان البحث على مستوى الورقه غيره حضرتك الى اوراق العمل

Form Size لتحديد حجم النموذج ، ارتفاع وعرض Private Sub Form_Load() Me.Form.InsideHeight = 6900 Me.Form.InsideWidth = 12700 End Sub ........

Capital letters للكتابة في الحقل باستخدام أحرف كبيرة Private Sub VinNo_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub