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

تفضل النبطشيه.xlsx

جرب هذا الملف Max_Min.xls

وعليكم السلام-اهلا بك فى المنتدى -تفضل لك ما طلبت ويمكنك بإظهار الفورم فقط دون اظهار ملف الإكسيل وذلك بوضع هذا الكود فى حدث ThisWorkBook Private Sub Workbook_Open() Application.Visible = False UserForm1.Show End Sub Userform.xlsm

اسف اخي خالد لم ارى اجابتك .... بارك الله فيك

السلام عليكم نوع مصدر الصف للكومبوبوكس يكون اما (قائمة الحقول) او (قائمة القيم) او (جدول/ استعلام) تجدها من خصائص الحقل - بيانات - نوع مصدر الصف اتفضل حسب فهمي لسؤالك اتمنى يكون المطلوب Database12.rar

السلام عليكم 🙂 شكرا اخوي خالد ، وياريت تكمل القائمة ، وبالتفصيل بدل الايجاز ، فالمعلومة يجب ان تصل واضحة 🙂 هذه ملاحظاتي على ملاحظاتك جعفر

شرح ع قد حالى قمنا باستدعاء المكتبه كما بالصوره والرقم 16 يتغير على حسب الاوفيس لديك ثم On Error Resume Next Dim f As FileDialog Set f = Application.FileDialog(msoFileDialogFilePicker) f.Show Me.IMG = f.SelectedItems(1) Me.Image64 = Me.IMG قمنا بعمل متغير لفتح مربع الحوار f والذى تم تعريفه بالمكتبه السابقه ثم قمنا باسناد قيمه للمتغير f تساوى قيمه فايل ثم جعلنا حقل الباث يساوى المتغير ثم عرضنا الصوره واليك رابط للاستفاده ويوجد العديد من الشروحات القيمه هنا بالموقع ابحث عنها https://analystcave.com/vba-application-filedialog-select-file/ بالتوفيق اخى

وعليكم السلام اتفضل ان شاء الله يكون ما تريد FAILURE.accdb

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

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

الحقيقة انك ماقصرت جزاك الله كل خير رقم 2 هذا ماقصدته شرطه سفلية وليس علامة ناقص رقم 3 هو ما اردت قوله رقم 4 في الاستعلام سقطت سهوا والسن له احكام اللهم احسن خاتمتي وكل من يقرأ رقم 8 جزاك الله خير فقط اطنبت فافهمت وانا اوجزت فانقصت وهنا استكمل ما سقط مني سهوا يجب ان يحتوي كل جدول على حقل مفتاح اساسي حتى لو كان الجدول غير مرتبط بعلاقة مع جدول اخر او لو كان الجدول تابعا لاخر الترقيم التلقائي مطلوب كرقم فريد للسجلات ولكني افضل عدم استخدامه كاساس لرقم الموظف او رقم الفاتورة الخ استخدام العلاقات بشكل صحيح يؤدي الى عدم تكرار البيانات سهولة الادخال والتحديث والتكامل المرجعي

جرب هذا الماكرو Sub CopyFiltered1() Dim src As Worksheet Dim tgt As Worksheet Set src = ThisWorkbook.Sheets("data") Set tgt = ThisWorkbook.Sheets("Sheet2") src.AutoFilter.Range.Offset(1, 1).Resize(, 5).Copy tgt.Range("B5") End Sub mounir.xlsm

وبقية النصائح !! لازم اكتب قائمتي هنا ، واكتب مشاكل الاعضاء اللي صادفها 🙂 الحمدلله ، مشكلة واحدة وطاحت عنك ، شد حيلك في مراعات بقية الامور اللي بكتبها على قائمتي ان شاء الله 🙂 جعفر

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

جزاك الله خيرا اخى واستاذى @محمد أبوعبدالله 💐 احسنت بالاستغناء عن المكتبه

بالاضافة الى ما تفضل به استاذنا الفاضل @الفلاحجى وله الشكر تفضل اخي الكريم Private Sub Command65_Click() With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Add "Pic Files", "*.jpg ; *.bmp" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then Me.IMG = .SelectedItems(1) End If End With End Sub FAILURE.rar تحياتي

بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم من جديد موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، ألا وهي جميع مفاتيح اختصارات الإكسل 2003 و 2007 و 2010 و 2013 و 2016 excel keyboard shortcuts فتابعونا. جميع مفاتيح اختصارات الإكسل 2003 و 2007 و 2010 و 2013 و 2016 و 2019 و 365 excel keyboard shortcuts الحمد لله الذي وفقنا في جمع وترتيب وتبويب جميع مفاتيح اختصارات الإكسل 2003 و 2007 و 2010 و 2013 و 2016 excel keyboard shortcuts مع توضيح فئة الاختصار ووصف عمله والمفتاح أو المفاتيح التي تقوم بهذا الإجراء ونتعرف أيضا على: أمثلة لكل اختصار وربطه مع باقي مفاتيح الاختصار والآن مع الجدول الذي يضم جميع مفاتيح اختصارات الإكسل 2003 و 2007 و 2010 و 2013 و 2016 excel keyboard shortcuts وهذا ملف Pdf يضم جميع مفاتيح اختصارات الإكسل 2003 و 2007 و 2010 و 2013 و 2016 excel keyboard shortcuts لمن يريد الاحتفاظ به وهذا الفيديو لنفس الغرض يمكن عمل إيقاف مؤقت Pause عند القراءة ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك ولا تنس تقييم المنشور

السلام عليكم ورحمة الله ربما Lab يرمز الى Label و Lab.Caption يقصد بها ان العنوان الذى سوف يظهر على Label يكون هو النص او القيمة المكتوبة فى الصف ii و العمود 3

بارك الله لك

تفضل -------->>>> account walid.accdb

تفضل تم التعديل على الملف السابق طبقاً لطلباتك الجديدة فمن فضلك بعد كده لابد من شرح طلباتك كاملة من أول مرة

بعد اذن اخي الرائد تم ادراج صفين الى البيانات لتفادي الخلايا المدمجة( الصف رقم 2 والصف رقم 4 (الصفوف مخفية) Nabatshi.xlsx

تفضل اخي الكريم New Microsoft Access Database.rar تحياتي

وعليكم السلام-تم تعديل المعادلة كما تريد ... كما تم تقييد الإدخال بعمود الكمية Y على حسب نوع السيارة كما تم عمل قوائم منسدلة للأعمدة الضرورية فى العمل حتى تتجنب اى خطأ عند الكتابة , فقط عليك الإختيار من القوائم 07272431.xlsm

ابايوسف جربت الكود اكثر من 10 مرات لم تواجهني هذه المشكلة

تفضل أخي الكريم ..... Database12.accdb

ممكن توضح اكثر .... او ارفق مثال مبسط لما تريد !!!!

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

وعليكم السلام ورحمة الله وبركاته العلاقات هي ربط بين الجداول مع بعضها وذلك بواسطة حقل المفتاح الاساسي Primary key فى الجدول الأول مع حقل آخر فى الجدول الثانى يسمى مفتاح أجنبي Foreign Key انواع علاقات الجداول 1- علاقة رأس بأطراف 2- علاقة أطراف بأطراف 3- علاقة رأس برأس لديك جدول ABC المفتاح الاساسي 3 حقول A,B,C لذلك فهو ليس احد انواع العلاقات الثلاث تحياتي

عبدالفتاح في بي اكسيل الف الف الف شكر الكود شغال الف في المية وزي ما كنت حابب الله يحفظك ويسعدك الف شكر استاذ والله العظيم دورت لتعبت بس مالقيت شي جزاك الله خير استاذ وربي يجعلها في ميزان حسناتك مليون ترليون شكر عبدالفتاح في بي اكسيل الف شكر 😊😊

مرفق الملف بعد التعديل المطلوب وبالتوفيقhamed 2.xls

رجاء الانتباه !! وبسبب سرية التواقيع ، فإذا قمت بتصدير التقرير الى ملف pdf ، فأي شخص يحصل على هذا الملف يستطيع ان ينسخ هذه صورة التوقيع الى كمبيوتره !! جرب التالي بالمثال المرفق: اعمل تصدير للتقرير الى صيغة pdf . وفي اي برنامج قارئ لملفات pdf ، افتح الملف ، وبالنقرة اليمين تستطيع ان تأخذ نسخة من الصورة . فلا تصدر التقرير الى pdf ، اذا كنت مهتم بسرية التوقيع 🙂 جعفر 1233.test_Report_pdf_image.mdb.zip

هذة رسائل تحذير عند تنفيذ استعلام ويمكن اخفائها بالامر قبل تنفيذ الاستعلام DoCmd.SetWarnings False وبعد تنفيذه نعيد تفعيل رسائل التحذير بالامر DoCmd.SetWarnings true وفي برنامج اخينا الفاضل عبداللطيف لم يستخدم الاكواد وانما الماكرو فيمكن عملها بالدخول على الماكرو ثم قبل تنفيذ الاستعلام في سلسلة اجراءات الماكرو نظيف اجراء setwarning تشغيل التحذير : لا واذا لم نجد الامر ضمن قائمة الاجراءات نذهب الى شريط الادوات ونختار اضهار كافة الاجراءات تحياتي

هههههه كلامك صحيح ارفاق ملف يسهل ايجاد الحل احسنت استاذ @محمد أبوعبدالله نرجع للموضوع في انتظار مشاركة استاذنا الفاضل @jjafferr لدي بعض النصائح تجنب استخدام اللغة العربية في اسماء الحقول وكذلك اسماء كائنات القاعدة نجنب الاسماء المركبة واذا استخدمتها قبل الجزء الثاني من اسم الحقل او الكائن ضع _ بدلا من مفتاح المسافة اذا كانت حقول الجدول كثيرة يمكن تقسيم الجدول وانشاء علاقة راس براس الاصدارات الحديث من اكسس تسمح باجراء عمليات حسابية في الجدول مع ذلك استخدام العمليات الحسابية في النموذج افضل من استخدامها في الجدول اذا كنت تستخدم اكسس بواجهه عربية عند اضافة مربع نص او زر امر لا تكتفي بتغيير اسمه فقط الى اللغة الانجليزية بل قم ايضا بتغيير تسمية العنصر ايضا الى اللغة الانجليزية تجنب استخدام كلمات عربية في الاكواد عند حذف زر امر من النموذج قم اول بحذف الكود ثم قم بحذف زر الامر تجنب استخدام حقول محسوبة في الاستعلام مبنية على حقول محسوبة اخرى في نفس الاستعلام وبالامكان استخدام اكثر من استعلام لتنفيذ ذلك عند كتابة اكواد طويلة بالامكان وضع نص توضيحي لسهولة المراجعة لاحقا بالنسبة للاكواد المكررة بالامكان كتابتها مره واحدة واستدعائها عند الحاجة بدلا من تكرار كتابتها لا تزال توجد نصائح ولكن العرب قالت البلاغة الايجاز

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

في الاستعلام غير تاريخ الانتاج = PDate الى تاريخ اليوم Date() انظر الاستعلام Query2 Database4.rar تحياتي

تفضل اخي الكريم عدد الايام المتبقية: DateDiff("d";Date();[EDate]) Database4.rar تحياتي

وعليكم السلام ورحمة الله وبركاته يوجد موديول يقوم بهذه العملية سواء في الاستعلامات او في النماذج Option Compare Database Option Explicit Function CalcAgeY(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAgeY = vYears End Function Function CalcAgeM(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAgeM = vMonths End Function Function CalcAgeD(vDate1 As Date, vdate2 As Date) As String Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If Day(vDate1) = 31 Then vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) - 1 If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAgeD = vDays End Function اليوم - الشهر - السنة D : CalcAgeD([PDate];[EDate]) M : CalcAgeM([PDate];[EDate]) Y : CalcAgeY([PDate];[EDate]) Database4.rar تحياتي

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

لا ورطتك ولا شيئ انا متبرع بالزوجة والاشارة كافضل اجابة للعمدة @jjafferr

وهذا نفس الكود بدون استعلام أخي أستاذ @jjafferr ومنكم اقتبسنا الكود 1232.From_Excel_to_Access.accdb.zip

حياك الله

حياك الله ... بالتوفيق

توزيع الطلبة على الفصول بالدوال والمعادلات 1 - ضع أسماء الطلبة 2 - ارقام الفصول 3 - ضع 1 أمام الطالب 2 أمام الطالبة 4 - اختر الصف الدراسى من القائمة 5 - اضغط زر الترتيب ( ترتيب حسب النوع / الاسم / الفصل ) المخرجات 1 - كشف لكل فصل ( البنون فى عمود ، والبنات فى عمود ) 2 - كشف لكل فصل ( البنون ثم البنات ) ملحوظة لا تغير الخلايا الملونة المنـــــاداة.rar

اللهم انى اسالك ان ترد لنا الاستاذ الكبير خبور خير سالماً غانماً امين يارب العالمين

ماذا اذا اردنا ان يكون التوزيع البنين أولاً ثم البنات بمعنى ان يكون اسماء الاولاد فى الأول ثم اسماء البنات

تسلم أخي الحبيب خبور الحقيقة أن كل ملف تقدمه عبارة عن درس جديد أتعلم منه و أستمتع بالغوص في أكواده و دراستها الله يفتح عليك بالعلم أكثر و أكثر

السلام عليكم الملف الثاني هو نفس آلية عمل الملف الاول ما عدى انه يوضع الكشوفات في نفس الملف في صفحة جديدة تسمى MyShClass لا يتم تكرارها اثناء الاعادة انما يتم حذفها واعادة اضافتها من جديد توزيع على الفصول م2.rar

الاخ الحبيب/ معتصم محمد __________حفظه الله الاخ الحبيب/ عبد الله المجرب__________حفظه الله الاخ الحبيب/ نادر__________حفظه الله الاخ الحبيب/ ياسر الحافظ__________حفظه الله الاخ الحبيب/ محمدي __________حفظه الله الاخ الحبيب/ كيماس__________حفظه الله الاخ الحبيب/ قصي __________حفظه الله الاخ الحبيب/ khhanna__________حفظه الله جزاكم الله خيراً تقبلوا تحياتي وشكري خبور خير

الأستاذ / عبدالله كل عام وانت باتم صحة وخير رمضان كر يم الملف في غاية الجمال ويدل على مهارة وخبرة منفذه بارك الله فيك جزاك الله خيراً على مجهودك الكبير في هذا المنتدى