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

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

تم التعديل حسب المطلوب Sub del_dupl1() Dim Source_Rg, target_rg As Range Dim rg_to_del As Range Dim m, n, i, j As Integer Set Source_Rg = Range("a1:a8") Set target_rg = Range("b1:b8") m = Source_Rg.Count n = target_rg.Count For i = 1 To m For j = 1 To n If Cells(i, 1) = Cells(j, 2) Then Union(Cells(i, 1), Cells(j, 2)) = "": Exit For End If Next Next End Sub

السّلام عليكم و رحمة الله و بركاته أستاذي الغالي " ياسر خليل أبو البراء " حتى بحذف كلمة True لم يتم حل المشكلة جرّبت وضع رقم أصغر من الرقم الموجود بالتاكست 1 .. شاهد الصورة لو تكرّمت بعد إذن سيادتك المحترمة ..لم أحاول بالموضوع لأنّي لم أفهم الجزء الثاني بالكود وما فائدته إحتراماتي

أخي الكريم احذف كلمة =True من هذا السطر If Me.TextBox2.Text < Me.TextBox1.Text = True Then

بسم الله الرحمن الرحيم اليكم نموذج لانتهاء صلاحية الملف عندما يكون التاريخ الحالي اكبر من التاريخ الموجود في الخلية A1 يقوم البرنامج بعمل Application.Visible = False ويعرض لنا فورم يفيد انتهاء المدة وتاكيد كلمة المرور وعند كتابة كلمة المرور خطأ لك5 محاولات وبعدها يغلق البرنامج اما ان كانت صحيحة وتحقق الشرط If TextBox1.Value = "aseel" Then Me.Hide Application.Visible = True كلمة المرور aseel طبعا واكيد ايقاف الماكرو هيفتح الملف عادي ونضيع الحماية نعمل ايه بقي نيحي في الحدث Private Sub Workbook_Open() Sheet1.Visible = xlSheetVeryHidden End Sub ونخفي الشيت عشان ميشفشي شغلنا رخامة بقي ولما يتحقق الحدث If TextBox1.Value = "aseel" Then 'Unload Me Me.Hide Application.Visible = True 'نحط هنا كود اظهار الشيت مرة اخرى sheet1.Visible = xlSheetVisible ياريت اكون وصلت المعلومة صح واي ملحوظة او خطأ انا موجود انتهاء صلاحية الملف.rar

ربما كان المطلوب في هذا الكود Sub del_dupl() Dim Source_Rg, target_rg As Range Dim rg_to_del As Range Dim m, n, i, j As Integer Set Source_Rg = Range("a1:a8") Set target_rg = Range("b1:b8") m = Source_Rg.Count n = target_rg.Count For i = 1 To m For j = 1 To n If Cells(i, 1) = Cells(j, 2) Then If rg_to_del Is Nothing Then Set rg_to_del = Union(Cells(i, 1), Cells(j, 2)) Else Set rg_to_del = Union(rg_to_del, Cells(j, 2)) ' rg_to_del.Select End If End If Next If rg_to_del Is Nothing = False Then ' rg_to_del.Select rg_to_del = "" Set rg_to_del = Nothing End If Next End Sub

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

السلام عليكم ورحمة الله أساتذتنا وأصدقائنا الكرام في هذ الصرح العملاق والمتميز دائماً في فعل ونشر المعرفة والخير للجميع اليوم أتيت لكم ببرنامجي البسيط والمتواضع الذي ولله الحمد قد قمت ببرمجته في عام 2015 وأستخدمته أحدى شركات المقاولات التي تحتوي مايقارب عن 500 موظف في الأونة الأخيرة تم نشر برامج كثيرة حول مجال شؤون الموظفين والمرتبات ولكن كانت تقتصر فقط على مبدأ أرشفة بيانات الموظفين ولكن الآن تستطيع أخي المستخدم غير ذلك بكثير ، وهي إضافة المرتب لكل موظف في حسابه حسب اختيار المستخدم لفترة استحقاق المرتب له وعند دخول وقت الاستحقاق يقوم البرنامج بالتنبيه وتذكيرك بسحب المرتبات وأيضاً تستطيع إضافة حركات مالية أخرى كنظام السلف والدفعات والمسحوبات على المرتب وميزات كثيرة سوف تكتشفها بنفسك عند الاستخدام . قمت بإضافة نظام الحماية المتميز وهو تفعيل النسخة بالرقم التسلسي للوحة الأم بحيث تعمل النسخة على جهاز واحد فقط وعند النقل يتم قفل البرنامج عن العمل صور من البرنامج صورة تفعيل البرنامج روابط التحميل Office Soft.Employ & Salary أو Office Soft.Employ & Salary فيديو شرح التنصيب والتثبيت من هنا فيديو طريقة ألية عمل واستخدام البرنامج من هنا الشرح التفصيلي للبرنامج موجود في مجلد البرنامج بعد تثبيته على جهاز الكمبيوتر ملاحظة مهمة :يرجى عدم تغيير مسار تنصيب البرنامج لكي يعمل معكم بشكل كامل أو تنصيبه في مسار أخر غير القرص الصلب (C) البرنامج تم تجربته على أوفيس 2010 و 2007 ويعمل بشكل كامل ومتميز أتمنى أن ينال أعجابكم والحمد لله

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

انظر للملف الذي طرحته

حسب ما فهمت من الموضوع 1- نقوم بترتيب الطلبة وفقا لمعدلهم و بالطبع من الاكبر الى الاصغر 2- في حالة تساوي معدلات الطلاب نقوم بالتفريق بينهم على اساس السن و الاولية للاصغر سنا 3- في حالة تساوي السن تكون المفاضلة حسب الترتيب الابجدي للاسماء.......... ..... المعادلة التي طرحتها تقوم بترتيب الطلبة وفقا لمعدلاتهم ... و لكن لا تحقق النقطة 2 و 3 .... لذا يجب تحسين المعادلة New WinRAR archive.rar

جرب هذه المعادلة هي تقوم بابراز الترتيب مثلا 1 2 2 3 4 4 ..... الخ .... و بالتالي سيكون الاشكال المتبقي من هو مثلا الثاني الاول و الثاني الثاني ...حسب شرطي السن اولا و من ثم التهجئة ..... =SUMPRODUCT((B$2:B$19>B2)/COUNTIF(B$2:B$19,B$2:B$19&""))+1

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

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

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

السلام عليكم اذا كانت ارقام الالوان معروفة مسبقا ( ColorIndex ) يمكن ان نستعمل الطريقة التالية Private Sub CommandButton1_Click() x1 = 3: x2 = 6 Dim cel As Range For Each cel In Range("d7:j7") If cel.Interior.ColorIndex = x1 Then r1 = r1 + cel.Count If cel.Interior.ColorIndex = x2 Then r2 = r2 + cel.Count Next Range("k7") = r2 Range("l7") = r1 End Sub

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

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

ضع في الخلية M2 الإسم مثل العليا و في الخلية L2 طريقة الدفع مثل نقدا و في الخلية K2 نوع العملية مثل جديد ثم في اي خلية أخرى تختارها أكتب الدالة التالية : =SUMPRODUCT(--($D$2:$D$21=M2);--($A$2:$A$21=K2);--($G$2:$G$21=L2);--($F$2:$F$21))

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

جزاك الله كل خير أ/ أبوعبدالله .. زادك الله علما النتائج سليمه

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

يمكن إضافة ترقيم تسلسلي للقوائم في التقرير أي دائما يبدأ بالرقم 1 , 2 , 3 ...الخ على حسب عدد السجلات كما يلي: نضبف مربع نص و نكتب فيه "1=" ثم نذهب إلى خصائص و نختار قائمة بيانات و نغير قيمة مجموع تراكمي إلى "مجموعة إضافية". و إليكم المثال التالي للتوضيح أكثر. ترتيب تسلسلي.rar

بارك الله فيك و إن كان قليلا على 9 سنوات

الف مبروك و الي الامام دائما باذن الله

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

اخى الكريم الاستعلام بالمقطع الاول Expr1: ForSearch(Left([per6];InStr([Per6];" "))) الاستعلام بالمقطع الاخير Expr1: ForSearch(Right([per6];InStr([Per6];" "))) المرفق مع العلم ان مرفقك الاول لم يكن به اكواد البحث هذه فى الاستعلامات تجاهل الهمزات.rar

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

تفضل جرب المرفق الوثائق2.rar

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

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

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

بسم الله الرحمن الرحيم اقدم لكم اليوم برنامج مصمم بلغة الفيجوال دوت نت البرنامج عبارة عن تركيب برواز وصورة شخصية مثلا تقوم باختيار البرواز المناسب او خلفية شفافة كما تحب المهم انت تكون بامتداد png اما الصورة الشخصية فصورة jpg تفى بالغرض ويتم تركيبهم وحفظهم بالامتداد المناسب كما موضح بالصور البرنامج مرفق معه الامثلة وبعض البوردرات للتجربة كما يمكن البحث عن بوردارت واضافتها عادي هذه الصورة الاصلية قبل تركيب البوردرات لها وهذه صور بعد تركيب البوردر لها وهذه صورة مع خلفية شفافةpng لتحميل البرنامج اضغط هنا اما الكود Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'هنا يتم حفظ الصورة بنفس الشكل داخل البكتشر بوكس وحفظها بامتداد جي بي جاي وباسم ياسر 'وادخلنا عليها الدالة رند لاضافة ارقام عشوائية بجانب الاسم حتى لا يتكرر اسم الحفظ Dim bmp As New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height) Me.PictureBox1.DrawToBitmap(bmp, Me.PictureBox1.ClientRectangle) bmp.Save(Application.StartupPath & "\Yasser_Elaraby" & Rnd(11111111) & ".jpg", Imaging.ImageFormat.Jpeg) MsgBox("تم الحفظ بصغة JPG") End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 'هنا يتم اختيار الصورة للاداة البكتشر بوكس وهي صورة الباك جروند ليتم وضعها خلف البوردر او الخلفية الشفافة Dim ofd As New OpenFileDialog ofd.Filter = "JPEG|*.jpg|Bitmap|*.bmp" If ofd.ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub Try Dim bmp As New Bitmap(ofd.FileName) If Not IsNothing(PictureBox1.BackgroundImage) Then PictureBox1.BackgroundImage.Dispose() PictureBox1.BackgroundImage = bmp Catch MsgBox("Not a valid image file.") End Try End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 'هنا يتم حفظ الصورة بنفس الشكل داخل البكتشر بوكس وحفظها بامتداد بي ان جي وباسم ياسر 'وادخلنا عليها الدالة رند لاضافة ارقام عشوائية بجانب الاسم حتى لا يتكرر اسم الحفظ Dim bmp As New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height) Me.PictureBox1.DrawToBitmap(bmp, Me.PictureBox1.ClientRectangle) bmp.Save(Application.StartupPath & "\Yasser_Elaraby" & Rnd(11111111) & ".png", Imaging.ImageFormat.Png) MsgBox("تم الحفظ بصيغة PNG") End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click 'هنا يتم اختيار الصورة للاداة البكتشر بوكس وهي صورة البوردر او صورة شفافة Dim ofd As New OpenFileDialog ofd.Filter = "png|*.png|gif|*.gif" If ofd.ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub Try Dim bmp As New Bitmap(ofd.FileName) If Not IsNothing(PictureBox1.Image) Then PictureBox1.Image.Dispose() PictureBox1.Image = bmp Catch MsgBox("Not a valid image file.") End Try End Sub Private Sub اخترالصورةالاصليةToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles اخترالصورةالاصليةToolStripMenuItem.Click 'هذه عناصر القائمة الموجودة بالبرنامج وكلها اختصار لعمل الاكواد يعني هنا نقول له عند اختيار هذا العنصر يتم تنفيذ ما بالزر بوتن2 Button2.PerformClick() End Sub Private Sub اخترالبروازToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles اخترالبروازToolStripMenuItem.Click Button4.PerformClick() End Sub Private Sub حفظبامتدادJPGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles حفظبامتدادJPGToolStripMenuItem.Click Button1.PerformClick() End Sub Private Sub حفظبامتدادPNGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles حفظبامتدادPNGToolStripMenuItem.Click Button3.PerformClick() End Sub Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click End End Sub Private Sub حذفالبراوزToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles حذفالبراوزToolStripMenuItem.Click PictureBox1.Image = Nothing End Sub Private Sub حذفالصورةالاصليةToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles حذفالصورةالاصليةToolStripMenuItem.Click PictureBox1.BackgroundImage = Nothing End Sub Private Sub عنالمبرمجToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles عنالمبرمجToolStripMenuItem.Click MsgBox("تصميم واعداد / ياسر العربي" & vbCrLf & vbCrLf & " تليفون محمول رقم / 01097192367" & vbCrLf & vbCrLf & "Email: Yasserelaraby86@gmail.com", MsgBoxStyle.Information) End Sub Private Sub عنالبرنامجToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles عنالبرنامجToolStripMenuItem.Click MsgBox("برنامج تركيب الصور يقوم بتركيب صورة شخصية مثلا على برواز او على خلفية اخرى شفافة بامتدادPNG") End Sub End Class السورس كود مرفق تحميل االسورس كود رابط الردود الردود والاستفسارات عن سلسلة دروس الفيجوال بيسك دوت نت يتبع تحياتي ياسر العربي

اخي ليس هنالك كود محدد وانما قصدت ان تنفذ كود ما على سبيل المثال كود حفظ البيانات على ان تضعه في حدث "بعد التحديث" لمربع نص الذي يظهر لك رقم الباركود

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

و عليكم السلام و رحمة الله و بركاته ... جرب هذا الكود Private Sub names_AfterUpdate() Me.Text20 = DLookup("[id]", "emp", "[emp_name]='" & names & "'") End Sub

نعم الايام معرفة مسبقا وتأخذ اليوم من التاريخ ()Date الذي هو فعلا تاريخ الجهاز ولاشتراط الجمعة والسبت تكتب الدالة هكذا : if Weekday(Date();1) = 6 or Weekday(Date();1) = 7 then على اعتبار يوم الاحد هو اول ايام الاسبوع

السلام عليكم نفس المعلومات ويمكن اكثر

اخي تفضل هذا الكتاب microsoft_access_2013_step_by_step يمكنك تزيله من هنا ايضاً http://www.mediafire.com/download/cfpj8daze1l23n9/microsoft_access_2013_step_by_step.rar

السلام عليكم اخي العزيز هل لديك نفس الكتاب ينطبق على اكسس 2007 وهل شرح الكتاب مقارب لشرح 2007 مع الشكرالجزيل

السلام عليكم يمكن تحميل الكتاب من الرابط http://misprivate.boun.edu.tr/kutlu/bis515/access2013.pdf

السلام عليكم اخي العزيز اشكر اهتمامك بمشكلتي الموقع هو ميديا فاير مع الشكرالجزيل

اخي الكريم صدقني ما ان يكون السؤال المطروح واضح ومرفق معه مثال يوضح المشكلة حتى تجد العديد من الأخوة الأفاضل المحترفين داخل مشاركتك بشكل لايمكنك توقعه وهذا بالضبط ماحصل معي حين طلبت حلاً لمشكلة جمع الأوقات في التقرير .. مع اني وجدت حلاً لتلك المشكلة الا ان الاساتذة الكرام ابوا الا ان يزودونني بعدة حلول اخرى .. اخي الكريم الكل يمر بمرحلة ما في برنامجه يعاني فيها من مشكلة حتى المحترفون انفسهم "طبعا مشاكل المحترفين لايجيد حلها الا المحترفين" فلا تيأس من الانتظار او تكرار السؤال او حتى تغيير صيغة السؤال عسى ان يكون اوضح من سابقه .. ليس هنالك اي ضغط من الاعضاء على اسرة المنتدى لأن اغلب الاعضاء تواجههم مشاكل تعتبر بسيطة الى حد ما امام عباقرة المنتدى .. على العموم سوف ارى مالدي من كتب وان شاء الله اتمكن من ايجاد شيء ما يفيدك. تحياتي اخي لدي كتاب باللغة الانجليزية اسمه "microsoft_access_2013_step_by_step" وحجمه 34 ميجا لايمكن ارفاقه هنا .. هل لديك موقع تفضل رفع الملفات عليه؟ ارجو منك تزويدي به

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

Expr1: (Sum(Hour([delay])*60)+Sum(Minute([Delay])))\60 & ":" & (Sum(Hour([delay])*60)+Sum(Minute([Delay]))) Mod 60

خذ يا اخي هذا فديو لن يجعلك تسأل بل سيجعلك تعلم كي تستزيد علم

عمل برنامج لتوزيع كشوف الملاحظة الكترونيا للمرحلة الابتدائية وتتضمن الصفوف من الأول إلى السادس وشكر لكم