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

ممكن توضيح اكثر او صورة لما ظهر لك حقاً لم افهم قصدك تحياتي

وعلسكم السلام ورحمة الله وبركاته تفضل اخي الكريم Microsoft Access Database جديد.rar تحياتي

السلام عليكم بالنسبة لتقييم البرنامج فهو ما شاء الله واضح انه متعوب عليه ولا ازيد على النقاط التي ذكرها استاذنا الفاضل اخي @kha9009lid بالنسبة لنقطة السعر سعر البرنامج يتوقف على عوامل كثيرة منها على سبيل المثال لا الحصر 1 - حاجة الزبون اليه (مثال : الصيدلية يختلف احتياجها عن السوبر ماركت للبرنامج ) 2 - هل البرنامج يغطي جميع ما يحتاجه الزبون ام لا ( احيانا تجد طلبات لم تخطر بالبال وهذه ما اكثرها ) 3 - المنافسة ( هل الزبون لديه خيارات غيرك ام لا ) 4 - خدمة ما بعد البيع بالسنبة للعميل ( هل يثق في وجودها ام لا - وما هي انواعها ) 5 - حالة الزبون المادية بالنسبة لمشروعه ( ضخم - متوسط - صغير ) والله اعلم

بالمناسبة تم تغيير بعض اسماء الحقول لانها محجوزة في الاكسيس وهذا الكود كاملاً On Error GoTo Error_ErrorZ ' تصفير حقل XDay mySQL = "Update Student" mySQL = mySQL & " SET XDay = 0" CurrentDb.Execute (mySQL) mySQL = "Select * From Student" mySQL = mySQL & " ORDER BY Xclass" Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveFirst Do Until rst.EOF For i = 1 To 5 rst.Edit rst!XDay = i rst.Update rst.MoveNext Next Loop Error_ErrorZ: If Err.Number = 3021 Then Else MsgBox Err.Number & vbCrLf & Err.Description End If تحياتي

تم وضع معيار في حقل CityID كالتالي [forms]![الطلاب1]![PuplicID] تحياتي

السلام عليكم تفضل اخي الكريم جرب واعلمني بالنتيجة faiz.rar تحياتي

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

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

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

جزاك الله خيرا استاذنا الغالي @ابوخليل تحياتي

السلام عليكم خاصية تنسيق datasheet موجودة في اكسيس 365 واعتقد انها موجودة في 2010 - الحقيقة لا اتذكر انظر الطريقة كما بالصورة تحياتي

تفضل اخي الكريم نموذج.rar تحياتي

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

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

السلام عليكم يمكنك استخدام الكود التالي مع نغيير ما يلزم ( اسم النموذج - مربعات النص ... الخ ) Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer) Dim X As Integer X1 = Forms!frm1!combobox1 If X1 = 1 Then Me.Text1.Visible = True Me.Text3.Visible = False Else If X1 = 2 Then Me.Text1.Visible = False Me.Text3.Visible = True End Sub تحياتي

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

السلام عليكم غير المعيار في الاستعلام الى [forms]![نموذج استعلام بالجهة]![الكلية] قاعدة ابوبكر.rar تحياتي

تفضل اخي الكريم Allijan.rar تحياتي

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

وعليكم السلام ورحمة الله وبركاته طريقة كتابة المعيار Forms!FormName!Text او انك تسخدم نموذج فرعي ويبدو ان حقل n1 غير موجود في النموذج ارفق الجزء الذي به المشكلة من البرنامج تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم ارجو ان يكون هو المطلوب Allijan.rar تحياتي

بالاضافة الى ما تفضل به استانا @الفلاحجى وله الشكر يمكنك استخدام البخث والنصفية بالطريقة التالية ( اسرع + تجنب المشكلة الحالية ) ان شاء الله تحياتي

في حدث عند الوقت Form_Timer تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub Form_Timer() Me.text0 = Me.text1 & " " & Me.text2 & " " & Me.text3 End Sub مع تغيير قيمة TimerInterval = 500 او حسب ما تحب مع تغير اسم الحقول حسب برنامجك تحياتي

الفكرة تعتمد على التنسيق الشرطي للحقل تحياتي