كل الانشطه

تفضل ملفك ..... 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

اخي الغالي انا اريد ان اطبع البيانات التى فى فورم search4 يكون في ورقه A4 حسب التصفيه يعني مثال لو انا بحثت فى الفورم على كلمة اعزب هيظهر لى كام سطر اعزب اريد زر طباعه يطبع الذي تم البحث عنه وشكرا على اهتمام حضرتك وجازاك الله خير

كل عام وانتم بخير بمناسبة رآس السنة الهجرية مطلوب ضبط معادلة نسخ ادخال البيانات الاساسية من مستند book2 و لصقها إلى مستند book1 فتح book1 ثم الضغط على نسخ و يوجد كلمة مرور 123 لفتح مستند book2 مطلوب عند الضغط على نسخ اختيار book2 و الضغط موافق و ان يتم كتابة كلمة المرور فى الكود 123 لفتح البرنامج مباشرة اضافة Workbooks.Open (strFile), , , Password:="123" نسخ كلمة مرور.rar

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