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

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم On Error Resume Next If IsNull([b3]) Then MsgBox "يجب أولا أختــــــــــيار اسم المورد", vbCritical, "warning" Else DoCmd.OpenReport "QPa_yme3 ", acViewPreview, , "[Da_pay4]=#" & Format(Me.b3, "mm/dd/yyyy") & "#" DoCmd.RunCommand acCmdZoom100 End If العملاء.rar تحياتي

السلام عليكم اتفضل طلبك ان شاء الله مع تعديلات بسيطة مساهمة مني الي جانب مساهمات اخواني الافاضل 1045801237_.accdb

اتفضل اضفت العديد من الفلاتر لاضفاء الكثير من المرونة وايضا الترتيب تصاعديا وتنازليا Customers.mdb

التلميح داخل مربع النص مع علامة مائية فى حالة كان مربع النص فارغ ويختفيان بمجرد التركيز داخل مربه النص او الكتابة ... ToolTip.mdb

البحث عن كلمة بدون تشكيل في حقل بالتشكيل به فقرة بالتشكيل Test111.rar

اخواني الافاضل تم شرح الخطوات بالصور ليسهل تطبيقها وتجدونها في المرفقات. اولاً اذا كانت قاعدة البيانات باللغة العربية حولها على الانجليزية ، واسهل وسيلة لعرض بيانات قاعدة بيانات SQL Server هي الاكسس و بما اننا نتكلم عن قاعدة بيانات على الاكسس انصح انك تبدء تصمم الواجهات على VB.Net او ASP.Net ، فهي لا تختلف كثيرا عن الاكسس ، لكن المميز فيها بأن المستخدم يستطيع الاستفادة من برنامجك على جميع الاجهزة كمبيوتر - لابتوب-موبايل - ايباد و غيرها ثانيا انشئ حساب على سيرفر SOMEE من : https://somee.com/default.aspx و اختر حزمة الاستضافة المجانية https://somee.com/DOKA/DOC/DOLoginOrRegister.aspx . . . . . عمل قاعدة بيانات SQL Server . . . . . . . برنامجك الاكسس : . . . . . . . . . . . . . . . . . في حال وجود اي استفسارات ارجوا كتابتها في التعليقات نشر قاعدة البيانات.zip

مرحبا . اليكم مشروعي المتواضع برنامج محاسبة اكاديمية تدريب كرة قدم اكسل مفتوح المصدر راجيا ان ينال اعجابكم اكاديمية مواهب الغد.xlsx

التلميح داخل مربع النص مع علامة مائية فى حالة كان مربع النص فارغ ويختفيان بمجرد التركيز داخل مربه النص او الكتابة ... ToolTip.mdb

السلام عليكم بعد اذن الاساتذه الكرام عايز كود يحسب عدد الصفوف الموجوده في الليست بوكس شاكر تعاونكم سلفاً

نعم اكتب الرسالة في الحدث .... وعند فتح النموذج تفتح الرسالة اولا ثم عند الاغلاق يفتح النموذج

وعليكم السلام .. اجعل مصدر التحكم لمربع النص الذي يحمل رقمين كما في الكود التالي Right([TxtNo], 2)

شكرا استاذ محمد تمت الاجابة

شكرا يأخي ملف عندي أريد ملف السيد بدارن

ضع نص الرسالة في حدث عند فتح النموذج

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

اتفضل يا سيدى 122 (2).accdb

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

شفافيــــــــــــTransparent Formsــــــــــــة النماذج Transparent Forms.mdb

الله يبارك فيك أستاذنا العزيز .. @ابا جودى في ميزان حسناتك يارب 🙂🤲

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

ابشر ان شاء الله اعمل على تحقيق طلبكم

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

هذا فضل الله وكرمه سحبانه وتعالى الشرح كالاتى الكود الاول والذى كان فى حدث عند تحديث بيانات مربع النص الخاص بتحليل (الكولسترول الكلي) - Total Cholesterol Select Case Nz([Total Cholesterol].Value & vbNullString, vbNullString) Case "": ValTotalCholesterol = vbNullString Case 5.2 To 6.2: ValTotalCholesterol = "Borderline" Case Is < 5.2: ValTotalCholesterol = "Desirable" Case Is > 6.2: ValTotalCholesterol = "High risk of heart disease " End Select تم وضعه فى روتين عام ليسهل استخدمه باستدعاءه من أى مكان وتم استخدام الاسم ValTotalCholesterol لهذا الروتين ويتم استدعاءه من خلال هذا الاسم وكذلك الكود الثانى والذى كان فى حدث عند تحديث بيانات مربع النص الخاص بتحليل (الدهون الثلاثية) - Triglycerides Select Case Nz([Triglycerides].Value & vbNullString, vbNullString) Case "": ValTriglycerides = vbNullString Case Is <= 500: ValTriglycerides = vbNullString Case Is > 500: ValTriglycerides = "increase the risk of heart disease please check for ECG" End Select تم وضعه فى روتين عام ليسهل استخدمه باستدعاءه من أى مكان وتم استخدام الاسم ValTriglycerides لهذا الروتين ويتم استدعاءه من خلال هذا الاسم الجزء الثانى وهو دمج القيم تبعا لبيانات التحاليل فى كل مربع نص تم وضعه كذلك فى روتين عام ليسهل استخدمه باستدعاءه من أى مكان وتم استخدام الاسم StrResult لهذا الروتين ويتم استدعاءه من خلال هذا الاسم If Len(Nz([Total Cholesterol].Value & vbNullString)) = 0 Then _ Me.txtcomment = ValTriglycerides Else: Me.txtcomment = ValTotalCholesterol & vbNewLine & ValTriglycerides وشرح الكود كالاتى .. تم استخدام دالة If الشرطية لو مربع النص Total Cholesterol فارغ وطول السلسة النصيه بداخله يساوى 0 يكون مربع النص txtcomment يساوى قيمة الروتين ValTriglycerides وان كان مربع النص Total Cholesterol غير فارغ ويحتوى على قيم وطول السلسلة النصيه بداخله اكبر من 0 يكون مربع النص txtcomment يساوى قيمة الروتين ValTotalCholesterol + سطر جديد + قيمة الروتين ValTriglycerides بعد ذلك يتم استدعاء هذا الروتين StrResult فى حدث عند تحديث بيانات مربع النص الخاص بتحليل (الكولسترول الكلي) - Total Cholesterol وكذلك فى حدث عند تحديث بيانات مربع النص الخاص بتحليل (الدهون الثلاثية) - Triglycerides --------- -الدالة Len......... طول السلسلة النصية -الدالة Nz ..........مفيدة للتعبيرات التي قد تتضمن قيم Null. لإجبار تعبير على التقييم إلى قيمة غير خالية حتى عندما يحتوي على قيمة Null لذلك يتم استخدم الدالة Nz لإرجاع صفر أو سلسلة فارغة أو قيمة مرجع مخصصة If Len(Nz([Total Cholesterol].Value & vbNullString)) = 0 هذا الجزء يعنى التأكد من طول السلسة النصية داخل مربع النص وان كانت تساوى 0 ان كان مربع النص خالى Then ...... عند تحقق الشرط السابق نفذ الامر اللاحق مربع النص Me.txtcomment = قيمة المتغير العام ValTriglycerides الذى قام مسبقا باختزان بيانات داخله بناء على القيم المكتوبة داخل الروتين الخاص به Else: ...... تعنى --- إن لم يتحقق الشرط السابق وكان مربع النص طول السلسة به اكبر من صفر نفر الامر التالى بدلا من الامر السابق Me.txtcomment = قيمة المتغير العام ValTotalCholesterol الذى قام مسبقا باختزان بيانات داخله بناء على القيم المكتوبة داخل الروتين الخاص به - & vbNewLine & اضافة سطر جديد قيمة المتغير العام ValTriglycerides الذى قام مسبقا باختزان بيانات داخله بناء على القيم المكتوبة داخل الروتين الخاص به

تفضل هذه مشاركة لما فهمته من طلبك Database_test1.accdb

الف شكر للجميع علي ما بذلتوه

شفافيــــــــــــTransparent Formsــــــــــــة النماذج Transparent Forms.mdb

اتفضل 122.accdb

الف شكر الكلمات تعجز عن الثناء عليكم هل ينفع اطلع التعليقين total cholesterol and Triglycerides بكود واحد وفى نفس المبربع تحت بغض للمثالين السابق Triglycerides =600 total cholesterol= 7.2 increase the risk of heart disease please check for ECG High risk of heart disease

Option Explicit Private Sub CommandButton1_Click() UpdateListBox "WEEK 1" End Sub Private Sub CommandButton2_Click() UpdateListBox "WEEK 2" End Sub Private Sub CommandButton3_Click() UpdateListBox "WEEK 3" End Sub Private Sub CommandButton4_Click() UpdateListBox "WEEK 4" End Sub Sub UpdateListBox(ByVal sWeek As String) Dim ws As Worksheet, i As Long Set ws = ThisWorkbook.Worksheets(1) For i = 0 To UserForm1.ListBox1.ListCount - 1 If UserForm1.ListBox1.Selected(i) Then ListBox1.List(i, 4) = sWeek ws.Cells(i + 3, 11) = sWeek End If Next i Call CommandButton5_Click End Sub Private Sub CommandButton5_Click() Dim deg1, deg4, deg6, deg8, deg2 As String, deg3 As String, deg5 As String, deg7 As String, sat As Long, s As Long With Application .Calculation = xlCalculationManual .ScreenUpdating = False .EnableEvents = False End With With ListBox1 .Clear .ColumnCount = 8 .ColumnWidths = "80;190;100;80;0;110,100" End With deg2 = "AUGUST" deg3 = "AUGUST" deg5 = "AUGUST" deg7 = "AUGUST" For sat = 3 To Sheet1.Cells(65536, "F").End(xlUp).Row Set deg1 = Sheet1.Cells(sat, "F") Set deg4 = Sheet1.Cells(sat, "G") Set deg6 = Sheet1.Cells(sat, "H") Set deg8 = Sheet1.Cells(sat, "I") If UCase(deg1) Like UCase(deg2) Or UCase(deg3) Like UCase(deg4) Or UCase(deg5) Like UCase(deg6) Or UCase(deg7) Like UCase(deg8) Then ListBox1.AddItem ListBox1.List(s, 0) = Sheet1.Cells(sat, "A").Value ListBox1.List(s, 1) = Sheet1.Cells(sat, "C").Value ListBox1.List(s, 2) = Sheet1.Cells(sat, "B").Value ListBox1.List(s, 3) = Sheet1.Cells(sat, "D").Value ListBox1.List(s, 5) = Sheet1.Cells(sat, "N").Value ListBox1.List(s, 6) = Sheet1.Cells(sat, "J").Value ListBox1.List(s, 7) = Sheet1.Cells(sat, "K").Value s = s + 1 End If Next sat With Application .Calculation = xlCalculationAutomatic .ScreenUpdating = True .EnableEvents = True End With End Sub

جميعا بفضل من الله تعالى

الحمد لله الذي بنعمته تتم الصالحات

وعليكم السلام ورحمه الله وبركاته يمكنك الاستفاده من هذا الموضوع

إذا كان المطلوب مجرد فرق بين تاريخين يمكنك استعمال دالة datedif بالتوفيق

السلام عليكم نموذج فاتوره يدل على ذوق رفيع و حس سامى و ابداع في الاخراج و تحسس لما يريده المستخدم Free download (4.02 MB) حمل هذا الملف من اعلى يسار الشاشه http://www.office-kit.com/excel_invoice_ma...nvoice_form.htm