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

السلام عليكم برنامج ادارة المدارس الخاصة ورياض الاطفال يهم كل شخص صاحب مصلحة تتعلق بالمدارس الخاصة ورياض الاطفال برنامج مفتوح المصدر من تصميمي اتمنى لكم الفائدة حجم الملف 7 ميجا بعد الضغط لذا سأرفعه على ميديا فير وازودكم برابط مباشر http://www.mediafire.com/file/7l9bt2c3c13hr59/%D9%85%D8%AF%D8%A7%D8%B1%D8%B3_%D8%AE%D8%A7%D8%B5%D8%A9_%D9%88%D8%B1%D9%8A%D8%A7%D8%B6_%D8%A7%D9%84%D8%A7%D8%B7%D9%81%D8%A7%D9%84.exe/file أي استفسار انا جاهز ........... او على واتس اب 00962787787573 ** قريبا انتهي من تصميم برنامج محاسبة شركات شامل وموسع ........ عند الانتهاء سأرفعه لكم لكي تعم الفائدة الان شغال على برنامج ادارة مكتب محامي ........ اللي يهمه هذا البرنامج يكتب ملاحظة وسأزوده به مجانا http://www.mediafire.com/file/7l9bt2c3c13hr59/مدارس+خاصة+ورياض+الاطفال.exe

تفضل 🙂 . . . جعفر 1004.Microsoft Access Database جديد _(2)_.accdb.zip

السلام عليكم برنامج محاسبة ومخازن 2019 يهم كل شخص صاحب مصلحة تتعلق بالبيع والشراء برنامج مفتوح المصدر من تصميمي اتمنى لكم الفائدة كلمة السر 12345 أي استفسار انا جاهز ........... او على واتس اب 00962787787573 ** قريبا انتهي من تصميم برنامج محاسبة شركات شامل وموسع ........ عند الانتهاء سأرفعه لكم لكي تعم الفائدة الان شغال على برنامج ادارة مكتب محامي ........ اللي يهمه هذا البرنامج يكتب ملاحظة وسأزوده به مجانا محاسبة ومخازن 2019.rar

وعليكم السلام تفضل الفهرس2.xlsm

نفضل أخى احمد الطحان جرب الملف ok_11.xlsx

الخطأ هذا لا علاقة له بتعديل كود SQL 🙂 النموذج الرئيسي له مصدر بيانات ، يعني النموذج مضمن . مصدر بيانات النموذج هو استعلام للجدول invoice ، ولاحظ انك استخدمت النجمة * ، معناها انك تريد جميع حقول الجدول . وبالفعل ، تم عرض جميع حقول الجدول . ولما نأتي الى الحقل اللي يظهر لنا في رسالة الخطأ fatora_no ، نشوف انك قائل انه لا يمكن حفظ السجل بدون ان تكون هناك معلومة فيه ، نعم مطلوب . ولكن ، لما ننقر على زر الحفظ في النموذج ، نصل الى هذا السطر من الكود Me.Refresh ، والذي معناه ان يحفظ بيانات النموذج الرئيسي . ولكن جميع حقول النموذج غير مضمنه ، اي لا تُحفظ في الجدول ، إلا الحقل nn يجب حفظه (لأنه حقل مضمن) !! ولا يستطيع البرنامج حفظ هذا الحقل بدون قيمة لحقل fatora_no (لأنه غير مضمن) ، لذا ، فقيمة الحقل nn لن تُحفظ في الجدول !! . وبالنظر الى الجدول ، نرى انه بالفعل ، لا توجد فيه ولا نتيجة واحدة . والطريقة الصحيحة هي: يجب ان يكون النموذج الرئيسي غير مضمن ، ويكون حقل nn غير مضمن (مثل بقية الحقول) ، ثم تأتي الي الكود ادناه ، وتضيف حقل "رقم الايصال" nn ، وتجعل الكود يضيفه الى جدول invoice ، مثل ما يضيف بقية الحقول. . جعفر

بارك الله فيك استاذ سليم معادلة ممتازة ولكن الأستاذ صالح اذا كان محتاج ان يكون الى اخر تاريخ بالعمود فيمكن استخدام المعادلة بهذه الطريقة =IF( A2="",""," مديونية من تاريخ " & TEXT(A2,"dd/mm/yyyy") & " حتى تاريخ "&TEXT(MAX($A$2:$A$900),"dd/mm/yyyy"))

هذه المعادلة =IF( A2="",""," مديونية من تاريخ " & TEXT(A2,"dd/mm/yyyy") & " حتى تاريخ ")

السلام عليكم برنامج المزارع يهم كل شخص مهنته الزراعة برنامج مفتوح المصدر من تصميمي اتمنى لكم الفائدة المزارع.accdb

تم معالجة الامر الفهرس_New.xlsm

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

عمل ممتاز بارك الله فيك وجزاك الله كل خير

حاليا تستطيع استخدام . ولكن في قائمة التعديلات ، إضافة هذه الميزة في مسقط التقارير 🙂 جعفر

يا شيخ 🙂

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

وعليكم السلام اخوي خلف 🙂 انتظر عليّ شوي ، فانا اقوم بعمل تقرير مبني على استعلام جدولي ، وتتغير اسماء الحقول وعددها وعدد سجلاتها ، وبدون تغيير في الكود 🙂 تابعني هنا: جعفر

عمل موفق وبارك الله بيك جاري التحميل و اعطاء الرأي بعد ذلك

برنامج رائع ، سلمت يداك .

تفضل بعد اذن الأساتذة مثال2 .xlsx

لم ياتينى اى ارقام تاكيد على ايميلى برغم التسجيل قم بالتسجيل باكثر من معرف ثم راسلنى بالهاشات للفك

تفضل ، الملف بعد التعديل 🙂 جعفر 1003.zip

انا اعطيتك الجواب 🙂 جعفر

1. معلش ، اعمل اللي اخبرتك عنه ، وخلينا نشوف النتائج ، 2. انظر في مشاركتي الاخيرة ، لأني في نهايتها وضعت لك الحل لـ "مشكله اخري علي جهاز العميل وهي انا البرنامج لايفتح محرر الفيجوال بيسك" و "يخرج من البرنامج". جعفر

تفضل 🙂 . جعفر 1005.قروض.accdb.zip

ما شاء الله تبارك الله شكراً لك أخي عبداللطيف دائما سباق للخير

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

قواعد المشاركة فى الموقع 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف. أخي الكريم يجب عليك إحترام قوانين المنتدى و خاصة المادة رقم1 الملونة بالأحمر موضوع مخالف يغلق.

تفضل لك ما طلبت ولكن لابد ان تلاحظ ان اعمدة مهمة العمل والبرنامج الأكاديمى والملتقى ولقاء خبير ليس بهم معادلات لأن هذه الأعمدة لا تحتوى على عمود العنوان بارك الله فيك تجربة2.xlsx

بارك الله فيك استاذى الفاضل وتسلم الايااااااااااادى يا رب

تفضل اخى الكريم المشكلة من عندك تم تطبيق المعادلة بملفك بارك الله فيك مديونية.xlsx

حياك الله - جزيت خيرا هو المطلوب

وين حقل "رقم الاذن" ، انا ما شايفه في النموذج!! ولو سمحت تعطينا الخطوات اللي تتبعها للوصول للخطأ 🙂 جعفر

تمت معالجة الامر (مع الترتيب الأبجدي للاسماء) Badil (1).xlsm

السلام عليكم هل كل ما تريده موجود في هذا الملف (مجرد قوائم)؟... إذا كان كذلك، بإذن الله سأقوم لاحقا بتطبيق ما قمنا بعمله على الملف الأول (كل قائمة نضع لها نموذجا من ورقة واحدة مع أكواد الطباعة) على هذا الملف الجديد... اصبر معنا والصبر جميل. بن علية حاجي

الاخ صلاح وبعد اذن الاخ على محمد على صورة من الكود ادخل على الرابط التالى به فولدر لطلبك

مشاركة مكررة يجب حذفها لقد تم الرد من قبل استاذنا الكبير سليم حاصبيا على هذا الرابط فى المشاركة الأخرى https://www.officena.net/ib/topic/88915-عمل-بودرة-حسابية-لكل-منتسب/

لك ما تريد _(تم تبديل الملف لان جحمه كبير جداً مما يعيق تنفيذ الماكرو) الكودين Option Explicit Sub FiND_DATA() Dim i%: i = 2 Dim arr, k%: k = 1 Dim H% Dim rg As Object Dim My_Table As Range: Set My_Table = Sijjel.Range("a1:L100") Salim.Cells.Clear Set rg = CreateObject("system.collections.arraylist") With rg Do Until Sijjel.Range("E" & i) = vbNullString If Not .contains(Sijjel.Range("E" & i).Value) And _ Application.CountIf(Sijjel.Range("E2:E" & i), Sijjel.Range("E" & i)) = 1 Then .Add Sijjel.Range("E" & i).Value End If i = i + 1 Loop Salim.Range("q1").Formula = "اسم المنتسب" '==================== For i = 0 To rg.Count - 1 Salim.Range("q2") = rg.Item(i) My_Table.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Salim.Range("Q1:q2"), _ CopyToRange:=Salim.Range("A" & k) H = Salim.Cells(Rows.Count, 5).End(3).Row k = H + 3 Next End With Salim.Range("q1:q2") = vbNullString Find_emPty End Sub '''''''''''''''''''''''''''''''''''''''' Sub Find_emPty() Dim lre%: lre = Salim.Cells(Rows.Count, "E").End(3).Row Dim arr1(), arr2() Dim i%, k%: k = 1 'Dim m%: m = 2 For i = 2 To lre If Salim.Cells(i, "e") = vbNullString Then ReDim Preserve arr1(1 To k): arr1(k) = Salim.Cells(i, "e").Row k = k + 1 i = i + 1 End If Next '====================================== Dim rg As Range Dim txt$ Dim f_addres$ txt = "اسم المنتسب" Dim m%: m = 1 Dim x x = Salim.Cells(Rows.Count, "E").End(3).Row Set rg = Range("E1:e" & x).Find(txt, after:=Cells(x, 5), LookIn:=xlValues, lookat:=xlPart) If Not rg Is Nothing Then f_addres = rg.Row + 1 Do ReDim Preserve arr2(1 To m): arr2(m) = rg.Row + 1 m = m + 1 If m > x - 1 Then Exit Do Set rg = Range("E1:e" & x).FindNext(rg) Loop While rg.Row + 1 > f_addres Else End If ReDim Preserve arr1(1 To UBound(arr1) + 1) arr1(UBound(arr1)) = x + 1 For i = 1 To UBound(arr2) Cells(arr1(i), 1).Resize(, 12).Interior.ColorIndex = 6 Cells(arr1(i), 6) = Application.Sum(Range(Cells(arr2(i), 6), Cells(arr1(i) - 1, 6))) Cells(arr1(i), 7) = Application.Sum(Range(Cells(arr2(i), 7), Cells(arr1(i) - 1, 7))) Cells(arr1(i), 8) = Application.Sum(Range(Cells(arr2(i), 8), Cells(arr1(i) - 1, 8))) Cells(arr1(i), 9) = Application.Sum(Range(Cells(arr2(i), 9), Cells(arr1(i) - 1, 9))) Cells(arr1(i), 10) = Application.Sum(Range(Cells(arr2(i), 10), Cells(arr1(i) - 1, 10))) Cells(arr1(i), 11) = Application.Sum(Range(Cells(arr2(i), 11), Cells(arr1(i) - 1, 11))) Cells(arr1(i), 12) = Application.Sum(Range(Cells(arr1(i), 6), Cells(arr1(i), 11))) Next '================================== End Sub '============================= الملف مرفق Badil.xlsm

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

تفضل تجربة.xlsx

وعليكم السلام 🙂 التقرير لا يحترم فرز الاستعلام ، وانما يجب عمل الفرز في التقرير مباشرة 🙂 رجاء متابعة هذه المشاركة: جعفر

وعليكم السلام 🙂 في الكثير من الاحيان ، مادام الكود يعمل بطريقة صحيحة ، فلا علاقة لنا بكيفية عمله 🙂 تفضل: Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer) Dim ctl As Control Dim MaxHeight As Long 'اعطاء قيمة اوليه لأطول حقل MaxHeight = 0 'نلف حول الحقول For Each ctl In Me 'اذا كان نوع الحقل نص ، ونحن في قسم التفصيل If TypeOf ctl Is TextBox And ctl.Section = 0 Then 'اذا كان طول الحقل اطول من القيمة الاوليه ، اذن قم بتغيير القيمة الاولية الى هذا الطول الجديد If ctl.Height > MaxHeight Then MaxHeight = ctl.Height End If Next 'نلف حول الحقول For Each ctl In Me 'اذا كان نوع الحقل نص ، ونحن في قسم التفصيل If TypeOf ctl Is TextBox And ctl.Section = 0 Then 'اعمل خط ، النقطة الاولى: يسار الحقل و وارتفاعه صفر 'والنقطة الثانية: يسار الحقل و وارتفاعه طول اطول حقل Me.Line (ctl.Left, 0)-(ctl.Left, MaxHeight) End If Next ' نرسم خط ، النقطة الاولى عرض التقرير ناقص 3 تويب و وارتفاعه صفر 'والنقطة الثانية: عرض التقرير ناقص 3 تويب ، و ارتفاعه طول اطول حقل Me.Line (Me.Width - 3, 0)-(Me.Width - 3, MaxHeight) ' نرسم خط ، النقطة الاولى: اقصى اليسار (يعني صفر) و ارتفاعه طول اطول حقل ' والنقطة الثانية عرض التقرير ناقص 3 تويب و ارتفاعه طول اطول حقل Me.Line (0, MaxHeight)-(Me.Width - 3, MaxHeight) End Sub Private Sub Report_Page() 'تحميل خيارات الرسم عند فتح الصفحة Me.ScaleMode = 3 Me.ForeColor = 0 Me.DrawWidth = 3 End Sub . جعفر

ممكن تحذف فاصلة ، ثم تكتبها مرة ثانية ، فيطلع لك الخيارات 🙂 تفضل ، هذا الكود لفتح النموذج في وضع ورقة بيانات DoCmd.OpenForm "frmReturnedbyCus", acFormDS, , "[CusID]=" & Combo2 جعفر

وعليكم السلام ورحمة الله وبركاته 🙂 معظم الاعضاء يقرأون السؤال، وعلى اثره يرون مقدرتهم على الاجابة على السؤال، اما اذا يتطلب الموضوع ان انزل المرفق لأعرف السؤال، فـ 99.9% من الوقت ، انا لا انزل المرفق، وانتقل للموضوع التالي والآن نرجع الى سؤالك: بما انه لا يمكننا التأكد من نتائج برنامجك ، لأنه مربوط بميزان ، لذلك من الصعب الاجابة على السؤال !! لذلك، فالنجعل البرنامج يخبرنا بما يراه، وعليه نرى الطريقة الاصح لضبط الجواب 🙂 استعمل هذا الكود بدل الكود الذي ارفقته (هو نفس كودك، ولكن بتنسيق، وبه اوامر طباعة النتائج الى ملف MSComm_Listening.txt في نفس مجلد برنامجك) : Private Sub MSComm1_OnComm() On Error Resume Next Dim c As Variant Dim n As Integer Dim File_Path As String File_Path = Application.CurrentProject.Path & "\MSComm_Listening.txt" Open File_Path For Output As #1 If MSComm1.CommEvent = comEvReceive Then If comEvEOF Then MSComm1.InputLen = 1 Do While MSComm1.Input = "0" MSComm1.InputLen = 8 c = MSComm1.Input c1 = "" Print #1, "Do c=" & c & vbTab & "len(c)=" & Len(c) Print #1, For i = 1 To Len(c) cut = Mid(c, i, 1) Print #1, "For cut=" & cut If (IsNumeric(cut)) Or (cut = ".") Then Print #1, "Old c1=" & c1 c1 = c1 & cut Print #1, "New c1=" & c1 End If Next i Print #1, Label5.Caption = Val(c1) Print #1, "Val(c1) =" & Val(c1) Loop End If 'comEvEOF End If 'MSComm1 MSComm1.InBufferCount = 0 Close #1 End Sub . ثم قم بعمل الوزن بالطريقة الطبيعية ، ثم ارفق لنا ملف MSComm_Listening.txt ، واخبرنا كم يجب ان تكون النتيجة الصحيحة 🙂 جعفر

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

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

تم معاجة الامر الكود يعمل بالطريقتين اخفاءيومي الجمعة والسبت _two_ways.xls

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

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

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

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