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

الاخوة الكرام اريد في التقرير rrssmm 1/ ان يظهر المتبقي دون اصفار اي الذين عليهم مبالغ متبقية اكبر من 1فقط ويخفي المكملين الرسوم وهم الذي يظهر المتبقي 0 2/ وترتيب المتبقي من المبلغ الاكبر الي المبلغ الاصغر ولكم الشكر و التقدير acc.rar

1366 *768

الخبراء الافاضل ارجو التعديل على الكود DoCmd.OpenForm "newPara", , , "[Pcode]=" & Me.PCode If Me.TN.Caption = "Urine" Then Forms![newpara].Urine.SetFocus لحد هنا شغال تمام اريد بعد فتح تبويب urine يقف المؤشر على حقل creat يعطى علامة صفراء Forms![newpara]!creat.SetFocus

شكرا لحضرتك

استكمالاً لما سبق في النموذج Home 👆 :- نستكمل العمل لضبط الوقت المتبقي لكل صلاة خلال اليوم ، بحيث عندما يحين موعد صلاة الظهر مثلاً يتغير الوقت لإحتساب الوقت المتبقي لصلاة العصر ( وقت تنازلي ) . وهذا العمل من شأن حدث On Timer وعليه فإننا سنخبره انه مقارنة مع الوقت الحالي كم تبقى لحين موعد صلاة الفجر ( على سبيل المثال ) ؟ فسيقوم الكود التالي بحساب جملة الأوقات لكل صلاة وإدراجها في مربع النص الذي سنتحدث عنه وغيره فيما يلي :- ✨ مربع النص Txt_Pry_Name = عرض اسم الوقت الحالي للصلاة ( فجر , ظهر , عصر , مغرب , عشاء ) . ✨ مربع النص Txt_Time_Count = هنا سيتم عرض الوقت المتبقي لكل صلاة بالتنسيق ( 00:00 بعداد تنازلي ) . وحين يتبقى دقيقة واحدة على موعد الأذان سيصبح العداد الزمني بهذا التنسيق ( 00:00:59 ) ويبدأ بالنزول كل ثانية إلى حين موعد الأذان التالي فسيعود إلى التنسيق السابق ( 00:00 ) . طبعاً حالياً سيتم عرض رسالة عادية فقط عند دخول وقت الصلاة مفادها : ( "حان الآن موعد أذان الفجر" ) . وهذا الكود الذي سيقوم بالمهام التي ذكرتها لكم Private Sub Form_Timer() On Error Resume Next Dim tfajr As Date, tzohr As Date, tasr As Date, tmagrib As Date, tisha As Date Dim dt As Integer Dim currentTime As Date, nextPrayerTime As Date, timeLeft As Date Dim hoursLeft As Integer, minutesLeft As Integer, secondsLeft As Integer Dim fajrTime As Date, Country_Name As String If Me.daylight = True Then dt = 1 Else dt = 0 End If tfajr = GetTimes(Me.longitude, Me.latitude, Me.timezone, "fajr", Me.tx, dt, Date) currentTime = Time fajrTime = CDate(Me.fajr) Country_Name = DLookup("[city_name]", "City", "ID=" & [city_name]) If currentTime < fajrTime Then Txt_Pry_Name.Value = "الفجر" nextPrayerTime = fajrTime Else Txt_Pry_Name.Value = "الفجر" nextPrayerTime = DateAdd("d", 1, fajrTime) End If If currentTime < nextPrayerTime Then timeLeft = nextPrayerTime - currentTime Else timeLeft = DateAdd("h", 24, nextPrayerTime) - currentTime End If hoursLeft = Hour(timeLeft) minutesLeft = Minute(timeLeft) secondsLeft = Second(timeLeft) If Me.Txt_Time_Count = "00:00" Then Me.Txt_Time_Count = "00:00:59" Me.Txt_Time_Count = Format(hoursLeft, "00") & ":" & Format(minutesLeft, "00") & ":" & Format(secondsLeft, "00") Else Me.Txt_Time_Count = Format(hoursLeft, "00") & ":" & Format(minutesLeft, "00") End If Me.Caption = Country_Name & " " & "بقي لصلاة " & Txt_Pry_Name & " " & Txt_Time_Count & " تقريباً" & " ، في مدينة " If Time() = tfajr Then MsgBox "حان الآن موعد أذان الفجر", , "" End If End Sub Salawat.accdb يتبع ... 👈

تفضل صديقي

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

استكمالاً لما سبق في النموذج Home 👆 :- أيضاً سنقوم بإنشاء مربع نص ( Fjr_Eq ) والذي سيتم احتساب وقت الإقامة لصلاة الفجر فيه ، وسيتم أيضاً إضافة سطر هذه الوظيفة في الدالة العامة Salawat الموجودة في النموذج Home ليصبح الكود مع ما سبق كالآتي :- Dim mydate As Date, dt As Integer mydate = IIf(Me.My_Date = "" Or IsNull(Me.My_Date), Date, Me.My_Date) If Me.daylight = True Then dt = 1 Else dt = 0 Me.fajr = Format(GetTimes(Me.longitude, Me.latitude, Me.timezone, "Fajr", Me.tx, dt, mydate), "hh:mm AM/PM") Me.Fjr_Eq = Format(DateAdd("n", 30, CDate(Me.fajr)), "hh:mm AM/PM") Me.shrok = Format(GetTimes(Me.longitude, Me.latitude, Me.timezone, "Shrok", Me.tx, dt, mydate), "hh:mm AM/PM") طبعاً تم إضافة الوقت ما بين الأذان الأول والأذان الثاني ( تقريباً 10 دقائق ) إلى الوقت لما بعد الأذان حتى إقامة الصلاة ( 20 دقيقة للفجر ) وعليه سيصبح مجموع الوقتين ( 30 دقيقة ) بعد موعد الأذان الأول . ❗ ملاحظة :- أعمل على مراحل في المشروع حسب وقت الفراغ والضغط في العمل ليس إلا 😅 . Salawat.accdb يتبع ... 👈

شكراً لكم صبركم على هذا التعب في تلبية دعوتي ، إليكم المحاولة الأخيرة لتحديد موقع نموذج عند فتحه أرجو تزويدي بالنتيجة إذا تكرمتم ، وخصوصاً الأساتذة @شايب - @ازهر عبد العزيز - @ابودحام - @kkhalifa1960 - @الحلبي - @عبد اللطيف سلوم - @SAROOK - @AlwaZeeR - @محمد القدسي ، لأن نتيجة التجربة كانت غير سليمة إلى حد ما . Test.accdb

استكمالاً لما سبق 👆 :- نستكمل العمل على النماذج متابعة على النموذج الرئيسي ( Home ). سنقوم بإنشاء مربع النص ( Fajr ) الذي سيتم عرض وقت الصلاة فيه ، وسنبدأ بوقت صلاة الفجر وكل ما يتبعه . وهذا السطر سيقوم بمهمة حساب الوقت بناءً على الدالة الرئيسية الموجودة في المديول الرئيسي ( في المشاركة الثانية لي 👆 ) ، وسيتم إضافة السطر التالي في الدالة العامة Salawat الموجودة في النموذج Home . Me.fajr = Format(GetTimes(Me.longitude, Me.latitude, Me.timezone, "Fajr", Me.tx, dt, mydate), "hh:mm AM/PM") طبعاً السطر سيقوم بجلب ( خط الطول والعرض وفرق التوقيت عن جرينتش و التوقيت الصيفي حسب الدولة ) للمدينة التي تم تحديدها في نموذج الإعدادات سابقاً ، ويقوم باحتساب الوقت عن طريق الدالة GetTimes من المديول . والنتيجة ستكون كما سيتم عرضه في المرفق التالي 😊 ❗ ملاحظة :- وقت الفجر الظاهر سيكون هو وقت الأذان الأول . Salawat.accdb يتبع ... 👈

استكمالاً لما سبق 👆 :- تم إنشاء نموذج Settings المسؤول عن تحديد طريقة احتساب أوقات الصلاة والبلد والمدينة . تم البدء بإدراج الأوقات في النموذج الرئيسي Home ، حيث تم الإحتساب بدايةً لوقت شروق الشمس فقط ، وذلك بإضافة جزء من الدالة التي تقوم باحتساب الأوقات بناءً على المديول الرئيسي في المشاركة قبل السابقة 👆. Salawat.accdb يتبع ... 👈

وعليكم السلام- تفضل بما انك لم تقم برفع ملف توضيحى للمطلوب يكل دقة Book.xlsx

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

الحكم على الشيئ فرع عن تصوره اتمنى عليك ارفاق مثال بسيط للتطبيق و التعديل فالتصورات كثيرة ومتغايرة ثم ان عدم الرد لا يعني عدم الرغبة بالمساعدة