Shivan Rekany

السلام علیکم ورحمة الله وبركاته كما قال استاذنا جعفر تكدر تعمل استعلام الترحيل هكذا شوف هذا الرابط وبعد تحديث الكومبوبوكس استعمل كود Dcount مع if

شوف هل تريد هذا Database1 (4).rar

انا جربت لكن نفس الخطأ اللي صار معي اللي قلت في مشاركتي السابقة بعد تغيير التاريخ

اليك قاعدة بيانات اخرى بيظهر لك ارقام مفقودة اظهار رقم المفقود.rar

هناك سؤال هل بيتغير بيزيد حقل NV من اللي بيظهر في الصورة ؟ ام بس هم فقط

اتفضل احذف اي ريكودر تريد وبعدين اضغط على ترقيم تلقائي جديد ترقيم تلقائي بواسطة دي ماكس و ترقيم من جديد.rar

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

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

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

اتفضل اخي اليك هذا القاعدة وانا جربت عليه وغيرت التاريخ الى 14\3\2017 وكان نتيجة مضبوطة لكن حين انا حولت التاريخ الى شهر 4 بيطلع رسالة خطأ ومع ذلك طلع معي رسالة اخر باقتراب مدة صلاحية اوفيس وانا اعمل على اوفيس اصدار 2010 لكن مش عصلية جرب انت احتمال ما يصير معك هذا شي Daily num.rar وعملت هذا بواسطة نموذج فرعي وبيشتغل تمام 100% كل يوم ورقم تسلسلي جديد بواسطة نموذج فرعي.rar

بسطر من الكود لكن يجب بيكون اسم الصورة بيكون = مع حقل اسم الموظف او اي حقل اخر لكي يعرفه

اتفضل هذا هو الكود On Error Resume Next Dim tDate As Date tDate = DMax("dat", "torderno") If tDate > Me.dat Then MsgBox "Êã ÊÛííÑ ÇáÊÇÑíÎ ÓíÛáÞ ÇáäÇÝÐÉ" DoCmd.Close acForm, "aaa", acSaveNo Exit Sub End If If DCount("ID", "TORDERNO") < 1 Or IsNull(DMax("daily_serial", "TORDERNO", "[dat]=#" & Me.dat & "#")) = True Then If Me.dat > Date Then MsgBox "Êã ÊÛííÑ ÇáÊÇÑíÎ ÓíÛáÞ ÇáäÇÝÐÉ" DoCmd.Close acForm, "aaa", acSaveNo End If ' dat > date Me.daily_serial = 1 Me.orderno = Nz((DMax("[orderno]", "Torderno") + 1), 1) Else DoCmd.GoToRecord , , acNewRec Me.orderno = Nz((DMax("[orderno]", "Torderno") + 1), 1) Me.daily_serial = DMax("daily_serial", "TORDERNO", "[dat]=#" & Me.dat & "#") + 1 End If ' DCount("ID", "TORDERNO") < 1 واليك ملفك بعد تعديل واسف ماكان فهمتك الا في الاخير Daily num.rar

الان انا فهمتك بالضبط غدا ان شاء الله راح اعود لك ومع طلبك الان انا عم استخدم موبايل انتظرني تحياتي

حسب فهمي لسؤالك اعمل بين جدولين علاقة واحد الى متعدد افتح استعلام مصدر نموذج فرعي في وضع تصميم Sql واضف اليه بعد كتابة select اضف top 1 وفتح في وضع تصميم عادي اكتب في خانة شرط اي واحد تريد يظهر مثلا عندك حقل تسلسلي اكتب ماكس لكي يظهر السجل الاول هذا حسب فهمي لسؤالك والله اعلم

غدا ان شاء الله راح اشوفه الان ان عم استخدم موبايل وايضا محتاج اعرف ماتريد بالضبط اي معلومات عن الشغل

اي الفيديو بيقول ان الكود بيعمل صح لانك غيرت تاريخ الجهاز الى تاريخ قبل الان وغيرت الى 21\2\2017 وهذا التاريخ ما كان موجود في الجدول لذا بدأت برقم 1 شوف غير التاريخ الى 18\2\2017 وشوف بأي رقم راح يبدأ تحياتي

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

اضافة شعبة زراعية لأي كلية ومن اي دولة

اتفضل ماتريد 2-tesst.rar

شوف اللي عندي كما في المثال الاعلى شوف الصورة وهذا اسماء الغائبين

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

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

جرب هذا وشوفه بالعدسة حساب تأخير الموظفين.rar

استخدم هذا في استعلام في حقل جديد hazirormittaaxir: IIf(Right([late];1)="+";"حاضر";"متأخر")

لا ما بها مشكله‌ شوف الصوره‌ دخلت تاريخين وفتحت التقرير