Shivan Rekany

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

مشاركة مع استاذ الحبيب رمهان العزيز كما مبين في الصورة ان الصفوف الاصفر هو صف المجموع وكوده هو رقم 3 في الاستعلام اعمل شرط رقم 3 وبعدين استخدم خاصية Top حسب ما تريد ان يظهر انا عملت لكي يظهر 2 سجل فقط من المجموع 4 سجلات SELECT TOP 2 TBL_Final.ID, TBL_Final.Name_Student, TBL_Final.on1, TBL_Final.Semester, TBL_Final.ToTal, TBL_Final.result, TBL_Final.tag FROM TBL_Final WHERE (((TBL_Final.Semester)=3)) ORDER BY TBL_Final.ToTal DESC; للعلم حتى اذا لا تعمل الشرط سيخرج نفس الشي واليك المرفق Data_Base.zip

حسب ما فهمت انا اتفضل اليك هذا Private Sub Nu_Vo1_Click() Forms![Ha_rkat2]![Mharkt2]![Nu_Vo1] = Me![Nu_Vo1] Forms![Ha_rkat2]![Mharkt2]![na_Br] = Me![na_Br] Forms![Ha_rkat2]![Mharkt2]![St_ew] = Me![St_ew] Forms![Ha_rkat2]![Mharkt2]![Di_sp] = Me![Di_sp] Forms![Ha_rkat2]![Mharkt2]![Le_ng] = Me![Le_ng] Forms![Ha_rkat2]![Mharkt2]![pr_Pu] = Me![pr_Pu] Forms![Ha_rkat2].SetFocus 'Forms![Ha_rkat2].Form.SetFocus Forms![Ha_rkat2]![Mharkt2].SetFocus DoCmd.GoToRecord , , acNewRec Me.Form.SetFocus End Sub والتعديل على المرفق 2.rar

حسب ما فهمت انا اتفضل اليك هذه الاكواد Private Sub Command13_Click() Me.TimerInterval = 250 If Me.A = 0 Then Me.A = 1 If Me.B = 0 Then Me.B = 1 End Sub Private Sub Command15_Click() Me.TimerInterval = 0 End Sub Private Sub Form_Timer() If Me.A = 9 Then Me.A = 1 Else Me.A = Me.A + 1 End If If Me.B = 9 Then Me.B = 1 Else Me.B = Me.B + 1 End If End Sub واليك المثال 19 (1).accdb

اتفضل استخدمت هذا الكود اي نماذج بيكون مفتوحة سيدخل له القيمة Private Sub أمر2_Click() If CurrentProject.AllForms("Form2").IsLoaded = True Then Form_form2.نص0 = Me.نص0 ElseIf CurrentProject.AllForms("Form3").IsLoaded = True Then Form_form3.نص0 = Me.نص0 End If DoCmd.Close acForm, Me.Name End Sub مثال اوفيسنا نموذج الحسابات يعمل مع اكثر من نموذج.rar

تقريبا وصلت الفكرة لكن السؤال هنا نفترض كتبت الاول وتاريخ البداية تريد ان ينتهي في اي سجل اي نسألأ بصيغة اخرى تريد ان يعمل لك كم سجلات تلقائية

استخدمنا هذه الفانكشن Function masdatediffh(olddate, Optional newdate) As String Dim d As Integer, m As Integer, y As Integer, nd As Integer, nm As Integer, ny As Integer If IsNull(newdate) Then newdate = Date If IsNull(olddate) Or olddate > newdate Then masdatediffh = "": Exit Function nd = Left(newdate, 2): d = Left(olddate, 2) nm = Mid(newdate, 4, 2): m = Mid(olddate, 4, 2) ny = Right(newdate, 4): y = Right(olddate, 4) If nd < d Then nm = nm - 1: nd = nd + 30 If nm < m Then ny = ny - 1: nm = nm + 12 masdatediffh = Format(nd - d, "00") & "-" & Format(nm - m, "00") & "-" & Format(ny - y, "00") End Function الفانكشن بيعطينا عدد سنوات و الاشهر والايام بين تاريخين تغيرنا مصدر النموذج من الجدول الى استعلام واضفنا حقل جديد باسم Feriq هكذا Feriq: masdatediffh([تاريخ التعيين];Date()) لان حضرتك تريد سنة في مربع و اشهر في المربع و اليوم في المربع قمنا باخفاء المربع نصي اللي اسمه Feriq في النموذج وفي مربع الثلاث للسنة والاشهر والايام استخدمنا دالة Mid لان فانکشن يعطينا النتيجة رقمين للايام و شارحة ورقمين للاشهر و شارحة ورقمين للسنة هكذا مثلا 13-03-20 في دالة Mid يجب ان نعرف تسلسل الرقم هنا رقم 1 تسلسله هو 1 ورقم 3 تسلسله 2 وشارحة - الاول تسلسله 3 ورقم 0 مع الاشهر تسلسله 4 ورقم 3 تسلسله 5 وشارحة - الثانية تسلسله 6 ورقم 2 تسلسله 7 ورقم 0 الاخير تسلسله 8 في المربع السنة استخدمنا هكذا =Mid([Feriq];7;2) رقم 7 اي يعني اختر من تستسل 7 وهو رقم 2 ويكون رقمين فقط اي يعني رقم 2 و صفر اي يعني20 وفي المربع الاشهر هذا =Mid([Feriq];4;2) رقم 4 يعني اختر من تسلسل 4 وهو رقم 0 ويكون رقمين اي يكون 0 و 3 اي يعني 03 وفي المربع الايام هذا =Mid([Feriq];1;2) رقم 1 يهني اختر من تسلسل 1 اي يعني 1 ويكون رقمين اي يعني 13 ملاحظة : تقدر تستخدم مصدر النموذج جدول وليس استعلام لكن يجب ان تضيف في النموذج مربع نصي وتكون مصدره كالتالي masdatediffh([تاريخ التعيين];Date()) تحياتي

هذا تمام وليس فيه المشكلة لكن انا لا افهم من هذا ممكن تعطيني مثال او المثالين كتابيا للتوضيح

وعليكم السلام ممكن توضيح اكثر ... في الحقيقة نزلت المرفق لكن لا اعرف ماذا تريد بالضبط

وعليكم السلام ورحمة الله وبركاته واليك التعديل على المرفقك مدة خدمة الموظف.accdb

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

السلام عليكم ورحمة الله وبركاته تقدر تعمل نسخة مصغرة من القاعدة وترفقه هنا

اتفضل استخدم هذا الكود في الفورم بعد تحديث التاريخ الاول Private Sub first_date_AfterUpdate() If IsDate(Me.first_date) = True Then Me.end_date = DateAdd("YYYY", 1, Me.first_date) - 1 End If End Sub الاجازات.accdb

اتفضل اليك التعديل DoCmd.OutputTo acOutputReport, "احتياج المدرسة من المواد", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & "احتياج المدرسة من المواد" & Format(Now(), "mmmyyyy") & ".pdf" , true

القي نظرتا الى الملف المرفق هل تريد تغير اخر استفسار مهم.rar

نعم اخي الحبيب تمنيت تن تحصل على الوقت لكي اجلس على النيت وافتح الموقع لكن ماكان بيدي الوقت لكن حصلنا الوقت بسبب وباء كورونا اللهم اشفي كل مريض تحياتي لكم جميعا

تأكد من مصدر النموذج الخلل سيكون فيه

دالة counta في الاكسل ايضا للعد وليس للجمع فقط للعلم دالة counta يعدد الخلايا اللي بها شيء ولا يعدد الخلايا خالية

السلام عليكم ورحمة الله وبركاته اهلا بك حسب رأيي اذا تسأل كل سؤال في موضوع منفصل راح توصل الى نتيجة بسرعة اكبر على رغم ذلك الطلب الاول تم الطلب الثاني هل تريد ان تختار عدد الموظفين وبعدين تختار الموظفين حسب اختيارك مسلا الرقم 500 و 504 و 509 او فقط تختار 10 الموظفين وهو يختار من الاول بالتسلسل

واهلا بك وجزاك الله كل خير

حسب ما اعرفه ليس هناك دالة بهذا الاسم في الاكسس لكن تقدر تعمل دالة DCount مع شرط لكي توصل الى النتيجة نفترض عندك جدول بالاسم Tbl1 وعندک حقل فیھ باسم MyCur تستخدم الكود هكذا DCount("MyCur", "Tbl1", Len("[MyCur]" & "") > 0)

اتفضل استخدم هذا اذا كان هناك ملف محفوظ من قبل سيخبرك والا سيعمل لك تقرير جديد Dim X As String X = Me.ZTeacher2.Column(1) & ".pdf" If Len(Dir(CurrentProject.Path & "\" & X, vbDirectory)) <> 0 Then MsgBox "هناك ملف محفوظ من قبل" Else DoCmd.OutputTo acOutputReport, "تقرير المصروفات فردي1", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X End If

شکرا لاستاذ صالح حمادي ذاك الطريقة يتم استخدامه اذا لم يكن الجدول المفروض يغير قيمة الافتراضية كمصدر النموذج اللي نعمل عليه وهذه طريقة يتم استخدامه في نموذج نفسه لجلسة واحدة فقط اي عند اغلاق النموذج راح يرجع لقيمته اافتراضي الاولى ' اذا كان حقل من نوع النصية ستستخدم هذا مثلا Me.Field1.DefaultValue = """" & Me.Field1.Value & """" ' اما اذا كان حقل من نوع الرقمي ستستخدم هذا 'Me.Field2.DefaultValue = "" & Me.Field2.Value & ""

في ملفك المرفق كل شيء تمام ... بيظهر المعلومات فعلا !

شكرا لك والحمدللە خلصت من المشكلة