jjafferr

انا استعملت هذا المرفق ، واضفت قيم للنموذج الفرعي ، ثم استعملت زر "خروج" واستعملت زر x لخروج من النموذج ، وفي كلتا الحالتين لم احصل على رسالة خطأ!! اخبرني خطوات الحصول على الخطأ لوسمحت جعفر

وعليكم السلام استخدمت هذا الكود على حدث "بعد تحديث" للحقل ايام الحضور: Option Compare Database Option Explicit Private Sub todys_add_AfterUpdate() 'Me.New_Date = DateAdd("d", [Number of Days] - 1, DateSerial(Year(Date), Month(Date), 1)) 'اذا ايام الحضور = صفر ، فلا تكتب شيء في التاريخ If Me.todys_add = 0 Then Me.[التاريخ] = "" Else 'وإلا ، فقم بحساب التاريخ Me.[التاريخ] = DateAdd("d", Me.todys_add - 1, DateSerial(Year(Me.Parent.[من تاريخ]), Month(Me.Parent.[من تاريخ]), 1)) End If 'اذا كان ناتج التاريخ اكبر من "الى تاريخ" ، فتجاهله واكتب الى تاريخ If Me.[التاريخ] > Me.Parent.[الى تاريخ] Then 'Me.[التاريخ] = DateSerial(Year(Me.Parent.[الى تاريخ]), Month(Me.Parent.[الى تاريخ]) + 1, 0) Me.[التاريخ] = Me.Parent.[الى تاريخ] End If End Sub واستخدمت اعدادت الحقل لأمنع ادخال الايام الغير صحيحة . جعفر 802.zip

في الموضوع السابق : . في الاستعلام ، نحول فارق الوقت الى دقائق Minutes: IIf([النهاية]>[البداية],DateDiff("n",[البداية],[النهاية]),DateDiff("n",[البداية],[النهاية]+1)) ثم في التقرير نجمع هذه الدقائق ، ثم نحولها الى ساعة:دقيقة Total_Miutes = DSum("[Minutes]", "qry_CT") H = Int(Total_Miutes / 60) M = (Total_Miutes / 60) - H M = Round(M * 60) Me.iTime = H & ":" & M والمفروض ان الصورة التي ارفقتها انت ، هي نتيجة هذا التحويل ، للفارق الذي يكون يوم واحد = يوم 1 * 24 ساعة * 60 دقيقة = 1440 دقيقة + بقية الوقت ، ولكن نتيجة دقائقك تقول ان الفرق يصل الى حوالى 43،087 يوم = 43،087 يوم * 24 ساعة * 60 دقيقة ، لذا راجع وقتك جعفر

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

الحمدلله

وعليكم السلام تفضل Private Sub A_AfterUpdate() Me.B = Nz(DMax("[B]", "tabl", "[A]=" & Me.A), 0) + 1 End Sub جعفر

طيب نفترض اسم الحقل هو iTotal ، وفي اعداداته اجعل مصدره كما هو في الاستعلام ، ثم ضع هذا الكود في حدث "الحالي" للنموذج ، me.iTotal=IIf(IsError([Text16]);0;[Text16]) جعفر

وهاي حل مقارنة حقل شهر-سنة ، بحقل آخر: . . . . جعفر 808.stuff.accdb.zip

كان قصدي اكثر من سجل في النموذج الفرعي عندي طلب لوسمحت: انت تعرف ان جميع الاعضاء اللي يساهمون في المنتدى ، هو تبرع شخصي منهم ، وكل اللي يتمنوه بعد اعطاء الحل ، ان صاحب السؤال يقول لهم شكرا (وانت جزاك الله خير ما تقصر) ، ويعطيهم "Like" على الحل الصحيح (وانت ماشاء الله عليك ما داير لها بال) جعفر

وعليكم السلام قصدك رسالة خطأ في النموذج/التقرير ، وكما قال اخي رمهان ، استعمل =IIf(IsError([Text16]);0;[Text16]) جعفر

وعليكم السلام اخي خالد هل انت مستعد لسماع الاجابة الامر Format يأخذ اي صيغة تعطيه (نص او رقم او تاريخ) ، والنتيجة اللي يعطيها تكون نص لهذا السبب ، اذا اردت استعمال = فيجب ان تستعمل نفس الامر من جهتي المعادلة ، ولا تستطيع استعمال >< ، إلا اذا كان قصدك مقارنة النص بين جانبي الاشارة جعفر

هذه الاسطر مافيها فائدة بدون السطر اللي فوقها ، اللي فوق جميع الاحداث

وعليكم السلام جرب هذا الكود ، المفروض يشتغل على جميع اصدارات الاكسس DoCmd.OutputTo acOutputTable, stDocName, acformatxls, "C:\" & "المدرسين" & ".xls", False 'Excel 2003 جعفر

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

وعليكم السلام مو قلت لك ، تخش ، وتطلع بعدين تفضل ، تم اضافة حقل "اعمل التغييرات" ، واذا كان عليه صح ، يقوم بالعمل على معطيات ذلك السجل فقط . وهذا الكود Private Sub cmd_Do_Records_Click() Dim rst As DAO.Recordset Dim rstSUB As DAO.Recordset 'نجهز الجدول لإدخال بيانات رقم المقعد Set rst = CurrentDb.OpenRecordset("Select * From Tabl_bus") 'نقرأ بيانات النموذج الفرعي Set rstSUB = Me.Forme_Sub_Itinerary.Form.RecordsetClone rstSUB.MoveLast: rstSUB.MoveFirst RCsub = rstSUB.RecordCount 'نقرأ كل سجل من سجلات النموذج الفرعي For j = 1 To RCsub 'اذا يوجد علامة صح في حقل "اعمل التغييرات" فقم بحذف السجلات السابقة لهذا الخط ، واعمله من جديد If rstSUB!Do_Changes = -1 Then 'نحذف سجلات رقم المقعد من الجدول mySQL = "DELETE Tabl_bus.Num_Itinerary_ID, Tabl_bus.Num_Itinerary, Tabl_bus.Num_rihla, Tabl_bus.*" mySQL = mySQL & " FROM Tabl_bus" mySQL = mySQL & " WHERE Num_Itinerary_ID=" & rstSUB!Auto_ID mySQL = mySQL & " AND Num_Itinerary=" & rstSUB!Num_Itinerary mySQL = mySQL & " AND Num_rihla=" & rstSUB!Num_rihla CurrentDb.Execute mySQL 'نقوم بتغيير حقل "اعمل التغييرات" ونزيل الصح منها rstSUB.Edit rstSUB!Do_Changes = 0 rstSUB.Update 'نعمل سجلات رقم المقعد في الجدول For i = 1 To rstSUB!Number_seats rst.addnew rst!Num_Itinerary_ID = rstSUB!Auto_ID rst!Num_Itinerary = rstSUB!Num_Itinerary rst!Num_rihla = rstSUB!Num_rihla rst![Chair_ No] = i rst.Update Next i End If 'rstSUB rstSUB.MoveNext Next j 'احذف البيانات من ذاكرة الكمبيوتر rst.Close: Set rst = Nothing rstSUB.Close: Set rstSUB = Nothing End Sub جعفر 806.1.AAddseat.accdb.zip

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

تفضل Option Compare Database Dim Ky As Integer Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Ky = KeyCode End Sub Private Sub Rajmsanf_LostFocus() Dim Rs As DAO.Recordset Set Rs = CurrentDb.OpenRecordset("select * from Alsnaf where Rajmsanf = '" & Me.Rajmsanf & "'") If Rs.recordcount > 0 Then Alwsf = Rs!Alwsf Sanf = Rs!Sanf ID_Sanf = Rs!ID_Sanf Albdil = Rs!Albdil Price_Sales = Rs!Price_Sales Else If Len(Me.Rajmsanf & "") = 0 And (Ky = 13 Or Ky = 9) Then MsgBox "عفوا يجب ادخال رقم" Me.Alkmiah.SetFocus Me.Rajmsanf.SetFocus ElseIf Len(Me.Rajmsanf & "") <> 0 Then MsgBox "عفوا هذا الرقم غير صحيح" Me.Alkmiah.SetFocus Me.Rajmsanf.SetFocus End If End If Ky = 0 Rs.Close: Set Rs = Nothing End Sub جعفر 807.147.mdb.zip

السلام عليكم انا لم اجد غير هذين الحقلين: . فما عرفت وين تريد تضع عدد الايام!! اما بالنسبة الى ALike ، الظاهر ان برنامجك كان adp او كان موصل بـ SQL server ، لأنه كان تلقائيا متحول على . وبعد عمل قاعدة بيانات فاضية ونقل كائنات قاعدة بياناتك فيها ، قبلت Like ، وتم عمل الكود على الحدث بعد تحديث حقل البحث في النموذج. رجاء اعطني مثال بالايام من برنامجك واي حقل ، حتى استطيع المساعدة ، فشرحك غير واضح جعفر 802.zip

وعليكم السلام العلاقة بين الجدولين Tabl_bus و Tabl_Itinerary غير صحيحة ، فالظاهر لازم تحذف احدهم . ويعدها تقدر الزر "اعمل السجلات" ، والذي يحتوي على هذا الكود: Private Sub cmd_Do_Records_Click() Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From Tabl_bus") For i = 1 To Me.Forme_Sub_Itinerary!Number_seats rst.addnew rst!Num_rihla = Me.Forme_Sub_Itinerary!Num_rihla rst!Num_Itinerary = Me.Forme_Sub_Itinerary!Num_Itinerary rst![Chair_ No_] = i rst.Update Next i rst.Close: Set rst = Nothing End Sub جعفر 806.Addseat.accdb.zip

وعليكم السلام 1. راجع الرابط هذا لإصطياد رقم الخطأ ، ثم بعد الحصول على الخطأ ، مشاركتي التالية تخبرك كيف تعمل رسالة الخطأ الخاصة بك . 2. مثل ما عملت في النموذج في الضغط على F2 ، اعمل نفس الشيء في النموذج الآخر ، والرقم الذي تريد هو: keycode=13 or keycode=108 جعفر

وعليكم السلام تفضل (هذا للنسخ واللصق) ، ولكنه للأسف بسبب العربية ، فان الحقول تلخبطت: IIf([النهاية]>[البداية],[النهاية]-[البداية],([النهاية]+1)-[البداية]) . وهنا الصورة الصحيحة: . وتم تعديل الاستعلام كذلك في المرفق جعفر 800.1.حساب فترات الوقت.accdb.zip

انا عملت لك الوحدة النمطية في تقريرك ، ونتيجة عمل الوحدة النمطية تشوفها في الحقل Me.iTime في المرفق في مشاركتي السابقة.

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