jjafferr

هلا والله بالاستاذ الغائب جوابي كان على اساس الرقم 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 جعفر

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

السلام عليكم أخي حمادة تم فصل طلبك من الرابط الى موضوع جديد ، لإعطاء الموضوع حقه ، ولعدم تشابك المواضيع في بعض نأتي الى مشكلتك: بيانات الجدول تقول ان حقل faculty هو حقل نص وفيه هذه البيانات . الاستعلام يأخذ معاييره من (الحقل 1 والنموذج fa) . بينما النموذج الوحيد الموجود في البرنامج هو re وليس fa كما اشرت اليه انت في معيار الاستعلام ، وكذلك الحقل الذي اشرت اليه في الاستعلام هو الحقل 1 ، والذي في النموذج هو حقل تاريخ ، فكان الواجب عليك ان تختار الحقل 3: . ونأتي الى زر فتح التقرير في النموذج ، والحدث يشير الى ماكرو ضمني . وعند فتح الماكرو الضمني ، نجد انه يشير الى فتح تقرير بإسم Student . ولكن هذا التقرير لا يوجد في برنامجك!! . اصلح هذه الملاحظات ، وان شاء الله يشتغل تقريرك وبدون مشاكل جعفر

السلام عليكم أخي @حمادة عثمان مشاركتك لا علاقة لها بالموضوع ، لذا رجاء عمل موضوع مستقل له ، شكرا جعفر

ارفق لك طريقتين: DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Query Name", "D:\myFile.xls", True او DoCmd.OutputTo acOutputQuery, "Query Name", acFormatXLS, "D:\myFile.xls", False جعفر

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