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

انظر المرفق الجديد ارجو ان يكون فيه المطلوب Uptest.rar تحياتي

لا بد ان يكون نموذج بيانات اساسية مفتوح لانك وضعت مصدر الحقل =[Forms]![بيانات اساسية]![الاسم] مرفق الملف بعد التعديل test.rar تحياتي

الحقيقة لم استطع التعامل مع قاعدة البيانات المرفقة لكن الكود التالي سيقي بالغرض ان شاء الله Private Sub Form_Current() Me![No] = Nz(DMax("[No]", "[TableName]", "Type="TypeSt"), 0) + 1 End Sub تحياتي

تفضل هذا الموضوع للمبدع @ابوخليل

وعليكم السلام ورحمة الله وبركاته لانك تحتاج ملفات acrord32.dll acroiehelper.dll acropdf.dll يمكنك البحث في جوحجل عن الملفات وتنزيلها ونسحها في مجلد C:\Windows\System32 تحياتي

السلام عليكم يمكنك اضافة هذاالكود Private Sub Pname_Exit(Cancel As Integer) Me.newRequest.SetFocus End Sub تخياتي

مبدع كعادتك اخي الكريم @ابا جودى زادك الله علماً تحياتي

وعليكم السلام ورحمة الله وبركاته تم ربط النموذج الفرعي بالنموذج الرئيسي حقل = [المعرف] مع حقل [ID] برنامج طباعة شيكات.rar تحياتي

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

السلام عليكم اجعل عدد الاعمدة = 2 وعرض الاعمدة = 0cm;5cm تحياتي

حزاك الله خيرا اخي الكريم @أبو إبراهيم الغامدي الحمد لله تم التعديل بالطريقة الثانية ووضع التقرير في قائمة منسدلة وجزاك الله خيرا على حسن المتابعة تحياتي

السلام عليكم ورحمة الله وبركاته لا غيبكم الله يا عمالقة المنتدى

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

بسم الله الرحمن الرحيم الاخوة الكرام السلام عليكم ورحمة الله وبركاته وجدت مثال لعملية فرز البيانات في التقرير والمثال رائع جداً يوجد تقرير باسم rptStudentInformation عند الفتح يتم نموذج frmOrderBy وبه عدة خيارات للفرز ما اريده ان استخدام نموذج frmOrderBy في اكثر من تقرير ولكن الكود الموجود مرتبط بتقرير محدد If strSQL <> "" Then 'Strip Last Comma & Space strSQL = left(strSQL, (Len(strSQL) - 2)) 'Set the OrderBy property Reports![rptStudentInformation].OrderBy = strSQL Reports![rptStudentInformation].OrderByOn = True Else Reports![rptStudentInformation].OrderByOn = False End If فهل بالامكان تعديل الكود للعمل مع التقرير الحالي بغض النظر عن اسمه Sort.rar تحياتي

بعد اذن اخي محمد التميمي تفضل اخي الكريم برنامج_2.rar تحياتي

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

تم الرد في القسم المختص تحياتي

وعليكم السلام ورحمة الله وبركاته اجعل قيمة الحقل كالتالي =Nz([a];0) بالنسبة لزر الامر ضع هذا الكود في حدث عند النقر Me.a = Null a.accdb تحياتي

جزاك الله خيراً تحياتي

الف مليون شكر اخي الحبيب و جزاك الله خيراً تحياتي

السلام عليكم ورحمة الله وبركاته من فضلك اخي الكريم لو احببنا ان نقوم برفع التاخر عن اخد الموظفين في يوم ما فهل يوجد كود لتحديث الحقل من 17/01/2019 08:37:40 ص الى 17/01/2019 08:00:00 ص حسب رقم الموظف وحسب اليوم تحياتي

ما شاء الله عليك المطلوب بالضبط فجزاك الله خيراً تحياتي

بسم الله الرحمن الرحيم الاخوة الكرام السلام عليكم ورحمة الله وبركاته ارجو المساعدة في عملية احتساب وقت التاخير لدي جدول باسم CHECKINOUT يأتي من جهاز البصمة لذلك انا ملتزم بنوع الحقول به وبه حقل USERID = رقم الموظف = نوع رقم وبه حقل CHECKTIME = وقت الحضور = نوع تاريخ ووقت ارجو المساعدة في عملية احتساب الفرق بين وقت الدخول CHECKTIME وبين الساعة 08:00:00 Am وايضاً مطلوب جمع وقت التاخير لكل موظف ولك جزيل الشكر والتقدير تحياتي Db1.rar

استبدل كلمة المجموع بـ Text1 IIf([Text1]>=0 And [Text1]<40;"الخامس";IIf([Text1]>=40 And [Text1]<45;"الرابع";IIf([Text1]>=45 And [Text1]<40;"الثالث";IIf([Text1]>=40 And [Text1]<35;"الثاني";IIf([Text1]>=49.5 And [Text1]<=50;"الاول";"خطاء"))))) تحياتي

تفضل انظر المرفق db1.rar