Shivan Rekany

السلام علیکم ورحمة الله وبركاته اخي الحبیب لا یمكن اضافة حقل خانة الاختیاریة في الاستعلام بدون اضافة الحقل في الجدول شفان

شکرا لک في الحقيقة انا ما نظرت النتيجة هكذا تخياتي

اتفضل اليك ما طلبت القي نظرتا الى صورة واليك الملف بعد اضافة تقرير hatem (1).accdb

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

مشاركة مع اصدقائي لكي يظهر كل السجلات فقط قم بتغير نوع العلاقة بين استعلامين كما مبينة في الصورة شوف النتيجة واليك مرفقك بعد تعديل علاقة TEST.accdb

مبروك اخي @husamwahab اتمنى لك النجاح في كل امورك كن مستمر في طريقك طريق النجاح تحياتي

عليكم السلام ورحمة الله وبركاته في مرة السابقة ايضا كان مشكلتك نفس المشكلة خلي توضح لك لكي تستفيد اكثر القي نظرتا الى هذه الصورة هناك حقل باسم bi لكن مصدره هو حقل user1 وفي مصدر التقرير والنموذج الغياب هناك شرط فيه وهو يجب ان يكون حقل bi يساوي بحقل bi في جدول الملفات1 اي يجب ان يكون مصدر حقل bi في جدول ملفات1 يكون حقل bi نفسه لذلك انا قمت بتسمية مربع bi الى user1 ومن جديد اضفت حقل bi في نموذج اتفضل اليك قاعدتك بعد تعديل ملفات.rar

القاعدە المرفقة بها كومبوبوكس واحد اذا تبحث في الموقع ستجد كثير من الموضوعات على هذا ومنها

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

اتفضل اليك هذا الكود Public Sub Terminate(Process As String, Optional PID As Long = 0) StrPID = IIf(Not PID = 0, " AND ProcessId=" & PID, "") Set Obj = GetObject("winmgmts:\\.\root\CIMV2") Set ColItems = Obj.ExecQuery("SELECT * FROM Win32_Process WHERE Name='" & Process & "'" & StrPID, , 48) For Each Obj In ColItems Obj.Terminate Next End Sub تقدر ان تغلق كل انواع البرامج بهذه الطريقة فقط عليك ان تكتب اسم البرامج عند تدعيه مثلا هنا نريد ان نغلق ملفات اكسل المفتوحة هكذا سنستدعيه عند الضغط على الزر Private Sub Command28_Click() Call Terminate("Excel.exe") End Sub

،عم استخدم هذا الكود Private Sub AGE_AfterUpdate() If Not IsNull(Me.Age.Value) Then Me.DOB.Value = DateSerial(Year(Me.dDate) - Me.Age.Value, 1, 1) End If End Sub 2020 (1).rar

اليك طريقتين لكن في البداية القي نظرتا الى خصائص كومبوبوكس قي هذه الصورة اذا تريد ان يكتب فيه ولا يقبل شيء احد غير اللي في مصدره استخدم هذا الكود معه Private Sub green_NotInList(NewData As String, Response As Integer) Response = Cancel End Sub لكن اذا تريد ان لا يكتب فيه حرف واحد فقط يجوز ان تختار استخدم هذا الكود معه Private Sub Combo3_KeyDown(KeyCode As Integer, Shift As Integer) KeyCode = 0 End Sub واليك المرفق بها كلا من طريقتين db1.mdb

اتفضل القي نظرتا الى هذه الصورة اولا يجب ان تعرف كود اللون بصيغة RGB لكن ستسأل كيف ستعرفه اضغط بكليك على ثلاث نقاط الصغيرة لمربع Back Color سيفتح ذاك النافذة الاعلاه واختر اي لون سيظهر لكن كوده في الاسفل مثلا اللون 00B7EF# اللي حضرتك يريد شوف في الصورة كوده هو ( 0 و 183 و 239 ) وبعدين راح تستخدم ذاك الكود في النموذج هكذا Me.bb.BackColor = RGB(0,183,239)

اتفضل اليك هذا فانكشن والكود Option Compare Database Function MyYearTxt(YY As Integer) Select Case YY Case Is = 1: MyYearTxt = "الاول" Case Is = 2: MyYearTxt = "الثاني" Case Is = 3: MyYearTxt = "الثالث" Case Is = 4: MyYearTxt = "الرابع" Case Is = 5: MyYearTxt = "الخامس" Case Is = 6: MyYearTxt = "السادس" Case Is = 7: MyYearTxt = "السابع" Case Is = 8: MyYearTxt = "الثامن" Case Is = 9: MyYearTxt = "التاسع" Case Is = 10: MyYearTxt = "العاشر" Case Is = 11: MyYearTxt = "احدى عشر" Case Is = 12: MyYearTxt = "اثنى عشر" Case Is = 13: MyYearTxt = "ثالث عشر" Case Is = 14: MyYearTxt = "اربع عشر" Case Is = 15: MyYearTxt = "خامس عشر" Case Is = 16: MyYearTxt = "سادس عشر" Case Is = 17: MyYearTxt = "سابع عشر" Case Is = 18: MyYearTxt = "ثامن عشر" Case Is = 19: MyYearTxt = "تاسع عشر" Case Is = 20: MyYearTxt = "عشرين" Case Is = 21: MyYearTxt = "واحد و عشرين" Case Is = 22: MyYearTxt = "ثاني و عشرين" Case Is = 23: MyYearTxt = "ثالث و عشرين" Case Is = 24: MyYearTxt = "اربع و عشرين" Case Is = 25: MyYearTxt = "خامس و عشرين" Case Is = 26: MyYearTxt = "سادس و عشرين" Case Is = 27: MyYearTxt = "سابع و عشرين" Case Is = 28: MyYearTxt = "ثامن و عشرين" Case Is = 29: MyYearTxt = "تاسع و عشرين" Case Is = 30: MyYearTxt = "ثلاثين" Case Else: MyYearTxt = "" End Select End Function Private Sub first_date_AfterUpdate() Dim i As Integer Dim firDat As Date Dim YeNum As Integer firDat = Me.first_date YeNum = Me.yeart_no If Len(Me.yeart_no & "") = 0 Then Exit Sub For i = 0 To 2 Me.yeart_no = YeNum + i Me.yeart_noTxt = MyYearTxt(Me.yeart_no) Me.first_date = DateAdd("YYYY", i, firDat) Me.end_date = DateAdd("YYYY", i, firDat) - 1 DoCmd.GoToRecord , , acNewRec Next i End Sub ملاحظة : انا ضعيف في اللغة العربية لذلك قم بالتأكيد على ارقام كتابيا في فانكشن احتمال هناك خطأ فيه كتابيا واليك المثال الاجازات (2).accdb

اتفضل استاذ اليك هذا الاستعلام SELECT الموظفين.[رقم الموظف], الموظفين.[اسم الموظف], الموظفين.[التشجيعية الاولي], الموظفين.[التشجيعية الثانية], الموظفين.[التشجيعية الثالثة], الموظفين.[التشجيعية الرابعة], الموظفين.[التشجيعية الخامسة], IIf(IsDate([التشجيعية الخامسة]),5,IIf(IsDate([التشجيعية الرابعة]),4,IIf(IsDate([التشجيعية الثالثة]),3,IIf(IsDate([التشجيعية الثانية]),2,IIf(IsDate([التشجيعية الاولي]),1,0))))) AS ededmerat FROM الموظفين; واليك كود التحديث للجدول Private Sub BtnUpdate_Click() DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE الموظفين INNER JOIN q1 ON الموظفين.[رقم الموظف] = q1.[رقم الموظف] SET الموظفين.[عدد المرات التشجيعية] = [q1]![ededmerat];" DoCmd.SetWarnings True MsgBox "تم تحديث" End Sub للعلم تقدر ان تحذف حقل الجدول لان عندنا الحقل المطلوب في الاستعلام اذا تريد ان يكون موجودة يجب ان تعمل تحديثات له واذا تحذفه تقدر ان تراه في الاستعلام وليس فيه مشكلة الموظفين.rar

غدا ان شاء اللە راح ارفق لک القاعدە النتائج فی الاستعلام لکن اذا ترید راح اعمل لک نموزج واعمل فیە زر وعند الضغط علیە سیعمل تحدیث النتائج الی الجدول

هل تبحث عن استعلام كهذا

ما هو حد الاعلى لعدد السنوات ؟

اتفضل القي نظرتا الى الصورة تم تغير اسم الحقل التاريخ من Date الى dDate وايضا تم تغير حقل DOB من الرقمي الى تاريخ شوف قمنا بادخال dDate في 15/04/2015 اي نفترض في ذلك اليوم حضرتك دخلت البيانات وتاريخ الميلاد نفترض 22/12/1988 في حقل Age صار يساوي 27 لان 2015 - 1988 = 27 وفي مربع نصي Current Age صار یساوی ٣٢ لان سنة الحالية 2020 ناقص سنة الميلاد 1988 = 32 واليك المرفق 2020.rar

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

مشاركة مع الحبايب هناك اسئلة : هل تريد ان يعطيك النتيجة سنوات فقط ام بالسنة و الاشهر و الايام ؟ هل تريد ان تكتب في حقل DOB تاريخ الميلاد سنة والشهر واليوم ؟ اذا الجواب بيكون نعمل هل تسمح لنا ان نغير حقل DOB من الرقم الى التاريخ ؟

وعليكم السلام ورحمة الله وبركاته مثلا عندك كومبوبوكس اي مربع تحرير وسرد باسم Combo1 غير خاصية locked له الى نعم واستخدم هذا الكود Private Sub Combo1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Combo1.Dropdown End Sub اليك المثال كومبوبوكس.accdb

لا تنسى هذه الجزئية خانات الاختيار لا يمكنك ان تعمل عليه تعديل اي تضغط عليه في حالة خاصية عدم التعديل على الفورم لكن تقدر ان تستخدم زر بدل خانة الاختيار وسيفعل بشكل جيد لكن اذا تريد ان يكون خانة الاختيار وفي خاصية منع التعديل على النموذج هناك طريقة لكن غير مستحسنة واليك الكود Private Sub Option0_Click() DoCmd.OpenForm "f2", acNormal Me.Form.AllowEdits = False End Sub Private Sub Option0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Form.AllowEdits = True End Sub عند تحريك المؤشر الماوس على خانة الاختيار سيتغير خاصية منع التعديل الى نعم وبعدين عند الضغط سيفتح النموذج و يغير خاصية من جديد الى لا اليك الملف علامة اختيار.accdb

اتفضل تم اضافة هذا السطر من الكود If Me.Y = Me.C Then Me.TimerInterval = 0: MsgBox "تم ايقاف التشغيل العداد" 19 (1) (1).accdb

اتفضل اليك هذا Private Sub first_date_AfterUpdate() Dim i As Integer Dim firDat As Date Dim YeNum As Integer firDat = Me.first_date YeNum = Me.yeart_no If Len(Me.yeart_no & "") = 0 Then Exit Sub For i = 0 To 2 Me.yeart_no = YeNum + i Me.first_date = DateAdd("YYYY", i, firDat) Me.end_date = DateAdd("YYYY", i, firDat) - 1 DoCmd.GoToRecord , , acNewRec Next i End Sub قمت بتغير حقل year_no من النصي الى رقمي وستكتب فيه الرقم بدل ان تكتب الرقب كتابية اليك الملف الاجازات (2).accdb