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

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

تفضل .... ضع علامة على تاكيد ....

خِلّ إذا جئتَه يوماً لتسألَهُ .... أعطاكَ ما ملكت كفّاهُ واعتذرا يُخفي صنائعَهُ والله يُظهرُها .... إنّ الجميلَ إذا أخفيتَه ظهرا

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

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

فقط قم بتعطيل الأكواد الظاهرة كما في الصورة

انا بعد ان تأكدت من عمل العدادات رجعت كالمعتاد اتأكد من المحرر اذا فيه اسطر زائدة او نحو ذلك .. فوجدت اني نسيت استبدل me.TimerInterval فبدلت TimerInterval بـــ المتغيرين j و t وغفلت عن me ورفعت المثال بدون فحص الف شكر استاذنا العزيز على المداخلة والإشارة الى مكان الخلل

مع عدم فهمي لطبيعة عمل هذه العدادات تفضل التعديل حسب طلبك If j = 1 Then If Me.A = 9 Then Me.A = 1 Else Me.A = Me.A + 1 End If If Me.B = 9 Then Me.B = 2 Else Me.B = Me.B + 1 End If Me.Y = A - B If Me.Y = Me.C Then Me.j = 0: MsgBox "OK" End If '=========================================== If t = 1 Then If Me.D = 9 Then Me.D = 1 Else Me.D = Me.D + 1 End If If Me.E = 9 Then Me.E = 2 Else Me.E = Me.E + 1 End If Me.x = D - E If Me.x = Me.F Then Me.t = 0: MsgBox "OK" End If لاحظ اني كررت الكود فقط timer11.rar

بعد الوصول لمستند تحليل النظام ( النسخة الثانية ) سنبدأ هنا فى تحويل التحليل الي رسم ال ERD ثم الي تصميم جداول فى االأكسس و الشرح و المثال فى الملف المرفق ( ملف وورد + ملف أكسس ) و المطلوب هو مراجعة المثال و الشرح و وضع الاضافات و التعديلات التي ترونها حلقة الحوار الخاصة بالموضوع ملاحظة : انتهت فترة الحوار و تم اغلاق الحلقة مع تحياتي ERD_TableDes.zip

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

ما شاء الله تبارك الله دروس نتعلمها من الكبار امثالكم

وعليكم السلام -أخى الكريم الملف يعمل بكفاءة مطلقة وليس به اى مشكلة وشوف بنفسك الصورة

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

تفضل التعديل استاذي العزيز ابو الحسن DATA2000.rar

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

WeighScaleRS232 (1).zip السلام عليكم وجدت الحل في منتدى اجنبي ورفعتهو لكم لتعم الفائدة ارجو من اللذي يطوره يرسل لي نسخة منه لان عندي ميزان شاحنات وحاولت ان اطور البرنامح ولكن محاولاتي فشلت

جزيت خيرا اخونا الكريم مصطفى

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

وكثر ما اكنت اقول في حقك بأنك اخونا العود ، فإني كنت مقصر ، إجلالا لمثل مواقفك هذه 🙂 جعفر

وعليكم السلام ورحمة الله وبركاته،، أحسنت أحسن الله إليك وبارك فيك ورضي عنك وأرضاك،،

على راسي كلكم اخي واستاذ ابو خليل واستاذي جعفر واخي وزميلي الحبيب ازهر 🌹

تم 🙂 لا خَيلَ عِندَكَ تُهديها وَلا مالُ ... فَليُسعِدِ النُطقُ إِن لَم تُسعِدِ الحالُ وَاِجزِ الأَميرَ الَّذي نُعماهُ فاجِئَةٌ ... بِغَيرِ قَولِ وَنُعمى الناسِ أَقوالُ جعفر

بعد اذن اخي واستاذي ابو خليل شوف اخي ازهر الخطا بسبب me.j و me.t لكونهما متغيران وليسا حقلين في النموذج timer11.accdb

تم اصلاح الحجم ، ورفعه هنا الصادروالوارد .rar

وعليكم السلام تفضل هذا الكود Function NoToTxt2(TheNo As Double, MyCur As String, MySubCur As String) As String Dim MyArry2(0 To 9) As String Dim MyArry3(0 To 9) As String Dim Myno As String Dim GetNo As String Dim RdNo As String Dim My100 As String Dim My10 As String Dim My1 As String Dim My11 As String Dim My12 As String Dim GetTxt As String Dim Mybillion As String Dim MyMillion As String Dim MyThou As String Dim MyHun As String Dim MyFraction As String Dim MyAnd As String Dim I As Integer Dim ReMark As String If TheNo > 999999999999.999 Then Exit Function If TheNo < 0 Then TheNo = TheNo * -1 ReMark = "لم يتبقي " Else ReMark = "فقط " End If If TheNo = 0 Then NoToTxt2 = "صفر" Exit Function End If MyAnd = " و" MyArry1(0) = "" MyArry1(1) = "مائة" MyArry1(2) = "مائتان" MyArry1(3) = "ثلاثمائة" MyArry1(4) = "اربعمائة" MyArry1(5) = "خمسمائة" MyArry1(6) = "ستمائة" MyArry1(7) = "سبعمائة" MyArry1(8) = "ثمانمائة" MyArry1(9) = "تسعمائة" MyArry2(0) = "" MyArry2(1) = " عشر" MyArry2(2) = "عشرون" MyArry2(3) = "ثلاثون" MyArry2(4) = "اربعون" MyArry2(5) = "خمسون" MyArry2(6) = "ستون" MyArry2(7) = "سبعون" MyArry2(8) = "ثمانون" MyArry2(9) = "تسعون" MyArry3(0) = "" MyArry3(1) = "احدي" MyArry3(2) = "اثنان" MyArry3(3) = "ثلاثة" MyArry3(4) = "اربعة" MyArry3(5) = "خمسة" MyArry3(6) = "ستة" MyArry3(7) = "سبعة" MyArry3(8) = "ثمانية" MyArry3(9) = "تسعة" '====================== GetNo = Round(TheNo, 3) GetNo = Format(TheNo, "000000000000.000") I = 0 '=============== Do While I < 16 If I < 12 Then Myno = Mid$(GetNo, I + 1, 3) Else Myno = Mid$(GetNo, I + 2, 3) + "0" ' "0" + Mid$(GetNo, I + 2, 2) End If If (Mid$(Myno, 1, 3)) > 0 Then RdNo = Mid$(Myno, 1, 1) My100 = MyArry1(RdNo) RdNo = Mid$(Myno, 3, 1) My1 = MyArry3(RdNo) RdNo = Mid$(Myno, 2, 1) My10 = MyArry2(RdNo) If Mid$(Myno, 2, 2) = 11 Then My11 = "احدي عشر" If Mid$(Myno, 2, 2) = 12 Then My12 = "اثني عشر" If Mid$(Myno, 2, 2) = 10 Then My10 = "عشرة" If ((Mid$(Myno, 1, 1)) > 0) And ((Mid$(Myno, 2, 2)) > 0) Then My100 = My100 + MyAnd If ((Mid$(Myno, 3, 1)) > 0) And ((Mid$(Myno, 2, 1)) > 1) Then My1 = My1 + MyAnd GetTxt = My100 + My1 + My10 If ((Mid$(Myno, 3, 1)) = 1) And ((Mid$(Myno, 2, 1)) = 1) Then GetTxt = My100 + My11 If ((Mid$(Myno, 1, 1)) = 0) Then GetTxt = My11 End If If ((Mid$(Myno, 3, 1)) = 2) And ((Mid$(Myno, 2, 1)) = 1) Then GetTxt = My100 + My12 If ((Mid$(Myno, 1, 1)) = 0) Then GetTxt = My12 End If If (I = 0) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then Mybillion = GetTxt + " مليار" Else Mybillion = GetTxt + " مليارات" If ((Mid$(Myno, 1, 3)) = 2) Then Mybillion = " مليار" If ((Mid$(Myno, 1, 3)) = 2) Then Mybillion = " ملياران" End If End If If (I = 3) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then MyMillion = GetTxt + " مليون" Else MyMillion = GetTxt + " ملايين" If ((Mid$(Myno, 1, 3)) = 1) Then MyMillion = " مليون" If ((Mid$(Myno, 1, 3)) = 2) Then MyMillion = " مليونان" End If End If If (I = 6) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then MyThou = GetTxt + " الف" Else MyThou = GetTxt + " الاف" If ((Mid$(Myno, 3, 1)) = 1) Then MyThou = " الف" If ((Mid$(Myno, 3, 1)) = 2) Then MyThou = " الفان" End If End If If (I = 9) And (GetTxt <> "") Then MyHun = GetTxt If (I = 12) And (GetTxt <> "") Then MyFraction = GetTxt End If I = I + 3 Loop '============================ If (Mybillion <> "") Then If (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then Mybillion = Mybillion + MyAnd End If If (MyMillion <> "") Then If (MyThou <> "") Or (MyHun <> "") Then MyMillion = MyMillion + MyAnd End If If (MyThou <> "") Then If (MyHun <> "") Then MyThou = MyThou + MyAnd End If If MyFraction <> "" Then If (Mybillion <> "") Or (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then NoToTxt2 = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur + MyAnd + MyFraction + " " + MySubCur Else NoToTxt2 = ReMark + MyFraction + " " + MySubCur End If Else NoToTxt2 = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur End If End Function

تكلمنا سابقا عن تحليل النظام ، و التوثيق ، و قبل أن نبدأ فى تنفيذ المشروع المصاحب للدورة هذا مستند تحليل النظام الخاص بالمشروع ، أو بالأصح مسودة تحليل النظام ، و فى انتظار اضافاتكم و تعديلاتكم عليها :d ملاحظة ، تم تغيير الملف المرفق بعد تنزيله 41 مرة و هذا هو الاصدار الثاني من الملف TelSysanalysis1.zip

السلام عليكم مثال لتحويل الأوزان والمقاييس بعد إضافة قسم جديد قسم مقاييس الحرارة . توجد وحدتان بقسم مقاييس الحرارة لم أستطع الحصول على ترجمة عربية لهما .. آمل من يستطيع ترجمتهما إضافتهما وشكرا سلفا . آمل أن يحوز على رضاكم . تحياتي . الملفات المرفقة Measuers.zip ( 87.61ك ) عدد مرات التنزيل: 174

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

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

السلام عليكم عندي جدول به حقل مثلا اسم الطالب اريد ان اعمل نموذج به مربع نص وتحته قائمة بحيث بمجرد كتابة حرف من اسم الطالب في مربع النص يظهر لي في القائمة كل الطلاب الذين اسماؤهم تبدأ بهذا الحرف بحيث بمجرد تغيير الحرف في مربع النص تتغير الاسماء المعروضة في القائمة ( توقعاتي ان الكود يكتب في حدث ال change لمربع النص ) على فكرة انا عملت نفس الحركة هذه ولكن في حدث afterupdate لمربع النص أي ان النتائج تظهر بعد كتابة الحرف وضغط انتر ولكن ماأريده لم انجح في تحقيقه تحياتي لكم

مثال على الفهرس باختيار الحرف FilterByLetter.zip

مثال يحتوى على فوائد كثيرة للتقارير RptSmp00.exe

يمكن أن تكتب رقم فى مربع القائمة أو تختار من مربع القائمة نفسها حسب ما تريد . NumChoose.zip

ضع فى معيار الاستعلام ما يلى وغير ما يلزم Eval("inputbox ('أدخل الرسالة :','عنوان','قيمة افتراضية')") طبعا في المعيار وغير الرسالة والعنوان كما تحب ...