jjafferr

وعليكم السلام سؤالك يحتاج الى توضيح اكثر لوسمحت ، وياريت مثال. جعفر

وعليكم السلام تفضل ، السر في الاستعلام ، . في النموذج اختار من الحقل الذي تريد (وحتى يمكن ترك الحقل الآخر فارغ ، حتى يعطيك جميع الاختيارات فيه) . جعفر 812.الموظف.accdb.zip

ومشاركة مع اخي ابو آدم يمكنك استخدام SELECT TOP 1 Field1 FROM table1 WHERE Field1 In (SELECT TOP 2 Field1 FROM table1 ORDER BY Field1 DESC) ORDER BY Field1; جعفر

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

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