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

السلام عليكم سوف اجهز مثال و ارسله ان شاء الله في القريب العاجل تحياتي

السلام عليكم و رحمة الله تعالى وبركاته إخوتي الكرام حياكم الله. بعد نزع خاصية انشاء شريط القوائم بالأكسس في النسخ بعد 2003 أصبح هناك عائق كبير في إضافة هذه الأشرطة و لأنه يتوجب عليك العمل على ملف 2003 أو استعمال Ribbon بلغة Html و هي أصعب من الفكرة الأولى. مما جعلني أفكر في طريقة تجعلنا نستغني عن هذه الطرق المرهقة بعض الشيء. و قمت بتصميم برنامج يستطيع أن يضيف شريط قوائم للنموذج الرئيسي لقاعدة البيانات مهما كانت نسختها 2003 أو النسخ التي تأتي بعدها. نبدأ على بركة الله في شرح البرنامج: بعد فتح البرنامج نتبع الخطوات التالية: 1 - أكتب اسم القوائم التي تريد أن تضيفها مع وضع رقم كل قائمة بالترتيب (1,2,3,....و هكذا) 2- أضف العناصر أو الأوامر التي تندرج تحت كل قائمة في النموذج الفرعي رقم العنصر , تسمية العنصر ثم الكود الذي تريد أن ينفذه هذا العنصر 3- أختر قاعدة البيانات سواءا كانت 2003 أو ما بعدها ثم اختر اسم النموذج الذي تريد أن تضيف له الشريط 4- قم بالضغط على زر "إنشاء الشريط" 5- افتح قاعدة بياناتك و أنظر للشريط المضاف حتى لو كان النموذج منبثق و شاشة الأكسس مخفية سوف ترى الشريط شروط استخدام البرنامج: 1- قبل البدئ أحفظ نسخة إحتياطية من قاعدة بيانات 2- يجب أن لا يكون لديك في قاعدة بيانات نماذج بهذه الأسماء : list1,list2,list3..... و هكذا 3- يجب أن يكون حدث عن النقر للنموذج الرئيسي خال من أي كود 4-بعد الإنتهاء أدعولي و لوالدي و لعائلة بالخير و الصلاح. هذا هو البرنامج انشاء شريط قوائم.rar

شكرا لك ابو زاهر التحديث التلقائي مع اني جربت ماكرو وجربت الفيجوال ولم ينجح

الملف به خطأ مصاب بفيروس ارفع ملف سليم ونظيف وطلبك جاهز إن شاء الله

Book1-1.xlsx

السلام عليكم استعمل هذا الكود: Dim rst As DAO.Recordset Dim ddate As Date Dim i As Integer, RC As Integer Set rst = CurrentDb.OpenRecordset("SELECT * FROM [HRR]") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC If rst!Atarih < ddate Then MsgBox "هناك تسلسل خاطئ في التاريخ للفاتورة رقم: " & rst!Rjmfatwra Exit Sub Else ddate = rst!Atarih rst.MoveNext End If Next i فحص تسلسل التاريح.rar

وعليكم السلام تفضل اخى الكريم دمج-1.xlsm

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

اتفضل تم استخدام هذا الكود Private Sub أمر6_Click() Dim Aded As Long Dim FirDate As Date Dim Curdate As Date Dim Curdate1 As Date Dim Teakid As Byte Aded = Me.YWMA_sub.Form.Recordset.RecordCount Me.YWMA_sub.SetFocus Me.YWMA_sub.Form.Atarih.SetFocus DoCmd.GoToRecord , , acFirst FirDate = Me.YWMA_sub.Form.Atarih For i = 0 To Aded - 1 Curdate1 = Me.YWMA_sub.Form.Atarih If Curdate1 > FirDate Then Curdate = Me.YWMA_sub.Form.Atarih Teakid = 1 End If If Curdate1 > FirDate Then DoCmd.GoToRecord , , acNext ElseIf Curdate1 = FirDate And Teakid = 0 Then DoCmd.GoToRecord , , acNext Else MsgBox " ( " & Me.YWMA_sub.Form.Rjmfatwra & " ) " & "هناك تسلسل التاريخ خطأ في رقم الفاتورة", vbMsgBoxRtlReading, "تنبيه" Exit Sub End If Next i End Sub فحص تسلسل التاريح.accdb

السلام عليكم من المعلوم أن أداة التصفح تستخدم متصفح internet explorer و إذا كان هذا المتصفح غير محدث معك فلا تظهر النتائج جيدة. لذلك: يجب عليك تحديث نسخة internet explorer إلى الإصدار 10 أو 11.

تفضل FILTER-2.xlsm

لله درك حفظك الله استاذي الفاضل Shivan Rekany

باختصار عند فتح القاعدة البيانات سيفتح بشكل اوتوماتيكي الماكرو باسم AutoExec وذاك الماكرو بيعمل اوبديت اي تحديث للجدول ويخزن فيه دقة الشاشة و سيتغير دقة الشاشة الى 1024 * 600 بعد ذلك سيفتح نموذج فورم 2 وعند فتحه سيتم فتح معه نموذج FrmOpenInOpenDB بشکل مخفي وعند اغلاق القاعدة سيتم اغلاق النموذج المخي وفي حالة اغلاق نموذج المخفي سيتغير دقة الشاشة الى دقة الشاشة الاصلية اللي المخزنة في الجدول اي نعم

بارك الله فيك مجهود اكثر من رائع جزاك الله خيرا

بارك الله بك و بجهدك الطيب كل عام و أنت بخير

هو بالفعل اخى الكريم ورقة الموظفين هى المصدر الذى يؤخذ منه البيانات وتقبل منى الملف بعد التعديل المطلوب ليوم الجمعة ‏‏الحضور والانصراف معدلة-2.xlsx

اتفضل القي نظرتا الى هذا الموضوع ولان حضرتك كتبت هذه الجملة اتفضل اليك هذه المواضيع و تقبل تحياتي

هذه نسخة من البرنامج بصيغة mdb انشاء شريط قوائمmdb.rar العفو أخي الحبيب الله يحفظ و يرعاك

يا لك يا خبيرنا المستقبل القريب شكرا على هذا المجهود الرائع

نعم اشتغل عندي وانا بصدد النظر في تفاصيله جعفر

تفضل في خصائص الاكسس ، اختر اللي عليها الدائرة الحمراء جعفر