محمد أبوعبدالله

السلام عليكم تفضل اخي الكريم Private Sub Command1_Click() ' الشهر الحالي Dim x1, x2 As Date x1 = DateSerial(Year(Date), Month(Date), 1) x2 = DateSerial(Year(Date), Month(Date) + 1, 0) myCriteria = "([T1].[COURSEDATE] between #" & x1 & "# and #" & x2 & "#)" Me.TSUB.Form.Filter = myCriteria Me.TSUB.Form.FilterOn = True End Sub Private Sub Command2_Click() ' الشهر السابق Dim x1, x2 As Date x1 = DateSerial(Year(Date), Month(Date) - 1, 1) x2 = DateSerial(Year(Date), Month(Date), 0) myCriteria = "([T1].[COURSEDATE] between #" & x1 & "# and #" & x2 & "#)" Me.TSUB.Form.Filter = myCriteria Me.TSUB.Form.FilterOn = True End Sub FILTER.rar تحياتي

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

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

البحث يعمل جيدا برجاء توضيح اكثر للمشكلة ولك الشكر تحياتي

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

وعليكم السلام ورحمة الله وبركاته ارفق مثال اخي الكريم لفهم المطلوب ولك الشكر تحياتي

تفضل اخي الكريم لاحظ مصدر combobox في النموذج والمعيار الموجود في الاستعلام Query1 w.rar تحياتي

وعليكم السلام ورحمة الله وبركاته في حدث عند الخروج حدد الحقل الذي يريد الانتقال اليه Private Sub aa_Exit(Cancel As Integer) DoCmd.GoToControl "d" End Sub او الانتقال الى سجل جديد Private Sub aa_Exit(Cancel As Integer) DoCmd.GoToRecord , , acNewRec End Sub تحياتي

وعليكم السلام ورحمة الله وبركاته لتغيير المسار من D:\Photo\Worker يمنكنك استخدام الكود التالي CurrentProject.Path & "\Worker" تحياتي

السلام عليكم يمكن ضبط اعدادات الكمبوبكس ليحمل اكثر من قيمة كما بالصورة تحياتي

السلام عليكم اولا قبل التحويل الى الى mdb او accde قم بانشاء قاعدة جديدة واستورد اليها كائنات القاعدة القديمة ( جدول ، استعلامات ، نماذج ... الخ ) ثانيا جرب الحل في الموضوع التالي تحياتي

اكيد ممكن وباكثر من طريقة وهذا مثال يشابه ما طلبت لاستاذنا الفاضل @ابوخليل تحياتي

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

ما هو ترقيم تلقائي = AutoNumber بالتأكيد لا موفق اخي الكريم تحياتي

جزاكم الله خيرا استاذنا الفاضل تحياتي

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

وعليكم السلام ورحمة الله وبركاته لا يتم هذا الا عن طريق استعلام او Sql والاستعلام ابسط بالنشبة لك ملاحظة : جدول Data2 ضع حقل ID رقم وليس ترقيم تلقائي وذلك حتى يتم الحاق حقل ID من جدول Data به انظر المرفق Database1_3.rar تحياتي

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

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

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

السلام عليكم تفضل اخي الكريم =DLookup("[Balance]"; "[Query1]"; "[barcode] =" & farey2!barcode) balacne on form.rar تحياتي

تمام ان شاء الله يكفيك ان تضع هذا الامر فقط Texte2 = Me.txtliste3.Column(1) تحياتي

انتظرت ردك اخي الكريم فان كنت تقصد تحديد الاسم الاول في القائمة عن الضغط على الزر فاليك الامر التالي Me.txtliste3.Selected(0) = True تحياتي

هل تقصد يقوم بتحديد الاسم الاول في القائمة فقط ؟

وعليكم السلام ورحمة الله وبركاته اخي الكريم للبحقث بالاسم استخدم الكود التالي mySQL = "Select * From Clients" 'بحث nomComplet mySQL = mySQL & " WHERE nomComplet = '" & Me.Texte2.Value & "'" Me.txtliste3.RowSource = mySQL Me.txtliste3.Requery للبحث بالرقم استخدم الكود التالي mySQL = "Select * From Clients" 'بحث idClient mySQL = mySQL & " WHERE idClient = " & Me.Texte2.Value Me.txtliste3.RowSource = mySQL Me.txtliste3.Requery test(5).rar تحياتي