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

بانتظار النتيجة واتمنى ارفاق لقطة شاشة حية من التجربة مع رأيكم من واقع التجربة تجربة شيقة.zip

فهلا يجب اضافة مرفق حتى يكون الحل نهائي

Sub Print6() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Name = "Sheet1" Or ws.Name = "Sheet2" Or ws.Name = "Sheet3" Then ws.Range("A1:K" & ws.Cells(Rows.Count, "B").End(xlUp).Row).PrintOut End If Next End Sub

تفضل التعديل ترجمه.accdb

انشاء مجلد واحد او العديد من المجلدات دفعة واحدة CreateMultiFolders.mdb

وعليكم السلام ورحمة الله تعالى وبركاته غير الكود التى فى الموديول تبعا للشرح الاتى Function RunSub() Dim fso As Object Dim fldrname As String Dim fldrpath As String Dim MyFile, DstFile As String Dim Syso As Object Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\Backup" If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) MyFile ="***" & "\" & "db.accdb" DstFile = CurrentProject.Path & "\Backup\Backup-" & Format(Now, "mm-yyyy") & ".accdb" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing DoCmd.RunCommand acCmdExit End Function غير ال *** ل اسم الجهاز السيرفر او IP حق الجهاز السيرفر على ان يكون بهذا الشكل مثلا... \\192.168.1.3 فيكون السطر بهذا الشكل بعد التعديل MyFile ="\\192.168.1.3" & "\" & "db.accdb" وفى حالة اسم الجهاز يكون بعذا الشكل MyFile ="\\servername" & "\" & "db.accdb"

نعم يصلح ولكن انتبه جيدا للتعديلات !!!!!!

جميييييييلة جدا جدا ... تسلم الايادي عملت الاتي .... وعطني رايك اذا تكرمت ... لازلت تلميذ في مدرستكم ونتعلم منكم asd.accdb

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

اتفضل ان شاء تجد الالية هنا ان لم تتمكن من الفهم او التطبيق كرما وفضلا وليس امر ارفق قاعدتك ليتم عمل الازم Multi Filters.mdb

ايه الحلاوه دي باش مهندس

ادارج صورة ادراج مربع نص وتحطه بالمكان اللي تبيه ( تسوي مربعات نص حسب حاجتك وتحطها بالمكان اللي تحتاجها فيها ) بالورد نفس الطريقة وبالورد فيه طريقة اجمل تسوي مربعات النص ، وتسوي البيانات في ملف اكسل وتربط بينهم عن طريق دمج المراسلات بالوورد وتجي البيانات لشكل الي في الصورة

ما شاء الله روووووووووووعة

يظهر انى حضرت متأخر ابداع ولا اروع بشمهندس محمد دائما تأتى بكل جميل ورائع جزاك الله كل خير

😂😂😂 ربي يحفظك يا @ابا جودى مفاجأة ولا على البال .. 😄 أشكرك أستاذي العزيز دائما تتحفنا بالجميل والرائع والنوادر .. 🌹 بس سؤال أستاذي العزيز : هل يحتاج نعمل إعدادات خاصة لتطبيق هذا المثال على برامجنا ؟

وعليكم السلام ورحمة الله وبركاته ضع هذه المعادله في الخليه a3 وغير العامود كما تريد =HYPERLINK(A100,"Go")

انت الاجمل اتفضل يا استاذ @Moosak جزاكم الله خيرا لتلبية دعوتى اتمنى لا تتفزع من هذا المرفق 😄 Moosak.accdb

فكرة جديدة لاحتساب تاريخ نهاية الصلاحية بدون بدون حتى كتابة تاريخ الصلاحية داخل الجدول ExpirationDate.mdb

على حسب ما فهمت انك بتكتب يوم الاستحقاق وعندما يأتي ذالك اليوم تريد ان يكتب لك مستحق اذا كان هذا ما تريده تفضل قمت بأضافه معادله لتاريخ اليوم وحينما يكون تاريخ اليوم يساوي الرقم الذي تقوم بكتابته مكان تاريخ الاستحقاق يكتب مستحق اقساط.xlsx

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

Try This file Hashem.xlsx

لا أعلم اذا كان هذا المطلوب Tekrar.xlsx

لعل هذا ما تريد moukarar.xlsx

تفضل تم التعديل حسب رغبتك لطباعة التقرير اضغط ctrl+P بطاقات2.rar

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

السلام عليكم. هذا اخي جزء من قاعدة بيانات Northwind النموذجية والذي يخص ما تريد. والله الموفق. Northwind.rar

وطريقة استعمالها مثل الدالة mround التي تحدث عنها أخي يحيى masround(122,25)

مشكور أخي يحيى وتكملة للمشوار ولهذا الغرض قمت بتصميم هذه الدالة للإخوة الذين يستعملون نسخ سابقة عن أوفيس 2007 و 2010 Function masround(n As Double, m As Double) As Double masround = IIf(n - m * (n \ m) >= m / 2, m * (n \ m + 1), m * (n \ m)) End Function وكل عام أنتم بخير

شكرا أخي يحيى سبقتني إليها على العموم هذه هديتي لصاحب الموضوع Private Sub Workbook_Open() Select Case Application.Version Case Is = "10.0" MsgBox "you are using Office Xp" Case Is = "11.0" MsgBox "you are using Office 2003" Case Is = "12.0" MsgBox "you are using Office 2007" Case Is = "14.0" MsgBox "you are using Office 2010" End Select End Sub

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

أخي الكريم الملف المرفوع من الأخ khhanna يؤدي الغرض في إصدرارات الأوفيس قبل 2007 أما في أوفيس 2007 و 2010 فلا يوجد طريقة لتعطيل زر النسخ أو القص في الريبون إلا من خلال ملف xml وهو أيضا يمكن تعديله بواسطة مستخدم متقدم لأوفيس 2007 أو 2010 للعلم أخي khhanna يينقص الملف الخاص بك ماكرو يسمى CutCopyPasteDisabled وينبغي أن يكون هذا مفاده Sub CutCopyPasteDisabled() MsgBox "عذرا تم تعطيل عملية القص أو النسخ أو اللصق" End Sub

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

شكرا لك أخي الكريم ويكون أفضل لو أرفقت الملف في المشاركة وليس في موقع خارجي

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

شكرا لك أخ أمير ولكن يبدو أنك لم تتابع معي هذا الموضوع http://www.officena.net/ib/index.php?showtopic=29526