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

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

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

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

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

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

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

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

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

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

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

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

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

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

السلام عليكم النسبة 51% هي الصحيحة (في الأصل النسبة هي بالتقريب 51.35%) ... لانها تمثل نسبة المبالغ المنجزة إلى المبلغ الاجمالي لكل الاعمال...

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

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

شكرا بارك الله فيكم وصلت للمطلوب بعد شرح الاساتدة

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

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

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

وعليكم السلام-يمكنك تجربة هذا كيف اجعل صفحة اكسل تتحول لصفحة نت تفاعلية في موقعي وهنا ايضا كيفية ربط جداول ومخططات إكسل ببرنامج بوربوينت كيف تربط جداول ومخططات إكسل ببرنامج بوربوينت

بعد اذن استاذنا ابو اسيل -فقط عليك استخدام هذه المعادلة لتحقيق طلبك =SUMIF($C$2:$C$6,"<>"&"مفصول",$D$2:$D$6)

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

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

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

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

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

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

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

وعليكم السلام-تفضل طريقة تصميم فورم بحث عن طريق لست بوكس5.xlsm

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

طالما انك لم تقم برفع ملف فكان لزاما عليك استخدام خاصية البحث بالمنتدى -تفضل https://www.officena.net/ib/topic/98272-مطلوب-كود-زر-يقوم-بمسج-الصف-او-السجل-المحدد-من-الليست-بوكس-listbox/ ولكن لابد فى المرات القادمة رفع ملف مدعوم بشرح كافى ووافى عن المطلوب

ورسالتك احلى إعجاب حصلت عليه اليوم 🙂 شكرا لك اخوي احمد 🙂 جعفر تسلم اخى واستاذى ادام الله الود والموده بيننا جميعا وجزاكم الله خيرا وممكن بعد استاذى جعفر استخدام داله IIf =IIf(IsNull([x1]);"";Nz(DSum("[mone]";"table1";"[client]='" & [x2] & "' and [id]<>" & [x1]);0)) تقبل تحياتى وتمنياتى للجميع بالتوفيق طبتم واهتديتم

او هكذا يستبدل الملف ماتم سابقاً 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

الف شكر اخ على

وعليكم السلام-تفضل لك ما طلبت مواقيت 2الصلاة.xlsm

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

قد يكون هذا صعبا ولكن يمكنك تجربة هذا الرابط https://www.ifcmarkets.net/market-data/forex-prices/usdtry

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

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