نجوم المشاركات

Manage relationships and keys إدارة العلاقات و المفاتيح. • برنامج الأكسيس هو نظام إدارة قواعد البيانات العلائقية • العلاقات بين الجداول تستخدم في هذا النظام للحفاظ على التكاملية في البيانات و لتقليل الحاجة لتخزين بيانات مكررة. ----------------------- تأتي فاعلية نظام قاعدة البيانات العلائقية من القدرة على العثور على المعلومات المخزنة في جداول منفصلة بسرعة وتجميعها معا باستخدام الاستعلامات. لكي يتم ذلك، يجب أن يحتوي كل جدول على حقل أو مجموعة حقول تقوم بتعريف كل سجل مخزن في الجدول بشكل فريد. و تسمى هذه المعلومة المفتاح الأساسي Primary Key للجدول. متى قمت بتعيين مفتاحا أساسيا لحقل في الجدول، يمنع Access إدخال أي قيم مكررة أو قيم خالية Null في الحقول التي يعين لها مفتاح الأساسي. ------------------------------------------------ --------------------------- حمل ملف البوربوينت: https://www.dropbox.com/s/u8hdkgeygvqbwev/Lesson12.ppsx?dl=0 -------------------------- حمل ملف Pdf: https://www.dropbox.com/s/piexajja08wuln2/Lesson12.pdf?dl=0

إخوانى الأعزاء أساتذتى وعمالقة هذا المنتدى العظيم أحببت أن أشارك معكم بموضوع بسيط بطريقة سلسة وهو طريقة حساب العمر بالتفصيل أرجوا أن ينال رضاكم Age Calculator.rar

اخواني الافاضل / عندما قمت بالمشاركة في منتداكم هذا كنت على يقين انه منتدى تعليمي لكني فوجئت اليوم بأحد اﻷعضاء يسمى emanabd بعرض 3 مواضيع اعلانات لبرامج حسابية ليست مجانية ؟؟ وسؤالي هل يسمح بالترويج لسلع وبرامج وما إلى ذلك داخل المنتدى؟ إذا كان الجواب بلا فأين اﻹدارة من ذلك؟؟ اعتذر لكم اذا كان منتداكم للبيع والتجارة مة خلال العلم

جميل جداً

أخي ..توصلت للحل ..قل الحمد لله اطرح حلك لربما يأتي سائل ويكون طلبه مشابه لطلبك فتكون قد أفدت غيرك تقبل تحياتي

لم أرى مشاركتك أنك توصلت للحل .. ولم توضح أي الحلول الذي أقدمت عليه حتى تفيد غيرك فيما بعد تقبل تحياتي ولا تنسى أن تحدد المشاركة التي أعجبتك كأفضل إجابة

الأخ الفاضل أبو عاصم تفصل الملف المرفق (ومتنساش تحدد مشاركتي كأفضل إجابة ..دا إذا مكانش يضايقك طبعاً ..) Transpose Data YasserKhalil V2.rar

شرح رائع ومفيد للجميع جزاك الله كل الخير

عمل جميل ورائع بارك لله بجهودك وجزاك الله خيراً

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

السلام عليكم ورحمة الله حل آخر (في الحقيقة حلين) في الملف المرفق... بالمعادلات.. أخوك بن علية المرفق : Fractions_1.rar

لو عاوزها معادلات فقط في الصفحة Sales Report الخلية B2 قم بوضع المعادلة =INDEX($A$1:$A$100000,MATCH(0,INDEX(COUNTIF($B$1:B1,$A$1:$A$100000),0,0),0)) وقم بسحبها في باقي العمود B للسطر الذي تريده المهم البداية من b2 وبعد ذلك استخدم العمود b في data validation بكتابة المعادلة =OFFSET('Sales Report'!$B$1,0,,COUNTA('Sales Report'!$B:$B),-1) فطبعا حتظهر الليست بدون التكرار ملحوظة عدد الاسطر في العمود a كبير جدا فبالتالي المعادلة حتكون a1:a100000 مثلا مما يجعل الملف ثقيل جدا في عمله في حين ان الموضوع اتحل بالاكواد بمنتهي البساطة والملف كان خفيف عموما جرب هذا الحل واتمني يكون ما طلبته ولا شكر علي واجب فكلنا اخوة في الله ومساعدة كل منا الاخر واجب محتم قدر المستطاع بالتوفيق

أدرك تماما الهدف من الموضوع ولكن الشىء بالشىء يذكر وأكيد فيه كتير من الناس ما تعرفش يعنى ايه Regedit.exe فالحديث عنه هنا قد يفيد شخص ما يوما ما تقبل تحياتى

أى أعمدة تريد البحث عن علاقة بها وممكن تذكرلى علاقة واحدة على سبيل المثال

الأستاذ نايف السلام عليكم ورحمة الله وبركاته أيه أخبار البرنامج معاك شكلك مبسوط منه بدليل أنك لعبت عليه وكل ملفاتك أصبحت تتكلم ودى حاجة كويسة سيب الملفات تتكلم وتقول رأيها أخى الحبيب : نفذ الخطوات التالية -اقفل الاكسل -فائمة ستارت -اختر الأمر run الامر run يمكن الوصول اليه من لوحة المفاتيح مباشرة زر الويندوز + حرف R اكنب Regedit.exe -اضغط OK -اختر على التوالى HKEY_CURRENT_USER Software Microsoft Office 12.0 أو 14.0 حسب الموجود Excel Options دوبل كليك عليها سوف تظهر نافذة المحرر الخاص بالأوفيس -اضغط"SpeakOnEnter" فى النافذة اليمين مرتين تظهر نافذة غير القيمة التى فيها الى صفر -اقفل محرر الريجسترى افتح أى ملف اكسل مش البرنامج وجرب من جديد نصيحة عليك ببرنامج الدفريز أو التجميد يريحك من حاجات كتير تقبل أسفى على أن برنامجى سبب لك بعض الضيق كل التحية والتقدير لشخصكم الكريم أخوك مختار

هذا نموذج عما تريده ؟؟؟ ربح او خسارة.rar

جرب المرفق اتمني يكون هذا تنفيذ لفكرتك ولكن بطريقة اخري 1.rar

السلام عليكم بعد إذن أخي الغالي سليم تفضل الكود التالي (تعديلا علي الكود الذي أرسلته) يتم تفعيل الكود بالضغط علي الزر بعد تغيير الخليتين الحمراوين Sub FilterData() Dim jobs As String, cycl As String jobs = [B1].Value: cycl = [I1].Value On Error Resume Next ActiveSheet.AutoFilterMode = False With [B3:O999] .AutoFilter Field:=13, Criteria1:=cycl .AutoFilter Field:=14, Criteria1:=jobs End With End Sub تفضل الملف أيضا عمل SORT بناء على إختيارين.rar

فرحة عارمة ^^ اخى واستاذى ياسر خليل بجد مش عارف اقولك ايه بفضل ربنا ثم بفضلك انت بالتحديد قربت اخلص العمل اللى شغال عليه الحمد لله هى دى النتيجى المطلوبة بس لو ممكن تعديل الكود ليتم تطبيقه على كامل الاعمدة (A-B-C) عشان حضرتك عارف انا شغال ع شيت مرتبات فعايز اطبق الكود على الاعمدة المطلوبة وانا فاهم ان هيبقى فيه عمودين مساعدين (الاجمالى - الهدف) وهراعى ده ان شاء الله فى انتظارك

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

اخي العزيز المشاغب 301 يحب عليك الدخول كمسؤول و ثم اضافة الاوراق المطلوبة و بعدها يتم اضافة أسم الاوراق في المكان المخصص لها في العامود Q ثم اذهب للشخص المطلوب و ضع له صلاحية للصفحة الجديدة و اعمل حفظ ادخل مرة اخري بالشخص المطلوب و سوف تظخر لك الصفحة أن شاء الله لفتح صفحة المعلومات Alt F11 اختر الصفحة Login اعمل لها اظهار بعد ذلك لا تنسي ان تغلقها مرة اخري اتمني التوفيق لك

الأخ الحبيب والأستاذ الكبير بن عليه بارك الله فيك وجزاك الله خير الجزاء إثراءً للحل حيث أن الحل المقدم من قبلكم قد تم اقتراحه في بداية الأمر .. اقترحت على الأخ صلاح أن يقوم بإخفاء الصفوف ثم إعادة إظهارها مرة أخرى بعد الطباعة .. فلاحظت أنه لا يرغب في تلك الطريقة .. رغم بساطتها وفعاليتها عموما هذا حل آخر يعتمد على التصفية AutoFilter بحيث يتم تصفية الصفوف لتظهر الصفوف الغير فارغة فقط .. وبهذا يتحقق المطلوب أيضاً .. Sub PrintData() Application.ScreenUpdating = False With Sheet4 .AutoFilterMode = False .Range("D4:S5").AutoFilter Field:=1, Criteria1:="<>" ActiveWindow.SelectedSheets.PrintOut Copies:=1 Cells.AutoFilter End With Application.ScreenUpdating = True End Sub Hide Blank Rows Using AutoFilter.rar

أنا قدمت لك الحل المناسب بس إنت بتدور على حل آخر .. إذا لم يكن لديك حل فارضى بالحل الموجود إلى أن يتواجد غيره (حكمة اليوم)

أريد الصمت كي أحيا ... لكن الذي ألقاه ينطقني *أحمد مطر *

فرضا اننا سنرحل البيانات التي في العمود A و العمود B ابتدأ من السطر 4 الى الاعمدة D و E ابتدأ من السطر 4 ايضا يكون الكود كالتالي Sub TEST() Dim ObjCell As Range Dim n: n = 4 For Each ObjCell In Range("A4:A" & Cells(Rows.Count, "B").End(xlUp).Row).Cells Range("D" & n).Resize(3, 2).Value = ObjCell.Resize(1, 2).Value n = n + 3 Next: End Sub

عدت لأقول جزا الله صاحب الموضوع خاصة والقائمين على المنتدى واعضاءه عامة كل الخير وجعلها في ميزان حسناتهم جميعا.. كم نحن بحاجة ياسادة لمن يحمل هم الاخرين وانارة دروبهم بدون مقابل..

المشكلة ان عضويتي قصيرة بالمنتدى وخبرتي بالاكسس وتقييم المواضيع ليست بالجيدة ولكنني معكم والذي قد يستشكل علي سنتواصل فيه مع بقية الاعضاء المشتركين. من الليلة سأرتب اوقاتي لنصف ساعة مرتين اسبوعيا باذن الله اللهم اجعلها خالصة لوجهك الكريم ولا تشرك فيها احدا..

حياك الله اخي العزيز هذا الكود اكتبه الماكرو واتم اضافته او كيف جزاك الله خير جزاء المحسنين ووفقك الله اتفضل اخي الكريم هذا مثال يفي بالغرض انشالله AA.rar

Dim GrayLine As Boolean ' ضع هذا السطر في راس المحرر '.............................................. Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) If GrayLine = True Then Me.تفصيل.BackColor = 14933454 ' رمادي GrayLine = False Else Me.تفصيل.BackColor = 16777215 ' ابيض GrayLine = True End If End sub

السادة أعضاء المنتدي الكرام السلام عليكم و رحمة الله و بركاتة مرفق لكم ملف يعمل فلترة للبيانات عن طريق 1. وضع تاريخ بدء الفلترة و تحديد مدة الفلترة المطلوبة 2. بمعلومية الاسم و أي معلومة أخري 3. بمعلومية أي معلومتين 4. عن طريق السنة أو السنة و الشهر أتمني أن أكون قد وفقت في هذا الملف و يحوز رضاكم Auto-Filter.rar

السلام عليكم اليك المرفق بعد التعديل قرعة متعددة الاختيار.rar

في المثال المرفق : الشهادة النهائية للطالب وهي نموذج سريع مشابه للتقرير الاول وينقصها بعض اللمسات مثل المجموع الكلي ، والترتيب ، والنسبة ومثل رأس الشهادة اوما يسمى الكليشة وايضا التذييل ايضا هي بحاجة الى سطر يبين اسم المرحلة الجديدة التي انتقل اليها الطالب ويمكن ايضا وضع صورة الطالب في اعلى الشهادة كل واحدة مما ذكر يحتاج الى درس يخصه Drjat9.rar

تفضل أخى الحل بطريقتين 1- كود قم باختيار رقم الدورة من خلية C2 وسيتم تنفيذ الكود أتوماتيكياً 2-معادلات وشكرا تمرين آخر.rar

آسف ، ما جربت البرنامج كفاية الان تم تجربته بالكود التالي: Private Sub Command2_Click() On Error GoTo err_Command2_Click Dim ImportFileName As String ImportFileName = CurrentProject.Path & "\MyBackup\سجل الكتب" & ".xls" 'DoCmd.TransferSpreadsheet acImport, 8, "جدول تسجيل الكتب", ImportFileName, True DoCmd.DeleteObject acTable, "Temp" DoCmd.TransferSpreadsheet acImport, 8, "Temp", ImportFileName, True Dim fld As Field Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Temp") mySQL = "INSERT INTO [جدول تسجيل الكتب] ( title, [اسم المؤلف], [مكان النشر], الناشر, ملاحظات ) Select" For Each fld In rst.Fields i = i + 1 If i <> 1 Then mySQL = mySQL & " [" & fld.Name & "]," End If Next mySQL = Mid(mySQL, 1, Len(mySQL) - 1) & " From Temp" 'Debug.Print mySQL CurrentDb.Execute (mySQL) DoCmd.DeleteObject acTable, "Temp" MsgBox "Done" Exit Sub err_Command2_Click: If Err.Number = 7874 Then 'table Temp not found, ignore Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر جعفر

بارك الله فيك

ahmad 1111 كافة الصلاحيات hamoor 2222 محدودية الصلاحيات ----------------------------------------------------- الاخ onejan1977 بارك الله فيك الاخ abo_alaa بارك الله فيك الرابط يعمل زي الفل