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

طيب اتفضل هذي اضافة بسيطبة بحيث تكون النسخة الاحتياطية داخل مجلد مستقل 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 = CurrentProject.Path & "\" & "autoBackup_be.mdb" DstFile = CurrentProject.Path & "\Backup\Backup-" & Format(Now, "dd-mm-yyyy") & ".mdb" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbNewLine & "اسم قاعدة البيانات" & vbNewLine & "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & DstFile, vbMsgBoxRight + vbOKOnly, "emphasis" & "/" & "تاكيد"

ربما هذا يفيدك .... copy.accdb

ماهو اسم قاعدة البيانات ؟؟ Dim MyFile, DstFile As String Dim Syso As Object MyFile = CurrentProject.Path & "\" & "autoBackup_be.mdb" DstFile = CurrentProject.Path & "\Backup-" & Format(Now, "dd-mm-yyyy") & ".mdb" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing الصق هذا الكود في ازرار النسخة الاحتياطية لكن تأكد من الاسم و الصيغة قبل البدء

تفضل Dim MyFile, DstFile As String Dim Syso As Object MyFile = "مسار قاعدة البيانات البعيدة التي تريد انشاء نسخة احتياطية منها" DstFile = CurrentProject.Path & "\Backup-" & Format(Now, "dd-mm-yyyy") & ".mdb" ' هنا اسم قاعدة البيانات الجديدة DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing

تفضل هذا التعديل شامل لكل ما طلبت سوف تتمكن من اختيار الجداول التي ترغب في افراغ البيانات منها الرقم السري داخل الكود لإفراغ البيانات 123 T2t2.accdb

وعليكم السلام ورحمة الله وللاكاته افضل اخي الكريم If DCount("[invoice]", "[Table1]", "[invoice] =" & Me.qty) > 0 Then MsgBox "رقم الفاتورة مكرر" End If تحياتي

يمكنك استعمال هذا الكود textbox1.value = sheets("ليذجر").cells(rows.count,5).end(xlup).value بالتوفيق

تفضل هذا التعديل ارجوا ان يفي بالغرض T2t2.accdb

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

هذا التعديل الاول استبدل الكود بالتالي و لا تنسى اضافة اسماء الجداول في الاستثناء If Me.txtPassWord = "123" Then Dim Msg As String Msg = MsgBox("كلمة المرور صحيحه" & vbNewLine & "" & vbNewLine & " هل تريد بالتأكيدحذف جميع البيانات ؟", vbYesNo, "انتبه") If Msg = vbYes Then MsgBox "جارى حذف جميع البيانات الان", vbInformation, "اعلام" On Error GoTo Error_TruncateTables Dim db As DAO.Database Dim TDF As DAO.TableDef Dim strSQL_DELETE As String Set db = CurrentDb() For Each TDF In db.TableDefs If Left(TDF.Name, 4) <> "MSys" Then If TDF.Name <> "اسم الجدول الأول" Or TDF.Name <> "اسم الجدول الثاني" Then strSQL_DELETE = "DELETE FROM " & TDF.Name & ";" db.Execute strSQL_DELETE End If End If Next MsgBox "تم حذف جميع البيانات فى الجداول", vbCritical, "تنبيه" db.Close Exit_Error_TruncateTables: Set TDF = Nothing Set db = Nothing Exit Sub Error_TruncateTables: Select Case Err.Number Case 3376 Resume Next Case 3270 Resume Next Case Else MsgBox Err.Number & ": " & Err.Description Resume Exit_Error_TruncateTables End Select Else MsgBox "لن يتم اجراء حذف البيانات من قاعدة البيانات", vbInformation, "اعلام" End If Else MsgBox "كلمة المرور خطأ", vbInformation, "تنبيه" End If End Sub

تفضل هذا التعديل ولكن لا تنسى تعديل اصدار قاعدة البيانات لإنشاء نسخة احتياطية من قاعدة البيانات الحالية استخدم الكود التالي 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 = CurrentProject.FullName DstFile = CurrentProject.Path & "\Backup\Backup-" & Format(Now, "dd-mm-yyyy") & ".mdb" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing Name DstFile As DstFile & ".ptc" DBEngine.CompactDatabase DstFile & ".ptc", DstFile Kill DstFile & ".ptc" MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbNewLine & "اسم قاعدة البيانات" & vbNewLine & "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & DstFile, vbMsgBoxRight + vbOKOnly, "emphasis" & "/" & "تاكيد" لنسخ قاعدة بيانات في الخلفية او مختلف عن القاعدة الحالية استخدم التالي 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 = "مسار قاعدة البيانات البعيدة" DstFile = CurrentProject.Path & "\Backup\Backup-" & Format(Now, "dd-mm-yyyy") & ".mdb" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbNewLine & "اسم قاعدة البيانات" & vbNewLine & "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & DstFile, vbMsgBoxRight + vbOKOnly, "emphasis" & "/" & "تاكيد"

تفضل هذا ملفك بعد إضافة الكود وتعديل أسماء الشيتات من المسافات الزائدة وتعديل الأعمدة التي سيتم الترحيل لها حيث كان بها خلايا في الأسفل (مكتوب فيها) تمنع من دقة معرفة آخر صف مكتوب فيه بالتوفيق البرنامج 1-1.xlsm

لا أدري إن كان المقصود ب حفظها كملف pdf أن لكل طالب ملفا أم طباعة جميع التقارير في ملف pdf واحد على العموم قام أخي @د.كاف ياربالمقصود الأول وهذا الاحتمال الثاني طباعة جميع التقارير في ملف واحد باسم محتوى الخلية H1 للعلم تم تعديل معادلة البحث للاعتماد على رقم المسلسل لجلب بيانات الطالب نكتب مسلسله في الخلية F1 بالتوفيق تقرير الطلاب pdf.xlsm

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

جزاك الله خيرا استاذ محمد

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

تفضل اخي الكريم جرب التعديل واخبرنا بالنتيجة test.rar

تفضل هذا التعديل لهذه الجزئية T2t2.accdb

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

شكرا لحضرتك

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

السلام عليكم في نموذج بأسم stock اريد ايجاد حاصل جمع خانة القيمة وهو في هذا المثال 56300 قمت بعمل مربع نص لجمع خانة القيمة لكن يظهر خطأ لا اعرف سببه Documents.rar

احسنت استاذنا العزيز @kanoryبالحقيقة لم يخطر في بالي بكتابة اسم السبفوم من داخله وهذه اول مرة ارى فيه تلك الحالة .. بالعادة نستدعي اسم السبفورم من النموذج الرئيس وليس من داخله السلام عليكم استاذ حسين ماذا يمثل هذا النموذج؟ بالحقيقة نموذج غريب..كيف يمكن ادخال السجلات؟

المشكلة في هذا السطر في حدث بعد تحديث مربع النص Me.TextBox2 = Application.VLookup(Val(Me.TextBox1), Sheets("cod").Range("c5:e5000"), 2, 0) حيث يتم البحث حتى صف 5000 والرقم المطلوب في الصف 7152 لذلك يلزمك زيادة صف النهاية إلى 10000 مثلا

ايسر الطرق و اسهلها ان تجعل رقم الطالب و كود الترم كلتها مفتاح اساسي اي ان الطالب لن يتكرر في الترم الواحد

ربما تكون مشكلة في الصلاحيات وخصوصا إذا كان مجلد تثبيت xampp في قرص النظام C أو يكون برنامج آخر يستعمل المنفذ 80 الخاص ب أباتشي لذلك أنصح بإعادة تثبيت البرنامج واختيار بارتيشن آخر غير سي كحل أول

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

شكرا لكم والف شكر وجزاكم الله خيرا تمام استاذنا هذا هو المطلوب

اها فهمت قصدك اتفضل هذا التعديل فقط اضغط على الحقل الذي تريده و سكون الادخال فيه الارقام.accdb

إن شاء الله تصل إليها وتستعملها بسهولة وهذه مشاركتي في عمل لوحة أرقام للبرنامج (للعلم لم أطلع على أي مرفق لمن سبقوني من الأصدقاء في الحل) حيث أن التاريخ يتم إدخاله من date piker فلا حاجة لكتابة حقل التاريخ ولا الشرطة المائلة بالتوفيق mas_numpad.accdb

كلامي عن الخطأ في المشاركة الأولى لك وبالنسبة لتعديل المعادلة جرب هذه =If(MOD(A1,B1)=0,B1,MOD(A1,B1)) بالتوفيق

بعد إذن صديقي بن علية طبعا تفضل أخي الكريم هذه فكرتي في تنفيذ المطلوب في شيت 2 ولكن أنصح بوضع الرقم الأكبر 10 تحت خانة الطول والرقم الأصغر 8 تحت خانة العرض حتى تحصل على أفضل النتائج بالتوفيق mas_cut_draw.xlsb

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

أستاذ مصطفى الفارس لماذا لا أرى اى ضغط على الإعجاب لكل هذه الإجابات ؟!!!💙

مفيش هدية منك تحدد إجابتي كأفضل إجابة عشان تكون مرجع للبحث عند الباحثين وعشان أزيد نقطة .. يا خي بلاش بخل تقبل تحياتي

أشكر جميع الإخوة على المرور وأعدكم بسلسلة لتعليم أوفيس 2007 إن رغبتم ذلك كل عام أنتم بخير

بسم الله الرحمن الرحيم إخوتي في الله سلام الله عليكم ورحمته وبركاته بالنسبة للدالة المستخدمة في ملفي taqseet2 هي دالة FLOOR تستعمل في تقريب رقم لأسفل، باتجاه الصفر، إلى أقرب رقم مضاعف معنوي. بناء الجملة (FLOOR(number,significance Number (الرقم) القيمة الرقمية التي تريد تقريبها. Significance (الرقم المضاعف) المضاعف الذي تريد تقريبه. ملاحظات إذا كانت إحدى الوسيطتين غير رقمية، ترجع FLOOR القيمة الخطأ #VALUE!. إذا كان لكل من number وsignificance لهما إشارات مختلفة، ترجع FLOOR قيمة الخطأ #NUM!. بصرف النظر عن إشارة الرقم، فيتم تقريب القيمة لأسفل عند تعديلها بعيداً عن الصفر. فإذا كانت number عبارة عن مطابقة الرقم بمضاعفات الأرقام المعنوية، فلا يحدث تقريب. فبالنسبة للطريقة الأولى تجد في الخلية d2 المبلغ المراد تقسيطه وتجد في الخلية d5 عدد الأقساط وتجد في الخلية d3 هذه المعادلة =D2-FLOOR(D2/2;D5) وتعني أنها تساوي المبلغ - تقريب ناتج قسمة المبلغ على 2 (النصف ) إلى أقرب عدد الأقساط بمعنى أن نصف المبلغ وليكن 833 هو 416.5 والدالة تقربه لأسفل إلى أقرب رقم يقبل القسمة على عدد الأقساط (4) وأقرب رقم يقبل القسمة على 4 لأسفل من الرقم 416.5 هو 416 ثم نأتي لعملية الطرح 833-416=417 فيكون هذا هو قيمة القسط الأول والباقي 416 مقسم على 4 أقساط كل قسط =416/4 يساوي 104 وهكذا مع تغير المبلغ وتغير عدد الأقساط وأعتقد أنكم يمكنكم تفسير باقي المعادلات في باقي الطرق وإلا فأنا مبعرفش أشرح تحياتي للجميع MAS

أشكر أخي خالد على مروره وكلماته الرقيقة وأشكر أخي بوعمر رغم أني كنت متوقع أنك من المستخدمين لأوفيس 2007 نصيحة أخرى كنا نحفظ اختصارات لوحة المفاتيح في الأوفيس السابق وكثيرا ما نريد الوصول السريع للأمر ولكننا نفشل أو نصل للأمر المطلوب بعد كثير من الخطوات *** الآن في أوفيس 2007 يمكنك الضغط على زر alt لتجد صورة مثل هذه وفي الصورة السابقة تجد كل حرف يميز التبويب الخاص به فإذا ضغطت على حرف h والذي يخص التبويب home ستجد هذه الصورة أيضا فإذا أردت مثلا فتح قائمة الخطوط اضغط ff وهذه تعني المجموعة font لأن كل تبويب مقسم إلى مجموعات وكل مجموعة مقسمة إلى أوامر ثم بعد اختيار المجموعة اخترت font والذي هو نوع الخط إذا لتفتح قائمة الخطوط من لوحة المفاتيح تضغط alt+h+ff أتمنى أن تكون نصيحة سريعة ومفيدة وهكذا أتمنى من الإخوة من يعلم شيئا يخبر الجميع به ملحوظة الصور من أوفيس 2010 ولكن الفكرة واحدة بإذن الله أخوكم محمد صالح

أخي الكريم الموضوع أولا وأخيرا يرجع لشخصية الإنسان من حيث كونه مغامر ومتطلع وباحث أم أنه يتبع القول : " اللي تعرفه أحسن من اللي متعرفوش" أنا شخصيا استعمل أوفيس 2010 ورغم أنه نسخة تجريبية technical preview ولكني مؤمن بأن شركة عظمى في مجال البرمجيات وتمتلك فريق عمل لا يوجد مثله في العالم مثل ميكروسوفت ستخرج على العالم بنسخة تكون أقل شأنا من سابقتها ولذا انصحك باستخدام كل ما هو حديث والصبر على العلم ويوجد حكمة تقول : "الإنسان عدو ما يجهل" بمعنى أنه إذا صعب عليه شيء قال أنه غير جيد رغم أنه من الممكن أن يكون العيب فيه وأولا وأخيرا هذا مجرد رأي ولكل منا رأيه الخاص فلا حجر على رأي أحد ولا أطالب الآخرين بالتبعية الفكرية فأنا أكره التبعية الفكرية جدا تحياتي أخوك محمد صالح

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

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

بعض ما عندكم أخي أيسم أسعدني مرورك كل عام أنتم بخير

ولا يهمك يا أخي المهم يكون هو ده المطلوب

تفضل أخي زورو المطلوب في صورة دالة Book1.rar