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

بسم الله الرحمن الرحيم الاخوة الكرام السلام عليكم ورحمة الله وبركاته احياناً وبعد انهاء البرنامج نحتاج الى تغيير الوان نماذج البرنامج اما كتغيير او تحديث او ... الخ فقمت بتصميم شىء بسيط ممكن ان نسميه 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

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

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

وعليكم السلام ورحمة الله وبركاته بالنسبة للطلب الاول ستضع في الاستعلام المبني عليه التقرير هذا المعيار في حقل rank و حق rank 2 Like "*" & [Forms]![Test]![Rank] & "*" Like "*" & [Forms]![Test]![Rank 2] & "*" النسبة للطلب الثاني نفس الفكرة ايضاً ستضع في الاستعلام المبني عليه التقرير هذا المعيار في حقل التاريخ [Forms]![Test2]![XDate] تحياتي

مع انك لم تذكر هل هناك رسالة خطا وماهي ؟ ولكن جرب االتالي : 1. تاكد انه يوجد مفتاح اساسي ... هذا دائما يحل مشاكل الربط مع الاس كيو ال 2. غير السطر اعلاه الى : تحياتنا

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

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

استاذي العزيز صالح هل يمكن ان تضع لنا مثال جميل يوضح الفكرة جيداً

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

جرب هذا الماكرو ربما يفي بالغرض Set ws = Sheets("الهدف") Dim lr, lr2, X Dim CH As Range Set CH = ws.Range("o2") Dim SH As Worksheet lr2 = 11 Application.ScreenUpdating = False ws.Range("c11:e11").ClearContents For Each SH In Sheets If SH.Name = "الهدف" Then GoTo 1 lr = SH.Range("c" & Rows.Count).End(xlUp).Row For X = 5 To lr If CH = SH.Cells(X, "c") Then ws.[d5] = SH.Name ws.[c7] = SH.Cells(X, "b") ws.Range("c" & lr2).Value = SH.Cells(X, "a").Value ws.Range("d" & lr2).Resize(1, 2).Value = SH.Cells(X, "c").Resize(1, 2).Value lr2 = lr2 + 1 End If Next X 1: Next SH Application.ScreenUpdating = True End Sub

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

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

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

تفضل Suivi des Créances1.xlsx

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

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

فورم بحث واضافة فى انحاء الصفحة بصندوق بحث فيديو 3 الفيديو

بارك الله فيك وزادك الله من فضله ورحم الله والديك

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

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

تفضل المطلوب بالمعادلات لعله يفي الغرض 111.xlsx

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

بعد شرح أخى جعفر زاده الله علما فلا مجال للحديث .. ولكنى أحببت المشاركة من أجل المشاركة 😊 ضع ملف الإكسيل فى نفس مسار قاعدة البيانات بنفس المسمى 01.xlsx وجرب المرفق وستكون النتيجة بجدول إسمه Nom .. عسى أن يكون المطلوب بالتوفيق ImpotrFromExcel.accdb

وعليكم السلام الخطأ كان منك انت فى المعادلة-تم ضبط معادلات جميع صفحات الملف الاجازة2.xlsx

بارك الله فيك اخي الكريم فقط احذف المعيار التالي من الاستعلام [forms]![Data01]![ItemBarcode] prov - Copy.rar تحياتي

تفضل المثال بعد اضافة النموذج prov - Copy.rar تحياتي

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

السلام عليكم استخدم هذا الكود Private Sub Copy_Filtr(wb As Workbook, ws As Worksheet, Rng As Range, Optional sFile As String) Dim Pth Dim N_Book As Workbook Pth = ActiveWorkbook.Path & Application.PathSeparator If IsFile(Pth & sFile & ".xlsx") Then MsgBox "الملف موجود مسبقاً بنفس الاسم" & vbCrLf & "اعد المحاولة بأسم اخر" Exit Sub End If 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 .SaveAs FileName:=Pth & sFile & ".xlsx" .Close End With End Sub Private Function IsFile(ByVal fName As String) As Boolean If Dir(fName, vbDirectory) <> vbNullString Then IsFile = True Else IsFile = False End If End Function Sub My_Fl() Application.DisplayAlerts = False 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) فى بعض الأحيان ولعل الإشكالية لديك أبعد من هذا هلا وضعت لنا بعض الرسائل التي تظهر لك لعل مفادها غير ما تظن

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

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

أهلا بك اخى الكريم فى المنتدى الفاضل -تفضل 2.xlsm

أهلا بك اخى الكريم فى المنتدى نورت بين اخوانك تفضل 22.xlsx

معظم هذه الأدوات تكون فى اغلب الأحيان بمقابل

تفضل لك ما طلبت فاتورة جديدة__.xlsm

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

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

السلام عليكم مرفق ملف انا جمعت فيه اغلب طرق الترحيل المعروفة و ارجوا ان تستفاد منه وشكرا Trans. Zima.zip

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

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

يمكن عمل ذلك باختيار الشيت ثم طباعته و يكون الاختيار باسم الشيت كما فى الكود الاول أو رقمه كما فى الكود الثاني و هما لطباعة الثلاث شيتات فى الملف أما الكود الاخير فهو لطباعة جميع أوراق العمل مع ملاحظة أن يكون فى الورقة أي بيان قابل للطباعة ( ليست خالية ) 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