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

Sub Test() Dim r As Long Application.ScreenUpdating = 0 For r = 5 To Cells(Rows.Count, "C").End(xlUp).Row If Cells(r, "C").Value <> "" Then If Cells(r, "F").Value <> "" And Cells(r, "G").Value = "" Then Cells(r, "G").Value = 0 End If If Cells(r, "F").Value = "" And Cells(r, "G").Value <> "" Then Cells(r, "F").Value = 0 End If End If Next r Application.ScreenUpdating = 1 End Sub

أهلا أخي أزهر .. يصلح تحط حتى صفر واحد 🙂 أهم شي مكان يتعرف عليه البرنامج على أنه مكان الأرقام .. والبرنامج بيواصل معاك الترقيم عادي حتى لو وصل مليون 😅 وأنا حطيت خمسة أصفار كمثال فقط عشان يطلع الترقيم بشكل جميل 🙂

تفضل أخي أبو عبدالله .. هذا الكود بعد التعديل : Private Sub Command8_Click() On Error Resume Next If Len(Dir(Me.path, vbDirectory)) > 0 Then FollowHyperlink (Me.path) ' Me.Command8.HyperlinkAddress = Trim(Me![path]) Else MsgBox "فولدر هذا اليوم غير موجود سوف يتم إنشاؤه تلقائيا", vbOKOnly, "تنبيه!" MkDir (Me.path) ' هذا السطر يجعل البرنامج يقوم بإنشاء الفولدر المفقود FollowHyperlink (Me.path) End If End Sub في حال تعذر وجود الملف يقوم البرنامج بإنشاء فولد جديد محل الفولدر المفقود . لإلغاء هذه الخاصية .. أحذف هذين السطرين من الكود وعدل الرسالة 🙂 MkDir (Me.path) ' هذا السطر يجعل البرنامج يقوم بإنشاء الفولدر المفقود FollowHyperlink (Me.path) ayam.rar

السلام عليكم أرجو أن يكون الحل مناسباً Mowazaf V.xlsm

السلام عليكم ورحمة الله جرب المرفق لعل فيه بعض ما تريد... تاريخ.rar

السلام عليكم ورحمة الله تعالى وبركاته الشرح الاتى لا يخص الأكسس بصفة خاصة ولكن لحماية حذف القاعدة او اى ملف داخل مجلد او المجلد الذى يحتوى قاعدة البيانات بالخطأ اولا نقوم بعمل مجلد جديد ونعطيه الاسم الذى نريد على سبيل المثال نضع مجلد جديد داخل القطاع D ونعطى المجلد اسم BackDB نقوم بتحديد المسار ونقوم بنسخه فيكون D:\Test\BackDB ولو كان اسم المجلد من مقطعين مثل Back DB سوف يكون المسار نسخ المسار الى ملف نصى ونقوم بتعديله ليكون D:\Test\Back_DB بعد ذلك نقوم بفتح موجه الاومر DOS ونقوم بكتابة او لصق الامر الاتى cacls D:\Test\BackDB /P everyone:n ولو اسم المجلد من مقطعين يكون cacls D:\Test\Back_DB /P everyone:n ثم نضغط على المقتاح Enter من لوحة المقاتيح ثم نضغط على المفتاح Y من لوحة المفاتيح كما هو موضح فى الصورة بعد ذلك نغلق موجه الاوامر DOS ونذهب الى المجلد ونقوم بالضغط عليه كليك يمين ونختار Properties تظهر لنا النافذة الاتية نحدد التبويب Security ثم نضغط بعد ذلك على Advanced كما هو موضع بالصورة ثم بعد ذلك تظهر لنا النافذة الاتية نقوم بالتحديد اولا كما هو فى الخطوة رقم 1 بالصورة ثم بعد ذلك كما هو بالخطوة رقم 2 نقوم بالضغط على Edit ثم بعد ذلك تظهر لنا النافذة الاتية نقوم بالضعط على Show Advanced Permissions ثم بعد ذلك تظهر لنا النافذة الاتية 1- فى الـ Type نختار Allow 2- فى اختيارات الـ Permissions نقوم بإزالة التأشير من على الاتى Delete Delete Subfolders and files لتصبح الاعدادت كما بالشكل الاتى ثم نضغط OK الان انسخ قاعدة البيانات داخل المجلد او اى ملفات تخاف من فقدانها جرب حذف الملفات لن يتم حذفها حاول حذف القاعدة كذلك لن يتم حذفها كذلك اقتح القاعدة واضف اليها بيانات او عدل او احذف منها اى بيانات سوف تعمل القاعدة بشكل طبيعى جدا لو اردت حذف المجلد او اى شئ بداخلة فقط استخدم الامر الاتى فى موجه اوامر الـ DOS cacls D:\Test\BackDB /P everyone:f وبعد حذف ما تريد يمكنك اعادة الخطوات ان اردت ارجاع الحماية مرة اخرى انتهى الشرح دمتم فى امان الله...

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

هلا والله بالغاليين 🙂 جعفر

استاذنا الغالى بارك الله فيك وبارك لك في ذريتك وجعله الله في ميزان حسناتك

السلام عليكم ورحمة الله وبركاته أرجو أن تنظر في هذا الحل توزيع التلاميذ على الفصول.xlsm

السلام عليكم أرجو أن يكون الحل مناسباً أخي الكريم حركة الخزينة -لعام 2021.xlsb

هي معادلة واحدة من أثنتين الفارق هو "," و ";" حسب اعدادات الكمبيوتر عندكاكواد.xlsx

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

E4=IFERROR(INDEX(ورقة1!$B$5:$B$32,MATCH(D26,ورقة1!$A$5:$A$32,0)),"") Or E4=IFERROR(INDEX(ورقة1!$B$5:$B$32;MATCH(D26;ورقة1!$A$5:$A$32;0));"") عليكم السلام ُُE4=IFERROR(VLOOKUP(D4,ورقة1!$A$5:$B$35,2,0),"") OR E4=IFERROR(VLOOKUP(D4;ورقة1!$A$5:$B$35;2;0);"") واسحب نزولا

وعليكم السلام ورحمة الله وبركاته .. اسم الفولدر مكتوب غلط .. مكتوب Satruday بدل Saturday

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

وعليكم السلام ورحمة الله وبركاته أخي وليد .. نعم هناك عدة حلول لهذه المشكلة .. 1- يمكنك إعطاء الأرقام الفريدة للسجلات عن طريق الكود وليس عن طريق الترقيم التلقائي .. مع جعل حقل الترقيم هو المفتاح الأساسي لتجنب التكرار ..( وستجد في المنتدى العشرات من المواضيع التي تتكلم عن طريقة عمل ترقيم تلقائي مخصص ) وهذه الطريقة يصلح تطبيقها في النماذج فقط وليس في الجداول مباشرة . 2- الطريقة الثاني عن طريق الترقيم التلقائي الخاص بالأكسس ، بعدما تضيف حقل الترقيم التلقائي تنزل لقائمة الخصائص في الأسفل ، تذهب ل(تنسيق أو Format ) وتكتب التنسيق بهذه الطريقة : ARCH"00000" لجدول الأرشيف مثلا .. و STOR"00000" لجدول المخازن مثلا .. وهكذا .. والنتيجة ستكون هكذا : طريقة كتابة الصيغة في الخصائص : لاحظ أن علامتي التنصيص " " توضعان على النص ، والأصفار هي المكان المخصص للترقيم التلقائي . وبهذه الطريقة ستضمن أن لكل جدول ترقيمه الخاص ..

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

فيديووووو جديددددد كيفية دمج عدة ملفات بهيدرز مختلفة في ملف واحد باستخدام الكويري في الفيديو دة هاتقدر تتدمج ملفات كثيرة في ملف واحد بس خلي بالك الملفات فيها اعمدة مختلفة >> يعني كل ملف في اعمدة مختلفة فا في الدرس ده هانتعلم نلم كل الاعمدة في ملف واحد https://youtu.be/2oXx8bt-1m0 جلب كل اسماء الاعمدة من الملفات.rar

اتفضل يا سيدى الفانك ده يحقق كل رغباتك اولا تستدعى القانك بأسمة من اى مكان وفى اى حدث على حسب هواك بالسطر التالى Call MkDbByPassword وتغير فى الفانك بس على التوالى المسار , اسم القاعدة الجديدة التى تريد انشاءها . كلمة المرور التى تريدها فى المتغيرات strDbPath >>>---->> المسار strNewDbName >>>---->> اسم قاعدة البيانات الجديدة ولا تنسى الامتداد strPassNewDb >>>---->> كلمة المرور التى تريد تشفير القاعدة بها Public Function MkDbByPassword() Dim wrkDefault As Workspace Dim dbsNew As DAO.Database Dim strDbPath As String Dim strNewDbName As String Dim strPassNewDb As String strDbPath = CurrentProject.Path & "\" strNewDbName = "NewDB.mdb" strPassNewDb = "00" Set wrkDefault = DBEngine.Workspaces(0) If Dir(strDbPath & strNewDbName) <> "" Then Kill strDbPath & strNewDbName Set dbsNew = wrkDefault.CreateDatabase(strDbPath & strNewDbName, dbLangGeneral & ";PWD=" & strPassNewDb) End Function

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

وعليكم السلام ورحمة الله وبركاته 🙂 . 1. سبب ظهور هذه الرسالة هو ان برنامج الاكسس على كمبيوتر المكتب (الكمبيوتر الذي عملت عليه البرنامج) ، فيه نسخة احدث من نسخة البيت ، القاعدة العامة هي: اعمل برنامجك على اقل/اصغر/اقدم نسخة ممكنه ، حتى تستطيع النسخ الاكبر/الاحدث ان تفتحه في وضع التصميم. 2. المفروض ان لا يحدث هذا (ولا علاقة لهذا باختلاف النسخ) ، فأكيد هناك كود او استعلام يقوم بهذا !! جعفر