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

السلام عليكم ورحمة الله وبركاته ما الفائدة من أن تقرأ ولا تتفكر فيما تقرأ ؟! وما الفائدة إن تفكرت ولم ينعكس ذلك علي حياتك وسلوكك؟! ما الفائدة من أن تتعلم ولا تُعَلِم؟ أو أن تتكسب ولا تنفق؟! إن لم يكن ما يأتيك يخرج بصورة أفضل مما آتاك فهناك إذاً خلل… البذرة إن أعطيت للأرض أخرجت نبتة… فاجعل ذاتك أرضاً خصبة، كلما غُرِسَ فيها غرسٌ أنبتت ثمرة… وكن خليفة الله في أرضه ويداً لعباده ممتدة… واما بعد فكرت اني اعمل قالب يسير لمن يحتاجه التصميم بشكل جيد الفكرة جات من Blogger انه عامليين قوالب للمستخدم يقدر يستخدمها حسب حاجته ويطوعها حسب استخدامته Business Application Final Template مميزات القالب شاشة دخول للمستخدمين مع تحديد صلاحيات المستخدم -ادمن - مندوب بيع - مندوب شراء شاشات الانتقال تفاعلية بتعطي طابع للمستخدم بالراحة للرؤية مع استخدام الانفوجرافيك في الانتقالات المتعدة هاناخد فكرة عمل الشاشات - المشتريات - المبيعات - المخزون - المستخدم - الاعدادات والتقارير خيار الانتقال ينشط حسب صلاحية الدخول الوظايف المتعلقة بالشاشة الرئيسة المبيعات المشتريات المخزون التقارير والاعدادات ومنها تقرير المبيعات بالفترة شهري ربع سنوي - يومي - صنف معين - عميل معين - رقم الفاتورة - اجل - نقدي تقارير عديدة متنوعة تقرير المشتريات ونفسه تقارير المورين وبها تقارير بالمدة وبالمورد بحالة الدفع شاشة المستخدمين ومنها التحكم في المستخدمين والصلاحيات خيار دخول المستخدمين وقت الدخول والخروج والتاريخ واسم الجهاز التي تم من عليه الدخول اتمني يكون القالب فيه الفايدة والمنفعة مع ملاحظة القالب لا يحتوي الا علي اكواد شاشة الدخول والانتقال بين الخيارات القالب بالمرفقات وبالتوفيق للجميع Business Application Final Officana.xlsm

أخي @TQTHAMI مبارك عليك حصولك على الحل الصحيح .. 🙂 وتنبيه بسيط جدا : خيار أفضل إجابة يوضع على مشاركة الشخص التي حققت المطلوب ، تعبيرا عن شكرك له .. وتسهيلا للوصول إليها لاحقا 🙂🌹

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

الدرس الاول في UserForm عناصر الدرس 1- اضافة التبويبات الرئيسية للفورم 2- اضافة MultiPage والتحكم في الانتقالات بينها من خلال التبويبات الرئيسة باستخدام Class Module اولا : اضافة التبويبات الرئيسية 1- نقوم باضة userForm ثم نضيف اطار Frame ونضيف داخله عدد 5 Lebel بالنسبة لعنوان اكتب ما تشاء عربي انجليزي لكن المهم Label Name ( Btn1-Btn2-Btn3-Btn4) ا BackStyle =0 BorderStyle=0 واليبل الخامس لتغير خلفية النص Name=AnlBtn BackColor=&H8000000E& ثم نضيف ليبل خاص بالعنوان نسميه PageNo ثم نضيف MultiPage ونضيف في ال Page1 ثانيا ربط التبويبات بالفورم نضيف Class Module نكتب داخله الكود التالي Public WithEvents LblBtn As MSForms.Label Private Sub LblBtn_Click() ' للحركة بين التبويبات UserForm1.AniBtn.Left = LblBtn.Left 'ربط صفحات المالتي بيج مع التبويبات UserForm1.MultiPage1.Value = Right(LblBtn.Name, 1) - 1 'شريط العنوان UserForm1.PageNo.Caption = "Page No " & UserForm1.MultiPage1.Value + 1 & " ( " & LblBtn.Caption & " )" End Sub وفي الفورم Dim LblEvent(3) As New Class1 Private Sub UserForm_Initialize() With Me.MultiPage1 'لتغير استايل المالتي بيج .Style = fmTabStyleNone: .Value = 0 End With 'عدد التبويبات 4 من صفر الي 3 For AddEvent = 0 To 3 Set LblEvent(AddEvent).LblBtn = Me("Btn" & AddEvent + 1) Next AddEvent End Sub الملف بالمرفقات ياريت ننفذ الخطوات ولو اي استفسار ماتترد اتمني من الله اكون بسط الشرح ويكون فيه الاستفادة مع تحياتي MultiPage Officana.xlsm

فورم بحث عن اسماء الله الحسنى ووضع البيانات فى تكست بوكس صورة للفورم الفيديو الملف 2085155775_.rar

طيب .... لم افهم ........ ولكن حسب طلبك انظر ووافينا بالنتيجة ............. ProgSalse10.rar

السلام عليكم ورحمه الله وبركاته اتفضل اخى @husseinharby الترقيم للنموذج والرصيد السابق فالتقرير بالتوفيق yasser_10_1.rar

وعليكم السلام اخي هيثم 🙂 برنامجك المرفق اخذ منك وقت تعمله ، والمشكلة اخذت منك وقت حتى تفكر في حلها ، ولم تجد لها حل ، فليش تبخل علينا بوقتك وتشرح لنا طلبك بالتفصيل وبالصور 🙂 في وقت كتابتي هنا ، 33 عضو دخلوا في موضوعك ، ولم بفهموا المطلوب ، فانتقلوا الى موضوع آخر 🙂 اما انا فانزلت المرفق ، وكذلك ما فهمت المطلوب !! ساعدنا علشان نساعدك 🙂 جعفر

لا اجد رد يكفى لشكر حضرتك ا/ Mohamed Hicham جزاك الله كل خير وجعله فى ميزان حسناتك

Sub test() Dim a Dim rng As Range Dim r As Range Set rng = Application.InputBox(Title:="Please select a range", Prompt:="Select range", Type:=8) With CreateObject("VBScript.RegExp") .Global = True .Pattern = "([A-Za-z])+" For Each r In rng r.Value = Trim(.Replace(r, "")) Next End With End Sub بحيث يمكنك اختيار (النطاق) الذي تريد

تم تبديل المرفق في مشاركتي السابقة بعد التعديل في حدث زر/مفتاح الخروج.

جرب الآن مثال دخول وخروج_05.accdb

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي Sub Copysh() Dim SourceSht As Worksheet Set SourceSht = Sheets("sheet1") Application.ScreenUpdating = False Set Closesh = Workbooks.Open(ThisWorkbook.Path & "\تسويات العهد.xlsm", Password:="123") SourceSht.Copy After:=Closesh.Sheets(Closesh.Sheets.Count) 'حدف الاشكال ActiveSheet.Shapes("copy").Delete ActiveSheet.Shapes("Rounded Rectangle 5").Delete ActiveSheet.Shapes("شكل بيضاوي 1").Delete ActiveSheet.Shapes("صورة 5").Delete Closesh.Close SaveChanges:=True Application.ScreenUpdating = True End Sub بنامج تسوية العهدة.xlsm تسويات العهد.xlsm

جرب ، كما طلبت مثال دخول وخروج_03.accdb

وعليكم السلام 🙂 بحثت ووجدت هذا الكود DoCmd.OpenReport "rpt_SalesReportBO_Ar", acViewPreview 'goto last page Dim WshShell As Object Set WshShell = CreateObject("WScript.Shell") WshShell.SendKeys "{End}", True جعفر

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

اولا انا وما املك ملك يمينكم >>---> العشق الممنوع طيب ليه فى اختلاف فى الاعداد حضرتك ت حسبت اجمالا واستخدمت التقريب فى الكسور انا لم احسب اجماالا ولذلك لم احصل على كسور ولم استخدم التقريب بس ... عند التحدث فى هذا الصدد لن تحصل اطلاقا على قيمة صحيحة بنسبة 100% طيب تعالى نوضح بعض النقاط الهامة تحتوي السنوات الكبيسة على 366 يومًا ، وليس 365 كم يوما يجب أن يكون للشهر؟ 28 أو 29 أو 30 أو 31؟ ومع الاخذ فى الاعتبار إن الوقت الذي تستغرقه الأرض حتى تدور حول الشمس على وجه الدقة يقترب من 365.25 يوما وبذلك يكون عدد الأيام فى الشهر = 365.25/12=30.4375 لذلك فإنه من أجل ضمان أن تظل مواسم التقويم الميلادية متزامنة مع المواسم الشمسية، يتم وضع يوم إضافي في التقويم الميلادي كل أربع سنوات وذلك سوف نقوم باستخدم الكود الاتى فى وحدة نمطية والافضل الحساب على اعتبار ان السنه 365.25 الوقت الذي تستغرقه الأرض حتى تدور حول الشمس ومع ذلك تم المراعاة اثناء كتابة الكود بجعل الاختيار حسب الرغبة اومااااااااااااااااااال Function GetPeriod( _ intContDays As Long, _ Optional intBetween_0_Or_1_LangEng_Or_Ar As Byte = 0, _ Optional intBetween_0_Or_1_ContDaysOfYear As Byte = 0) As String Dim YearAvg As Double, MonthAvg As Double Dim Y As Long, M As Long, D As Long Dim strYears As String, strMonths As String, strDays As String Select Case intBetween_0_Or_1_ContDaysOfYear Case Is = 0: YearAvg = 365: MonthAvg = 30 Case Is = 1: YearAvg = 365.25: MonthAvg = 30.4375 End Select Y = Int(intContDays / YearAvg) M = Int((intContDays - (Int(intContDays / YearAvg) * YearAvg)) / MonthAvg) D = intContDays - ((Y * YearAvg) + (M * MonthAvg)) Select Case intBetween_0_Or_1_LangEng_Or_Ar Case Is = 0: strYears = " year" & " , ": strMonths = " Month" & " , ": strDays = " Day" Case Is = 1 strYears = ChrW("32") & ChrW("1587") & ChrW("1606") & ChrW("1607") & " , ": strMonths = ChrW("32") & ChrW("1588") & ChrW("1607") & ChrW("1585") & " , ": strDays = ChrW("32") & ChrW("1610") & ChrW("1608") & ChrW("1605") End Select GetPeriod = Y & strYears & M & strMonths & D & strDays End Function على ان يتم استدعاؤه بشكل مرن باختيار الية الحساب على اعتبار ان السنة 365 و عدد ايام الشهر 30 او على اعتبار ان السنة 365.25 و عدد الأيام فى الشهر = 365.25/12=30.4375 syntax ويتم استدعاء الكود من خلال GetPeriod(CountDays, Lang(0 or 1) ,Option Calc for Cont Dayes Of Year(0 or 1)) وهذه جملة Sql والخاصة بالاستعلام للحصول على النتيجة النهائية كما بالمرفق SELECT tbldata.EmpCode, Sum(DateDiff("d",[fromDate],[ToDate])) AS NoDays, GetPeriod(Sum(DateDiff("d",[fromDate],[ToDate]))) AS FinalDurationBy365Eng, GetPeriod(Sum(DateDiff("d",[fromDate],[ToDate])),0,1) AS [FinalDurationBy365,25Eng], GetPeriod(Sum(DateDiff("d",[fromDate],[ToDate])),1) AS FinalDurationBy365Ar, GetPeriod(Sum(DateDiff("d",[fromDate],[ToDate])),1,1) AS [FinalDurationBy365,25Ar] FROM tbldata GROUP BY tbldata.EmpCode; واخيرا المرفق ملك يمينكم يا @سجى الكعبي و عبى يابا و ضيف للمكتبة يا سيدى طبعا لا اقصد مكتبة @Moosak EmploymentPeriods (V2).accdb

عليكم السلام عسى يكون المطلوب زر طباعة1.xlsm