ابوخليل

هل انت متأكد ؟ انظر المثال بعد التعديل تفقيط درجات.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

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

تم عمل نموذج الاركاب من تم اركابهم وايضا اصحاب المواصلات الخاصة لن يظهروا في مربع التحرير نموذج التبديل لن يتم عمله حتى تستوفي الحقول الناقصة في جدول الاسماء ( مثلا رقم القيد غير موجود ) تنبيه : هناك خطأ في تسمية الحقل Personal_?num يوجد مسافة فارغة ( راجع امثلتك السابقة ) bus2.rar

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

يقول جل شأنه : "وَبَشِّرِ الصَّابِرِينَ الَّذِينَ إِذَا أَصَابَتْهُمْ مُصِيبَةٌ قَالُوا إِنَّا لِلَّهِ وَإِنَّا إِلَيْهِ رَاجِعُونَ أُولَئِكَ عَلَيْهِمْ صَلَوَاتٌ مِنْ رَبِّهِمْ وَرَحْمَةٌ وَأُولَئِكَ هُمُ الْمُهْتَدُونَ" اللهم اكرم مثواها وأدخلها الجنة .

تقبل الله صيامكم وقيامكم كل عيد وأنتم بخير أعاده الله والامة الاسلامية في عز ومنعة

تمام .. أحسنت وقفة هنا : التضمين سيكون في الجداول .. سنحتاج الى حقل (نوع النقل) يكون ذو قيمتين 1= عام ، 2=خاص وتكون قيمته الافتراضية =1 لماذا ؟ الجواب : تبعا للغالبية هنا يمكنك التنفيذ بطريقتين ( على اساس ان القيمة رقمية ) الاولى : ان تجعل مصدر بيانات الصف جدول خاص بهذه القيم الثانية : ان يكون مصدرها قيم تكتب داخل مصدر الصف في خصائص الحقل مرفق مثال انظر الجدول tbl1 س: في اي جدول سيكون هذا الحقل ؟ db1.rar

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

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

خطواتي هذه حتى تعلم ما تعمل هناك خلل في الجداول ( حقل من الحقول في غير مكانه الصحيح ) ما الحقل ؟ واين موقعه الصحيح الذي يجب ان يكون فيه ؟

طبعا هناك تعديل حيث تم حذف اسم الطالب واسم السائق من جدول الاركاب انظر الجداول وتمعن في العلاقات اذا كان هناك استفسار اوشيء غير واضح اطرحه هنا قبل الانتقال bus2.rar

وعليكم السلام تفضل المرفق بعد التعديل تم تحقيق طلبك المشرفين2.rar

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

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