jjafferr

الظاهر ان الملف اكبر من ان يقبله المنتدى ، لذا ارفعيه في احد مواقع رفع البرامج ، وارفقي الرابط هنا لإنزاله ومثل https://www.mediafire.com/ جعفر

اذن إحنا محتاجين مرفق ، وتفاصيل عن السجل المطلوب الحاقه بالجدول

ولما تستعملين هذا المعيار ، يعطيك اكثر من سجل ، صح؟ فهذا معناه ان المعيار الواحد الذي في الاستعلام غير كافي ، فيجب ان تضيفي معيار او معيارين اضافيين جعفر

انتي لما تعملي استعلام ، فعندك جميع سجلات الجدول ، ولكي تحصلي على سجل معين ، فيجب ان تستخدمي معيار Criteria لحقل/حقول ، حتى يعطي استعلامك السجلات الصحيحة جعفر

وعليكم السلام هذا معناه ان المعيار الذي تستخدميه ليس فريدا ، وانما هو مشترك بين هذه السجلات جعفر

شكرا ، ان شاء الله انظر في الرابط جعفر

وكذلك ملاحظة اخرى: جعفر انا شخصيا لا افهم شيء عن عمل ملفات DLL ، ولكني اعرف الاكسس

لو تابعت الموضوع هنا فتكملة له ، وردا على سوالك لرؤية اكثر من عمود ، في النموذج لما نريد ZoomBox ، نستطيع فتحه بالضغط على الزرين Shift + F2 ، وبعدها رأيت هذا في الكود: . وهذا معناه ان البرنامج الخارجي Utility.accda هو الذي يقوم بفتح ZoomBox ، وانه مجرد نموذج (هذه الملاحظة من اسم النموذج في الكود) ، فنستطيع عمل نموذج غير منبثق ، ونفتحه بأي عدد من المرات ، هكذا: جعفر

وعليكم السلام هل فحصت المجلد اعلاه لاحقا ، وهل وجدت فيه الصورة؟ اما برنامج كاميرا الويب وبرنامج كاميرات DSLR ، فهو جاهز ويُستعمل من شهر رمضان الماضي ، يعني حوالي السنه ، وبدون مشاكل وان شاء الله ارفقه ، ولكن انتظر عليّ حتى نتعدى هذه الخطوة ، والشغل الآخر اللي في يدي يخف شوي وتابع الموضوع مع اخونا محمد ايمن ، فبحكم تجربته لجهاز اندرويد آخر ، فقد تستفيد انت ونحن كذلك ، حتى نعمل كود نهائي مصقول ان شاء الله جعفر

السلام عليكم لازلت على بالي اخي أوس واليك أحد البرامج التي نستعملها في الاكسس ، والتي تستعمل برنامج خارجي للقيام بالعمل ، فتتبع معي الصور من برنامج اخذته من مشاركة احد مواضيع المنتدى: 1. لاحظ انواع الكود الموجود . استخدم wizard لعمل نموذج او تقرير او استعلام ، وقبل ان تنهي العمل ، تستطيع ان تلغيه . ارجع الى الكود ، وسترى ان الكود اضاف معلومات عن نماذج ووحدات نمطية و class . ولن تستطيع رؤية شيء فيها ، لأنها برامج الاكسس التاليه (انا استخدم اكسس 2010 ، فهي موجودة في المجلد التالي في كمبيوتري) المقفولة: . جعفر

وعليكم السلام تابعني هناك جعفر

طبعا ممكن جعفر

هلا والله بالاستاذ الغائب جوابي كان على اساس الرقم 1 من جعفر

وعندي كذلك من كمبيوترك ، ياريت تصور لنا نفس الشاشات اللي عرضتها انا في الرابط اعلاه. جعفر

وعليكم السلام يوجد موضوع يناقش هذا الطلب ، رجاء البحث عنه ، ويوجد فيه جواب عن طريق HTML جعفر

وعليكم السلام أخي محمد عفوا ما فهمت القصد من الموضوع!! رجاء التوضيح جعفر

وانا عملت هذا كذلك في أحد مشاركاتي اعلاه

السلام عليكم النموذج اول ما يُفتح ، فإنه تلقائيا يعمل الرقم ، اي يعمل سجل جديد ، وبعدين انت تستفسر عن المدرسة موجودة او لا في اعتقادي عندك طريقتين لحل الموضوع: 1. وكما قال أخوي ابوخليل: 2. او في الجدول ، في اعدادات اسم المدرسة ، اجعل وجود الاسم شرطا في حفظ السجل جعفر

وعليكم السلام الاكسس ولسرعةعرض البيانات ، فإنه لا ينتظر وصول جميع السجلات/البيانات من الجداول ، لأن المستخدم عادة سيتصفح النموذج (على اعتبار النموذج مستمر او جدولي) ، ثم ينزل الى الصفحة التالية ... وهكذا ، ولكن في حالتنا ، نريد ان نعرف كم عدد السجلات علشان نعمل Loop ، لذا نريد ان نعرف عدد السجلات ، ثم نبدأ قراءة السجلات من السجل الاول جعفر

وعليكم السلام هذه بسبب اعدادات الوندوز ، فالظاهر انك لم تضع اسم بلد عربي لقراءة حروف unicode المادة رقم 3 في الصورة جعفر

وعليكم السلام انتي لم تطلبي هذا مسبقا تفضلي الكود وبه هذه الخاصية: If DCount("*", "Q2") <> 0 Then Q2.Visible = True Me.Q2.Requery Else Q2.Visible = False MsgBox "please note that you should follow up with finaicial affairs(Mr.Mohammed siamek) to fill tou start using the system!! " End If جعفر

العفو أخي شفان هاي مو عتاب ، وانما ملاحظة

حياك الله أخي أمير الكودين شغالين تمام ، لكني اعتمدت على كود اخي وائل بالنسبة لمقارنة التاريخ ، والآن عملت طريقتي ، وهي: Set Rs = CurrentDb.OpenRecordset("tbTable", dbOpenDynaset) Rs.MoveLast: Rs.MoveFirst RC = Rs.RecordCount For i = 1 To RC If Rs.Fields("dateend") < Date Then Rs.Edit Rs.Fields("check") = True Rs.Update End If Rs.MoveNext Next i Rs.Close: Set Rs = Nothing او طريقة النموذج مباشرة Set Rs = Me.RecordsetClone Rs.MoveLast: Rs.MoveFirst RC = Rs.RecordCount For i = 1 To RC If Rs.Fields("dateend") < Date Then Rs.Edit Rs.Fields("check") = True Rs.Update End If Rs.MoveNext Next i جعفر أخي أمير يجب ان تبدأ بـ rs.movelast قبل rs.MoveFirst وإلا فلن تحصل على جميع السجلات جعفر

وعليكم السلام جرب هاي الكود Dim S1, S2, S3, S4 As integer S1 = Day(Date) S2 = Month(Date) S3 = Year(Date) S4 = Cus_Num Bar_Code = Trim(S1 & S1 & S3 & S4) جعفر

شوف النموذج الجديد ، مجرد عملت النموذج ، وخليت الكود اعلاه في الحدث "عند تحميل النموذج" جعفر 646.dateend.mdb.zip واذا تريده من نفس النموذج الموجود اصلا: Set Rs = CurrentDb.OpenRecordset("tbTable", dbOpenDynaset) 'If Rs.Fields("check") = False Then Rs.MoveLast: Rs.MoveFirst Do While Rs.Fields("dateend") < Date Rs.Edit Rs.Fields("check") = True Rs.Update Rs.MoveNext Loop 'End If Rs.Close: Set Rs = Nothing جعفر