البحث في الموقع

السلام عليكم ورحمة والله تعالى وبركاته طيب ببساطه انظر للسلسلة النصية الاتية "Moh8202281012343434" ونريد التعديل عليها لتظهر بهذا الشكل "Moh-820-228-101-234-343-4" او بهذا الشكل "Moh,820,228,101,234,343,4" او بهذا الشكل Moh820/228101/234343/4 يتم عمل ذلك من خلال الكود الاتى Function ReFormat(ByVal strText As String, Optional strSymbol As String = "-", Optional intCountDigits As Integer = 3) Dim i As Long ReFormat = "" For i = 0 To Len(strText) - 1 Step intCountDigits If i = 0 Then ReFormat = Mid(strText, i + 1, intCountDigits) Else ReFormat = ReFormat & strSymbol & Mid(strText, i + 1, intCountDigits) End If Next i End Function syntax code ReFormat(string ,Symbol, Count Digits) Result By default syntax used ReFormat(string) Symbol >-->> - Count Digits >-->> 3 اذا من خلال استدعاء الكود عن طريق البنية المفضلة الاتية: ReFormat(string) تحصل على اضافة العلامة - بعد كل 3 مواضع فى السلسلة النصية اما اذا اردت التعديل فى شكل الرمز وعدد المواضع يمكنك استخدام الكود الاتى : ReFormat(string ,Symbol, Count Digits) مثلا لو اردت استخدام الرمز $ بدلا من الرمز - وتريد وضع الرمز فى السلسلة النصية بعد كل خمس مواضع يكون الكود كالأتى: ReFormat(string ,"$", 5)

السلام عليكم ورحمة الله وبركاته .. اليوم جايب لكم موقع وظيفته يقرأ أو يشرح لك الكود بلغة إنجليزية مفهومة ، ويمكنك عن طريق المترجم تحويلها إلى اللغة العربية 🙂 وهذا هو الموقع : https://denigma.app الموقع بفضل الله يتعامل مع معظم اللغات البرمجية تقريبا ، ومن ضمنها الفيجوال بيسك VBA .. وهذا شرح مبسط للاستخدام .. بعد فتح الموقع ننزل تحت إلى هذي الخانة، يوضع الكود في الخانة اليسرى ويظهر التفسير في الجهة اليمنى : نجرب نلصق دالة حساب العمر بالسنة والشهر واليوم ونضغط على [Explain it!] : ولترجمته باللغة العربية ، تأخذ النص لمترجم جوجل فيعطيك النتيجة هكذا : 🙂 هذا وسلامتكم ☺️🌹

السلام عليكم ورحمة الله وبركاته .. تحية طيبة إخواني .. 🌹 أحضرت لكم اليوم كود وظيفته استخراج الملفات المخزنة في جداول الأكسس كمرفقات داخلية إلى خارج قاعدة البيانات دفعة واحدة 🙂 وهو مفيد جدا لمن لديه قاعدة بيانات قد ملئها بالمرفقات ويحاول الآن تصغير القاعدة باستخراج المرفقات منها وحفظها خارج قاعدة البيانات بسهولة ويسر .. بدل حفظها ملف ملف وهي عملية مرهقة بالتأكيد .. خصوصا إذا كان عدد المرفقات بالمئات .. إليكم الكود : Public Function ExtractAllAttachments(ByVal TableName As String, ByVal AttchmentColumnName As String, ByVal ExtractToFolder As String) ' TableName : اسم الجدول ' AttchmentColumnName : اسم حقل المرفقات ' ExtractToFolder: المكان المراد استخراج الملفات إليه مثال : "C:\ExtractHere" Dim RsMainrecords As dao.Recordset2 Dim RsAttachments As dao.Recordset2 Set RsMainrecords = CurrentDb.OpenRecordset("select " & AttchmentColumnName & _ " from " & TableName & _ " where " & AttchmentColumnName & ".FileName is not Null") Do Until RsMainrecords.EOF Set RsAttachments = RsMainrecords.Fields(AttchmentColumnName).Value Do Until RsAttachments.EOF Dim OutputFileName As String OutputFileName = RsAttachments.Fields("FileName").Value OutputFileName = ExtractToFolder & "\" & OutputFileName RsAttachments.Fields("FileData").SaveToFile OutputFileName RsAttachments.MoveNext Loop RsAttachments.Close RsMainrecords.MoveNext Loop RsMainrecords.Close Set RsMainrecords = Nothing Set RsAttachments = Nothing End Function ويتم تشغيله بالطريقة التالية : ExtractAllAttachments("TableName","AttchmentColumnName","ExtractToFolder") ستحتاج لإعطائه 1- اسم الجدول ، 2 - اسم الحقل ، 3 - المكان الذي تريد استخراج المرفقات فيه . المصدر : https://www.youtube.com/watch?v=jHIgay9goWo

السلام عليكم ورحمة الله وبركاته . وطيب الله أوقاتكم بالخير والسعادة الدائمين . السادة خبراء المنتدى الأجلاء . قد نكون أكثرنا من الطلبات ، ولكننا سنكثر من الإلحاح عليكم بطلباتنا لعلمنا يقينا أنكم لا تردون من أراد العلم خائبا . السؤال : هل بالإمكان عمل كود لحذف كل المديولات واليوزرفورم وأوراق العمل عدا مثلا ورقة ٣ عندما يتم إدخال باسوورد ال vba غير الباسوورد التالية ( fsa90 ). مثلا ؟ وهل هذا السؤال يحتاج لإرفاق ملف ؟ دمتم في حفظ الله وعنايته.

احتجت لدمج محتويات عدد من الخلايا مع دمج محتوياتها فى كمية كبيرة من الجدوال ، مع اضافة فاصلة بين محتوياتها فاعددت هذا الكود اختر الخلايا المراد دمجها و دمج محتوياتها قبل تشغيل الكود Sub mergitwithcomma() Selection.Cells.merge With Selection.Find .Text = "^p" .Replacement.Text = "، " .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub لتنزل الملف

السلام عليكم احبتي مشرفي واعضاء المنتدى المطلوب التعدبل على الكود لكي يظهر الميساج مرة واحدة خلال كل شهر وبشرط وجود مبلغ إقتطاع واذا لم يكن وجود مبلغ الإقتطاع يظهر الميساح بعدم وجود الإقتطاع خلال هذا الشهر ويكون كذلك مرة واحدة كل شهر Private Sub cmd_Pay_installments_Click() On Error GoTo err_cmd_Pay_installments_Click Dim rst As DAO.Recordset 'Cridi and Elec Payments Set rst = CurrentDb.OpenRecordset("Select * From tbl_Loans Where [Payment_Month]=CDATE('" & Me.TxtMonth & "')") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount a1 = 0 'just a flag a2 = 0 'jusf a flag If Len(rst!Payment_Made_Cridi & "") = 0 And Not IsNull(rst!Loan_Cridi) Then Select Case MsgBox(" هل تريد ان يتم توزيع الإقتطاعات لشهر" & Me.TxtMonth, vbYesNo + vbQuestion + vbDefaultButton1) Case vbYes For i = 1 To RC rst.Edit 'check, maybe a manual payment is done, so don't over write it 'If Len(rst!Payment_Made_Cridi & "") = 0 And Not IsNull(rst!Loan_Cridi) Then rst!Payment_Made_Cridi = rst!Loan_Cridi rst!sadad = rst!Loan_Cridi If rst!sadad.Value = True Then rst!wada3 = "تم التسديد" Else rst!wada3 = "لم يتم التسديد" End If TheSum = TheSum + Nz(rst!Payment_Made_Cridi, 0) + Nz(rst!Payment_Made_Elec, 0) + Nz(rst!Loan_Other, 0) 'a1 = 1 'End If 'If Len(rst!Payment_Made_Elec & "") = 0 And Not IsNull(rst!Loan_Elec) Then 'rst!Payment_Made_Elec = rst!Loan_Elec 'a1 = 1 'End If rst.Update rst.MoveNext Next i TheSum = Format(TheSum, "#,##0.00") MsgBox " " & "تم توزيع الإقتطاعات" & vbLf & vbLf & "مجموع الإقتطاعات = " & TheSum, , "إقتطاعات شهر" & FrenchMonth(Month(Date)) & Year(Date) Case vbNo MsgBox "لم يتم توزيع الإقتطاعات " End Select 'GoTo I_am_Done 'Other loans for, March (3) and July (7) If Month(Now()) = 3 Or Month(Now()) = 7 Then Dim rstE As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From tbl_Loans") myCriteria = "[detach]='موظف'" 'myCriteria = myCriteria & " Or [detach]='منتدب'" myCriteria = myCriteria & " Or [detach]='متعاقد كامل'" myCriteria = myCriteria & " Or [detach]='متعاقد جزئي'" myCriteria = myCriteria & " Or [detach]='عون نظافة'" Set rstE = CurrentDb.OpenRecordset("Select * From Employee Where " & myCriteria) rstE.MoveLast: rstE.MoveFirst RC = rstE.RecordCount For i = 1 To RC 'check if payment is already entered, if it is, then skip this Record rst.FindFirst "[Loan_Type]='Other' And [EmployeeID]=" & rstE!EmployeeID & " And [Payment_Month]=#" & Me.TxtMonth & "#" If rst.NoMatch Then rst.AddNew a2 = 1 rst!EmployeeID = rstE!EmployeeID rst!Loan_ID = 0 'rst!Loan_AwardMonth = Me.AwardMonth rst!Payment_Month = DateSerial(Year(Me.TxtMonth), Month(Me.TxtMonth), 1) 'rst!Loan_Cridi = Me.txtDiscountPerMonth 'rst!Loan_Elec= 'to be used in Elec loan Form rst!Loan_Other = 1100 'to be used in Other loan Form 'rst!Payment_Made = 'to be used each time a pyment is made rst!Loan_Type = "Other" rst!Remarks = "إقتطاع من الراتب لإشتراك شهر " & Year(Me.TxtMonth) & "/" & Month(Me.TxtMonth) rst.Update End If rstE.MoveNext Next i rstE.Close: Set rstE = Nothing End If I_am_Done: 'clean up rst.Close: Set rst = Nothing End If Exit Sub err_cmd_Pay_installments_Click: If Err.Number = 3021 Then 'No Records, ignore Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub

السلام عليكم أحتاج إلى أمر / كود فيجوال يمكنني من إضافة ظل إلى نص . خلال عملي لـ template في الوورد احتجت إلى هذا الأول و قد بحثت و لم أجد إجابة واضحة فلم أحصل على الطريقة الملائمة للاستفادة من الخاصية .FONT.shadow بانتظار إسهاماتكم بارك الله بكم .

الساده السلام عليكم ورحمة الله وبركاته المرفق كود عمليه ضرب عمودين ووضع الناتج فى العمود الثالث من احد الساده الافاضل بالموقع وأريد شرح لخطوات الكود حتى أستطيع الاستفاده منه فى ملف أخر ولكن مسمى الأعمدة مختلفة Sub BOQ() For s = 1 To Sheets.Count Sheets(s).Select x = Cells.SpecialCells(xlCellTypeLastCell).Row For r = 8 To x If IsNumeric(Cells(r, "I")) = False Then Cells(r, "F").FormulaR1C1 = "=RC[2]*RC[4]" Next r Next s End Sub وشكرا

السلام عليكم هل يوجد حل لهذه المشكلة مع العلم انها تظهر في ويندوز 10 وفي الاصدارات الاخرى لاتظهر المشكلة في ملف عمل اكسيل 2003 و اكسيل 2010 نفس المشكلة يرجى الافادة وشكرا

السلام عليكم اخوانى ما اريدة هو تعديل لكود تصدير اسماء الزوار الى ملف VCF لسهولة استدعاءة للهاتف المحمول.الكود يعمل بنجاح ولكن لاول اسم فقط ولا يقوم بتصدير باقى الاسماء الكود : Const ForReading = 1, ForWriting = 2, ForAppending = 3 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Dim rst As DAO.Recordset Dim fs, f, ts, s 'انشاء الملف فى المسار المحدد بالسطر التالى ActiveControl.Hyperlink.CreateNewDocument "E:\LotusNotes_VCard.vcf", True, True ' فتح الملف المصدر Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile("E:\LotusNotes_VCard.vcf") Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault) ' استدعاء البيانات من الجدول Set rst = CurrentDb.OpenRecordset("Invetion") rst.MoveFirst Do Until rst.EOF ts.writeLine "begin:vcard" ts.writeLine "fn:" & rst![Inv_Name] ts.writeLine "tel;cell;voice:" & rst![Inv_Mobile] ts.writeLine "ts.write version:2.1" ts.writeLine "End: vcard" rst.MoveNext Loop ' اغلاق الجدول rst.Close ' اغلاف الملف ts.Close VCard.zip

السلام عليكم ورحمة الله وبركاته الرجاء المساعدة في حل مشكلة اولى تظهر عند تشغيل كود لتكرار اوراق وتعبئتها حسب الداتا الموجودة في ورقة ثانية . مشكلة تانية ظهور اصفار (0) عند عدم وجود احد البيانات والمفروض عدم ظهور شيء في الخلية وشكرا مقدماً ‏‏ورقة اسماء اولية.xlsm

ياجماعة كان فيه أخ فاضل منزل برنامج كشوف الملاحظة وهو برنامج رائع بس أنا مش عارف أعدل في الكود عشان العدد في مدرستي كبير أكتر من 20 لجنة وهو متصمم على 16 لجنة بس فرجاء شرح الكود وكيفية التعديل عليه أولا ده الكود ملئ بيانات اليوم الأول: Sub يوم1فترة1() Application.ScreenUpdating = False Sheets("الكشاف").Range("a10:f" & ['الكشاف'!d3] + 9).Select Selection.Sort Key1:=Range("f10"), Order1:=xlAscending Sheets("الكشاف").Range("n10:p" & ['الكشاف'!d3] + 9).ClearContents r = 10 x = 10 xx = ['الكشاف'!d3] + 9 For i = x To xx If Sheets("الكشاف").Cells(i, 3) <> ['الكشاف'!p5].Value And Sheets("الكشاف").Cells(i, 3) <> ['الكشاف'!p6].Value And Sheets("الكشاف").Cells(i, 7) <> "-" And Sheets("الكشاف").Cells(i, 7) <> "" And Sheets("الكشاف").Cells(i, 4) <> "" Then ' Sheets("الكشاف").Cells(r, 14).Value = r - 59 Sheets("الكشاف").Cells(r, 14) = Sheets("الكشاف").Cells(i, 4) r = r + 1 End If Next i Sheets("الكشاف").Range("a10:f" & ['الكشاف'!d3] + 9).Select Selection.Sort Key1:=Range("a10"), Order1:=xlAscending Application.ScreenUpdating = True Range("n10").Select End Sub ثانيا ده الكود بتاع ملئ كشف الملاحظة Sub ملء1() Application.ScreenUpdating = False Sheets("كشوف الملاحظة").Range("f7:h40").ClearContents ff = Application.InputBox(prompt:="أدخل الرقم ", Title:="رقم العمود", Type:=1) r = 7 x = 10 xx = 40 For i = x To xx Sheets("كشوف الملاحظة").Cells(r, 6) = Sheets("الكشاف").Cells(i, ff) Sheets("كشوف الملاحظة").Cells(3, 6) = Sheets("الكشاف").Cells(9, ff) Sheets("كشوف الملاحظة").Cells(3, 9) = Sheets("الكشاف").Cells(8, ff + 2) Sheets("كشوف الملاحظة").Cells(4, 9) = Sheets("الكشاف").Cells(9, ff + 2) r = r + 1 Next i Application.ScreenUpdating = True End Sub فبرجاء شرح طريقة التعديل حتى يستوعب عدد أكبر من اللجان كشوف الملاحظة.xls

السادة الأعزاء مرفق صورة لكود ترحيل لكن أجد عند تشغيل الكود رسالة خطأ ويقوم بعمل لون اصفر فوق Sub CommandButton1 رجاء المساعدة

السلام عليكم ورحمة الله وبركاته اساتذتي الكرام تابعت درس الاستاذ إياد شقورة حول المهارات الفنية في استخدام الحلقات التكرارية طبقت الدرس جيدًا لكن لا ادري لماذا يظهر لي خطأ عند تشغيل الكود هذا هو رابط الدرس المهارات الفنية في استخدام الحلقات التكرارية الجزء الثاني تجدون الكود في الـ UserForm1 صورة الخطأ والملف في المرفقات وجزاكم الله كل خير بيانات الموظف الشخصية.rar

تحياتى لاساتذه المنتدى الكرام هذا العمل مدمج من شرح بعض الاساتذه الكرام هل من الممكن الدمج بين كودين ووضعهم فى زر امر واحد ارجو منكم تعديل الكود المرفق فى الملف لترحيل الفاتوره ( شيت مشتريات ) الى شيت ( اضافه) وحفظ الفاتوره على صيغه pdf فى فلدر مشتريات ووضع لنك فى شيت (يوميه مشتريات ) ويجب عدم ترحيل الفاتوره بدون كتابه اسم العميل وعدم تكرار الفاتوره save pdf.rar

السلام عليكم و رحمة الله و بركاتة عندي مشكلة في النموذج المستمر (continuous form) كما هو مرفق في الصورة عندي مرتبات الأشخاص إذا أردت زيادة المرتب لجميع الأشخاص بقيمة معينة مثلا 500 بيغير المرتبات كلها بناءً علي أول مرتب و بكده كل المرتبات تبقي 5000 مع ان في موظفين رواتبهم أكثر و أقل من 4500 هل من مساعد .. هذا هو الكود الخاص بي

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

السلام عليكم ورحمة الله اخواني الكرام (اعضاء وخبراء وعلماء) في هذا الصرح العملاق الذي طالما قدم ويقدم الكثير في مجال العلم والمعرفة أود أن أهنئكم وأهنئ نفسي اليوم بإفتتاح الاقسم الجديدة في الموقع التي سوف تقدم مجال واسع في تواصل ونشر المعرفة على مستوى الوطن العربي والعالم أيضاً وفي تلك المناسبة أود أن أقدم لكم كما وعدتكم في موضوعنا السابق وهو برنامج ومنظومة صرافة العملات بحلته وشكله الجديد هدية متواضعة مني لطلابنا الاعزاء وهي البرنامج نفسه ولكن مفتوح المصدر الآن تستطيع مشاهدة ومعرفة الكودات الموجودة في البرنامج وطريقة التصميم والبرمجة بكل بساطة وسهولة كل ماعليكم فعله تحميل الملف المرفق وفك الضغط وتفعيل الماكرو Office Soft.Financial Services Open Sorce.rar صور من البرنامج

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

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

السلام عليكم ورحمة الله وبركاته بحثت عن طريقة لتخفيض أمان الاكسيس برمجيا، فوجدت طريقة للأخت زهرة بارك الله فيها ونفعنا وإياها بما تعلم. ولكن لم أستطع تنفيذ الكود مع الأكسيس ٢٠٠٧ حيث يمنع الاكسيس تنفيذ الملف الخاص بالمثال من العمل. فهل من مساعدة لتنفيذ ذلك على ٢٠٠٧ ولكم جزيل الشكر ومرفق المثال الخاص بها. zaAllAccesVersionAndSecurityLowLevel_Pro.rar

شباب اريد داله او كود ليفعل التالي .

السلام عليكم ارجو النظر الى المرفق اذا امكن عمل تعديل تهائي على الملف حيث اني في المرحلة الاخيرة الكود الموجود حاليا هو في حال تم وضع رقم الموظف في العامود (بي) يتم استيراد بياناتة من ورقة عمل "داتا" من الاعمدة (سي الى جي) المطلوب 1 في حال نسيان اي موظف من قائمة الموظفين في ورقة العمل"داتا" ولم يتم ذكرة في ورقة عمل "تيست" يظهر الاسم باللون الاحمر في ورقة عمل "داتا" 2 في حال حذف اي اسم من قائمة الموظفين في ورقة العمل "داتا" يتم بشكل اوتوماتك حذف اسمة في قائمة ورقة العمل "تيست" او اظهارة بللون معين على الاقل للتنبية في المرفق موضح بشكل افضل شكرا لكم مقدما يفضل وضع شروط الاكواد برقم الموظف وليس اسمة منعا لتكرار الاسم test.rar

السادة الأعضاء الكرام أرجو المساعدة فى كتابة كود لزر يقوم بحفظ التعديلات على السجلات مع العلم أننى قمت بكتابة كود زر الحفظ بهذا الشكل Dim strSQL1 As String strSQL1 = ("INSERT INTO Employees ( [picfile], [id]) VALUES('" & Me.Controls("ImagePath") & "','" & Me.Controls("id") & "'") CurrentDb.Execute strSQL1, dbFailOnError DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

السلام عليكم ورحمة الله وبركاته بينما كنت ابحث عن كود اختيار عدة اصناف (أشهر) من مربع قائمة لعمل تصفية عند فتح تقرير ما وجدت الكود التالي : Private Sub cmdPreview_Click() On Error GoTo Err_Handler 'Purpose: Open the report filtered to the items selected in the list box. 'Author: Allen J Browne, 2004. http://allenbrowne.com Dim varItem As Variant 'Selected items Dim strWhere As String 'String to use as WhereCondition Dim strDescrip As String 'Description of WhereCondition Dim lngLen As Long 'Length of string Dim strDelim As String 'Delimiter for this field type. Dim strDoc As String 'Name of report to open. 'strDelim = """" 'Delimiter appropriate to field type. See note 1. strDoc = "MonthlyCompRpt" 'Loop through the ItemsSelected in the list box. With Me.MnthsList For Each varItem In .ItemsSelected If Not IsNull(varItem) Then 'Build up the filter from the bound column (hidden). strWhere = strWhere & strDelim & .ItemData(varItem) & strDelim & "," 'Build up the description from the text in the visible column. See note 2. strDescrip = strDescrip & """" & .Column(1, varItem) & """, " End If Next End With 'Remove trailing comma. Add field name, IN operator, and brackets. lngLen = Len(strWhere) - 1 If lngLen > 0 Then strWhere = "[MnthsZ] IN (" & Left$(strWhere, lngLen) & ")" lngLen = Len(strDescrip) - 2 If lngLen > 0 Then strDescrip = "Categories: " & Left$(strDescrip, lngLen) End If End If 'Report will not filter if open, so close it. For Access 97, see note 3. If CurrentProject.AllReports(strDoc).IsLoaded Then DoCmd.Close acReport, strDoc End If 'Omit the last argument for Access 2000 and earlier. See note 4. DoCmd.OpenReport strDoc, acViewPreview, WhereCondition:=strWhere, OpenArgs:=strDescrip Exit_Handler: Exit Sub Err_Handler: If Err.Number <> 2501 Then 'Ignore "Report cancelled" error. MsgBox "Error " & Err.Number & " - " & Err.Description, , "cmdPreview_Click" End If Resume Exit_Handler End Sub تظهر لي رسالة خطأ عند تنفيذ الكود دائما السبب هو ان حقل التصفية [MnthsZ] لدي هو حقل ناشئ عن استعلام والذي يظهر الشهر والعام ('mm yyyy') ، عند محاولتي لتغيير صيغة الحقل الى ('mmyyyy') بدون فراغ عمل معي الكود جيدا . السؤال هو كيف يمكنني تنفيذ الكود اعلاه عن طريق جعل نمط الشهر بالصيغة ('mm yyyy') ؟؟