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

تفضل جرب بحث واستبدال حسب قيم خليتين.xlsm

اهداء لأعضاء وزوار المنتدى الكرام كلمة المرور لفك الحماية 422 تأجير.zip

الحمدلله على سلامتك حبيبنا 🙂 عودا حميدا 🌹

ابشر ان شاء الله جارى العمل على اعداد قاعدة البيانات كما تريد

البرنامج محول إلى الصيغة accde .. لايمكن فتحه .. يجب أن ترجع للمصمم الأصلي للبرنامج وتطلب البرنامج بصيغة accdb

أخي ارسل المرفق وانشاء الله نجد الحل .

السلام عليكم ورحمة الله وبركاته وبها نبدأ تفضل

حفظك الله وزادك الله علماً اخي واستاذي @Moosak دعوت لك في ظهر الغيب شكرا لك أخي @saud3 اكتمل الحل بردك بارك الله فيك دعوت لك في ظهر الغيب

مشاركة مع استاذي @Moosak تفضل أخي مرفق جاهز . DD143.Accdb

تفضل أخي محاولتي حسب مافهمت . بالفورم1 الضغطة الأولى تبيه صوتي ابتدائي ثم الضعطة الثانية تنبيه صوتي مع الماسج ولابد من وجود فورم2 عند المستخدمين كلهم حسب الحاجة . واذا كان هذا طلبك لا تنسى الضغط على أفضل اجابة . attention.rar

محمد أيمن Dim i& = Dim As Long Dim x$ = Dim x As String Dim a = Dim a As Variant Dim y% = Dim y As Integer Dim z# = Dim z As Double Dim s! = Dim s As Single بالنتيجة هي اختصارات

ما شاء الله .. اصبح الموضوع مرجع مناسب ، ايضا العنوان مناسب

وعليمن السلام بالإذن خيار آخر Sub test() Dim a, b: Dim lr& a = ActiveSheet.Range("D6:D14").Resize(, 4) ReDim b(1 To 5) b = Array(1, 3, 5, 7, 9) Workbooks.Open ("C:\Users\Ehab Elhady\Desktop\1.xlsx") With Sheets("sheet1").Cells(1, 1).Resize(, 5) lr = .Cells(Rows.Count, 1).End(xlUp).Row .Offset(lr).Value = Application.Index(a, b, 1) .Offset(lr, 5).Value = Application.Index(a, b, 4) End With Workbooks("1.xlsx").Close True End Sub

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي Option Explicit Sub Transfer() Dim wbData As Workbook, wsData As Worksheet Dim rngToCopy As Range, cl As Range Dim C As Long, LastRow As Long Dim wsMain As Worksheet: Set wsMain = ThisWorkbook.ActiveSheet Application.ScreenUpdating = False Set wbData = Workbooks.Open("C:\Users\Ehab Elhady\Desktop\1.xlsx") Set wsData = wbData.Sheets("Sheet1") Set rngToCopy = wsMain.Range("D6,D8,D10,D12,D14,G6,G8,G10,G12,G14") LastRow = wsData.Cells(wsData.Rows.Count, "A").End(xlUp).Row C = 1 For Each cl In rngToCopy cl.Copy wsData.Cells(LastRow + 1, C).PasteSpecial xlPasteValues C = C + 1 Next cl wbData.Close True Application.CutCopyMode = False MsgBox " تم ترحيل البيانات بنجاح", vbInformation, "تعليمات" End Sub e_V2.rar

شيء رائع

بداية اتفق مع الاستاذ @عبدالجيد في امكانية عمل البرنامج بشكل يتوافق مع تصميم قواعد البيانات مشاركة مع الاستاذ @Moosak طريقة بسيطة باستخدام عد الحقول الفارغة الملف مرفق واعتذر مقدما لعدم مراجعة العمل لانشغالي Database13.accdb

ما فائدة هذه اللاحقات يا اخي ابو خليل اليس جانب كل جدول صورة تدل انه جدول وكذالك النماذج والتقارير وهكذا

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