كل الانشطه

اخى الفاضل عند الضغط على ... يظهر 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 ، فهي تعمل بشكل سليم ، ولكن ما لم يكن مدرجاً هو الإستعادة من هذه الصيغة 😅 أما فيما يخص فأعتقد أن الأزرار والعناوين واضحة بشكل كافي ، ولكن أعتقد أيضاً أن كثيرة هي المواضيع التي تناولت موضوع النسخ الاحتياطي وبنفس النمط 😅 ، مع محاولتي الإحتفاظ بالتسميات للأزرار دون تعديلها بإختصارات. بكل الأحوال يسعدني ويشرفني مرورك العطر 💐 💐

اولا تسلم ايدك معلم 🌹 ^_^ لكن ايه رأيك لو تضيف اجراء عند فتح النموذج يتحقق من وجود الجدولين واذا لم يكونو موجودين يتم انشائهم بشكل تلقائى ثم يكمل باقي الاجراءات عادي وانا لما نزلت الملف اول مره حسيت اني مش عارف من فين يودي على فين لحد ما فهمت كل حاجه واجهتني مشكلة فى البدايات وغير لما جربت اعمل نسخه احتياطية DAT لم يفلح الامر معي اقترح عليك تعمل صناديق مستطيله وترقمها 1 2 3 علشان المستخدم يفهم يعمل ايه اول حاجه ثم التالي او ان تضيف تلميحات الاستخدام كليبل على جنب يضع التنبيهات وطريقة العمل مثلا ^_^ وبس كده يا مؤمن ^_^

و عليكم السلام ورحمة الله و بركاته ثبت إصدار 64 بت من Office على اللاب توب الجديد لأنه إذا كان Office على اللاب توب 32 بت، فقد يكون هذا هو سبب المشكلة، لأن الماكرو التي تم إنشاؤها على 64 بت لا تعمل بشكل صحيح. افتح Excel على اللاب توب، واذهب إلى: ملف > خيارات > مركز التوثيق > (Trust Center) > إعدادات مركز التوثيق > إعدادات الماكرو. اختر تمكين جميع وحدات الماكرو أو تعطيل وحدات الماكرو مع الإشعار للسماح بتفعيل الماكرو يدويًا عند فتح الملف.

السلام عليكم ورحمة الله وبركاته اشتريت لاب جديد إمكانياته عاليه و نقلت ملف كبير من الكمبيوتر على فلاشة ثم للاب و اللاب لايفتحه الا بعد عدة محاولات للإصلاح ولما يفتحه يكون قد حذف كل الماكرو بالملف جربت ملفات أخرى احجامها كبيرة. نفس النتيجةي بينما يفتح عادي ملف حجمه صغير وفيه ماكرو لاحظت ان اللاب 32 بايت والكمبيوتر كان 64 بايت و اسماء الصفحات في الماكرو تظهر كعلامات استفهام. لايظهر الاسم الاوفيس بالكمبيوتر اظنه 2016 باللاب الاوفيس قد يكون أحدث اصدار ويندوز 11 فضلا اقتراح حل للمشكلة شكرا لكم وفق الله الجميع لكل خير

نعم ممكن ....هل يمكنك ان تعطي مثال؟

السلام عليكم اخواني ممكن مساعدة في غمل صلاحيات على قائمة منسدلة ممكن الطريقة او مثال ولكم جزيل الشكر

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