Shivan Rekany

شكرا لك استاذ @أبو إبراهيم الغامدي شكرا لك استاذ @ابوخليل اتفضل اليك هذا السطر من الاستعلام التحديث هذا هو الحل اذا كان طول البيانات ليس محددا UPDATE BASIC_DATE SET BASIC_DATE.crn = Replace([crn],Right([crn],4),"0" & Right([crn],4)); لكن انتبه يجب ان تشتغل استعلام التحديث مرة واحدة ولا اكثر والا ستضيفه اكثر من مرة تحديث - Copy.rar

غير في خصائص التقرير "تفصيل" الى كما مبينة في الصورة

هل تريد هذا ؟ القي نظرتا الى الصورة اذا نعم ... اليكي الجواب اولا : تم تغيير الحقل Date من نوع النصی الێ نوع تاریخ والوقت ثانيا : تم استعلام q1 لکی نحصل على الرقم اي دي و اسم الموظف و اضغر تاريخ للموظف وهذه الاستعلام الاول SELECT persons.ID, persons.EmpName, Min(enterans_absent.Date) AS MinOfdate FROM persons INNER JOIN enterans_absent ON persons.ID = enterans_absent.IDb GROUP BY persons.ID, persons.EmpName; ثالثا : بواسطة الاستعلام الاولى عملنا استعلام ثاني باسم q2 ويعطيك النتيجة كما مبينة في صورة الاعلاه وهذه الاستعلام الثاني SELECT Q1.*, enterans_absent.* FROM Q1 INNER JOIN enterans_absent ON (Q1.MinOfdate = enterans_absent.date) AND (Q1.ID = enterans_absent.IDb); ملاحظة : في نهاية المطاف هناك احتمال ان يكون هناك مشاكل امامك لانكي تستعمل الاسماء المحجوزة مثل Date اليك القاعدة بعد تعديل new work.rar

السبب یرجع لهذا الكود في حدث قبل تحديث للنموذج Private Sub Form_BeforeUpdate(Cancel As Integer) If [n1] = 1 Then Else DoCmd.RunCommand acCmdUndo End If End Sub اي لا يحقق الشرط و يتم التراجع عن ما عملته امسح هذا الكود وسترتاح

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

لان سيستم هو 24 ساعة وليس 12 ساعة اتفضل اليك هذا الكود Private Sub T2_AfterUpdate() Dim i If Me.T1 > Me.T2 Then If Me.T2 = #12:00:00 AM# Then i = #11:59:00 PM# - Me.T1 Me.T3 = i + #12:01:00 AM# Else i = #11:59:00 PM# - Me.T1 Me.T3 = i + #12:01:00 AM# + Me.T2 End If Else Me.T3 = Me.T2 - Me.T1 End If End Sub واليك المرفق Database1 (2).rar فقط عليك ان تكتب بدل الوقت القصير تكتب now() ,وبعدين ستعمل عملية حذف بين الوقت الاول والثاني

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

اتفضل هل تريد ان يكون النتيجة هكذا ؟ اذا نعم اليك المرفق فرز.rar

اتبع الخطوات عند فتح التقرير في وضع التصميم بعدين اختر الحقل للفرز

الیک المرفق لکن لا انصحك باستخدام هذه الطريقة الا اذا كان كلا الوقتين في يوم واحد Database1.rar

وانا مع الکلام استاذنا ابوخليل 100% وسيكون احسن لك ولقاعدتك ان تمشي معاه وعلى رغم كل شيء اذا تطلب النتيجة على طريقتك سنعطيك طريقة لكن لا تنسى هذه ليس افضل طريقة فرضنا عندنا ثلاث حقول باسماء t1 , t2 ,t3 تي 1 لوقت العطل تي 2 لوقت الاصلاح تي 3 للفرق بينهما اليك هذا الكود If Me.t2 = #12:00:00 AM# Then Dim i i = #11:59:00 PM# - Me.t1 Me.t3 = i + #12:01:00 AM# Else Me.t3 = Me.t2 - Me.t1 End If

اليك هذا gaz.rar

اتفضل الييك هذا الكود اعمل كوبي باست للكود On Error Resume Next If Me.M <= 1 Then MsgBox "يجب ان تدخل رقم لکي يتم العملية" Exit Sub Else DoCmd.GoToRecord , , acFirst Me.الحلقة.SetFocus Dim i As Integer For i = 1 To Me.Form.RecordsetClone.RecordCount If Me.ايام_البث = "كل يوم" Then Me.الحلقة = Nz(Me.الحلقة, 0) + Me.M End If DoCmd.GoToRecord , , acNext Next i End If اليك مرفق بعد اضافة الكود لكل سؤال جديد موضوع جديد اعداد جدول البث اليومي 27-8.rar

لا تتأسف نحن ھنا لكي نساعد البعض المهم ان يوصل صاحب السؤال الى النتيجة المطلوبة تحياتي

مشاركة مع استاذ حلبي اتفضل جرب هذا الكود Private Sub a_Click() On Error Resume Next Dim i As Integer For i = 1 To Me.Form.RecordsetClone.RecordCount Me.ملاحظات = Me.الحلقة + Me.M DoCmd.GoToRecord , , acNext Next i End Sub

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

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

اتفضل Private Sub opn_Click() If Len(Me.txtpass & "") = 0 Then MsgBox "ادخل رقم سري القديم" Me.txtpass.SetFocus Exit Sub ElseIf Len(Me.txtpasscadid & "") = 0 Then MsgBox "ادخل رقم سري الجديد" Me.txtpasscadid.SetFocus Exit Sub ElseIf Len(Me.txtpasscedid1 & "") = 0 Then MsgBox "ادخل رقم سري الجديد للتأکيد" Me.txtpasscedid1.SetFocus Exit Sub ElseIf DLookup("[USER_PASSWORD]", "data1", "[USER_NAME]='" & Me.txtname & "'") <> Me.txtpass Then MsgBox "خطأ في رقم سري القديم" Me.txtpass.SetFocus Exit Sub ElseIf Me.txtpasscadid <> Me.txtpasscedid1 Then MsgBox "ھناک خطأ في تأكيد رقم سري الجديد" Me.txtpass.SetFocus Exit Sub ElseIf DLookup("[USER_PASSWORD]", "data1", "[USER_NAME]='" & Me.txtname & "'") = Me.txtpass And Me.txtpasscadid = Me.txtpasscedid1 Then Dim Sql As String Sql = "UPDATE data1 SET data1.USER_PASSWORD = [Forms]![Changepassord]![txtpasscadid] WHERE (((data1.USER_NAME)=[Forms]![Changepassord]![txtname]));" DoCmd.SetWarnings False DoCmd.RunSQL (Sql) DoCmd.SetWarnings True MsgBox "تم تغيير رقم سري بنجاح" DoCmd.Close acForm, Me.Name End If End Sub اليك المرفق مستخدم.rar

ليس هناك المشكلة .. اذا تريد ان يكون هناك حقل اي دي مكرر القي نظرتا الى هذه الصورة واليك القاعدة test.rar

اذن اليك هذا الكود Private Sub n1_AfterUpdate() On Error Resume Next Dim R As Integer R = Mid(DLookup("[rajmasand]", "asnsdat", "Mid([rajmasand],6)='" & Me.n1 & "'"), 6) If Len(Me.n1 & "") = 0 Then Exit Sub ElseIf DCount("[rajmasand]", "asnsdat", "Mid([rajmasand],6)='" & Me.n1 & "'") = 0 Then MsgBox "ليس لدينا اي عقد بھذا الرقم" Exit Sub ElseIf DLookup("[terhel]", "asnsdat", "Mid([rajmasand],6)='" & Me.n1 & "'") = "غادر" Then MsgBox "هذا مغادر لايمكن فتح نموذج المردود" ElseIf DLookup("[terhel]", "asnsdat", "Mid([rajmasand],6)='" & Me.n1 & "'") = "موجود" Then DoCmd.close acForm, "بحث عن مردود", acSaveNo DoCmd.OpenForm "مردود", acNormal, , "Mid([rajmasand],6)='" & R & "'" Else MsgBox "ادخل رقم السند المطلوب تعديله" End If End Sub واليك المرفق بعد تعديل طبق-بهدا.rar

اتفضل اليك هذا الكود On Error Resume Next If Len(Me.n1 & "") = 0 Then Exit Sub ElseIf DCount("[rajmasand]", "asnsdat", "[rajmasand]='" & Me.n1 & "'") = 0 Then MsgBox "ليس لدينا اي عقد بھذا الرقم" Exit Sub ElseIf DLookup("[terhel]", "asnsdat", "[rajmasand]='" & Me.n1 & "'") = "غادر" Then MsgBox "هذا مغادر لايمكن فتح نموذج المردود" ElseIf DLookup("[terhel]", "asnsdat", "[rajmasand]='" & Me.n1 & "'") = "موجود" Then DoCmd.close acForm, "بحث عن مردود", acSaveNo DoCmd.OpenForm "مردود", acNormal, , "[rajmasand]='" & R & "'" Else MsgBox "ادخل رقم السند المطلوب تعديله" End If واليك ملف بعد تعديل طبق-بهدا.rar

استأذن من استاذنا @صالح حمادي اتفضل اليك هذا رساله.rar

اليك هذا pic1.rar

اليك ما طلبت pic1.rar

ھکذا DoCmd.Close acQuery, "Query3", acSaveYes ماذا تريد ان يعمل لك هذا السطر من SQL ؟ حسب فھمي لانكي لم قمت بعمل شيء فقط قلت تحديد ذلك بدون ان تضع في اي مكان اي بشكل اوضح ... بواسطة SQL تقدر ان تعمل الحاق او حذف او تحديث او عمل جدول جديد لكن انتي ما حددت اي شيء منه فقط انت حدده مثل ذلك الجملة تقدر ان تعملي ك مصدر للتقرير او نموذج