jjafferr

الامر Switch يقارن القيم التي اعطيتها ، وانت القيم الموجودة عندك هي 1 او 29 للحقل Cridi_ID ، بينما في واقع الامر ، الصورة التالية تبين ان قيمة الحقل Cridi_ID هي صفر (يعني ليست القيمة التي تقوم بمقارنتها) والحقل Payment_Period ليس فيه قيمة في النموذج الفرعي (اي ان قيمته Null) ، لذلك ، فنتيجة المتغير Dcode = نفس نتيجة الحقل Payment_Period والذي هو Null ، يعني النتيجة عندنا Decode = Null ، ولكنك في اول الحدث قلت: Dim Dcode As Integer و Null هو Boolean وليس Integer ، وهو الذي يسبب رسالة الخطأ. بينما اذا رجعت الى ملاحظتي السابقة ، حيث تكون قد ادخلت قيمة للحقل Payment_Period ، فعليه تصبح نتيجة المعادلة: Dcode = Payment_Period ، والذي هو رقم صحيح Integer. جعفر

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

انا اعتذر منك اخي ابو آدم ، فلم اكن اعرف انك الاستاذ القدير نارت لبزو ، النار على علم فأهلا وسهلا بعودتك بيننا في بيتك ، منتدى الاكسس جعفر

وعليكم السلام اخي كريمو لم تطلع لي رسالة الخطأ جعفر

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

تسلم ايدك أخوي أبو آدم اجزت واوفيت ، وهذا رابط أخوي ابو خليل جعفر

السلام عليكم شكرا أخي مرشد على المساعدة كان المفروض اعمل الشرح للكود ، علشان يكون واضح عمله ، واللي منه اخوي مرشد فهم بيت القصيد ، واستعمله: 'مؤقتا احفظ هذا المتغير في الذاكرة Dim Ky As Integer 'كلما نضغط على اي زر ، اريد حفظه مؤقتا للحدث التالي Ky = KeyCode 'اذا الصنف فارغ ، والزر الذي تم الضغط عليه هو 'Enter او TAB 'فقم بالكود التالي If Len(Me.Rajmsanf & "") = 0 And (Ky = 13 Or Ky = 9) Then 'احذف معلومات آخر زر تم الضغط عليه Ky = 0 . جعفر

انا استعملت هذا المرفق ، واضفت قيم للنموذج الفرعي ، ثم استعملت زر "خروج" واستعملت زر 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