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

تفضلي هذا الكود Private Sub cmd_Split_Click() Dim x() As String Dim rstFrom As DAO.Recordset Dim rstTo As DAO.Recordset 'busy hour glass ON DoCmd.Hourglass True 'set both tables for In/Out data Set rstFrom = CurrentDb.OpenRecordset("Select * From Table1") Set rstTo = CurrentDb.OpenRecordset("Select * From Table2") 'clear Table2 CurrentDb.Execute ("Delete * From Table2") 'move the cursor to the first Record rstFrom.MoveLast: rstFrom.MoveFirst rcFrom = rstFrom.RecordCount 'count the records 'read all the records, one at a time For iFrom = 1 To rcFrom 'split the required field, based on empty spaces x = Split(rstFrom!Field1, " ") 'iterate through these splited words For i = LBound(x) To UBound(x) 'add them to the second table, and update the record rstTo.AddNew rstTo!code = rstFrom!ID rstTo!word = x(i) rstTo.Update Next i 'move to the next record rstFrom.MoveNext Next iFrom 'busy hour glass OFF DoCmd.Hourglass False 'clearing the memory rstFrom.Close: Set rstFrom = Nothing rstTo.Close: Set rstTo = Nothing End Sub . والنتيجة . جعفر 463.index.mdb.zip

انا قلت Webcam كان قصدي Webcam ، وكاميرا DSLR مثل Nikon D500 و Canon

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

وعليكم السلام عندك طريقتين لعمل هذا: 1. طريقتي التي عملتها في معظم برامجي ، اضع نص خلف الصورة ، اكتب فيها: الصورة غير موجودة (او شئ من هذا القبيل) ، هذه الطريقة جدا خفيفة على البرنامج 2. تعمل جدول خاص ، وتضمن فيه هذه الصورة فقط (وتتأكد انها صغيرة طولا وعرضا ، حتى لا تأخذ مساحة كبيرة من برنامجك) ، ثم في النموذج الذي به صورة الموظف ، في حدث الفتح (حيث انه يقوم بتنفيذ الكود قبل جلب البيانات من الجداول) ، نقول للكود: تأكد من وجود صورة الموظف من مجلده ، اذا وُجدت ، ونستطيع استخدام الدالة Dir مثلا في هذا الخصوص . وإلا تأكد من وجود الصورة الافتراضية ، وهي صورة واحدة ، ويجب ان تكون في مجلد images_company مثلا ، وإلا فيقوم بعمل المجلدات المطلوبة ، ونسخ هذه الصورة الافتراضية من الجدول الى مجلد images_company ثم على حدث التحميل نضع هذا الكود: اعرض صورة الموظف من مجلده ، اذا وُجدت ، وإلا اعرض الصورة الافتراضية ، وهي صورة واحدة ، ويجب ان تكون في مجلد images_company مثلا جعفر

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

تفضل db8.rar

السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الكرام المرفق الاتى هو يخص اضافة صورة للموظف داخل نموذج باحدى الطريقتين - الماسح الضوئى - اضافة صورة من جهاز الكمبيوتر باستعراض الملفات والاختيار من بينها تم مراعاة الاتى : - ان تكون الصور فى مجلد خاص للموظفين - ان يتم نسخ الصورة للمجلد الخاص بالموظفين فى حالة اختيار الصورة من جهاز الكمبيوتر فى كلتا الحالتين يتم عمل تسمية للصورة لتكون بكود الموظف والامتداد JPG. - امكانية حذف الصورة فقط دون حذف بيانات الموظف - حفظ الصور بدون اى مسار للصور فيسهل استعراضها بدون اى مشاكل من اى مكان فى حالة تغيير مكان قاعدة البيانات على الكمبيوتر طالما ان المجلدات موجودة بالصور فى نفس مكان القاعدة - فى حالة عدم وجود المجلدات عند فتح القاعدة للمرة الأولى يتم انشاء المجلدات اللازمة دون تدخل من المستخدم ....... وهنا مشكلتى وسؤالى لحضراتكم ....... - قمت بارفاق المجلدات كاملة حتى تعمل القاعدة كما قمت بوضع صورة فى المرفق باعتبارها الصورة الافتراضية فى حالة عدم وجود صورة للموظف كما سيتم توضيحه ....... وهنا مشكلتى وسؤالى لحضراتكم ....... ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ المشكلة الأولى فى حالة عدم وجود المجلدات بسبب الصورة الافتراضية تظهر هذه الرسالة D:\مسار قاعدة البيانات\images_company\employees_Photo مفترض وجود الصورة الاتية فى المجلد employees_Photo ما السبيل الى حفظ هذه الصورة داخل القاعدة حتى تعمل القاعدة بشكل طبيعى وحتى اذا تم نقل القاعدة بدون المجلدات تعمل كذلك بشكل طبيعى على ان تكون هذه هى الصورة الافتراضية فى حالة عدم وجود صورة للموظف فى حالة فتح النموذج فتكون كما بالشكل التالى مع مراعاة عمل قاعدة البيانات بنفس الالية الحالية حفظ الصور داخل مجلد منفصل بجوار القاعدة عدم حفظ راوابط للصور داخل الجدول المرفق الاول يوضح المشكلة بسبب عدم وجود الصورة test scan with error .rar المرفق الثانى قمت بارفاق المجلدات والصورة داخل المسار المناسب لتلافى الخطأ الناتج عن عدم وجود الصورة كما فى المرفق الاول ولكن انا غير راضى عن ارفاق المجلدات ممع القاعدة فما السبيل للوصول بالقاعدة فى هذا المرفق الى النتيجة فى المرفق الاول فى عدم وجود المجلدات والصورة الافتراضية ؟!............ test scan.rar

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

عجبنى جدا الامانه في ذكر مصدر البيانات اللى نقلت منه بالرغم من الاختلاف الكبير في برنامج المصدر والبرنامج بتاعك دا غير ان الناس دى تقريبا محدش يعرفهم لان واضح من تاريخ المثال 24/5/2005 تقريبا عشر سنين ونص انت فعلا حد محترم جدا وصريح وامين دا غير انى لاحظت كرم في محاولة مساعدتك وبحس انك مش بتبخل على حد بمعلوماتك بجد شكرا والف شكرا الله يبارك لوالديك على تربيتهم لك

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

بارك الله فيك و نفعنا الله بعلمك إن شاء الله

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

ربما يكون المطلوب حل معادلة salim.rar

شكرا على الرد أستاذي الكريم لكن أنا أريد أن أجعل خاصية مشروط : لا لكي أستطيع فتح نموذج آخر

جزاك الله خيرا أستاذ أبا جودي أنا ما أريده هو هل بالإمكان تعويض vbred التي تعطي اللون الأحمر بكود آخر يعطي لون شفاف me.detail.BackColor = vdred

اولا برجاء متابعة هذا الموضوع وهو محور تلك القاعدة وذلك لاضافة التعديلات عليه من : استاذنا القدير ومعلمنا الجليل ساحر وفنان الاكسس ووالدنا الحبيب الاستاذ jjafferr اطيب الامنيات test scan_up.rar

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

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

اضم صوتى لصوت اخى الحبيب شيفان المرفق

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

أولا الف سلامة ثانيا المرفق عجبنى جدا بعد التجربة وفيه أفكار روعة جدا الف شكر بجد على العمل الرائع ده يستاهل 100%

اعتقد صديقي العزيز ان هذا طلبك اتمنى ان يفي بالغرض محمد.rar

لو انا فهمت صح يتم ضبط الاعدادات للنموذج المراد جعله فى المقدمة دائما كما هو موضح فى الصورة المرفقة

السلام عليكم ورحمة الله تعالى وبركاته اخى الحبيب اعتذر جدا جدا جدا جدا للتأخير بسبب أحوالى المرضية وكما وعدت ان شاء الله تعالى تجد فى المرفق ما يسرك للعلم وللاهمية قاعدة البيانات اصلها للاستاذ الجليل والمعلم القدير ابو هاجر وتنقيح وتعديل الاستاذ القدير والمعلم الجليل ابو هادى ان لم تخنى ذاكرتى جزاهم الله تعالى هم وباقى اساتذتنا الكرام فى هذا المنتدى كل الخير وغفر الله لهم ولوالديهم ومن يحبون ان شاء الله تعالى - تم اضافة وتعديل وتنقيح على قاعدة البيانات من العبد الفقير الى الله بما يضفى المرونه والسلاسة والتميز فى الية عمل البرنامج - يجب تسجيل المكتبة الخاصة بالماسح الضوئى TWAIN32d.dll بعد ذلك ان شاء الله تعالى تجد مايسرك وينشرح به فؤادك بما طلبت واكثر ان شاء الله منتظر رد حضرتك ان شاء الله scan image or add image emp.rar

الشكر لله اخي الفاضل ابو صلاح ملف ممتاز وقد اضفت علية بعض التعديلات الفنية بخصوص امر التعديل وامور اخرى شكلية على العموم شيئ برفع الراس والله اقبل تحياتي واحترامي برنامج بحث وادخال بيانات - Copy.rar

اخي واستاذي الكبير طلعت لك الفضل الاكبر بعد اذن اساتذتنا لما وصلت انا له شكرا جزيلا لك

ممكن ترفع المرفق ليتم العملية عليه

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

الاخوة الزملاء مع الفيديو السابع فورم بحث وتعديل واضافة بيانات الدرس السابع بشاشة رئيسية مع ادخال صوت قران كريم { وَقُلِ اعْمَلُوا فَسَيَرَى اللَّهُ عَمَلَكُمْ وَرَسُولُهُ وَالْمُؤْمِنُونَ } الفيديو الملف بالكامل على الرابط التالى حمل من هنا

تفضل . . جعفر 461.بحث بالحرف الابجدى.accdb.zip

حياالله اخوي عمر الله إنشاءالله يسلمك ويعافيك من كل سوء دنيا وآخرة، ومن احببت جعفر

تفضل جرب المرفق test2.rar

بما ان me.page تعني رقم الصفحة الحالية يتبادر الى الذهن حسب الترجمة الحرفية ان : me.pages تعني ارقام الصفحات او عدد الصفحات بينما هي رقم الصفحة الأخيرة ثم اذا اعدت النظر مرة اخرى رأيت أن جميعها تعطي النتيجة نفسها فارقام الصفحات = عدد الصفحات= رقم الصفحة الأخيرة جزاك الله خيرا على الشرح والتوضيح

حيا الله أخونا العود ابوخليل في التقرير ، me.page يعني رقم الصفحة التي فتحها التقرير الان ، والتي بها نكتب رقم الصفحة ، بينما me.pages معناها رقم الصفحة الاخيرة من التقرير بهذه الطريقة ، نطلب من الاكسس ، بانه اذا كنا على الصفحة الاخيرة من التقرير ، نخفي ذيل الصفحة ، مع جميع البيانات في ذيل الصفحة ، وحتى اخفاء اي كائن فيها ، مثل كائن عمل صفحة جديدة والشئ الجدا مهم في التقرير ، هو وضع الحدث في المكان/الجزء الصحيح من التقرير ، فالتقرير قد يحتوي على عدة اجزاء (رؤوس وتذييل لمجموعات مختلفة) ، وكل منها يحمل نفس الحدث (يعني حدث التنسيق مثلا موجود في راس الصفحة وفي ذيل الصفحة ايضا) ، والصور المتحركة في الرابط التالي توضح قصدي: . جعفر

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

Me.Page = Me.Pages استاذنا العزيز هل يمكن ترجمة الجملة اعلاه ؟ واذا لا تترجم حرفيا فماذا تعني ؟

تفضل استعمل هذا الكود في التقرير في حدث التنسيق لذيل التقرير (كما هو موضح في الكود) : Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer) If Me.Page = Me.Pages Then Me.PageFooterSection.Visible = False Else Me.PageFooterSection.Visible = True End If End Sub وهو سيخفي الخانات الحمراء من الصفحة الاخيرة جعفر

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

السلام عليكم انا بحثت عن مثل هذا سؤال ، فوجدت الرابط التالي ، ومرفق صورة من النتيجة ، وملف الاكسل ايضا: https://excelxor.files.wordpress.com/2015/02/which-numbers-add-up-to-total-multiple-solutions2.xlsx . وكذلك وجدت مثال على vba واضطررت التعديل عليه ليناسب طلبك ، فهذه الوحدة النمطية الاساسية: Option Compare Database Option Explicit Dim rst As DAO.Recordset ' 'from 'http://stackoverflow.com/a/21076070 'Edited by jjafferr on 29/11/2016 ' Function SumTarget() Dim numbers(0 To 6) As Double Dim target As Double Dim i As Integer target = DSum("[Price]", "t1") / 2 Call modArray_StatesInAnArray For i = 0 To Record_Count - 1 numbers(i) = strState(i) Next i CurrentDb.Execute ("Delete * From tbl_Results") 'delete all the results from the table Set rst = CurrentDb.OpenRecordset("Select * From tbl_Results") 'set the table for the entries Call SumUpTarget(numbers, target) rst.Close: Set rst = Nothing End Function Public Sub SumUpTarget(numbers() As Double, target As Double) Dim part() As Double Call SumUpRecursive(numbers, target, part) End Sub Private Sub SumUpRecursive(numbers() As Double, target As Double, part() As Double) Dim s As Double, i As Double, j As Double, num As Double Dim remaining() As Double, partRec() As Double s = SumArray(part) 'If s = target Then Debug.Print "SUM ( " & ArrayToString(part) & " ) = " & target If s = target Then rst.AddNew rst![Target_Number] = target: rst!Results = ArrayToString(part) rst.Update ElseIf s >= target Then Exit Sub ElseIf (Not Not numbers) <> 0 Then For i = 0 To UBound(numbers) Erase remaining() num = numbers(i) For j = i + 1 To UBound(numbers) AddToArray remaining, numbers(j) Next j Erase partRec() CopyArray partRec, part AddToArray partRec, num SumUpRecursive remaining, target, partRec Next i End If End Sub Private Function ArrayToString(x() As Double) As String Dim n As Double, result As String 'result = "{" & x(n) result = x(n) For n = LBound(x) + 1 To UBound(x) 'result = result & "," & x(n) result = result & "+" & x(n) Next n result = result '& "}" ArrayToString = result End Function Private Function SumArray(x() As Double) As Double Dim n As Double SumArray = 0 If (Not Not x) <> 0 Then For n = LBound(x) To UBound(x) SumArray = SumArray + x(n) Next n End If End Function Private Sub AddToArray(arr() As Double, x As Double) If (Not Not arr) <> 0 Then ReDim Preserve arr(0 To UBound(arr) + 1) Else ReDim Preserve arr(0 To 0) End If arr(UBound(arr)) = x End Sub Private Sub CopyArray(destination() As Double, source() As Double) Dim n As Double If (Not Not source) <> 0 Then For n = 0 To UBound(source) AddToArray destination, source(n) Next n End If End Sub والتي تطلب البيانات من هذه الوحدة النمطية: Option Compare Database Const lngArraySize = 20 Public strState(lngArraySize) Public lngCounter As Long Public Record_Count As Integer Function modArray_StatesInAnArray() ' loads a list of states into an array of fixed size 'Const lngArraySize = 20 'Dim lngCounter As Long Dim varAState As Variant ' needs to be a variant for ' use in the ForEach loop 'Dim strState(lngArraySize) Dim db As Database Dim sl As Long Set db = CurrentDb lngCounter = 0 sl = 0 Dim rst As Recordset Set rst = db.OpenRecordset("Select * From t1") rst.MoveLast: rst.MoveFirst Record_Count = rst.RecordCount Do While Not rst.EOF 'If sl < 6 Then 'sl = sl + rst!price 'rst.Edit 'rst!priceSort = rst!price 'rst.Update 'this would cause a problem 'End If strState(lngCounter) = rst!price lngCounter = lngCounter + 1 rst.MoveNext Loop ' For I = 0 To lngCounter ' Debug.Print strState(I) ' Next I End Function ولتشغيل الوحدات النمطية ، نضع هذا الكود على حدث زر في النموذج: Call SumTarget والنتيجة تحفظ في الجدول tbl_Results: . جعفر 460.Database200.accdb.zip 460.which-numbers-add-up-to-total-multiple-solutions2.xlsx.zip

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

وعليكم السلام اليك الاجابة بالصور . . . . . . . . جعفر 452.ترتيب سجلات التقرير نفس ترتيب سجلات النموذج الفرعي.mdb.zip

تفضل db7.rar

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

مرفق الحل ويمكن تعديل saudi riyal و halala Function SpellNumber(ByVal MyNumber, _ Optional pbNum As Boolean = True, _ Optional ptCur As String = "saudi riyal", _ Optional ptDec As String = "halala", _ Optional ptPlu As String = "") Dim Curr, Decm, Temp Dim DecimalPlace, Count Dim vtPHolder As String ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " '' String representation of amount MyNumber = Trim(Str(MyNumber)) '' Position of decimal place 0 if none DecimalPlace = InStr(MyNumber, ".") '' Convert decimal part, and set MyNumber to currency amount If DecimalPlace > 0 Then vtPHolder = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2) If pbNum = True Then Decm = GetTens(vtPHolder) Else Decm = vtPHolder End If MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber <> "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp <> "" Then Curr = Temp & Place(Count) & Curr If Len(MyNumber) > 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Curr Case "" Curr = "No " & ptCur & "" Case "One" Curr = "One " & ptCur Case Else Curr = Curr & " " & ptCur & "" End Select Select Case Decm Case "" Decm = " No " & ptDec & ptPlu Case "One", "01" Decm = " and " & Decm & " " & ptDec Case Else Decm = " and " & Decm & " " & ptDec & ptPlu End Select SpellNumber = Curr & Decm End Function '******************************************* ' Converts a number from 100-999 into text * '******************************************* Function GetHundreds(ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right("000" & MyNumber, 3) 'Convert the hundreds place If Mid(MyNumber, 1, 1) <> "0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred " End If 'Convert the tens and ones place If Mid(MyNumber, 2, 1) <> "0" Then Result = Result & GetTens(Mid(MyNumber, 2)) Else Result = Result & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function '********************************************* ' Converts a number from 10 to 99 into text. * '********************************************* Function GetTens(TensText) Dim Result As String Result = "" 'null out the temporary function value If Val(Left(TensText, 1)) = 1 Then 'If value between 10-19 Select Case Val(TensText) Case 10: Result = "Ten" Case 11: Result = "Eleven" Case 12: Result = "Twelve" Case 13: Result = "Thirteen" Case 14: Result = "Fourteen" Case 15: Result = "Fifteen" Case 16: Result = "Sixteen" Case 17: Result = "Seventeen" Case 18: Result = "Eighteen" Case 19: Result = "Nineteen" Case Else End Select Else 'If value between 20-99 Select Case Val(Left(TensText, 1)) Case 2: Result = "Twenty " Case 3: Result = "Thirty " Case 4: Result = "Forty " Case 5: Result = "Fifty " Case 6: Result = "Sixty " Case 7: Result = "Seventy " Case 8: Result = "Eighty " Case 9: Result = "Ninety " Case Else End Select Result = Result & GetDigit(Right(TensText, 1)) 'Retrieve ones place End If GetTens = Result End Function '******************************************* ' Converts a number from 1 to 9 into text. * '******************************************* Function GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit = "One" Case 2: GetDigit = "Two" Case 3: GetDigit = "Three" Case 4: GetDigit = "Four" Case 5: GetDigit = "Five" Case 6: GetDigit = "Six" Case 7: GetDigit = "Seven" Case 8: GetDigit = "Eight" Case 9: GetDigit = "Nine" Case Else: GetDigit = "" End Select End Function تفقيط انجليزي.rar

الجزء 2 سنقوم ضمن هذا الجزء بشرح تطبيقات عملية وبعض دقائق الأمور الحاسمة و المهمة ، كي نتمكن من إستخدام SQL بسهولة ويسر . ومن خلال هذا الفصل سيتم شرح وتفصيل جملة (عبارة) SELECT وتستخدم عبارة SELECT لتحديد البيانات من قاعدة بيانات ، ويتم تخزين النتيجة في جدول النتيجة، المسمى ( مجموعة النتيجة ) result-set . SELECT بناء الجملة SQL SELECT Syntax SELECT column_name(s) FROM table_name و .... SELECT * FROM table_name[/right] ومثال ذلك تعاملنا مع الجدول Employees من قاعدة البيانات المختارة للتطبيق Northwind نريد تحديد مضمون الأعمدة "LastName" و "FirstName" من الجدول Employees ، فنستخدم العبارة التالية : SELECT LastName,FirstName FROM Employees أو SELECT Employees .LastName, Employees .FirstName FROM Employees; SELECT Employees .* FROM Employees; فائدة : النجمة (*) هو وسيلة سريعة لتحديد كافة الأعمدة! ويكون شكل result-set كما كما في الاستعلام Q_SelectAll ....................................... NA_NorthwindSQL.rar ويكون شكل result-set كما في الاستعلام Q_Select SELECT * نريد تحديد كافة الأعمدة من الجدول Employees ، فنستخدم العبارة التالية : SELECT * FROM Employees أو

الجزء 1 تحديد وتعريف SQL هذا هو الجزء الأول من سلسلة برامج تعليمية لتوضيح كيف يمكن لل SQL مساعدتك لبناء قاعدة بيانات أفضل. وأحب أن أنوه أن هذه البرامج ليست كورسا متخصصا في ال SQL, فهناك العديد من الكتب الممتازة والكثير من البرامج المتخصصة على الانترنت تعالج هذا الموضوع, سأذكر لكم بعضها لاحقا... في هذا البرنامج التعليمي سوف نراجع المهام العديدة والمتنوعة لل SQL داخل الأكسس, وسأجيب أيضا على العديد من الأسئلة التي عرضت لي شخصيا خلال استكشافي لهذه اللغة ما هو ال SQL ما وظيفة ال SQL ولم يستعمل؟ هل يمكن لل SQL القيام بما تعجز أداة تصميم الاستعلام عن فعله؟ هل أحتاج حقا الى معرفة والاطلاع على ال SQL مصادر لل SQL على الانترنت كتب عن ال SQL ما هو SQL ؟ ال SQL هو لغة استعلام متكاملة ومترابطة, البعض يطبق عليها اسم "Ess Queue Ell" وآخرون يشيرون اليها ب "Sequel" وعلى أية حال, فآن ال SQL لغة حديثة نوعا ما, فقد ظهرت للوجود في أواخر السبعينيات من القرن الماضي "1970", عندما احتاج مبرمجو الحاسوب الى لغة تمكنهم من التواصل مع اللغات الاولية المنطقية – وهي لغات تخزن فيها البيانات عن طريق جداول متعددة ذات روابط كثيرة, والأكسس يعتبر قاعدة بيانات منطقية- وأول معيار لل SQL تم نشره عام 1986 بوساطة ANSI وتم تعديله مرات عديدة منذ ذلك الوقت, وبالرغم من انه كان من المفترض ان تكون لغة قياسية, الا انه ظهر العديد من اللهجات فيها. الميكروسوفت أكسس يستعمل لهجة لل SQL تعرف ب Jet SQL بينما يستخد مايكروسوفت SQL لهجة تسمى T-SQL ولكن اللغة المحورية ولب هذه اللهجات مدعومة من العديد من البرامج وهي بالضرورة بسيطة وسهلة التعلم وعبارة ال SQL تبدو مشابهة للآتي: SELECT tblStaff.* FROM tblStaff WHERE tblStaff.Gender="M"; هذا البيان يقول: "بين لي كافة الحقول من الجدول tblStaff حيث حقل الجنس هو M (ذكر) هذا مثال بسيط لكنه يوضح مدى سهولة لغة SQL وللحديث بقية