Foksh

هل هذا طلبك أخي الكريم ,, ضع الكود في حدث في الحالي للنموذج .. Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then If IsNull(ctl.Value) Or ctl.Value = "" Then ctl.BackColor = vbYellow Else ctl.BackColor = vbWhite End If End If Next ctl تلوين النصوص الفارغة.mdb

أخي الكريم اهلاً وسهلاً بك ,, وعتذر إن لم يحالفني الحظ بالمساعدة .. ارسل مرفقك وأعاننا الله على الإفادة 😊 أو لعدم وجود مرفق ومشاركة مع الأساتذة كفكرة ، هل جربت استخدام الأمر HasData في التقرير ؟ إليك كمثال الكود التالي :- If Me.HasData = False Then Me.Visible = True Else Me.Visible = False End If

وعليكم السلام ورحمة الله وبركاته .. ارسل مرفقك أخي الكريم ,, لمشاركة الأستاذ @kkhalifa1960 في تقديم الحلول

وما الذي يمنع ؟؟ ما هو مصدر بيانات النموذج الرئيسي ، وارفق ملفك للإطلاع عليه.

بحكم اني بعيد عن الكمبيوتر هذه الفترة بسبب العمل ، لكن إن سمحت لي الزروف الليلة بتابع معك .

مشاركة مع الأستاذ @kkhalifa1960 .. راجع هذه المشاركة ، تفيدك بدون أكواد 🤗

من رأيي ( وأنت غير ملزم به ) أن تجعل رقم الطالب هو الحقل المشترك أو المفتاح الأساسي في جميع الجداول التي ذكرتها ، بحيث من خلال رقم الطالب تقدر تعرف معلمه ومواده وفصله وصفه وحتى علاماته وترفيعاته وإسم جارهم كمان 😅

استخدم التعبير Kill ثم المسار أو اسم مربع النص الذي يحتوي على المسار قبل جملة الحذف من الجدول 👍

ما شاء الله ، عمل جميل من الشرح ، بارك الله فيك أخي @jamal2080 🥰

أخي @Abdelaziz Osman ، لا تحتاج كود لهذه الوظيفة فآكسيس يوفرها لك من خلال أن تحدد مربع النص الذي تريده ، ثم من تبويب Format ، انزل لآخر خيار Try.accdb

عليكم السلام ورحمة الله وبركاته أخي @Abdelaziz Osman .. استخدم هذا الكود في حدث قبل التحديث لمربع النص Infoo Private Sub infoo_BeforeUpdate(Cancel As Integer) Dim rs As Recordset Dim lastValue As String Dim newValue As String Set rs = CurrentDb.OpenRecordset("SELECT TOP 1 * FROM Mod ORDER BY [infoo] DESC") If Not rs.EOF Then lastValue = rs("infoo") End If rs.Close newValue = Me.infoo.Value If DateValue(newValue) > DateValue(lastValue) Then MsgBox "íÑÌì ÇáÊÃßÏ ãä ÇáÊÓáÓá!", , "ÊäÈíå" Me.Undo Cancel = True End If End Sub وهذا مثالك ,, عدم تجاوز التسلسل.accdb

تفضل أخي @Luqman Khooshnaw ، تم استخدام التنسيق الشرطي في التقرير كما طلبت لتنفيذ المطلوب Drags.accdb

تفضل أخي @أبو منتظر ، تم إنشاء وظيفةة واحدة في النموذج تقوم بالمهام جميعها ، واستدعائها عند النقر قيم الـ 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 أما أن كان غير ذلك ، فأرجو التوضيح

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