Foksh

ولا يهمك أخي الكريم ، إن شاء الله سأتابع معك والأساتذة ، ولكن دوامي انتهى اليوم بنهاية الأسبوع ، إن استطعت غداً سأرسل لك طلبك

أخي الدكتور @الحلبي ، في مربع النص Text131 اجعل مصدره هذه الجملة :- =IIf([unitmain]="جملة",[qtyin]+[qtyout]+[reout]+[rein],([qtyin]+[qtyout]+[reout]+[rein])/[no]) أو هذه الكود لإختلاف النتيجة التي تريدها في فكرة الحساب التراكمي :- =IIf([unitmain]="جملة",[qtyin]-[qtyout]+[reout]-[rein],([qtyin]-[qtyout]+[reout]-[rein])/[no]) وأخبرني بالنتيجة إن كانت صحيحة

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

طريقتك في بناء التقرير والاستعلامات اعتقد تحتاج الى اعادة هيكلة للحصول على النتيجة المطلوبة .

استكمالاً لما سبق في النموذج Home 👆 :- نستكمل العمل لضبط الوقت المتبقي لكل صلاة خلال اليوم ، بحيث عندما يحين موعد صلاة الظهر مثلاً يتغير الوقت لإحتساب الوقت المتبقي لصلاة العصر ( وقت تنازلي ) . وهذا العمل من شأن حدث On Timer وعليه فإننا سنخبره انه مقارنة مع الوقت الحالي كم تبقى لحين موعد صلاة الفجر ( على سبيل المثال ) ؟ فسيقوم الكود التالي بحساب جملة الأوقات لكل صلاة وإدراجها في مربع النص الذي سنتحدث عنه وغيره فيما يلي :- ✨ مربع النص Txt_Pry_Name = عرض اسم الوقت الحالي للصلاة ( فجر , ظهر , عصر , مغرب , عشاء ) . ✨ مربع النص Txt_Time_Count = هنا سيتم عرض الوقت المتبقي لكل صلاة بالتنسيق ( 00:00 بعداد تنازلي ) . وحين يتبقى دقيقة واحدة على موعد الأذان سيصبح العداد الزمني بهذا التنسيق ( 00:00:59 ) ويبدأ بالنزول كل ثانية إلى حين موعد الأذان التالي فسيعود إلى التنسيق السابق ( 00:00 ) . طبعاً حالياً سيتم عرض رسالة عادية فقط عند دخول وقت الصلاة مفادها : ( "حان الآن موعد أذان الفجر" ) . وهذا الكود الذي سيقوم بالمهام التي ذكرتها لكم Private Sub Form_Timer() 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 يتبع ... 👈

صديقي ، هذه المشاركة عمرها تقريباً 10 سنوات ، افتح موضوع جديد لتتم متابعته

لحد ما فهمت الدنيا عاملة ازاي في الملف قدرت اوصل للمطلوب 😅 في النموذج NewPU > في الزرار U حط الكود ده Private Sub U_Click() DoCmd.OpenForm "newPara", , , "[Pcode]=" & Me.PCode If Me.TN.Caption = "Urine" Then Forms![newpara].Urine.SetFocus Forms![newpara]!Normal.SetFocus ElseIf Me.TN.Caption = "Creat" Then Forms![newpara].Chemistry.SetFocus DoCmd.GoToControl "Creat_Print" ElseIf Me.TN.Caption = "Lipids" Then Forms![newpara]!Cholesterol.SetFocus ElseIf Me.TN.Caption = "Liver" Then Forms![newpara]!ALT(SGPT).SetFocus End If End Sub

أخي @jo_2010 بعد الضغط على زر Creat ، سنختار اسم من النموذج الفرعي اللي على اليمين !! صح ؟ دلوقتي انتي عايز تفتح تبويب urine ولا Chemistry !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! وفي التبويب Urine ليس هناك حقل Creat

أخي @jo_2010 ارسل مرفق لتطبيق

جرب هذا التصحيح أخي @jo_2010 :- If Me.TN.Caption = "Urine" Then Forms![newpara].Urine.SetFocus Forms![newpara].Urine![creat].SetFocus End If

مشاركة مع أخي @عبدالقدوس48 ، جرب هذا الكود أخي @al.sheen2000 في مصدر بيانات مربع النص S4 . =DSum("[totl]","T1","[kind] = 1") حسب طلبك طبعاً

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

نفس دقة الشاشة في جهازي 🤔 وظهر النموذج كما في مشاركتي السابقة 🙄

اقتراحاً لا توجيهاً اخي الكريم @طير البحر ، ما رأيك بإضافة سطر لحذف الملف الذي ينشأ عن كود إعادة التشغيل ، بحيث تضعه في أول نموذج بيشتغل معاك في حدث عند الفتح Kill CurrentProject.Path & "\Restart.bat" 🥰🤗🥰

ما دقة الشاشة في جهازك أخي الكريم 🤗 للعلم فقط ، والكود لا يقوم بتغيير اي اعدادات في الويندوز.

أشكرك استاذ @Moosak على الإستجابة ، دقة الشاشة هو نفسه في المحاولة السابقة ؟ وهل حاولت تغيير الدقة وفتح النموذج لرؤية ما اذا اختلف الموقع أم لا !!

عمل رائع تبارك الله ما شاء الله تبارك الرحمن أخي @طير البحر بداية لي ملاحظة ، ظهور خطأ كما في الصورة :- ثانياً لدي اقتراح بما أن هناك العديد من الخصائص تحتاج لإعادة تشغيل آكسيس ، هذا الكود :- Sub RestartAccess() Dim batContent As String batContent = "@echo off" & vbCrLf & _ "ping -n 2 127.0.0.1 > nul" & vbCrLf & _ "start """" """ & CurrentProject.FullName & """" & vbCrLf & _ "exit" Dim batFilePath As String batFilePath = CurrentProject.Path & "\Restart.bat" Open batFilePath For Output As #1 Print #1, batContent Close #1 Shell batFilePath, vbHide Application.Quit End Sub أشكرك على الأفكار الشبابية الجميلة

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

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

فكرة جميلة انك ممكن تعمل نموذج بحث ومن النتيجة تفتح السجل اللي انت عاوزه في نموذج RMP وتعدل هناك 🤗

لهذا السبب وجهتك الى جدول لاسم المدينة مثلاً او اسم المشروع ، وجدول تاني لباقي التفاصيل ، بص يا أخ @sief122 ، تصميم الجداول السليم والصحيح هو أساس نجاح مشروعك وأي برنامج تصممه. اعتبر المشاريع دي صفوف في مدرسة لازم يكون اسماء الصفوف في جدول ، والطلاب ليهم كمان جدول ، والمعلمين ليهم جدول .... الخ ودووووول كلهم بربطهم مفتاح مشترك واللي هو رقم الطالب كمثال . فهمت قصدي 😅 ، انا عايز أبسطهالك يا عم ما تصعبهاش 😁

اخي الكريم رحم الله والديك و والدينا ، لو تفسر اكتر اللي انت محتاجة ، لا تبخل على نفسك بالكلام والشرح فأنت المستفيدين الأول للحصول على نتيجة في طلبك ، يرجى قراءة قواعد المشاركة ، وبالأخص ما يلي : محتوى المشاركة 8. يجب ذكر كافة المعلومات التي من الممكن أن تُسأل عنها، مع الشرح الوافي للمشكلة لأن الشخص الذي تكتب له ليس ملما بالمشكلة مثلك. ويحبذ وضع مثال للنتيجة التي تريدها (سواء كملف مرفق باستخدام البرنامج المطلوب كالاكسيل او الأكسيس مثلا، او صورة توضيحية، أو تفصيل المطلوب بشرح وافي)، ويجب ان تكون بيانات المثال نابعة من نفس بيانات المرفق كي بمكن الربط و الفهم بسهولة. 9. بخصوص التسميات، يُفضل أن تكون أسماء الكائنات والحقول بالإنجليزية، لان العربية تحدث فيها مشاكل مع الأكواد. 10. اذكر في محتوى مشاركتك عن المجهود الذي قمت به لكيلا يأتيك رد قد قمت بمحاولة تنفيذه بالفعل عذراً ، واترك الساحة للأساتذة 🤗

انا عن نفسي جربت 2016 ولم اشتكي منها كإصدار من ناحية الثبات والاستقرار وقلة المشاكل فيها .