كل الانشطه

معلمى الفاضل جربت كل الاكواد ولم اصل لما اريد DoCmd.GoToControl "Creat_Print" CREAT_PRINT دة زر انا اريد المؤشر يقف على مربع النص CREAT لكتابة النتيجة فية شكرا لحضرتك

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

صديقي ، هذه المشاركة عمرها تقريباً 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

اخي ممكن توضح اين نضع الاكواد وماذا نستبدل مكان الكلمات NameOfSecondForm",,,,,,"String To Pass" Me!MyFieldName = Me.OpenArgs

chemistry

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

مرفق مع صورة توضيحية LAB_2024.rar

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

اعطانى هذا الخطاء معلمى الفاضلFoksh

جرب هذا التصحيح أخي @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") حسب طلبك طبعاً

السلام عليكم ورحمة الله وبركاته السادة / الافاضل محتاج شيت باللغة العربية لمتابعة اجازات الموظفين مع امكانية التعديل عليه الاجازات المطلوبة بالشيت هي (مرضية - سنوية - اضطرارية - زواج - وفاة - مولود - حج - عمرة - ) القانون السعودي وليس المصري مدة الاجازة هي 30 يوم و 21 يوم علي السنة تحسب يدويا وليس بناءا علي العقد بيان الموظفين المطلوب تسجيلها به ( الاسم - الكود - تاريخ الميلاد - تاريخ المباشرة - مدة العقد - تاريخ انتهاء التعاقد ) يتم حساب رصيد الاجازات تلقائي بعد اضافة اي عدد ايام بالخانات الموضحة للاجازة اعتذر عن الاطالة شاكر جدا ومقدر لحضراتكم جميعا

شاكر ومقدر لحضرتك واعتذر عن عدم رفع ملف توضيحي

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

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

اشكرك انا اريد جمع المبلغ الذي طريقة الدفع 1

السلام عليكم ورحمة الله وبركاتة... ارجو من اساتذتنا الكرام المساعدة في ايجاد كود لتنفيذ التقرير كما الملف المرفق Vendors.xlsm

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

KFC.mdb وعليكم السلام تفضل على حسب فهمي

سلام عليكم فضلا جمع حقل المبلغ حسب طريقة الدفع 1 KFC.mdb

علشان كنت متوقع الطلب هذا كتبت الملاحظه فى اخر الرد ليك وهنا يجعلنى اسألك ما الغرض من طلبك ؟ لان كل جذء فى برنامج الاكسيس له وظيفه معينه فالجداول لتخزين البيانات وليس للعمل عليها الاستعلام لمساعدة النماذج فى انهاء الغرض من النموذج النماذج وظيفتها عرض وادخال وتعديل البيانات التقارير عرض البيانات فلكل شئ وظيفه اساسية فما الغرض لديك من تنفيذ هذا ؟

تفضل صديقي

يبدو انه لا احد في المنتدي او انه مهجور