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

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

بارك الله فيكم جميعا استاتذتي

أخي الكريم هذا يعتمد على طريقة بنائك للجداول وآليه جلب السعر في نموذج الفاتورة وأمور كثيرة ، ولكن كما قلت لك بتصوري ان الفواتير السابقة سيتم تخزينها في الجداول وما يمكن تغييره هو الحقول المرتبطة كمثال :- اسم العميل ، اسم المورد ، اسم الصنف .... الخ . قمت بتصميم عدة برامج للمحاسبة ولم أواجه هذه المشكلة في البرامج

بارك الله فيك اخى كمال اخى السائل هذا رابط للموضوع الاساسي للمرفق الذي في سؤالك يمكنك الاستفاده منه

انا صممت برنامج محاسبة ولما بعد فترة نعدل سعر الشراء والبيع كان يؤثر على كل الفواتير حتى لو كانت قبل 5 سنوات الحل اني الغيت سعر الشراء وسعر البيع من جدول الاصناف وجعلته يضاف يدويا لكل فاتورة

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 يتبع ... 👈

انتبه من فضلك Hussein Taso وعليك دائماً وأبداً التماس العذر لإخواننا وأساتذتنا فانت لا تعلم مدى ارتباطهم وانشغالهم بأعمالهم .. خصوصاً ان العمل والتواجد والنشاط والرد على المشاكل بالمنتدى انما لوجه الله فلا أجر له فكان لابد عليك قراءة قواعد وقوانين المشاركة بالمنتدى جيداً .فمنها عدم الإلحاح فى طلب المساعدة , وخصوصاً ان طلبك هذا مخالف لقواعد أى منتدى فهذه حقوق ملكية لصاحبها فقد , لما قد بذل من جهود للخروج بهذا العمل فعليك بالإتصال مباشرة بصاحب هذا العمل وهو الوحيد الذى له الحرية فى الإفصاح عن هذا لك!!!!! .. وشكراً جزيلاً

تفضل صديقي

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

استاذ @ابو محمد 4 المرفق بعد التعديل .ووافني بالرد . DDTest506-1.rar

من وجهة نظري :- الفواتير السابقة بيانات تم تخزينها في الجداول ، صح ؟ لذا باعتقادي وتصوري لن يتم التأثير على السعر القديم في الفواتير القديمة لو تم تحديث وتعديل السعر في جدول الأصناف . وسيتم تطبيق السعر على الفواتير الحديثة بعد تعديل السعر .

استكمالاً لما سبق في النموذج 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

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

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

السلام عليكم جزاكم الله خيرا واذا تسمحوا للمشاركة معكم ولائراء الموضوع وتنشيط الذهن هنا حل اخر بالكود وكما قال اخي عادل ان لن تنفع فلن تضر TTA1.rar

بسم الله ما شاء الله عليك يا ابن عليه عندما قلت أنك (ملك المعادلات)فلا شك في قولي إن شاء الله وأيضاً الأستاذ الكبير عادل حنفي هو ملك الأكواد فيا أيها المتمكنان جزاكما الله خيراً على مشاركتكما الجميلة والتي أثرت الموضوع بشكلٍ رائع أخوكم أبو البراء

السلام عليكم ورحمة الله أخي الكريم أبو البراء، يمكن الاستغناء عن 1+ في المعادلتين بكتابتهما كما يلي: بالنسبة للترتيب الأول من الأكبر إلى الأصغر: =SUMPRODUCT(($A$2:$A$13=A2)*(B2<=$B$2:$B$13)) بالنسبة للترتيب الثاني من الأصغر إلى الأكبر: =SUMPRODUCT(($A$2:$A$13=A2)*(B2>=$B$2:$B$13)) ثم سحبها إلى الأسفل... والله أعلم