كل الانشطه
- الساعة الأخيرة
-
السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل أريد إضافة بيانات كل سجل من جدول 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
- Today
-
اخي الغالي انا اريد ان اطبع البيانات التى فى فورم search4 يكون في ورقه A4 حسب التصفيه يعني مثال لو انا بحثت فى الفورم على كلمة اعزب هيظهر لى كام سطر اعزب اريد زر طباعه يطبع الذي تم البحث عنه وشكرا على اهتمام حضرتك وجازاك الله خير
-
كل عام وانتم بخير بمناسبة رآس السنة الهجرية مطلوب ضبط معادلة نسخ ادخال البيانات الاساسية من مستند book2 و لصقها إلى مستند book1 فتح book1 ثم الضغط على نسخ و يوجد كلمة مرور 123 لفتح مستند book2 مطلوب عند الضغط على نسخ اختيار book2 و الضغط موافق و ان يتم كتابة كلمة المرور فى الكود 123 لفتح البرنامج مباشرة اضافة Workbooks.Open (strFile), , , Password:="123" نسخ كلمة مرور.rar
-
أهلاً باشمهندس @عمر ضاحى ،، جميع ما ذكرته تقريباً ، هو ما تم التلميح له سابقاً ، وقم تم إدراجه في التحديث الجديد.. أما إنشاء نسخة احتياطية Dat ، فهي تعمل بشكل سليم ، ولكن ما لم يكن مدرجاً هو الإستعادة من هذه الصيغة 😅 أما فيما يخص فأعتقد أن الأزرار والعناوين واضحة بشكل كافي ، ولكن أعتقد أيضاً أن كثيرة هي المواضيع التي تناولت موضوع النسخ الاحتياطي وبنفس النمط 😅 ، مع محاولتي الإحتفاظ بالتسميات للأزرار دون تعديلها بإختصارات. بكل الأحوال يسعدني ويشرفني مرورك العطر 💐 💐 -
اولا تسلم ايدك معلم 🌹 ^_^ لكن ايه رأيك لو تضيف اجراء عند فتح النموذج يتحقق من وجود الجدولين واذا لم يكونو موجودين يتم انشائهم بشكل تلقائى ثم يكمل باقي الاجراءات عادي وانا لما نزلت الملف اول مره حسيت اني مش عارف من فين يودي على فين لحد ما فهمت كل حاجه واجهتني مشكلة فى البدايات وغير لما جربت اعمل نسخه احتياطية DAT لم يفلح الامر معي اقترح عليك تعمل صناديق مستطيله وترقمها 1 2 3 علشان المستخدم يفهم يعمل ايه اول حاجه ثم التالي او ان تضيف تلميحات الاستخدام كليبل على جنب يضع التنبيهات وطريقة العمل مثلا ^_^ وبس كده يا مؤمن ^_^- 23 replies
-
- 1
-
-
- نسخة احتياطية
- backup
- (و4 أكثر)
-
و عليكم السلام ورحمة الله و بركاته ثبت إصدار 64 بت من Office على اللاب توب الجديد لأنه إذا كان Office على اللاب توب 32 بت، فقد يكون هذا هو سبب المشكلة، لأن الماكرو التي تم إنشاؤها على 64 بت لا تعمل بشكل صحيح. افتح Excel على اللاب توب، واذهب إلى: ملف > خيارات > مركز التوثيق > (Trust Center) > إعدادات مركز التوثيق > إعدادات الماكرو. اختر تمكين جميع وحدات الماكرو أو تعطيل وحدات الماكرو مع الإشعار للسماح بتفعيل الماكرو يدويًا عند فتح الملف.
-
السلام عليكم ورحمة الله وبركاته اشتريت لاب جديد إمكانياته عاليه و نقلت ملف كبير من الكمبيوتر على فلاشة ثم للاب و اللاب لايفتحه الا بعد عدة محاولات للإصلاح ولما يفتحه يكون قد حذف كل الماكرو بالملف جربت ملفات أخرى احجامها كبيرة. نفس النتيجةي بينما يفتح عادي ملف حجمه صغير وفيه ماكرو لاحظت ان اللاب 32 بايت والكمبيوتر كان 64 بايت و اسماء الصفحات في الماكرو تظهر كعلامات استفهام. لايظهر الاسم الاوفيس بالكمبيوتر اظنه 2016 باللاب الاوفيس قد يكون أحدث اصدار ويندوز 11 فضلا اقتراح حل للمشكلة شكرا لكم وفق الله الجميع لكل خير
- Yesterday
-
نعم ممكن ....هل يمكنك ان تعطي مثال؟
-
السلام عليكم اخواني ممكن مساعدة في غمل صلاحيات على قائمة منسدلة ممكن الطريقة او مثال ولكم جزيل الشكر
-
تعديل كود للترحيل لملف خارجي ... الي شيت في نفس الملف
جلال محمد replied to جلال محمد's topic in منتدى الاكسيل Excel
جزاك الله خيرا استاذ عبد الله كود رائع ويعمل بكل سهولة شكرا جزيلا ... وجعلة الله في ميزان حسناتك -
السلام عليكم ورحمة الله وبركاته لدي في المرفقات قاعدة بيانات خاصة بتسجيل الغياب اليومي للموظفين حيت ان النموذج المسمى absent-enter هو النموذج المسؤول عن تسجيل الغياب اليومي للموظفين وطريقة العمل به ان يتم اختيار اسم الموظف الغائب ثم يتم ادراج تاريخ الغياب وبعدها يتم اختيار اسم الموظف التاني وادارج تاريخ الغياب وهكذا دواليك وطبعا هذه الطريقة في تسجيل الغياب تاخد وقتا حاولت ان اقوم باختصار هذه الطريقة وذلك بان اقوم بادراج يوم الغياب للموظفين الغائبين دفعة واحدة في النموذج المسمى تسجيل الحضور والغياب ولكن لم اوفق في ذلك الغياب والتاخير - نسخة.accdb
-
-
الف مبروك ومزيد من التقدم
-
السلام عليكم ورحمة الله وبركاته أخي الكريم فضلاً جرب الكود القديم من القاعدة المرفقة القاعدة 3_V1.zip
-
الأخوة الكرام أسعد الله مساءكم ووفقكم لك خير تحديث جديد يتضمن بعض التعديلات علي نموذج الـ html وهي 1- تم إضافة ميزة البحث بقيم متعدده يفصل بينهم | أو ; أو , وهذا في البحث العام او الحث الخاص بكل نموذج (2) 3- ميزة نسخ كامل محتوي العمود مع أمكانية أختيار الفاصل بينهم او كتابة فاصل جديد (4) وأيضاً اختيار ضم عنوان العمود أم لا (5) 6- تم معالجة بعض القيم لعرض أفضل 7- تم تحسين طريقة نسخ محتوي الخلية للتناسب مع الخلية التي تحمل رابط بداخلها صوره لبعض النتائج بالتوفيق Ahmos_AutoHtmlTable_V1.1_Files.zip
-
@عاشق_الرقي شاكر لك أخي الكريم كلامك الطيب أسئلك الدعاء وأسئل الله لك التوفيق وان يجعلك من العلماء الصالحين النافعين
-
السلام عليكم ورحمة الله وبركاته سؤالي أستاذي الكريم هل يمكن اضافة معيار جديد بعد تحديث الحالة من موجود إلى فاقد ومن رقم الجرد الحالي إلى أحدث رقم جرد أضيف إليه كما نفضلت بعمله أن أضيف معيار أن يكون ذلك التحديث للرقم العام للكتب من رقم 1 (ثابت في النص[ إلى رقم معين ]مختلف في نص[ يتم تحديده فيما بعد .. مثل ذلك Between [forms]![F_GardBooks1]![text] And [forms]![F_GardBooks1]![text2] موضح في الاستعلام الموجود بالقاعدة في زر أمر حدث بالنموذج عند الضغط عند النقر ... وكما هو على أكسس 2003 وجزاكم الله خيرا مرفق لكم القاعدة المطلوب العمل عليها القاعدة 3.rar
-
فهمتك معلمي الفاضل .. بالطبع ، ويمكن تقييد المستخدم العادي من عدم الدخول أساساً الى لوحة النسخ الإحتياطي ( وهذا لا خلاف عليه ) في الأداة جعلتها قادرة على التعامل مع القواعد المنقسمة والغير .. وإذا كان النسخ الإحتياطي الذي نريده ان يتم على القاعدة لجميع الجداول ( عند محاولة استرجاع طبعاً ) محصوراً فقط بالجداول المحلية ، فلا أعلم الهدف ( والسبب أن 99% ممن يقوم بتقسيم قواعد بياناته هو لتجنب تلف وتضخم قواعد البيانات بسرعة ولحمابة البيانات والجداول ) . على العموم سأرى ما يمكن تفعيله وتعديله في النسخة الجديدة ان شاء الله أهلا مهندسنا الغالي ,, في الواقع ، من المفترض أن يتم انشاء المجلدات عند فتح الواجهة ، ولكن يبدو أنني لم أعد استدعاء الدالة الى حدث عند الفتح ,, لذا تم التعديل لاحقاً في النسخة الجديدة ان شاء الله 👍 الإسترجاع في الإصدار السابق محصور فقط للـ MDB ، وقد التعديل والتطوير في الإصدار الجديد أيضاً .. لكني هنا في طور استنتاج النقاط التي يمكن إضافتها وتحسينها 😊
- 23 replies
-
- 1
-
-
- نسخة احتياطية
- backup
- (و4 أكثر)
-
<<جبتها لك بالنص>> ************************************** السبب في ظهور كلمة "محذوف" (Deleted) في جدول Access المرتبط بقاعدة بيانات SQL Server غالباً يكون: 📌 مشكلة في تعريف المفتاح الأساسي (Primary Key) في الجدول المرتبط عندما تربط جدول SQL Server بـ Access، فإن Access يعتمد على وجود مفتاح أساسي واضح (أو مجموعة مفاتيح فريدة) لتتبع الصفوف. وإذا لم يكن هناك مفتاح أساسي محدد أو كان التعريف غير دقيق، تظهر هذه المشكلة. ✅ الحل إليك خطوات لحل المشكلة: 🛠 1. تأكد من وجود مفتاح أساسي في جدول SQL Server افتح الجدول في SQL Server Management Studio. تأكد أن هناك حقل أو مجموعة حقول مخصصة كمفتاح أساسي (Primary Key). 🛠 2. احذف الربط في Access وأعد ربط الجدول مع تحديد المفتاح الصحيح: الخطوات: في Access، احذف الجدول المرتبط (فقط الرابط، لا تقلق البيانات الأصلية في SQL Server). من الشريط العلوي في Access: اختر "External Data" → ثم ODBC Database. اختر Link to the data source by creating a linked table. اختر مصدر ODBC المرتبط بقاعدة بيانات SQL. بعد تحديد الجدول، سيطلب منك Access اختيار المفتاح الأساسي. حدد الحقل أو الحقول التي تشكل المفتاح الأساسي الحقيقي للجدول (مثلاً: Vou_Detail_ID أو مجموعة من الحقول مثل Vou_ID + Acc_ID إذا كانت تشكل مفتاح مركب). ⚠️ ملاحظات مهمة: إذا لم يكن الجدول يحتوي على مفتاح أساسي في SQL Server، يمكنك إنشاء View في SQL Server تتضمن مفتاحًا فريدًا مؤقتًا (مثل استخدام ROW_NUMBER() أو NEWID()). في بعض الأحيان تظهر هذه المشكلة إذا تم تعديل الجدول يدوياً في Access أو حدث تعارض في الترميز بين SQL وAccess.
-
شكرا لك حبيبنا @Foksh على هذي العطية الرائعة 🙂 موضوع قديم متجدد وباب الإبداع فيه والتنوع بحر لا ساحل له 😊🖐 وكل فنان وله بصمته فيه .. والأفكار كثيرة لا يمكن حصرها .. لذلك سأكتفي بالتجربة والاستمتاع بهديتك القيمة 😄🌹 فقط مما واجهني عند الضغط على زر ضبط مسار الحفظ بشكل آلي : .. المفروض ينعمل المجلد تلقائيا أليس كذلك ؟! لذلك زر الحفظ يظهر رسالة الخطأ التالية : أنشأت نسخة خاصة بالأمتداد Dat .. ولكن عند الاسترجاع : ملاحظة : النسخ الخاصة لا يتم حفظ بياناتها في الجدول !! وربما التلقائية كذلك (لم أجرب) .. أم هذا مقصود ؟ والباقي راائع كروعتك 😎👌
- 23 replies
-
- 1
-
-
- نسخة احتياطية
- backup
- (و4 أكثر)
-
تمام اخي .. واعرف انك يمكنك الابحار في البرمجة ببوصلة او بدونها . من ذلك يمكن ايضا اخذ نسخة احتياطية من سجل واحد من احد الجداول اخي العزيز @Foksh لعلك فهمتني .. ليس نقاشي واعتراضي كمسألة برمجية ... نظرتي للمسألة الضبط بصورة عامة وتقوم باللازم على اكمل وجه ... وابسط صورة هنا مربط الفرس .. انا كمالك او مشرف على المشروع لن امكن المستخدم مما خط بالاحمر . وما خط بالاخضر يلزم شرط وهو ضروري الا تكون الجداول محلية دعنا نفكر خارج صندوق البرمجة .. نفكر كمسؤلين عن حماية البيانات- 23 replies
-
- 1
-
-
- نسخة احتياطية
- backup
- (و4 أكثر)
-
آمين يا رب العالمين. و إياكم أجمعين
-
شكرا جزيلا أخي الفاضل وبارك الله فيك وزادك الله من علمه
