Shivan Kurdi - شڤان کوردی

اتفضل استخدمت هذا =Sum(TimeValue([الفرق])) وعطيت هذه الخاصية لكي يظهر ثواني و دقائق و الساعات hh:nn:ss تحياتي db1.rar

لان قاعدة بياناتك بها نواقص عملت كم خطوات كثيرة لكي وصلت الى المطلوب لذا لازم تكون معي خطوة خطوة لكي تعرف ما عملت انا اولا اضفت حقلين للجدولك حقل لترقيم تلقائي و حقل لترقيم اخر لكي نكتب فيها رقم دخو الاول والخروج الاول والدخول الثاني والخروج الثاني اي رقم 1 الى رقم 4 وعملنا هذا النموذج لكي نكتب في الحقل id2 اللي قلنا في الاول وعملت هذا الاستعلام لكي يكون مصدر النموذج الاعلاه شوف الاكواد النموذج عند الحالي كتبنا هذا الكود Private Sub Form_Current() Me.Text63 = Me.USERID Me.Text65 = Me.tar End Sub وعند كليك على الزر كتبنا هذا الكود Private Sub Command22_Click() Dim dcu As Integer dcu = DCount("[userid]", "[wwwer]") DoCmd.GoToRecord , , acFirst For i = 1 To dcu If DCount("[id2]", "[wwwer]", "[USERID] =" & Me.Text63 & "and [tar]='" & Me.Text65 & "'") < 1 Then Me.id2 = 1 Else Me.id2 = DCount("[id2]", "[wwwer]", "[USERID] =" & Me.Text63 & "and [tar]='" & Me.Text65 & "'") + 1 End If DoCmd.GoToRecord , , acNext Next End Sub وبعد ما كتبنا ارقام من 1 الى 4 في حقل id2 اي لكل يوم كتبنا ترقيم جديد بواسطة النموذج واستعلام wwwer وبعد اذاً عملنا هذا الاستعلام وبواسطة هذهالاستعلام نريد ان نأخذ كل السجلات اللي رقم id2 بيكون يساوي 1 او 2 وايضا اخذنا تاريخ ووقت من حقل اللي مكتوب فيها وقت والتاريخ معا لكي نعمل عمليات حسابية عليه ونفس الشي عملنا للسجلات اللي id2 يساوي 3 او 4 بعدين وصلنا للخطوة الاخيرة وهو عمليات حسابية عملنا استعلامين واحد للسجلات اللي رقم اي دي 2 يساوي 1 او 2 والاخر للسجلات اللي حقل اي دي 2 يساوي 3 او 4 وكما قلنا مسبقا احنا وصلنا للتاريخ والوقت والان كتبنا هذا لكي نأخذ للسجل الاول من تلك الوقت لنفس التاريخ WQT1: DFirst("[WQT]";"Q1Q1";"[ST]='" & [ST] & "'") وكتبنا هذا لكي نوصل الى اخر وقت لنفس التاريخ WQT2: DLast("[WQT]";"Q1Q1";"[ST]='" & [ST] & "'") بعدين حذفنا WQT2 الوقت 2 من WQT1 الوقت 1 REQ: TimeValue(FormatDateTime([WQT1];3))-TimeValue(FormatDateTime([WQT2];3)) وفي الاخير اريد اقول انا استخدمت هدول الحروف للتسمية وتقدر تتغير الى ماتريد WQT1 WQT2 REQ اتمنى ان يوصل لك الفكرة تحياتي

الكود تابعك في نموذج اسماء العملاء كان هذا Forms![فاتوره اجل]![رقم العميل] = Me.NoEmp DoCmd.Close اضف له هذا السطر Forms![فاتوره اجل]![اسم المستخدم] = Forms![اسماء العملاء]!user1 سيكون كالتالي Forms![فاتوره اجل]![رقم العميل] = Me.NoEmp Forms![فاتوره اجل]![اسم المستخدم] = Forms![اسماء العملاء]!user1 DoCmd.Close جربه ووافيني بالنتيجة

شکرا لک ابو الاء بارك الله فيك وفينا اجمعين

شکرا لک استاذي صالح على اعطاء الكود اسف ما اقدرت ان اعمل لك على المرفقك لاني كان مشغول بالعقيقة و الختن الولد تحياتي لك

غیر الکود بدل ان تستخدم لمربع نصی او لیبل لاظهار المستخدم غيرها ب كابشن للنموذج اي تسمية توضيحية

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

قبل اشرح لك ما تم عمله هل هو مطلبك ام لا اذا نعم انتظرني لكي اشرح لك ما عملت

شكرا لك على الرد والتوضيح استاذي فقط كاقتراح عند النقاش مع الفريق العمل ان تعطون للاعضاء الجدد كل يوم مثلا 3 او 4 رسائل والامر يرجع لكم نفتخر بكم تحياتي

اي تعديل سيدي

شكرا لك استاذي الفاضل @عبد الفتاح كيرة وشكرا على المرفق تحياتي

ياليت ان لا اشوف الفرق بين الاعضاء كاقتراح تقدرون تحددون لكل اعضاء كم رسالة قليلة في يوم واحد اريد عدم الرسالة الخاصة للكل او سماح للكل والامر يرجع لكم تحياتي

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

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

كلا بل للخبراء فما فوق في اول يوم الترقية انا انتبهت ذلك لكن الحمد للت تم الحل

شكرا لادارة الموقع شكرا لك استاذي @ابوخليل شكرا لكم جميعا

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

اتفضل اليك كود لتعطيل ازرار الايمن والايسر Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 37 Or KeyCode = 39 Then KeyCode = 0 End If End Sub

تمام لكن هناك سۆال هل بيعمل تحديث للكل المواد للحد الرسوب او النجاح اي عندنا مواد اكسس حد النجاح فيه 40 درجة و حد النجاح للمادة اكسل هو 35 درجة هل تريد ان يتم التحديث لكل المواد او مادة واحدة على وحده اي مثلا ستختار اسم المادة من كومبوبوكس وستعطي درجة لاحد مربعات النصية وبعدين سيتم العملية

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

شكرا لك استاذي ابوخليل بانتظار الرد من الادارة الموقع تحياتي

اسف انا نسیت ان الصق الرابط لكن انا عدلت المشاركتي تحياتي

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

حسب فهمي لا يستخدم هذا الكود مفردا بل مع بعض اكود اخرى مثل هذا Sub VSApplication() Dim objGen As Object Dim dbGen As Database Dim gVar As Variant Dim strMDB as String On Error GoTo VSApplication_ERROR strMDB = "c:\my documents\vststcmp.mdb" Set objGen = CreateObject("Access.Application.8") objGen.OpenCurrentDatabase (strMDB) Set dbGen = DBEngine.Workspaces(0).OpenDatabase(strMDB, False, False, "") gVar = dbGen.Containers("Modules").Documents(0).Name If Not IsNull(gVar) Then objGen.DoCmd.OpenModule CStr(gVar) objGen.DoCmd.RunCommand acCmdCompileAndSaveAllModules End If VSApplication_EXIT: On Error Resume Next objGen.CloseCurrentDatabase objGen.Quit Set objGen = Nothing dbGen.Close Set dbGen = Nothing Exit Sub VSApplication_ERROR: MsgBox Error$, 16, "VSApplication" Resume VSApplication_EXIT End Sub هذا والله يعلم تحياتي

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