jjafferr

وعليكم السلام هل فحصت المجلد اعلاه لاحقا ، وهل وجدت فيه الصورة؟ اما برنامج كاميرا الويب وبرنامج كاميرات 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 جعفر

وعليكم السلام اخي وائل انا لم انزلت المرفق ، ولكن الكود التالي المفروض ان يفي بالموضوع Set Rs = me.recordsetclone '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 جعفر

السلام عليكم اخي وائل انا لم اعمل بطريقتك ، وانما عملت الاسهل لي ولك عملت جدول جديد فيه جميع الكلمات بدون تشكيله ، بهذه الطريقة لا داعي للمساس لجدولنا الاصل ، ونظرا لكثرة الكتابة عندك ، اضطررت ان اعمل الحقل txt مذكرة . عملت علاقة بين الجدولين . الحقت البيانات بالجدول الجديد ، ولاحظ هنا اني جمعت جميع حقول جدولك الى حقل واحد فقط ، والذي سيتم البحث من خلاله ، (لاحظ كيف استدعيت الوحدة النمطية: (اسم الحقل المحتوي على تشكيلة)Simplify والتي تستطيع استعمالها لاحقا لتحديث/الحاق بقية البيانات) . هذا الاستعلام سيكون مصدر بيانات نموذج البحث ، بحيث نستطيع البحث عن اي كلمة او جزء منها ، من اي حقل ، يعني صار عندنا بحث Google للجدول بالكامل وليس لحقل معين . عملت تغيير لإسم حقل البحث . اما زر البحث فيحتاج الى هذا الكود فقط . هذه الطريقة جدا مرنه ، وتستطيع عمل اللي تريده بها جعفر 643.7-5-2017 بحث الفوائد بقائمة منسدلة.accdb.zip

المشكلة موجودة عندك لأنك عملت Lookup في الجدول للحقل faculty ، ولا يُنصح بعملها في الجدول ، وانما يُنصح عملها في النموذج ، . تم تعديل الاستعلام ، هكذا جعفر 642.1.1.accdb.zip

ملفك شغال زي الفُل وبدون ان اعمل عليه شيء ، ويتم تصدير ملف الاكسس الى المجلد الذي ذكرته انت واما رسالة التأكيد فتقدر تكتب هذه الاسطر بعد الكود: msgbox "تم تصدير الملف" جعفر

اخي شفان ، هذا الذي عملته انا في اول مشاركة لي ، بالضبط جعفر

لا بقى ، بعد كله الاخطاء دي ، لازم نشوف طلبك في مرفق ، لأنه مستحيل حل طلبك بدونه جعفر

وعليكم السلام لم يكن ممكنا ان نحل الموضوع بدون المرفق ، والمرفق لم يكن موجودا ، واذا به موجود جعفر تفضلي هذا التغيير في كود زر البحث: Private Sub amr4_Click() انت هنا تطلبين طلب البيانات الجديدة للنموذج الرئيسي ، وهذا ليس المطلوب 'DoCmd.Requery الحقل Research_ID هو حقل تسمية label فالمعادلة ليس لها معنى 'If [Research_ID] = [A] Then يجب ان نتحقق من وجود كلمة في الحقل A If Len(Me.A & "") <> 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 End Sub جعفر

تم فصل موضوع الاخ @حمادة عثمان الى موضوع مستقل: جعفر