كل الانشطه

<<جبتها لك بالنص>> ************************************** السبب في ظهور كلمة "محذوف" (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 .. ولكن عند الاسترجاع : ملاحظة : النسخ الخاصة لا يتم حفظ بياناتها في الجدول !! وربما التلقائية كذلك (لم أجرب) .. أم هذا مقصود ؟ والباقي راائع كروعتك 😎👌

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

آمين يا رب العالمين. و إياكم أجمعين

شكرا جزيلا أخي الفاضل وبارك الله فيك وزادك الله من علمه

وعليكم السلام ورحمة الله وبركاته .. المعطيات من خلال الملف المرفق :- 1. نوع التنسيق = نسبة مئوية ( Percent ) . 2. النتيجة في المربعات النصية التي فيها المشكلة = #Num! دلالة على أنه غير قادر على إدراج النتيجة 0 كنسبة مئوية .. جرب في مربع النص d67 داخل ا لتقرير استخدام الجملة التالية :- =IIf([d55]=0,0,([d63]+[d61]+[d59])/[d55]) بدلاً من التعبير السابق :- =([d63]+[d61]+[d59])/[d55] وبناءً عليه قم بالتطبيق بنفس الأسلوب 🤗

هو الحل الأبسط من باب الأمان عند التراجع 😅 هنا نأتي لفكرة السلاح ذو الحدين .. والأمر يعود للمستخدم بأن يتم تحديد الجداول كاملة في اإعدادات أم بعض الجداول !!!! النسخ الإحتياطي التلقائي ( حسب ضبط الإعدادات ) متاح التحديد بعدد الساعات أو الأيام !! ومن السهل جعل النسخ التلقائي مقرون فقط بجميع الجداول وليس بالإعدادات المتاحة في جدول الإعدادات .. هي إما مرونة أو تضخيم للفكرة 😁

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

السلام عليكم ورحمة الله وبركاته الكود المرفق في طلبك الاول لا يتناسب مع وافع الملف وخصوصا النطاقات K13:KJ - H14:H فهي ليس لها اهمية خسب ملفك المرفق اليك التعديل حسب فهمى لفكرة عمل ملفك يتم ما تم ترخيله باللون الاصفر ويمكن الغائها من الكود بحذف السطر w.Sheets("Galal").Cells(cell2.Row, c).Interior.Color = RGB(255, 255, 153) الكود Sub dahmour() Dim w As Workbook Dim L As Variant Dim r1 As Long, r2 As Long, c As Long Dim cell As Range, cell2 As Range Dim colNum As Long Dim matched As Boolean Dim rng As Range, cellDate As Range Set w = ActiveWorkbook L = w.Sheets("Sheet2").Range("D2").Value If L = "" Then MsgBox "يرجى اختيار التاريخ من الخلية D2!", vbExclamation Exit Sub End If r1 = w.Sheets("Sheet2").Cells(w.Sheets("Sheet2").Rows.Count, 1).End(xlUp).Row r2 = w.Sheets("Galal").Cells(w.Sheets("Galal").Rows.Count, 1).End(xlUp).Row Set rng = w.Sheets("Galal").Range("E7:Z7") c = 0 For Each cellDate In rng If IsDate(cellDate.Value) And IsDate(L) Then If CDate(cellDate.Value) = CDate(L) Then c = cellDate.Column Exit For End If End If Next cellDate If c = 0 Then MsgBox "لم يتم العثور على التاريخ '" & L & "' في الصف 7 من ورقة Galal", vbCritical Exit Sub End If If IsNumeric(w.Sheets("Sheet2").Range("K4").Value) Then colNum = w.Sheets("Sheet2").Range("K4").Value Else MsgBox "الخانة K4 يجب أن تحتوي على رقم العمود المراد ترحيله!", vbExclamation Exit Sub End If matched = False For Each cell In w.Sheets("Sheet2").Range("A11:A" & r1) If Trim(cell.Value) <> "" Then For Each cell2 In w.Sheets("Galal").Range("A8:A" & r2) If Trim(cell.Value) = Trim(cell2.Value) Then w.Sheets("Galal").Cells(cell2.Row, c).Value = w.Sheets("Sheet2").Cells(cell.Row, colNum).Value w.Sheets("Galal").Cells(cell2.Row, c).Interior.Color = RGB(255, 255, 153) matched = True Exit For End If Next cell2 End If Next cell If matched Then MsgBox "تم الترحيل بنجاح!", vbInformation Else MsgBox "لم يتم العثور على أي رقم جلوس مطابق!", vbExclamation End If End Sub الملف غياب1.xlsm

وعليكم السلام ورحمة الله وبركاته ,, لم تحدد التقرير الذي تريده ان يكون النتيجة للفلترة أخي الكريم ..

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

شكراً للإفادة

لايقبل ذلك لان الموقع محمي و يطلب تسجيل الدخول و يطلب رمز التحقق

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

و أنتم بخير . جرب الكود التالي في الملف الأول 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 = "ملف 1" Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With Application.FileDialog(msoFileDialogFilePicker) .Title = "اختر ملف Excel كمصدر للبيانات" .Filters.Clear: .Filters.Add "Excel Files", "*.xls; *.xlsx; *.xlsb" If .Show <> -1 Then MsgBox "لم يتم اختيار أي ملف", vbExclamation: Exit Sub FilePath = .SelectedItems(1) End With Set Wb1 = Workbooks.Open(FilePath) Set Wb2 = ThisWorkbook On Error Resume Next Set WSdata = Wb1.Sheets(WSname) Set WSdest = Wb2.Sheets(WSname) On Error GoTo 0 If WSdata Is Nothing Or WSdest Is Nothing Then MsgBox "لم يتم العثور على ورقة العمل", vbCritical Wb1.Close False Exit Sub End If ' تحديد النطاق من F9 إلى S609 Set OnRng = WSdata.Range("F9:S609") WSdest.Cells.UnMerge WSdest.Range("F9:S609").ClearContents ' مسح النطاق المحدد فقط OnRng.Copy With WSdest.Range("F9") .PasteSpecial xlPasteFormulas .PasteSpecial xlPasteFormats End With Application.CutCopyMode = False Application.Goto WSdest.Range("F9"), True Wb1.Close False Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True MsgBox "تم نسخ البيانات بنجاح", vbInformation End Sub

Sub dahmour() Dim w As Workbook Dim L As String Dim r1 As Long, r2 As Long, c As Long Dim cell As Range, cell2 As Range Set w = ActiveWorkbook L = w.Sheets("Sheet2").[d2].Value If L <> "" Then r1 = w.Sheets("Sheet2").Cells(Rows.Count, 3).End(xlUp).Row r2 = w.Sheets("حصر الغياب").Cells(Rows.Count, 1).End(xlUp).Row c = w.Sheets("حصر الغياب").Range("E7:Z7").Find(L, LookAt:=xlWhole).Column For Each cell In w.Sheets("Sheet2").Range("a11:a" & r1) For Each cell2 In w.Sheets("حصر الغياب").Range("D8:D" & r2) If cell2.Value = cell.Value Then w.Sheets("حصر الغياب").Cells(cell2.Row, c) = w.Sheets("Sheet2").Cells(cell.Row, [k4]).Value Exit For End If Next cell2 Next cell End If End Sub يوجد خطا في هذ السطر c = w.Sheets("حصر الغياب").Range("E7:Z7").Find(L, LookAt:=xlWhole).Column مرفق ملف غياب.xlsm

كل عام و انتم بخير بمناسبة العام الهجرى الجديد مطلوب ضبط معادلة نسخ درجات فقط من مستند book2 و لصقها إلى مستند book1 فتح book1 ثم الضغط على نسخ و ان يبدا اللصق بداية من خلية f9 حتى خلية 609 s نسخ درجات فقط.rar

وعليكم السلام ... شكرا استاذ عبد الله

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

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

هل من مجيبمتابعة القضايا.rar تفضل ياخي مع خالص شكري مقدما

ما شاء الله تبارك الرحمن ... تقبل الله وجعله في موازين حسناتكم 🙂🌹 عندي بعض المقترحات التحسينية : 1- تفعيل التنقل بين الآيات والسور عن طريق الكيبورد . 2- تمكين البحث والنسخ للآيات . 3- حبذا لو تضاف طريقة لإظهار الآيات الخاصة بالسورة كلها في الصفحة وليس آية آية .. ( تضاف كخيار إضافي للشكل الحالي )>> وهذه يمكن تحقيقها عن طريق عرضها كتقرير في النموذج القرعي وليس كنموذج لكي تلائم السجلات حجم كل آية . تمنياتي لكم بالتوفيق 🙂

احتاج يجمع المعدات ويجمع الساعات حسب كل مشروع

#دورات_2025_2026 #منتجع_التدريب_الدولى #ITR_Center بسم الله الرحمن الرحيم يتشرف منتجع التدريب الدولي ITR بتقديم دورات فى الذكاء الاصطناعي التى سوف تعقد خلال العام 2025 &2026 يمكنكم التسجيل او الاستفسارعلى الدورة الان ......................... يحصل المتدرب على شهادة معتمدة من منتجع التدريب الدولي + شهادة جامعة كامبردج البريطانية للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ نخبـــة : التدريــــب mob & what’s app : 002 01278655999 Email. training@itregy.com Website: www.itregy.com ولكم جزيل الشكر والإحترام أماكن الإنعقاد : القاهرة – دبـــــي – جده – الرياض – شرم الشيخ – اسطنبول – ماليزيا – طوكيو - الاسكندرية …………………………… دورة إتقان الذكاء الاصطناعي التوليدي (GenAI) التعلّم الافتراضي دورة التسويق الالكتروني بالذكاء الاصطناعي دورة توظيف الذكاء الإصطناعى فى التسويق دورة حوكمة الذكاء الاصطناعي دورة شهادة في علم البيانات التعلّم الافتراضي دورة شهادة في علم البيانات دورة الأخصائي المعتمد في الذكاء الإصطناعي دورة إتقان الذكاء الاصطناعي التوليدي (GenAI) دورة شهادة في الجودة والإنتاجية وتحسين التكلفة باستخدام الذكاء الاصطناعي دورة التعلّم الآلي والنماذج التنبؤية التعلّم الافتراضي دورة لتعلّم الآلي والنماذج التنبؤية دورة تمكين الموارد البشرية من خلال الذكاء الاصطناعي (AI) للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ نخبـــة : التدريــــب mob & what’s app : 002 01278655999 Email. training@itregy.com Website: www.itregy.com ولكم جزيل الشكر والإحترام كما يعقد منتجع التدريب الدولي “ITR” دورات فى شتى المجالات ولجميع الجهات والهيئات الحكومية والخاصة حسب ما يناسب طبيعة العمل ( دورات الإدارة والقيادة - دورات الموارد البشرية والتدريب - دورات الجودة والأنتاجية - دورات المشتريات والمخازن اللوجستية - دورات إدارة الإمن - دورات السلامة والصحة والبيئة - دورات التسويق والمبيعات وخدمة العملاء - دورات الأعلام والعلاقات العامة - دورات المحاسبة والخدمات المالية - دورات القانون والعقود - دورات البنوك والخدمات المالية - دورات التخطيط وإدارة المشروعات - دورات التأمينات - دورات النفط والغاز - دورات التجارة الخارجية ودراسة الجدوي - دورات تخطيط أعمال الصيانة - دورات الهندسة المدنية وأعمال البناء - دورات الطاقة الكهربائية - دورات الجمارك والموانيء - دورات هندسة التعدين والتنقيب - دورات الخدمات الطبية - دورات السكرتارية وإدارة المكاتب ) ………………………………. إسلوب إعداد البرنامج التدريبى : المحاضرات: ينفذ الدورات مجموعة من الخبراء المتخصصون في مجالات التدريب المختلفة المادة العلمية: وهي مكتوبة على شرائح تعليمية باستخدام برنامج Power Point كوسائل مساعدة الحالات والتطبيقات العملية الحوارات والنقاشات الموجهة تمثيل ولعب الادوار ورش العمل ومشاركة المتدربين نموذج استطلاع الراي قاعات التدريب بفنادق 5 نجوم تناول الوجبات الخفيفة والمشروبات اثناء البرنامج ………………………………………… يوفر منتجع التدريب الدولي مزايا كثيرة ضمن برنامج الدورات التدريبية تتضمن : * خصومات خاصة للمجموعات * خصومات خاصة للتسجيل المبكر * الدورات التدريبية تنفذ باللغتين : العربية أو الإنجليزية حسب تفضيلكم * القاعة التدريبية على مستوى فندقي 5 نجوم * خصومات في العديد من الفنادق و تسهيلات في السكن * وغيرها من المزايا ......... * الشهادات : يحصل المتدرب على شهادة معتمده دوليا من منتجع التدريب الدولي وشهادة من جامعة كامبردج البريطانية لمزيد من المعلومات عن الدورات والمحتوى العلمى والتكلفة والمواعيد يرجى التواصل على الارقام الاتية للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ نخبـــة : التدريــــب mob & what’s app : 002 01278655999 Email. training@itregy.com Website: www.itregy.com ولكم جزيل الشكر والإحترام