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

وعليكم السلام زرحمة الله وبركاته نعم.. في الشفرة التالية استخدمت متغير قبل أن تسنده إلى قاعدة البيانات! Private Sub Ok_Click() addsql = "INSERT INTO data IN 'D:\Import.mdb'SELECT Data.* FROM Data ;" db.Execute addsql End Sub والمفترض أن تسنده إلى قاعدة البيانات التي تريد أنت تجمع فيها البيانات وهي هنا القيمة الراجعة من مربع النص Me.TFichier بهذه الطريقة.. Private Sub Ok_Click() Set db=CurrentDB addsql = "INSERT INTO data IN '"& Me.TFichier &"'SELECT Data.* FROM Data ;" db.Execute addsql End Sub اقترح عليك استخدام الشفرة التالية بدلا من الشفرة أعلاه Private Sub Ok_Click() Set db = OpenDatabase(Me.TFichier) addsql = "INSERT INTO Data SELECT Data.* FROM Data;" db.Execute addsql End Sub تنبيه:: إذا كان الجدول الذي تجمع فيه البيانات مفهرس على أساس قيم فريدة (عدم تكرار البيانات) فلن يتم نقل البيانات ولن تحصل رسالة خطأ.. ولهذا يجب توخي الحذر... لحل هذه المشكلة يمكن اتباع التالي.. إذا كنت تسخدم الترقيم التلقائي يجب استبعاده لأن أكسس سوف يتولى هذا عنك!.. وبناءً عليه يجب إدارج أسماء الحقول مفرقة في عبارة ... Select باستثناء الحقل الذي يحمل الترقيم التلقائي. إذا كنت تسخدم قيم فريدة خاصة فيجب عليك استخدام أحد معاملات تدوير السجلات بعد أخذ أعلى قيمة لهذا الحقل ووضعها في متغير وتزيد علية الرقم 1 في كل دورة للسجلات.

طلب الي أحد الأصدقاء ان أقوم بإدراج التاريخ 29 شباط في كل السنوات الكبيسة المحددة بين عامين فكان هذا الملف (ربما يكون في ذلك إفادة للبعض) Leap years.xlsx

السلام عليكم بعد غيبة طويلة عن هذا المنتدى للسكنى فى البيت المجاور بيت الأكسيس أقدم لكم هذا الرابط المفيد جدا بارك الله فيكم https://excelchamps.com/blog/useful-macro-codes-for-vba-newcomers/

السلام عليكم اهل المنتدى الكرام اقدم لحضراتكم ملف به كود لتحديث وتغيير محتوى القائمة المنسدلة تلقائيا فهناك عمود مكون من أسماء الموظفين واخر بأكواد هؤلاء الموظفين-فقمت بعمل قائمة منسدلة بسيطة بأسماء الموظفين ثم بعد ذلك قمت بعمل كود يربط أسماء الموظفين بأكوادهم وأرقامهم عن طريق Vlookup بحيث عند اختيار اسم الموظف من القائمة المنسدلة يظهر بعد ذلك كود هذا الموظف مكان اسمه بارك الله فيكم وجزاكم كل خير تحديث محتوى قائمة منسدلة تلقائيا.xlsm

السلام عليكم ورحمة الله جرب هذا النموذج البسيط للفاتورة ربما تفيدك الفاتورة.xlsm

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

تفضل اخى الكريم بيان اول وااخر تاريخ تحميل المنتوج على اساس الرقم.xlsx

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

على اعتبار ان اسم حقل تاريخ الميلاد txtdate فيما لواحتجت التغيير بين سنة 2000 و 1900 في حدث بعد التحديث اكتب السطر التالي : Private Sub txtdate_AfterUpdate() txtdate = Left(Format(Date, "yyyy"), 2) - 1 & txtdate End Sub او هذا الاختصار يقوم بالمهمة Private Sub txtdate_AfterUpdate() txtdate = "19" & txtdate End Sub واكتب في قناع الادخال في النموذج صفرين حتى لاتمكن من ادخال اكثر من رقمين

قم بالغاء عداد الوقت للساعة في شاشة Home

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

بعيداً عن تعقيدات الكود.. سطر واحد يقوم بالمهام.. إليكم المرفق hide-unhide.rar

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

السلام عليكم ورحمة الله وبركاته أخي الحبيب الزباري جزاكم الله خيراً ..رائع وبسيط ما قمت به ...تفعيل أو إلغاء تفعيل الإطار بكل محتوياته ... تقبل تحياتي العطرة.

الكود الذي أضافه الأستاذ أبو عبد الله يقوم بـ: 1- تسجيل التاريخ و الوقت الحاليين إذا كان الجدولSaveFirstTimeTbl فارغا 2- مقارنة التاريخ الحالي مع التاريخ المسجل في الجدول السالف ذكره إذا كان التاريخ الحالي أصغر من التاريخ المسجل تظهر رسالة بأن تاريخ الجهاز غير صحيح ثم يغلق الجهاز. و إذا كان التاريخ الحالي أكبر يفتح البرنامج بشكل عادي دون أي إضافات. 3- فقمت بإضافة كود يقوم بتعديل التاريخ و الوقت المسجلين في الجدول إلى التاريخ و الوقت الحاليين عندما يفتح البرنامج بشكل عادي sql.Edit: sql!Field_now = Now: sql.Update

السلام عليكم ورحمة الله استاذتنا الأفاضل بارك الله فيكم عندي نموذج يتم التسجيل فيه يوميا هل من الممكن أن يتم ترصيد بيانات من النموذج لليوم السابق لتظهر في اليوم الحالي بمعنى عند التسجيل في النموذج رصيد أستطيع أن أبدا به في النموذج التالي أرجو الإفاده بارك الله فيكم هذا نموذج Database16 (1).accdb