كل الانشطه

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

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

<<جبتها لك بالنص>> ************************************** السبب في ظهور كلمة "محذوف" (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