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

السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير اطلب المسامحة ممن راسلني ولم يجد رد مني هديتي لكم بعد هذه الغيبة Option Explicit '========================================================" ' بسم الله الرحمن الرحيم " '========================================================" ' (دالة تحويل الرقم الى نص باللغة العربية (تفقيط " ' kh_TextNum " '========================================================" 'Num الرقم " '========================================================" 'sex جنس العملة " 'FALSE ( فارغ او صفر مذكر ) " 'TRUE ( أو اي رقم غير الصفر مؤنث ) " '========================================================" 'sNameCurr اسم العملة الرئيسية مفرد " 'pNameCurr اسم العملة الرئيسية جمع " 'NameCurrDec اسم العملة الكسرية " 'Decimal_Count طول الكسر افتراضـياً : بدون اظهار الكسر " '===============================================================================================================================================" 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" '===============================================================================================================================================" ' ملاحظات ' (اولاً : العملة الرئيسية مثنى (يقوم بها الكود تلقائيا ' مع ملاحظة اذا اسم العملة ينتهي بالتاء المربوطة ' يجب ان يكتب كذلك وليس بالهاء ' ----------------------- ' ثانياً : اذا كانت العملة الرئيسية مفرد فارغاً تعتبر ' اسماء العملات (الجمع والكسري) فارغة تلقائيا ' ----------------------- 'ثالثاً : الكلمة الابتدائية بامكانك تغييرها او تجعلها فارغة Private Const MyBegTx As String = "فقط " ' "" ' ----------------------- ' MyTNum رابعا : يمكنك التغيير (اضافة,حذف,تحرير) في الثابت ' للفئات الصفرية للرقم ادناه Private Const MyTNum As String = "ألف-آلاف/مليون-ملايين/مليار-مليارات/بليون-بلايين/بليار-بليارات/ترليون-ترليونات/تريليار-تريليارات/كدرليون-كدرليونات" '===============================================================================================================================================" 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" '===============================================================================================================================================" Function kh_TextNum(Num As String, Optional sex As Boolean = False, Optional sNameCurr As String = "", Optional pNameCurr As String = "", Optional NameCurrDec As String = "", Optional Decimal_Count As Byte = 2) As String Dim Spp, zt Dim i%, ii%, pr% Dim MyMid$, nCurr$, Txt$, Txt1$, Txt2$ '====================================== If Not IsNumeric(Num) Then GoTo kh_Exit Spp = Split("/" & MyTNum, "/") ii = UBound(Spp) If Num < 0 Then Num = Abs(Num) '====================================== If Val(Num) > Val(String((ii + 1) * 3, "9") & ".999") Then GoTo kh_Exit '====================================== nCurr = sNameCurr & "-" & IIf(pNameCurr = "", sNameCurr, IIf(sNameCurr = "", "", pNameCurr)) '====================================== Txt1 = Format(Num, String((ii + 1) * 3, "0") & ".000") For i = 0 To ii MyMid = Mid(Txt1, (i * 3) + 1, 3) If MyMid Then zt = Mid(Txt1, (i * 3) + 4, Len(Txt1)) zt = IIf(ii - i, Int(zt), zt) Txt2 = IIf(ii - i, Trim(Spp(ii - i)), nCurr) pr = 1 + IIf(ii - i, 1, CInt(sex)) Txt = Txt & IIf(Len(Txt), " و", "") & kh_nText(MyMid, Txt2, pr, zt, CBool(sNameCurr <> "")) End If If i = ii Then If MyMid = 0 Then Txt = Txt & IIf(Len(Txt), " ", "صفر ") & sNameCurr Next '====================================== Txt = MyBegTx & Txt & kh_dText(Num, sNameCurr, NameCurrDec, Decimal_Count) '====================================== kh_Exit: kh_TextNum = Trim(Txt) End Function ' معالجة العدد من 1 الى 999 لكل فئات الرقم Private Function kh_nText(ByVal iNum As String, ByVal oMm As String, ByVal ibs As Integer, ByVal z As Boolean, ByVal tCu As Boolean) As String Dim Sp Dim Num1%, Num2%, Num3% Dim oM$, S$, S1$, nT$, nT0$, nT1$, nT2$ '====================================== Sp = Split("واحد,إحدى,اثنتان,ثلاث,أربع,خمس,ست,سبع,ثمان,تسع,عشر,إحدى ,اثنتا ", ",") '====================================== If ibs Then S = "ة": Sp(1) = Sp(0): Sp(2) = "اثنان": Sp(11) = "أحد ": Sp(12) = "اثنا " Else S1 = "ة" oM = Trim(Split(oMm, "-")(0)) '====================================== Num1 = Left(iNum, 1) Num2 = Right(iNum, 2) Select Case Num1 Case 1: nT0 = "مائة" Case 2: nT0 = "مائتا" & IIf(ibs = 2, IIf(Num2 < 3, "", "ن"), IIf(Num2 = 0 And oM <> "", "", "ن")) Case 3 To 9: nT0 = Sp(Num1) & "مائة" End Select '========================================= Num1 = Right(iNum, 2) Select Case Num1 Case 1, 2: If nT0 <> "" Then If ibs = 2 Then nT0 = nT0 & " " & oM Case 11 To 99: If oM <> "" Then If ibs Then If z Then oM = oM & "اً" End Select '----------------------------------------- Select Case Num1 Case 1 nT = IIf(oM = "", Sp(0) & S1, oM) oM = IIf(ibs <> 2 And oM <> "", Sp(0) & S1, "") Case 2 nT = IIf(oM = "", Sp(Num1), Replace(oM, "ة", "ت") & IIf(z = 0 And ibs = 2 And tCu, "ا", "ان")) oM = IIf(ibs <> 2 And oM <> "", Sp(Num1), "") Case 3 To 10 oM = Trim(Split(oMm, "-")(1)) nT = Sp(Num1) & S Case 11, 12 nT = Sp(Num1) & Sp(10) & S1 Case 13 To 19 nT = Sp(Num1 - 10) & S & " " & Sp(10) & S1 Case 20 To 99 Num2 = Right(Num1, 1) Num3 = Left(Num1, 1) If Num3 = 2 Then nT1 = "عشرون" Else nT1 = Sp(Num3) & "ون" nT2 = Sp(Num2) & IIf(Num2 > 2, S, "") & " و" & nT1 If Num2 = 0 Then nT2 = nT1 nT = nT2 End Select '====================================== S = IIf(nT = "" Or iNum < 100, "", " و") nT = Replace(nT, Sp(8) & "ة", Sp(8) & "ية") kh_nText = Trim(nT0 & S & nT & " " & oM) '====================================== End Function ' معالجة الكسر Private Function kh_dText(ByVal dNum As String, ByVal NCur As String, ByVal Ndec As String, ByVal co As Byte) As String Dim Td$, Td1$ On Error GoTo 1 If NCur = "" Then Ndec = "" Td = Format(Round(CCur(dNum - Int(dNum)), co), "0." & String(co, "0")) If Td = 0 Or Td = 1 Then Td1 = "": GoTo 1 If Len(Ndec) Then Ndec = " " & Ndec: Td1 = Td * CVar("1" & String(co, "0")) Else Ndec = " " & NCur: Td1 = Td Td1 = " و " & Chr(40) & Td1 & Chr(41) & Ndec 1: kh_dText = Td1 End Function دالة تحويل الرقم الى نص عربي.rar ================================================= الملف المعدل: هذا المرفق بامكانية تفقيط الكسر وامكانية ادخال كلمة نهاية النص دالة تحويل الرقم الى نص عربي.rar ================================================= رابط مباشر للملف

بسم الله الرحمن الرحيم مرفق لكم بفضل الله تعالى برنامج شؤون الطلاب والعاملين والكنترول ) برنامج الشؤون 4 ( فى برنامج واحد ولجميع الصفوف وعلى أى قرار وزارى أيا كان رقمه سواء كان القرار 460 أو القرار 313 أو أى قرار سيصدر مستقبلا لأن هناك خاصية يمكن من خلالها التعديل على القرار الوزارى جديد الاصدار 1) شؤون الكنترول لجميع الصفوف فى برنامج واحد بحجم صغير بسبب الاعتماد على المعادلات لا الماكرو أو الأكواد ويحتوى الاصدار على هذه المشتملات : * كشف أعمال السنة * كشف الناجحين والراسبين من خلال الاختيار من القائمة المنسدلة * صفحة الأوائل على مستوى الصف على حسب المجموع والسن * صفحة الضعاف العشرين على مستوى الصف لمعالجتهم * صفحة المتفوقين والضعاف فى جميع المواد الدراسية لجميع الصفوف * كشف النسبة والترتيب العام وعلى كل مادة لجميع المواد * شهادات بتصميمات مختلفة * إحصاء عام وشامل لكل من المدرسة والادارة * كشوف اللجان والمنادة 2) شؤون الطلاب لجميع الصفوف بأشكال مختلفة عن الاصدارات السابقة شاملة الاتى : * قاعدة بيانات تفصيلية الية المدخلات شاملة الاسم / والنوع / الرقم القومى / تاريخ الميلاد / السن / الفصل / حالة القيد ...............ز * كشف أعمال السنة قابل للتعديل * قوائم الفصل من خلال اختيار الفصل من القائمة المنسدلة * بيان حالة قيد تلميذ 3 ) شؤون إدارية شاملة الاتى : * قاعدة بيانات تفصيلية لجميع العاملين * إحصاء العاملين على حسب الدرجة والمواد * إحصاء عام وشامل لكل من التلاميذ والعاملين والفصول * نماذج غدارية هامة كالغياب اليومى والرواد ........... لتحميل البرنامج اضغط هنا أسأل الله تعالى أن يكون هذا العمل خالصا لوجهه تعالى وأن يغفر لنا ولكم إنه هو الغفور الرحيم

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

قائمة بأهم المواقع التي تقدم كورسات التعليم الذاتي منقول The best 31 websites for online courses 1- www.edx.org 2- www.coursera.org 3- www.udacity.com 4- www.mruniversity.com 5- www.class.stanford.edu 6- www.venture-lab.org 7- www.education.10gen.com 8- www.openhpi.de 9- www.ocw.mit.edu 10- www.khanacademy.org 11- www.oli.cmu.edu 12- www.oyc.yale.edu 13- www.webcast.berkeley.edu 14- www.openclassroom.stanford.edu/MainFolder/HomePage.php 15- www.see.stanford.edu 16- www.ck12.org 17- www.udemy.com 18- www.skillshare.com 19- www.codecademy.com 20- www.p2pu.org 21- www.ed.ted.com 22- www.myopencourses.com 23- www.myopencampus.in 24- www.nptel.iitm.ac.in 25- www.saylor.org 26- www.nalandau.com 27- www.academicearth.org 28- www.youtube.com/education 29- www.phodphad.com 30- www.learntobe.org 31- www.floqq.com

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

السلام عليكم ورحمة الله وبركاته أنا عندى اوفيس 2013 نسخة 64 بت وكثيرا تواجهنى مشكلة عند تشغيل الاكواد والرسالة التى تظهر كما بالمرفقات نرجو المساعدة ... لانى محروم من الكثير من التطبيقات بسبب ذلك وجزاكم الله خيرا مقدما

السلام عليكم ورحمة الله وبركاته ،،، لدي نموذج وارغب مساعدتي في تعديله ،، في البداية عملت جدول يحتوي على حقول بعضها تشمل نصوص والبعض يحتاج إلى جمع ولكن هناك خانات كثيرة وبعد محاولات عديدة لم انجح ولذلك طرحت المشكلة هنا في المنتدى لعل احد الاخوة يساعدني فيها.. صورة توضح المشكلة ... http://www.m5zn.com/newuploads/2014/04/16/jpg//c31bbfbd047cc12.jpg

أشكرك عزيزي ولكن تم الحل حيث وجدته في منتدى أجنبي : =SUBTOTAL(109,K3:K1000) بهذه الطريقة يقوم بجمع الخلايا الظاهرة فقط.

مشكور يا اخي اسﻻم فعﻻ الطريقة سهلة وبسيطة ربنا يوفقكم لنا فيه الخير

اخي انا كتبت الكود مخصوص حتى يخفي السطر و لا يحذفها لانه في حال الاخفاء يمكنك التراجع. على كل حال اذا اردت الحذف/اكتب في الكود مكان كلمة hidden = true delete

الأخ الكريم/ محمد حماده السلام عليكم ورحمة الله وبركاته بعد إستئذان الأستاذ الفاضل/ مصطفى كمال من المرفق قم بتغيير أسماء الخلايا التي تريد النقل منها حسب الرغبة - مبدئيا هي ذات اللون السماوي تقبل تحياتي Book1-Copy Range Value to Another Sheet.rar

السلام عليكم بارك الله فيك اخي الحبيب ابوحنين للفائدة هذا اثراء للموضوع عكس العملية بدلا من استخدام شرط Sub Button1_Click() With Sheets("Sheet1").Range("F:F,I:I,K:K,O:O").EntireColumn .Hidden = Not .Hidden End With End Sub تحياتي

السادة الخبراء وجدت هذا الماكرو الرهيب للتحكم فى ايقون اكسل 2007 يظهر الاجزء المراد و اخفاء الباقي ولكن المشكلة عند نقل الماكرو فى ملف اخر لا يعمل فهل من لدية فكرة عن كيفية نقل هذا الماكرو للافادة للجميع جزاكم الله كل خيراً Hide-Display-Built-in Tabs.rar

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

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

السلام عليكم جزاكم الله خيراً استبدل هذا Private Sub kh_Format(iName As String, MyCel As Range) With Me.Controls(iName) .BackColor = MyCel.Interior.Color .TextAlign = 2 With .Font .Name = MyCel.Font.Name .Bold = True .Size = MyCel.Font.Size End With .Caption = "ع" .Caption = MyCel.Text End With End Sub جرب واشعرنا بالنتيجة

السلام عليكم جزاك الله خيرا عدل في هذا الكود كالتالي : Private Sub kh_Format(iName As String, MyCel As Range) With Me.Controls(iName) .BackColor = MyCel.Interior.Color .Caption = MyCel.Text .TextAlign = 2 With .Font .Name = MyCel.Font.Name .Bold = True .Size = MyCel.Font.Size End With End With End Sub حيث تم تعديل هذا السطر فقط .Caption = MyCel.Text تحياتي

السلام عليكم هذا المرفق 2003 مع اضافة تنسيق لون الخط اضافة نطاق الى فورم بنفس التنسيقات 2003.rar

بسم الله الرحمن الرحيم وبه نستعين السادة اعضاء منتدى اوفسينا السلام عليكم جميعا ورحمته الله وبركاته فى ظل مانلمسه جميعا من تطوير وتحديث مستمرفى هذا الصرح التعليمى المبارك وفى ظل المجهودات المتواصله والدؤبة سواءا من السيد الاستاذ الفاضل // محمد طاهر " مديرالموقع " او من الساده الزملاء القائمين على إدارته والتى نحتسب هذة المجهودات الطيبة المباركة فى موازين حسناتهم بإذن الله تعالى وكما تعلمون جميعا ان مانراه فى هذا الموقع من تفاعلات ايجابية بين الساده الاعضاء بجميع مستوياهم وبين ادارتها الحكيمة المتمثله فى الاستاذ الفاضل// محمد طاهر فقد بادرسيادته بمبادرة بشأن التحاوروالنقاش بشأن ملاحظات الأعضاء حول آلية الترقيات ونظام الموقع http://www.officena.net/ib/index.php?showtopic=51373 وللأمانه الشديدة فنحن جميعا نرى مالانراه فى مواقع اخرى نحو هذا التلاحم الغير مسبوق ولا أريد ان اقول وكأننا ولكن بالفعل نحن جميعا أسرة واحدة يربطها ميثاق المحبة والود والاحترام المتبادل وهدفنا الاسمى هو العمل الدؤب والعطاء اللا محدود لانبتغى سوى مرضاة الله سواء فيما نقدمه وفيما نعطيه لاننا اجتمعنا على حب الله اولا ثم حب العطاء والتفانى فيما وهبنا الله تعالى اياه وقد قوبلت مبادرة الاستاذ // محمد طاهر بقبول حسن واول من قام بقبول هذة الدعوة الكريمة الاستاذ الفاضل // ضاحى الغريب الذى وبفضل الله وبفضل مجهوداته الطيبة المباركة اعاد البهجة والسرور الى جروب الموقع على الفيس بوك بعد ان كان خاويا تقريبا من اية موضوعات الامر الذى سيزيد من الجروب تفاعلات أكثر وأكثر من الناحية العملية والعلميه وتبادل الافكاروالمعلومات التى تساهم بشكل كبير نحو حياة افضل وتعلم ارقى ونحن كأعضاء لنا حقوق وعلينا واجبات فحقوقنا لدى الموقع هو مانراه من تحديث وتطوير دائم لتقديم افضل الخدمات المتاحة وواجبتنا نحوه ان نتكاتف جميعا نحو ارتقائه بعطائنا اللا محدود وبحبنا اللامتناهى فيما بيننا لذا ... فضلا.... اسمحوا لى ان ادعو جميع السادة الاعضاء كلا فيما يخصه بتقديم مالديه من افكار بنائة وفعاله على ان تكون محل دراسة لا محل تقييم من اى جانب أخروالعمل على بلورتها الى واقع ملموس واول هذا الواقع الملموس ماتروه حضراتكم الان على جروب الموقع بالفيس بوك الذى ابتهج فرحا وإزدهارا https://www.facebook.com/groups/285194998167633 بارك الله فيكم ...... وجزاكم الله خيرا ….. تقبلوا وافر احترامى وتقديرى

السلام عليكم ورحمة الله وبركاته هذه اول تجربة اقوم بها لاستحداث دوال جديدة ولا اعلم ان كان هناك من قام بعملها في السابق او ان كانت موجودة اصلا فان بالاساس لا اقوم باستخدام الدوال ولا احب استخدامها وعلى اي حال هنا اربع دوال متعلقة بالبحث "VLOOKUP" وعلى اربعة اشكال كالتالي : ---------------------------------------------- دالة البحث العكسية "VLOOKUPREVE" بحيث ان الدالة الرئيسية تقوم بالقراءة من اليمين لليسار اما هذه الدالة فتقوم بالقراءة بالعكس من اليسار لليمين الشرح المفصل مع الامثلة لهذه الدالة في المرفق vlookuprev.rar ---------------------------------------------- دالة البحث ذات المعيارين"VLOOKUPTOW" وهي دالة تقوم باستخدام معييارين لجلب البيانات وليس معيار واحد كما الدالة الاصلية وهي على شكلين "VLOOKUPTOW1" وهنا اذا كان المعيارين موجودان في العمودين الاول والثاني مباشرة "VLOOKUPTOW2" وهنا اذا كان المعيار الاول في العمود الاول والمعيار الثاني متغير اي في العمود الذي تختاره انت الشرح المفصل مع الامثلة لهذه الدالة في المرفق ---------------------------------------------- دالة البحث ذات الثلاث معايير"VLOOKUPTHREE" وهي نفس الدالة السابقة ولكن بثلاث معايير ويمكن عمل الدالة لاكثر من ثلاث معايير "VLOOKUPTHREE1" وهنا اذا كان المعايير الثلاث في العمودين الاول والثاني والثالث مباشرة "VLOOKUPTHREE2" وهنا اذا كان المعيار الاول في العمود الاول والمعيارين الثاني والثالث متغيرين اي في الاعمدة التي تختاره انت الشرح المفصل مع الامثلة لهذه الدالة في المرفق ---------------------------------------------- دالة البحث الترتيبية "VLOOKUPRNK" وهي دالة تقوم بايجاد البيانات حسب الترتيب المطلوب في حالة البيانات المتشابهة فالدالة الاصلية تقوم بجلب اول بيانات موجودة اما هذه الدالة فنقوم باختيار الترتيب المطلوب جلب البيانات حسبه الشرح المفصل مع الامثلة لهذه الدالة في المرفق vlookuprev.rar vlookuptwo.rar vlookupthree.rar VLOOKUPRNK.rar

بارك الله فيك فعلا رائعة

بسم الله الرحمن الرحيم وبه نستعين أخى العزيز الفاضل / أحمد فضيلة السلام عليكم ورحمته الله وبركاته على مايبدو أن هذة المشكلة بدأت تؤرق معظم الساده الاعضاء وقد تقدمت من قبل للأستاذ الفاضل / محمد طاهر " مدير الموقع " بإقتراح بشأن هذا الموضوع والحمد لله تعالى كان له الآثر الطيب فى تعديل شروط المشاركة لاول مرة للاعضاء الجدد الرابطين http://www.officena....l=&fromsearch=1 http://www.officena....l=&fromsearch=1 أما باقى الاعضاء المتمسكون بهذة الاسماء والتى ليس لها معنى الى وقتنا هذا فأذكرهم جميعا بقول الله تعالى بسم الله الرحمن الرحيم يَا أَيُّهَا النَّاسُ إِنَّا خَلَقْنَاكُم مِّن ذَكَرٍ وَأُنثَى وَجَعَلْنَاكُمْ شُعُوبًا وَقَبَائِلَ لِتَعَارَفُوا إِنَّ أَكْرَمَكُمْ عِندَ اللَّهِ أَتْقَاكُمْ إِنَّ اللَّهَ عَلِيمٌ خَبِيرٌ صدق الله العظيم وبما أن أخى الحبيب الاستاذ / عبدالله المجرب يؤيد هذه الدعوة المباركة التى تقدمتم بها والدعوة التى سيقرؤها من خلال الرابطين المذكوران اعلاه فانتهزهذة الفرصة وأكررالمطالبة كما اقترحت سابقا على الاستاذ الفاضل / محمد طاهر وهو إرسال إيميلات للساده الاعضاء لحثهم على تغيير تلك الاسماء حتى ولوأسماء مستعارة على غرارإرسال وصلة النشرة الدورية للموقع وجزاكم الله خيرا

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

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

ملاحظه: إذا أخترت مرحلة الأبتدائي تتغير البيانات التي في النموذج الخاصة بمرحلة الأبتدائي ... وأيضاً إذا اخترت المتوسط تتغير البيانات التي في النموذج إل بيانات المتوسط ، وايضاً في الثانوية. الملف يوضح ذلك ،،، ولكم الشكر _____.rar

بسم الله الرحمن الرحيم يقول تعالى : و ما أوتيتم من العلم الا قليلا فهذا شي يسير الحال من كثير مما أفتقد اليه من هذا العلم الواسع , و على قدر المستطاع أقدم لاخواني هذه الوصايا التي أسأل الله أن تفيدهم قبل الشروع ببناء برامجهم , وفقنا الله و اياكم لما فيه الخير أولا : عمل تحليل مسبق للبرنامج الكثير منا عندما يطلب منه تصميم برنامج , يبدأ مباشرة بتصميم الجداول المطلوبه جنبا الى جنب مع بناء النماذج , ثم يعود ان اضطره الأمر لاعادة بناء الجداول أو العلاقات و هكذا الى أن يتم انجاز البرنامج مما يطيل مدة انجاز البرنامج ناهيك عن دقة التصميم . و قد يغيب عن أذهاننا , و غالبا نكون على عجلة من أمرنا , أن نجاح أتمتة المشروع يعتمد اعتمادا كليا على دقة تحليل النظام و تصميمه بالشكل الصحيح تحليل النظام يعتمد اساسا على الخطوات التالية بشكل اجمالي : - تحليل نظام العمل و كيفية سيره على أرض الواقع اي آلية العمل الفعليه للنظام المراد وضع برنامج له و يكون ذلك بوصف دقيق من قبل من هو مختص بهذا المجال و يعايشه بشكل واقعي , فكم رايت من برامج محاسبية فيها ثغرات محاسبية فادحة , و بسؤالي عن مصمميها يتبين أنهم من غير ذوي الاختصاصات المحاسبيه أصلا . - وضع منهجية العمل الآلية للبرنامج الذي سيستخدم في هذا المجال - وضع المخطط التدفقي للمشروع و تصور النماذج و التقارير المطلوبه - في ضوء المخطط التدفقي يتم وضع تصور للجداول المطلوبه - وضع تفصيل الحقول المراد استخدامها في بناء الجداول ثانيا : عند تصميم الجداول ينبغي التمييز بين البيانات المدخلة و البيانات المخرجة , اذ أن البيانات المدخلة هي فقط التي تخزن في الجداول , أما البيانات المخرجة فقد تكون عبارة عن البيانات الأساسية المدخلة كما هي . أو قد يكون جرى عليها بعد العمليات الحسابية , مثلا اذا كنا نريد حساب القيمة و التي هي عبارة عن : القيمه = الكميه * سعر الوحده يمكن أن نضع حقلا للكميه المباعه و حقلا لسعر الوحده أما القيمة و التي هي عباره عن سعر الوحده * الكميه , فلا يجب أن يكون حقلا ضمن الجدول وذلك لأنه يتأثر بقيمة كل من الكمية و السعر فاذا تغير سعر الوحده فان الجدول لايستطيع حساب القيمه من تلقاء نفسه الا من خلال تشغيل كود معين , لذلك يستعاض عن هذا باستخراج القيمة من خلال استعلام يحوي حقل محسوب يساوي الكميه * السعر ثالثا : يجب فصل البيانات الخاصه بجزئيه معينه عن بعضها , مثلا اذا كان لدينا نظام مبيعات , أي لدينا مواد و زبائن , و حيث أننا نريد أن ندخل اسم العميل في الطلبيه , و نحتاج بنفس الوقت لمعرفة بيانات كامله عن هذا العميل , فاذا كنا سنقوم بادخال بيانات العميل هذه كل مره في جدول الطلبيات فسيكون هذا عملا مرهقا , لذلك يتم انشاءجدول مستقل لبيانات العملاء تجتمع فيه بياناتهم الكامله , و نكتفي في جدول الطلبيات بوضع حقل واحد لرقم العميل , و بعملية الربط بين الجدولين نستطيع معرفة مانريد من بيانات عن هذا العميل . رابعا : استتباعا للوصية السابقة , نؤلف جدول الطلبيات و يكون فيه حقل واحد لكود العميل و يكون الرقم المعرف للعميل و ليس اسمه , و لمزيد من التفاصيل يرجى مراجعة الموضوع التالي http://www.officena.net/ib/index.php?showtopic=6209 خامسا : مع عشقي و حبي الجارف للغة العربية و استخدامها في التخاطب و الكتابة و أعتبرها بحق أرقى لغات العالم , الا أنه و للأسف فان كتابة الأكواد تعتمد على اللغة الانكليزية , لذلك يكون من الأنسب و الأيسر أن يتم استخدام الأسماء الانكليزيه لكل مكونات قاعدة البيانات و خاصة اسماء الجداول و الحقول , لأن استخدام الأسماء الانكليزية أسهل أثناء العمل بالمعادلات و أكواد الفيجوال بيسيك سادسا : تجنب وضع مسافات في التسميات , مثلا اذا كنت تريد تسمية Product List فالأفضل وصلها هكذا ProductList سابعا : كثيرا مايتم بناء استعلام من جدول و يأخذ الاستعلام بشكل تلقائي نفس اسم الجدول , و حتى نميز بين الجدول و الاستعلام يفضل ابتداء اسم الجدول برمز tbl يليه اسم الجدول , مثلا الجدول Product يصبح TblProduct أما الاستعلام فيسبقه الرمز qry و يصبح QryProduct و قد نستدرك بعض الوصايا لاحقا هذا و الله أعلم

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