ابوخليل

اذا البرنامج عبارة عن : 1- اساسات وهي رؤوس مواضيع ثابتة 2- مكتبة علمية مصاحبة للبحث واخذ المعلومة وتثبيتها في البرنامج ضمن ضوابط خاصة المستخرجات : تقارير مطبوعة تتحدث عن فرع معين من فروع العلم الشرعي وحسب ما اوصلني فهمي الآن ان هذا البرنامج سيكون الرفيق المساعد للطلاب عند اعداد رسائلهم الجامعية اما ان كان هذا البرنامج سيعتمد من جامعة بعينها فلا شك سيصب في هذا البرنامج خير كثير

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

لم اضف شيئا انظر الى مثالك قبل التعديل

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

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

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

يلزمك ان تجعل مصدر بيانات التقرير الرئيسي استعلام وتضع فيه معيار قيمة معينة من النموذج الرئيسي استمارة2.rar

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

شكرا لك على هذا المجهود وقفت أتأمل كثيرا في : اثنتان درجتان و اثنان تلميذان فإما ان يتقدم المعدود واما ان نحذف العدد ’ أرأيت العناء المصاحب للجمال ؟ هذه هي لغتنا

ابدا تم التعديل Ali2.rar

اهلا بك اخا عزيزا كريما بيننا بداية أنت مدعوا للمشاركة هنا : http://www.officena.net/ib/index.php?showtopic=41520 ثم هناك استفسارات حول الجداول والبيانات المدخلة تحتاج الى تبيين حتى تتضح الرؤية

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

هل انت متأكد ؟ انظر المثال بعد التعديل تفقيط درجات.rar

جرب ضع هذا السطر On Error Resume Next في بداية الكود ليصبح الكود هكذا : Private Sub cmdScan_Click() On Error Resume Next Dim Ret As Long, PictureFile As String ' إذا كنت ترغب في تحزين الصور في مسار آخر فغير المسار من هنا ' حالياً سيتم تخزين الصور في نفس مجلد البرنامج PictureFile = mypathofdb() & Me.ID & "image.jpg" Ret = TWAIN_AcquireToFilename(Me.Hwnd, PictureFile) If Ret = 0 Then Me.pic_path = PictureFile Me.pic.Picture = Me.pic_path Else Kill PictureFile MsgBox "فشلت عملية السكان", vbCritical, "تنبيه" End If End Sub

هذا الذي عملته لك في المثال السابق بالعربية ، ويمكنك تجربة اللغة الاخرى

الصحيح ان الكود يكتب حتى 999 وزيادة الخير خير هذا مثال يجمع الاثنين تفقيط درجات.rar

يوجد في النموذج زر حذف مباشر السؤال : كيف تلغي عملية مسح الصور ؟

انما بينت وجهة نظر السائل ( من باب الخبرة والتجربة ) ولو لاحظت اخي محمد في السطرين الاخيرين اني انتصرت لطريقتك وبينت خطأ تصوري .

اليك وحدة نمطية وجدتها لك من اعداد البرمجي اللغو استاذنا محمد صالح أجزل الله له المثوبة استللتها من اكسل واودعتها أكسس ، جرب ووافنا بالنتيجة Function n2t(d As Double) As String m = Int(d / 100) h = Int(d / 10) - (m * 10) a = Int(d - (m * 100 + h * 10)) k = d - (m * 100 + h * 10 + a) n2t = num((m), 3) & IIf(m > 0 And (a > 0 Or h > 0), " و ", "") & num((a), 1) & IIf(a > 0 And h > 1, " و ", " ") & num((h), 2) n2t = Replace(n2t, "اثنتانِ عشرة", "اثنتا عشرة") n2t = Replace(n2t, "ثمانمائة", "ثمنمائة") n2t = Replace(n2t, "ثلاثمائة", "ثلثمائة") n2t = Replace(n2t, "و عشرة", "و عشر") n2t = IIf(n2t = " عشرة", "عشر", n2t) n2t = IIf(n2t = "مائتانِ ", "مائتا", n2t) n2t = "فقط " & n2t & IIf(h = 0 And a = 2, "درجتانِ", IIf((h = 1 And a = 0) Or ((h = 0 And a > 2)), " درجاتٍ", IIf(h = 0 And a = 0, " درجةٍ", " درجةً"))) & IIf(k > 0, " و نصفٌ", "") n2t = Replace(n2t, " ", " ") n2t = Replace(n2t, "إحدى درجةً", "درجةٌ") n2t = Replace(n2t, "اثنتانِ درجتانِ", "درجتانِ") End Function Function num(n As Integer, t As Integer) As String m = "مائة" h = "ونَ" Select Case n Case Is = 1 num = IIf(t = 3, m, IIf(t = 2, "عشرة", "إحدى")) Case Is = 2 num = IIf(t = 3, "مائتانِ", IIf(t = 2, "عشرونَ", "اثنتانِ")) Case Is >= 3 num = IIf(t = 3, nn(n) & m, IIf(t = 2, nn(n) & h, nn(n))) End Select End Function Function nn(n As Integer) As String Select Case n Case Is = 3 nn = "ثلاث" Case Is = 4 nn = "أربع" Case Is = 5 nn = "خمس" Case Is = 6 nn = "ست" Case Is = 7 nn = "سبع" Case Is = 8 nn = "ثمان" Case Is = 9 nn = "تسع" End Select End Function تفقيط درجات.rar

استبدل المعيار في الاستعلام بهذا [forms]![الشركات الموردة]![form1]![c1] والسبب ان الاستعلام لا يقرأ مباشرة من النموج الفرعي فاصبح المسار يمر عبر النموذج الرئيسي ثم الفرعي القائمة المنسدلة2.rar

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

تم عمل نموذج لاستعراض البيانات والبحث لا لزوم له نعم البيانات غير متوفرة bus5.rar

تم عمل التقرير على السريع من النموذج : عند اختيار الباص 1 او 2 انقر على زر التقرير لاحظ ان البيانات في التجربة ناقصة bus4.rar

كل عام وانتم بخير تم عمل نموذج التبديل لاحظ انه لن يظهر في البحث الا من هم ضمن النقل العام فعلا bus3.rar

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