Foksh

تفضل أخي @أبو منتظر ، تم إنشاء وظيفةة واحدة في النموذج تقوم بالمهام جميعها ، واستدعائها عند النقر قيم الـ Check Box . Private Sub UpdateNoteD() Dim checkedItems As String Dim firstItemChecked As Boolean firstItemChecked = False If Me.uu = True Then If Not firstItemChecked Then checkedItems = checkedItems & "حضر " & Me.Adress firstItemChecked = True Else checkedItems = checkedItems & "، " & Me.Adress End If End If If Me.VV = True Then If Not firstItemChecked Then checkedItems = checkedItems & "حضر " & Me.Child2 firstItemChecked = True Else checkedItems = checkedItems & "، " & Me.Child2 End If End If If Me.ww = True Then If Not firstItemChecked Then checkedItems = checkedItems & "حضر " & Me.Child3 firstItemChecked = True Else checkedItems = checkedItems & "، " & Me.Child3 End If End If If Me.XX = True Then If Not firstItemChecked Then checkedItems = checkedItems & "حضر " & Me.Child4 firstItemChecked = True Else checkedItems = checkedItems & "، " & Me.Child4 End If End If If Me.yy = True Then If Not firstItemChecked Then checkedItems = checkedItems & "حضر " & Me.Child5 firstItemChecked = True Else checkedItems = checkedItems & "، " & Me.Child5 End If End If Me.NoteD = checkedItems End Sub ويتم استدعائها بالأمر UpdateNoteD Merge Names.mdb

استكمالاً لما سبق في المشروع والإنتهاء منه 👆 :- وقد انتهيت ولله الحمد من برنامج صلوات 2024 Salawat ، مع آخر إضافة وهي إتجاه القبلة . في المرفق تم إضافة ملفي صوت أذان بإمتداد Mp3 ، بصوت الشيخ منصور الزهراني و الشيخ ماجد الهمذاني ؛ وتستطيع التغيير حسب الرغبة .

تكرم عينك اخوي @عبد اللطيف سلوم ، ولكن أمهلني حالما أصل البيت إن شاء الله ،

أنت تعلم أنك لن تحصل على إجابة دون النظر الى المشكلة كملف مرفق ،، إذا كانت المعلومات حساسة جداً لهذه الدرجة ، قم على الأقل بإنشاء نسخة أخرى ذات سجلات وهمية أو عشوائية كالأسماء أو ارقام الهاتف ( إن وجد ) . حينها أعتقد انك ستجد الحلول المناسبة أخي @عبد اللطيف سلوم 🤗

تم الإنتهاء من الفكرة ولله الحمد ,, وأرجو التكرم بتجربة الفكرة وإخباري بالنتيجة أو رأيكم .. الكود الأول للزر المسؤول عن طلب إدخال القيمة Private Sub Btn_Job_Click() Dim userInput As String Dim numericValue As Double Do userInput = InputBox("الرجاء إدخال القيمة رقمية", "إدخال قيمة") If userInput = "" Then Exit Sub Else DisplayQiblaDirection userInput End If If IsNumeric(userInput) Then numericValue = CDbl(userInput) Exit Do Else MsgBox "الرجاء إدخال قيمة رقمية فقط", vbExclamation, "قيمة غير رقمية" End If Loop End Sub الدالة التي من خلالها تم حل المشكلة وهي عرض الصورة التي تدل على الزاوية أو القيمة التي تم إدخالها في الرسالة . مع العلم أن كل صورة تمثل 6 درجات Private Sub DisplayQiblaDirection(ByVal userInput As String) Dim secValue As Integer Dim Rx As Integer Dim ctrl As Control Dim numericValue As Double If IsNumeric(userInput) Then numericValue = CDbl(userInput) Else Exit Sub End If Rx = Abs(numericValue) secValue = Abs(Round(numericValue / 6, 0)) If numericValue < 0 Then secValue = (360 - Rx) \ 6 End If For Each ctrl In Controls If Left(ctrl.Name, 1) = "s" Then If Right(ctrl.Name, Len(ctrl.Name) - 1) = secValue Then Me(ctrl.Name).Visible = True Else Me(ctrl.Name).Visible = False End If End If Next End Sub Test Directions.zip

لا يتوفر لدي الإصدار 2007 للتجربة والإفادة يا صديقي .

ربي يزيدك من علمه اخي @sm44ms اجابتك لما يلي هي من تحدد الخلل . 1. ما هو إصدار الأوفيس عندك ؟؟ 2. هل تقوم بحفظ قاعدة البيانات بصيغة Accde ؟؟

الصورة السابقة من ويندوز 7

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

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

أول خطوة تعملها عند نقل الكود هي نقل الوحدة النمطية CreateFolder الى مشروعك ثاني خطوة استدعيها في اول نموذج يعمل لديك أو من اي مكان تريده أخي @abouelhassan بهذا السطر CreateDataFolder في حدث عند الفتح فقط 😊

لا يمكن فتح نسخة من قاعدة البيانات نفسها من نفس المسار !!! إلا إذا كنت تقصد فتح نفس القاعدة من مكانين مختلفين

اختر OLE Object أما الحقل المحسوب فأعتقد المشكلة في نسخة الأوفيس أو إصداره .

هذا الخطأ يظهر في الملف الذي ارفقته لك في آخر مشاركة ؟؟ تأكد من وجود المجلدات Pdf و Excel بجانب قاعدة البيانات ، لاني فعلت الكود لانشائهما في نموذج البداية عندك 🤔

وعليكم السلام ورحمة الله وبركاته ,, للسجل التالي :- DoCmd.GoToRecord , , acNext للسجل السابق :- DoCmd.GoToRecord , , acPrevious

الكود يعمل في مرفقك أخي الكريم بدون أي مشاكل ، تم اضافة ايقونات للأزرار ، وهذا موقع يعطيك أيقونات بشكل جميل FinancialPrg6 (1).accdb

إن شاء الله سهلة عليك مهندسنا الكبير ,, أما بالنسبة لفكرتي فسأذكر سبب حاجتي لهذه الفكرة ، وهي أنني سأضيف فكرة اتجاه القبلة الى برنامجي ( صلوات ) ، وتعتمد الفكرة في تنفيذها على عملية حسابية تستند الى خطي الطول والعرض لكل موقع . 😁 حاضر يا سيدي ، حال انتهائي سأدرجها هنا وهذا يا مهندسنا @Moosak الكود الذي خلصت به لتنفيذ فكرتي Dim ctrl As Control Dim secValue As Integer Dim Rx As Integer Rx = Abs(Me.Txt_Sec.Value) secValue = Abs(Round(Me.Txt_Sec.Value / 6, 0)) If Me.Txt_Sec.Value < 0 Then secValue = (360 - Rx) \ 6 End If For Each ctrl In Controls If Left(ctrl.Name, 1) = "s" Then If Right(ctrl.Name, Len(ctrl.Name) - 1) = secValue Then Me(ctrl.Name).Visible = True Else Me(ctrl.Name).Visible = False End If End If Next

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

انا اقتربت من الانتهاء من الفكرة التي خطرت لي استنباطاً من فكرة معلمنا أبو خليل من فكرة الساعة وبشكل دوران كامل 360 درجة ، حتى أنني دعمت فكرة الزوايا التي تكون قيمتها أقل من 0 ( -250 ) مثلاً ، وقد انتهيت منها الى حد ما

مجهود رائع جداً ولا شك فيه .. ولكن ماذا لو كانت الدرجة أكبر من 160 !!!!

ولك بالمثل أخي الكريم

وعليكم السلام ورحمة الله وبركاته أخي @abouelhassan ، سمحت لنفسي بدايةً بإضافة مديول يقوم بإنشاء المجلدين ( Pdf و Excel ) ، ليتم تصدير التقارير tblFinancial_Records و repTasfyahA و repTasfyahB اليهما ان كان Pdf أو Excel . FinancialPrg6.accdb

مشاركة مع أستاذنا @ناقل ، جرب هذا الكود في الزر المسؤول عن التصدير Dim outputPath As String outputPath = CurrentProject.Path & "\Reports\" If CheckA.Value = True Then DoCmd.OutputTo acOutputReport, "Report1", acFormatPDF, outputPath & "Report1.pdf" End If If CheckC.Value = True Then DoCmd.OutputTo acOutputReport, "Report2", acFormatPDF, outputPath & "Report2.pdf" End If If CheckD.Value = True Then DoCmd.OutputTo acOutputReport, "Report3", acFormatPDF, outputPath & "Report3.pdf" End If If CheckE.Value = True Then DoCmd.OutputTo acOutputReport, "Report4", acFormatPDF, outputPath & "Report4.pdf" End If وهذا مرفق ، جرب الزر Try Me بعد تحديد اي تقارير تريد Test (1) (1).accdb