كل الانشطه

بعد التجربة شغال بامتياز وبدون مشاكل هذا هو المطلوب بالضبط ربي يجايك أخي الطيب @Foksh خير الجزاء ويعطيك الخير الصحة والعافية لك ولأهلك ان شاء الله دمت فخرا لهذا المنتدى الجميل

إخواني الأعزاء أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته في الملف المرفق عند فتح الملف يظهر نموذج عند الضغط علي زر التقارير ثم اختيار الفصل الدراسي ( مثلا الفصل الدراسي الأول ) واختيار الفئة ( مثلا الأولي ) ثم اختيار الصف ( مثلا الأول ) ثم الضغط علي كشف تظهر نتيجة التلاميذ محتاج اعدل في كود الحدث عند التنسيق في راس التقرير بحيث : لو اخترت من فورم التقارير الفصل الدراسي الأول ثم اي فئة ( الأولي - عليا ) ثم اختيار اي صف لا يظهر في ( كشف النتيجة في رأس التقرير ) ( له دور ثان - لها دور ثان ) وكذلك ( راسب - راسبة ) ولو اخترت من فورم التقارير الفصل الدراسي الثاني ثم اختيار من فئة ( الأولي ) ثم اختيار الصف ( الأول أو الثاني ) لا يظهر في ( كشف النتيجة في رأس التقرير ) ( له دور ثان - لها دور ثان ) وكذلك ( راسب - راسبة ) ولو اخترت من فورم التقارير الفصل الدراسي الثاني ثم اختيار من فئة ( العليا ) ثم اختيار الصف (الثالث - الرابع - الخامس - السادس ) لا يظهر في ( كشف النتيجة في رأس التقرير ) ( راسب - راسبة ) وكذلك ( له برنامج علاجي - لها برنامج علاجي ) لو اخترت من فورم التقارير الدور الثاني ثم اي فئة ( الأولي - عليا ) ثم اختيار اي صف لا يظهر في ( كشف النتيجة في رأس التقرير ) ( له دور ثان - لها دور ثان ) وكذلك ( له برنامج علاجي - لها برنامج علاجي ) Data127.zip

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

تفضل ملفك ..... NA_1.accdb الرسالة تظهر عند الضغط على اضافة

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

غير الشيفرة الموجودة تحث حدث الزر الى .... Me.Recalc If DLookup("[absdate]", "[hol]", "[absdate] =#" & [Forms]![تسجيل الحضور والغياب]![نص11] & "#") Then MsgBox "تم تسجيل غياب هذا اليوم" Else DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO hol ( [no], absdate ) " & _ " SELECT emp.[no], [forms]![تسجيل الحضور والغياب]![نص11] AS Expr1 " & _ " FROM emp " & _ " WHERE (((emp.Att)="" غياب""));" DoCmd.RunSQL "UPDATE emp SET emp.Att = """";" DoCmd.SetWarnings True End If

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

اضفت حقل صغير في جدول الموظفين...... جرب الملف NA_1.accdb

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

أخي الكريم ، اذا رأيت أن مشكلتك قد تم حلها ( والحمد لله ) ، فضلاً وليس أمراً لا تنسى النقر على عبارة للإجابة التي حققت طلبك .

اخى الفاضل عند الضغط على ... يظهر report share برجاء تحديد المطلوب

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

بارك الله بك ، ونفع بك ,, أشكرك أخي ناقل على تهنئتك

الف مبروك اخي الكريم .... مزيدا من التألق

الف مبروك اخي الكريم .... مزيدا من التألق

يعني انت تريد تسجيل غياب الموظفين جميعا .... ثم الضغط علة اضافة يتم ادراج تاريخ الغياب كل الموظفين الغائبين فقط تريد هذا "" ؟؟؟؟

نعم، برنامج الأوفيس ومن ضمنه Excel متوفر بنسختين: إصدار 32bit و إصدار 64bit

جزاك الله خيرا. فضلا وليس أمرا إذا كان المطلوب هو الحل قم بالضغط على الثلاث نقاط بالأعلى و اختيار المشاركة حل

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

مداخلة فيما يتعلق بإعدادات اللغة الإقليمية في الويندوز ,, اذا كان الويندوز لديك إصدار 10 أو 11 ، فجرب اقرأ ها الموضوع ، عله يكون مفيداً لك .. الإصدار الأخير من الأداة في هذه المشاركة هنا ..

وعليكم السلام ورحمة الله وبركاته .. رغم أنك الى حد ما قريب من تحقيق هدفك في محاولتك داخل الزر .. إلا ان بعض النقاط قد غابت عنك ، مثل :- تنسيق التاريخ بشكل صحيح . استخدام دالة DLookup بطريقة سليمة عند مقارنة التواريخ . يفضل استخدام Format عند التعامل مع التواريخ في SQL لتفادي أخطاء اللغة الإقليمية وتنسيق التواريخ . على العموم ، جرب هذا التعديل على ملفك الصلي إن كان صحيحاً :- Private Sub أمر24_Click() Dim numFonct As Long Dim dateGrade As Date Dim critereRecherche As String Dim resultat As Variant numFonct = Nz(Me!num, 0) dateGrade = Nz(Me!date_grade_poste_actuel, #1/1/2000#) critereRecherche = "code_fonct = " & numFonct & " AND date_nomination = #" & Format(dateGrade, "yyyy-mm-dd") & "#" resultat = DLookup("code_fonct", "tbl_masser_mihani", critereRecherche) If Not IsNull(resultat) Then MsgBox "هذه المعلومات موجودة من قبل", vbExclamation + vbMsgBoxRight, "" Exit Sub End If DoCmd.SetWarnings False DoCmd.RunSQL _ "INSERT INTO tbl_masser_mihani (code_fonct, loi_fondamontale, grade, sinf, date_nomination, numero_visa_cf, date_visa_cf) " & _ "SELECT num_fonctionnaire, loi_fondamontale, grade_poste_actuel, categorie, date_grade_poste_actuel, num_visa_grade_poste_actuel, date_visa_grade_poste_actuel " & _ "FROM tbl_info_fonctionnaire " & _ "WHERE num_fonctionnaire = " & numFonct DoCmd.SetWarnings True MsgBox "تمت الإضافة بنجاح", vbInformation + vbMsgBoxRight, "نجاح" End Sub

اخي افتح المرفق التالي ، واختر فلترة عشوائية لأي بيانات ، وانقر زر افتح التقرير .. الترتيب والتصميم حسب رغبتك . ما تم هو انشاء تقرير مبني على الإستعلام Qsearch4 ، وإضافة الحقول نفسها من الاستعلام الى التقرير .. حيث ان الاستعلام مشروط بالفلترة ، وما سيتم تطبيقه على التقرير هو عرض السجلات التي تم فلترتها فقط الجمعية 28.zip

جزاك الله خير الجزء الثاني من اجابتك كنت فعلتها أما الجزء الاول ف اذا تكرمت مزيد من الشرح هل الاوفيس نفسه فيه اصدار 64 او 32؟

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل أريد إضافة بيانات كل سجل من جدول tbl_info_fonctionnaire في جدول tbl_masser_mihani إنطلاقا من النموذج fm_info_fonctionnaire و من زر " إضافة " بشرط واحد أن لا يكون الحقل date_grade_poste_actuel من جدول tbl_info_fonctionnaire موجود في الجدول tbl_masser_mihani وفي الحقل date_nomination لنفس الموظف الذي له الرقم num مثلا num الموظف هو رقم : 3 في tbl_info_fonctionnaire و : date_grade_poste_actuel هو: 01/06/2025 فندهب إلى الجدول tbl_masser_mihani ونعمل مقارنة إذا كان : code_fonct يساوي 3 وبه حقل date_nomination هو: 01/06/2025 فهنا لا يمكن الاضافة وتأتي رسالة توضح بإن البيانات موجودة مسبقا ، أما إذا كان التاريخ يختلف عن 01/06/2025 لنفس الموظف الذي له رقم 3 فهنا نستطيع الإضافة بهذه الطريقة اريد ألكود ان يشتغل عملت محاولة للكود وهي في زر إضافة في النموذج الرجاء المساعدة والتوجيه وبارك الله فيكم baseQ.accdb

و عليكم السلام الكود التالي يحقق المطلوب فقط تأكد من أن الملفين في نفس المسار Sub Button1_Click() Dim Wb1 As Workbook, Wb2 As Workbook, FilePath As String, OnRng As Range Dim WSdata As Worksheet, WSdest As Worksheet, WSname As String WSname = "إدخال بيانات أساسية" ' تأكد من أن الاسم مطابق تمامًا On Error GoTo ErrorHandler Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False ' تحديد مسار الملف FilePath = ThisWorkbook.Path & "\Book2.xlsb" ' تأكد من امتداد الملف ' التحقق من وجود الملف If Dir(FilePath) = "" Then MsgBox "ملف Book2 غير موجود في المسار: " & vbCrLf & FilePath, vbExclamation Exit Sub End If ' فتح الملف بكلمة المرور Set Wb1 = Workbooks.Open(FilePath, Password:="123") ' تأكد من كلمة المرور Set Wb2 = ThisWorkbook ' التحقق من وجود ورقة العمل Set WSdata = Wb1.Sheets(WSname) Set WSdest = Wb2.Sheets(WSname) If WSdata Is Nothing Or WSdest Is Nothing Then MsgBox "ورقة العمل '" & WSname & "' غير موجودة في أحد الملفين", vbCritical Wb1.Close False Exit Sub End If ' نسخ البيانات Set OnRng = WSdata.UsedRange If OnRng.Cells.CountLarge = 1 And IsEmpty(OnRng.Value) Then MsgBox "لا توجد بيانات في الورقة المصدر", vbExclamation Wb1.Close False Exit Sub End If WSdest.Cells.UnMerge WSdest.Cells.ClearContents OnRng.Copy With WSdest.Range("A1") .PasteSpecial xlPasteFormulas .PasteSpecial xlPasteFormats End With Application.CutCopyMode = False Wb1.Close False MsgBox "تم نسخ البيانات بنجاح", vbInformation ExitHandler: Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True Exit Sub ErrorHandler: MsgBox "حدث خطأ: " & Err.Description, vbCritical Resume ExitHandler End Sub