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

https://drive.google.com/file/d/16wPjc1F9pyCAZLQN7Ap3qcUOKOZ8bBMa/view?usp=drivesdk البرنامج مضغوط في ملف للتحميل من الرابط ويوضع في قرص D رمز المرور 1 التنزيل من درايف draiv

اتفضل هذا الكود استاذ موسي سعيد عامله لي من يومين تقريبا Forms("Navigation Form").Controls("NavigationButton11").SetFocus SendKeys "{Enter}" NAVG.accdb NAVG.accdb

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

طبق الاتي حسب نوع الويندوز لديك انسخ الاداة RotateLabelVer2.ocx الى مجلد ::: C:\Windows\System32 اذا كان الويندوز لديك 32 bit أو الى C:\Windows\SysWOW64 اذا كان الويندوز لديك 64 bit ثم شغل الاداة benyasien المرفقة في نهاية الشرح كمسؤول وانتظر حتى ينتهى ................ ثم افتح برنامجك وستجد الاداة مسجلة ومفعله .... ملاحظة ::::: اعتقد لن تستطيع الكتابة بالعربية ::::::::::::: Desktop.rar

أمثلة جيدة ولكن ينقصها نسبة بعض الأكواد إلى أصحابها.

تم التعديل في الملف المرفق في المشاركة رقم 1 واليك كود اخر يمكنك التعديل عليه ليتوافق مع ملفك الاصلي Sub copy_columns_paste() Dim lr As Integer, MH As Integer, sh1 As Worksheet, sh2 As Worksheet, i As Long Sheet2.Activate 'افراغ البيانات القديمة Range("d10", Range("F" & Rows.Count).End(4)).ClearContents Range("L10", Range("L" & Rows.Count).End(4)).ClearContents Range("N10", Range("N" & Rows.Count).End(4)).ClearContents Set sh1 = Sheet1 Set sh2 = Sheet2 lr = sh1.Cells(Rows.Count, 4).End(xlUp).Row For i = 10 To lr ' تحديد صف بداية النسخ MH = sh2.Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).Row 'العمود المراد ترحيله من شيت 1 _____ العمود المرحل اليه في شيت 2 sh2.Cells(MH, 4) = sh1.Cells(i, 4) sh2.Cells(MH, 5) = sh1.Cells(i, 5) sh2.Cells(MH, 6) = sh1.Cells(i, 6) sh2.Cells(MH, 12) = sh1.Cells(i, 9) sh2.Cells(MH, 14) = sh1.Cells(i, 12) Next i End Sub

وعليكم السلام ولدنا او اخينا العزيز @TQTHAMI رؤيتي الشخصية فيك ... انك شخص مبدع ارجوا لك كل الموفقية يارب

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

السلام عليكم ورحمة الله أولا لا اعرف ان سبقني احد من الاخوة بهذه الفكرة ام لا لكن احببت ان شارككم ما توصلت الية من عمل من الممكن ان ينفع احد من الاخوة في المنتدى , ثانياً سوف اسرد لكم ما توصلت الية وهيا الاداة الاولى Admin Control هذه سوف تظهر لنا من يتصل بقاعدة البيانات واخر اتصال له ويظهر لدينا اسم جهاز الكومبيوتر الخاص به مع عدة معلومات . Computer Name : اسم جهاز الكومبيوتر المتصل بقاعدة البيانات Access Name : هنا المقصود صلاحية المتصل ودائماً تظهر انها Admin ولكن بصراحة احتاج الى مراجعة مصادر اخرى للتاكد منها Connected : حالة الاتصال بقاعدة البيانات suspect state : هنا لو حصل ضرر بقاعدة البيانات سوف تظهر كلمة True لكن في الوضع الافتراضي تأتي فاضيه لذا استبدلتها بكلمة False Last Time Connection : اخر وقت تم الاتصال به بقاعدة البيانات من قبل المستخدم Refresh في هذه الخانة سوف يتم تحديد وقت عمل لعمل تحديث بيانات اتصال اجهزة الكومبيوتر والحالة يوجد لدينا وقت وايضا دقائق او ثواني اما زر Close all DataBase عملة هو حذف جميع مسارات قواعد البيانات المخزونه لدنيا اما زر Open DataBase سوف يقوم بفتح نموذج جديد نحدد فيه مسار قاعدة البيانات وايضا وضع كلمة السر في حال ان قاعدة البيانات تحتوي على كلمة سر سوف اقوم بأضافته بعض الخيارات ان شاء الله في الايام القادمة للاستفادة اكثر من عمل الاداة اما الاداة الثانية Connected users account هيا فقط تقوم بعطاء عدد المتصلين الحالين بقاعدة البيانات ما فائدة هذه الاداتين ؟ الفائده هيا من الممكن ان تجعل الاداة برنامج مراقبة لمعرفة من اتصل بقاعدة البيانات واخر وقت تم الاتصال به ويصبح لديك بيانات لمعرفة من يستخدم القاعدة والوقت المستغرق وهذا ما انوي فعلة ان شاء الله و ان اجعل من البرنامج اداة حفظ بيانات الاتصال على شكل Log اما الاداة الثانية وهيا بصراحة جزء من نفس الكود للاداة الاولى لكن ابسط غرضه عمل عداد لمعرفة عدد المتصلين بالقاعدة حالياً , ماذا يمكن ان استفاد منها ؟ انا حسب حاجتي لها هيا نوعين من الاستفادة الاولى في حال اردنا ان نحدد عدد المستخدمين المتصلين بقاعدة البيانات وهنا سوف نضعة عند اقلاع البرنامج وسوف يتاكد من عدد المستخدمين وهل تم تجاوز العداد المسموح به , الاستفاد الثانية لو كنت تتعامل مع شركات ولديهم اكثر من جهاز فا موضوع ان نضع لكل جهاز سريال نمبر سيكون مشكلة لدينا لانهم في حالة تغير الاجهزة بستمرار , هنا يمكن ان يتم التعامل معهم على عدد المتصلين بقاعدة البيانات بنفس الوقت هناك نوع من التراخيص التي تعمل بهذا الشكل حيث التعاقد على انه يمسح لك بتصال 5 اجهزة بنفس الوقت لو اردت اكثر يجب ان تقوم بالدفع لاخذ الرخصة وهذه وحده من الفوائد , اتمنى من الاخوان لمن لديه فكرة واحب ان يطور في الاداة فله مطلق الحرية , الادة مفتوح يمكن الاطلاع على الكود وطريقة عمله. ملاحظة الاداتين تعمل لكشف عدد المتصلين بالقاعدة عن طريق نفس الجهاز او عن طريق الشبكة . اتمنى ان اكون قد وفقت بما طرحت . Connected users account.accdbAdmin Control.accdb

وغليكم السلام ورحمة الله تعالى وبركاته تفضل استاد سغد Sub Test() Dim lr As Long Application.ScreenUpdating = False With Sheet1 lr = .Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row .Range(.Cells(10, "D"), .Cells(lr, "F")).Copy Sheet2.Cells(10, "D") .Range(.Cells(10, "I"), .Cells(lr, "I")).Copy Sheet2.Cells(10, "L") .Range(.Cells(10, "L"), .Cells(lr, "L")).Copy Sheet2.Cells(10, "N") End With Application.ScreenUpdating = True End Sub W_S.xlsm

افضل طريقة وهي الاسهل بعد تقسيم قاعدة البيانات الى واجهات و جداول خلفية ، يتم آليا اخذ نسخة احتياطية من الجداول عند كل اغلاق للقاعدة او للنموذج الرئيسي

حاول ان تعطي لون اخر لل label ...وحاول ان تغير الخط font..وحجم الخط font size

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

لاتبخل على نفسك في الاسئلة...اسأل مايبدوا لك فكلنا تلاميذ مثلك لكن راعي ان تفتح موضوع لكل سؤال حتى يتمكن بقية الزملاء من المساعدة تحياتي

شكراً يا دكتور الله يجعله في ميزان حسناتكم

أعتقد أن الأخ فؤاد يقصد أن تكون هناك نسختان من الجداول : جداجداول محلية وجداول مرتبطة بالقاعدة الأخرى ( الاحتياطية ) .. فما يتم تسجيله في الجداول المحلية يتم نسخه تلقائيا في الجداول المرتبطة ..

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

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

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

@abdelfattahbadawy جرب هذا الماكرو Dim ct As Long, destPath As String Sub MOVE_FILES() Dim Fso As Object, Fldr As Object, f As Object ', ct As Long Dim sourcePath Dim FileInFolder As Object sourcePath = "C:\Users\Administrator\Downloads\nnnn\" 'Change path and folder name to suit destPath = "C:\Users\Administrator\Downloads\mmm\" 'Change path and folder name to suit Set Fso = CreateObject("Scripting.FileSystemObject") LoopFolder (sourcePath) Set Fldr = Fso.GetFolder(sourcePath) For Each f In Fldr.subfolders LoopFolder (f) Next f If ct > 0 Then MsgBox ct & " pdf files have been moved" Else MsgBox "No pdf files found in the source folder" End If End Sub Private Function LoopFolder(AFolder) Set Fso = CreateObject("Scripting.FileSystemObject") Set ThisFolder = Fso.GetFolder(AFolder) For Each FileInFolder In ThisFolder.Files If FileInFolder.Name Like "*.pdf*" Or FileInFolder.Name Like "*PDF*" Then ct = ct + 1 FileInFolder.Move destPath End If Next FileInFolder End Function

يا عمي دة انا فهمي ملخبط كمان 😂

وعليكم السلام .. بعد اذن اخي @عمر ضاحى افتح القاعدة الاولى ...ومن التبويب EXTERNAL DATA اختر Access ...ثم اختر قاعدة البيانات الثانية والربط كما في الصورة: اضغط على ok...ثم اختر الجدول الذي تود الربط به فأي تغيير يحصل في قاعدتك الاولى سوف يتغير في القاعدة الثانية بالتوفيق

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

عملت لك نموذج اسمه (الغياب) للتنقل بين السجلات او التعديل ولايتم الحفظ الى بعد ضغط زر الحفظ وكذلك نموذج اسمه frm1 يمكنك التنقل بين السجلات ولايمكن التعديل على الصف الواحد الا بعد ضغط زر تعديل ...وعند التعديل سيتم الحفظ مباشرة لانها حقول منظمة شوف اي النموذجين بيحققلك مطلبك ..بعدها ننتقل لمطاليبك الاخرى Database3Q.rar

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

جرب هذا الملف لعله يفي بالغرض . مقارنة.xls

في الاستعلام ، الظاهر كان عندك حقل "حضور شهر 1" ، ثم قمت بحذف الحقل من مصدر بيانات الاستعلام ، ولم تقم بحذف الحقل من الاستعلام !! جعفر

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

وعليكم السلام ورحمة الله وبركاته أتوقع باستخدام الدالة (INDIRECT) ولعل هذا هو المطلوب 😘 نموذج (1).xlsx

وعليكم السلام 🙂 هي بالفعل في اعدادات الوندوز ، عملها يدويا : . وبرمجيا : جعفر

اخى احمد ضيف معاه شرط رقم الفاتوره

محاولة عن طريق أداة أداة ocx المرفقة و التي يجب تسجيلها الشرح الموجود أسفله مرفق معها مثال للمطلوب و ما عليك إلا تصميم الحقول و تنسيقها مع الجدول، و يمكنك التعديل على حجم الخلايا حسب رغبتك و ذلك بوضع التقرير في وضع التصميم ثم خصائص كما هو موضح في الصور المرفقة: 1 أضغط على ... 2 درجة ميلان النص مثلا 270 درجة تعطي النص عمودي و 0 درجة يعطي النص عادي 3 اسم الخلية شرح استعمال الأداة منقول افتح المجلد المضغوط واستخرج RotateLabelVer2.ocx إلى مجلد مكتبة المكتب ذات الصلة مثل 😄 \ Program Files \ Microsoft Office \ OFFICE11. الآن افتح التقرير في طريقة عرض التصميم. اذهب إلى أدوات >> ActiveX Controls وانقر على زر التسجيل. تظهر نافذة حوار ملف Windows قياسية. استعرض للوصول إلى أي مجلد قمت بتنزيله ملف RotateLabel.ocx على سبيل المثال 😄 \ Program Files \ Microsoft Office \ OFFICE11. حدد الملف ثم انقر فوق الزر فتح. أغلق مربع قائمة عناصر تحكم ActiveX. انتقل الآن إلى مربع الأدوات العادي وانقر على زر المزيد من عناصر التحكم. ابحث عن RotateLabel وانقر فوقه ، ثم ضعه في تقريرك. قم بتعيين مصدر التحكم ثم العب باستخدام إعدادات HAlignment و VAlignment و Escapement ضمن علامة التبويب أخرى في مربع خصائص عناصر التحكم. RotateLabelocx.rar Database12.rar