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

بسم الله الرحمن الرحيم الاخوة الكرام السلام عليكم ورحمة الله وبركاته احياناً وبعد انهاء البرنامج نحتاج الى تغيير الوان نماذج البرنامج اما كتغيير او تحديث او ... الخ فقمت بتصميم شىء بسيط ممكن ان نسميه Themes الفكرة ببساطة اننا نقوم بانشاء جدول يتكون من اسم Theme وثلاث حقول يتم فيه وضع الوان FormHeader و FormFooter و Detail وفي النموذج الرئيسي للبرنامج نقوم باختيار Theme فيتم وضع هذا الاختيار في متغيير ويتم تطبيق هذه Theme على كافة النماذج بعد وضع كود عند التحميل كما يوجد نموذج باسم frmThemes يمكننا من خلاله التحكم باسم Theme والوان FormHeader و FormFooter و Detail لتغيير الالوان في نموذج frmThemes اضغط DblClick على مربع النص الذي تريد تغيير لونه لتظهر قائمة الالوان البرنامج يمكن تطويره اكثر ليعمل على TextBox و Command كما يمكن ان يشمل التقارير لذلك فأرجو من الله ان ينتفع به كل طالب علم لا اطيل عليكم مرفق البرنامج بسنختين mdb و accdb DB_Themes-accdb.rar DB_Themes1-mdb.rar تحياتي

السلام عليكم تفضل اخي العزيز اعلمنا النتائج test.rar

أخى حلبي جرب المرفق عسى أن أكون فهمت ما تقصد New Microsoft Access Database.accdb

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

لتبديل القيمة الإفتراضية إلى تاريخ تجعل الكود هذا مع مراعاة نوع الحقل: Dim x As Date x = Date CurrentProject.Connection.Execute "ALTER TABLE tblORQA1 ALTER [h] date DEFAULT " & x DoCmd.Close DoCmd.OpenForm "FASASE" لتبديل القيمة الإفتراضية إلى نص تجعل الكود هذا: Dim x As String x = "officena" CurrentProject.Connection.Execute "ALTER TABLE tblORQA1 ALTER [c] string DEFAULT " & x DoCmd.Close DoCmd.OpenForm "FASASE" أخي المثال واضح و يعمل بشكل جيد

اخي العزيز يمكن اخفاءة من الخصائص ( بيانات - السماح بعملية تحرير قوائم القيم - اجعله- لا) وشكرا

من بيانات السماح بعمليات تحرير قوائم القيم اجعل القيمة لا وهنا حل بدون استخدام متغير (i) If Command2.Caption = "Open" Then Me.D1.SetFocus Me.D1.Dropdown Command2.Caption = "Close" Else Me.D1.Requery Command2.Caption = "Open" End If

السلام عليكم اخي محمد هل هذا هو المطلوب؟ test.accdb

تفضل مع التنتسيق الشرطي sal_test 2.xlsx

باستخدام كود اذا رغبت 111.xlsx 111.xlsm

السلام عليكم حبيت اعمل مشاركة بسيطة وياكم بعض اكواد VBA لكل من يبي يعمل واجهة نظامية تحياتي ADO.rar

السلام عليكم ورحمة الله وبركاته ،، استكمالا لموضوع الاستاذ حسين فى هذه المشاركة الخاص بتغيير الالوان فى الاكسس .. جزاه الله كل خير فرأيت ان افرد مشاركة لهذا الموضوع ارجو ان تتقبلوه منى هدية لكم اولا : مرفق ملف PDF به كل الالوان ورقمها يمكنك فقط وضع الرقم فى خصائص الحقل او الخلفية او عن طريق الكود وسيعطى لك اللون المطلوب Access Color Code.pdf ثانياً: لو اخترنا مثلا اللون الفسفورى مثل ما ذكر حبيبنا استاذ حسين بارك الله فيه فنجد ان اللون الفسفورى يكتب فى الكود بالرقم التالي txt_RGB.BackColor = RGB(191, 255, 0) وفى خصائص النموذج تجده هكذا #BFFF00 ومرفق مثال تطبيقى بسيط وقد تم وضع رقم اللون الفسفورى فى خصائص الخلفية وايضا تم وضع حقل لتغيير الخلفية له عن طريق الكود M.S - RGB 24-11-2019.rar

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

السلام عليكم عندي ملف اكسل للطلاب غياب الشيت الاول به الغياب اليومي (( الشيت متغير يوميا او اسبوعيا ) ) تتم اضافته نبيه يبحث عن الطالب في الشيت الثاني ويحط الغياب في غياب واحد واذا كان فيه قيمة غياب 1 يتقل للعمود الثاني غياب 2 .....وهكذا قد يتكرر اسم الطالب اذا كان الغياب اسبوعي في الشيت الاول ارجوا المساعدة مشكورين تسجيل الغياب.rar

السلام عليكم اخى الفاضل يفضل وضع الحقول المحسوبه او المستخرج نتائج منها بالاستعلامات اتفضل ان شاء الله يكون ما تريد فى الجدول + استعلام تقبل تحياتى وتمنياتى لك و للجميع بالتوفيق طبتم واهتديتم نتيجه_1.accdb

هذه ليست مشكلة أنا وضعت مثالا للتوضيح فقط قم بتغيير كلمة أوفيسنا باسم مربع النص لديك Me.h

أخي الكريم @sandanet حسب علمي هناك طريقتن للتعديل على قواعد البيانات إحداهما الطريقة التي تفضلت بها أنت و الطريقة الثانية هي باستخدام أوامر sql و قد تناولت موضوعين شرحت فيهم هذه الدوال: في المثال الذي تقدم به السائل لدينا هذا السطر أو أمر سكيول هو الذي يقوم بكل شيء: ALTER TABLE tblORQA1 ALTER [h] date DEFAULT " & x فالأمر Alter يسمح لنا بالتعديل على الجدول و Alter الثانية تعطينا إمكانية التعديل على الحقل الموجود في هذا الجدول

اخي الكريم يبدو ان المثال الذي ارفقته غير واضح .. لذلك ارفقت لك مثال من مكتبتي يمكنك الاستفاده منه تحياتي تغيير القيمة الافتراضية برمجياً.mdb

شاهد هذا الفيديو https://www.youtube.com/watch?v=UCiqBgdGFSs

فقط استخدم هذه المعادلة =IF([@[تاريخ اول تعيين]]="","",(TODAY()-[@[تاريخ اول تعيين]])/365) 1معلومات الكادر.xlsm

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

جرب هذا الملف sal_test 1.xlsx

السلام عليكم لا أعتقد أن إيجاد النسبة الإجمالية ممكن مباشرة، لا أرى أي مشكلة في حساب هذه النسبة بهذه الطريقة... راجع الملف المرفق... بن علية حاجي نسبة إجمالية.xlsx

فورم بحث وتسجيل البيانات فى اى سطر تختاره الفيديو

وعليكم السلام 🙂 لا اعتقد بأن الكمبيوتر يقدر يحدث كل ثانية ، وخصوصا اذا كان لابتوب !! فنيا ، التحديث معناه ان يرسل الاكسس طلب التحديث الى المعالج CPU لعمل التحديث ، فيأخذ هذا الامر دوره في طابور ، والاولوية لأوامر الوندوز (نعم الواسطة موجودة حتى في الكمبيوتر 🙂) ، والى ان يتم تسجيل طلب هذا الامر على الهاردسك ، وبعدها يأخذ المعالج CPU الامر التالي ، وعليه قد تكون الثانية انتهت 🙂 لهذا السبب ولجعل برنامج الاكسس يعمل اسرع ، فانا انصح ان يتم وضعه على هارددسك غير عن الهارددسك الذي عليه نظام الوندوز ، نعم هارددسك غير ، وليس Partition غير ، والافضل ان يكون على هارددسك SSD 🙂 وكل هذا عن تجربة 🙂 زيد وقت التحديث شوي ، وهذا الرابط قد يفيدك : جعفر

بمعنى هو المطلوب أم لا !! 😊

انا بخدمتك استاذي

أستاذ Sera ألم تلاحظ ما كتبته لك بكل دقة -قلت لك تم التعديل على الملف السابق لأنى دائما لا اريد اجابات كثيرة فى المشاركة حتى لا تشتت من يدخل مستقبلا على هذه المشاركات فدائما اضع الإجابات المطلوبة فقط واقوم بحذف الباقى

السلام عليكم حاولت احسن من ملفك اتمنى تجربة التعديلات او بإمكانك استخدام طريقتك بإنشاء صفحات متعدده اختار مايحلو لك وبخصوص التقارير بالامكان استخراج تقارير متعدده اعطني تفاصيل للتقارير وسيتم التعديل الموجود في المرفق فورم للتقارير عام من اعمال الاستاذ الجليل والقدير خبور خير حفظه الله ورعاه عدلت عليه تعديلات بسيطه امل انا تفيدك في ملفك في امان الله برنامج المعتمرين _A1.xlsm

تفضل اخي العزيز ارجو ان يكون طلبك asd.rar

إلى السيد hamed12345 كلمة المرور هي : 1992

اخى ابو اسيل-بعد اذن استاذنا حسين فى اعتقادى ان مشكلتك الأن قد توضحت وتبينت وهى ربما قمت بلصق هذا الملف داخل تسطيب الأوفيس فى جهازك ,ويكمن حل هذه المشكلة فى الأتى : عليك بالدخول الى بارتشن c ثم بعد ذلك الدخول الى Programe Files (X86) ثم الذهاب الى Microsoft Office ثم Office 14 واخيراً عليك بفتح فولدر اسمه XLSTART ستجد هذا الملف به عليك بحذفه

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

ربما كان المطلوب Trakiyat.xlsx

فتح الله عليك وزادك الله من فضله

بارك الله فيك استاذ مجدى وزادك الله من فضله

وعليكم السلام-تفضل قائمة منسدلة 1مطاطية.xlsx

الف مبروك لنا ولهم الاستاذ @محمد ابوعبد الله قادم بقوة وردوده وتفاعله يدل على معرفة وخبرة تؤهله بجدارة الاستاذ @sandanet غني عن التعريف ومن الاساتذة الكبار في الموقع وتعلمت منه الكثير ويستحق اللقب بجدارة اسال الله لنا ولهم التوفيق والسداد

تفضل بعد اذن استاذنا الكبير سليم-يمكنك استخدام هذه المعادلة =IFERROR(VLOOKUP($A10,'Exchange Rate'!$A$2:$B$1000,2,0),"") Employee Expense Report new1.XLSX

او هكذا يستبدل الملف ماتم سابقاً Private Sub Copy_Filtr(wb As Workbook, ws As Worksheet, Rng As Range, Optional sFile As String) Dim Pth, My_Pth Dim N_Book As Workbook Pth = ActiveWorkbook.Path & Application.PathSeparator My_Pth = Pth & sFile Set N_Book = Workbooks.Add wb.Sheets(ws.Name).Range(Rng.Address).Copy With N_Book With .Sheets(1) .Range("a1").PasteSpecial (xlPasteAll) .UsedRange.Columns.AutoFit End With Application.DisplayAlerts = False .SaveAs FileName:=My_Pth & ".xlsx" .Close Application.DisplayAlerts = True End With End Sub Sub My_Fl() With ActiveWorkbook.ActiveSheet Dim lRow, Cl, On_R Cl = Split(.UsedRange.Address, "$")(3) On_R = Split(.UsedRange.Address, "$")(1) & "1:": lRow = Split(.UsedRange.Address, "$")(4) With .Range(On_R & Cl & lRow) Copy_Filtr ActiveWorkbook, ActiveSheet, .SpecialCells(xlCellTypeVisible), "My_Filtr3" End With End With End Sub

وعليكم السلام ورحمة الله وبركاته لا يوجد أى إشكال إلا في اختلاف نسخة الأكسس بين 32 بت و 64 بت والأمر لا يتعدى سوى بعض الفروق البسيطة كوضع كلمة (Ptrsafe) بعد (Decolar) أو استبدال (Long) بـ (LongPtr) فى بعض الأحيان ولعل الإشكالية لديك أبعد من هذا هلا وضعت لنا بعض الرسائل التي تظهر لك لعل مفادها غير ما تظن

وعليكم السلام اخى الكريم كان عليك استخدام خاصيو البحث بالمنتدى فهناك العديد من المشاركات التى تناولت هذه الجزئية ومنها https://www.officena.net/ib/topic/80018-عمل-الشهادات-المدرسيه-1/ https://www.officena.net/ib/topic/13593-برنامج-طباعة-الشهادات-المدرسية-الاعدادية-برنامج-جاهز/ وهناك أيضا مواقع خارجية وفيديوهات شرح لنفس الأمر ومنها : https://learnvbamsexcel.blogspot.com/2018/01/blog-post_8.html https://www.youtube.com/watch?v=aMI3of-h0fc https://www.youtube.com/watch?v=2jdZTyyvNmY https://www.youtube.com/watch?v=dZlYiqMoTxs وتفضل هذان ايضا برنامجان لطباعة الشهادات برنامج طباعة الشهادات المدرسية.rar دمج المراسلات &طباعة الشهادات المدرسية.xlsm

طبعا بعد اذن الأستاذ عماد تم التعديل عل الكود لكى يعمل على العمود الثانى مثلا -وهناك صورة توضيحية لك للتعديل على الكود بنفسك على اى عمود تريده بارك الله فيك رسالة تنبيه عند تغير الوقت.xlsm

بارك الله فيكم جميعا والحمد لله الذى بنعمته تتم الصالحات

تفضل فاتورة جديدة__.xlsm

أهلا بك فى المنتدى تفضل يمكنك التحميل من هذا الرابط https://www.softpedia.com/get/Office-tools/Other-Office-Tools/Excel-Image-Assistant.shtml

كيف تجعل القائمة المنسدلة تحدد لك القسم الذي تريده من الجدول مع عدة خيارات : 1- من البداية حتى اسم معين في الجدول 2-من اسم معين حتى نهاية الجدول 3- بين اسمين في الجدول عسى ان ينال الاعجاب special_data_validation.rar

السلام عليكم ورحمة الله وبركاته اعزائي عند طباعة ورقة الاسئلة الانكليزية واجهت مشكلة بسيطة وهي انني لا اعرف كيفية كتابة الفاصلة أو الـ apostrophe في الوورد الصورة توضح ما أبحث عنه http://im69.gulfup.com/KwsnoQ.jpg ارجو حلاً ~ شكراً جزيلاً لكم .

اخواني في المنتدى اذا كان لديك سجل بأسماء التلاميذ (او العملاء) و تريد ان تفرزه بشكل منظم اليك هذا الملف فرز حسب الصفوف.rar

يمكن عمل ذلك باختيار الشيت ثم طباعته و يكون الاختيار باسم الشيت كما فى الكود الاول أو رقمه كما فى الكود الثاني و هما لطباعة الثلاث شيتات فى الملف أما الكود الاخير فهو لطباعة جميع أوراق العمل مع ملاحظة أن يكون فى الورقة أي بيان قابل للطباعة ( ليست خالية ) Sub Print3Sheets() ActiveWorkbook.Worksheets("sheet1").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ActiveWorkbook.Worksheets("sheet2").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ActiveWorkbook.Worksheets("sheet3").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub Sub Print3Sheets2() ActiveWorkbook.Worksheets(1).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ActiveWorkbook.Worksheets(2).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ActiveWorkbook.Worksheets(3).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub Sub PrintAllsheets() For i = 1 To ActiveWorkbook.Worksheets.Count ActiveWorkbook.Worksheets(i).Activate ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next End Sub PrintSheets2.rar