jjafferr

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

حياك الله أخي أمير الكودين شغالين تمام ، لكني اعتمدت على كود اخي وائل بالنسبة لمقارنة التاريخ ، والآن عملت طريقتي ، وهي: 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 مشاركات مني ، ولم تستطع ان تشرح لي المطلوب ، وبعدة محاولات مني لفهم طلبك ، انا استسلم سأغلق هذا الموضوع ، لأنه لا فائدة منه. فالرجاء منك فتح موضوع آخر وبه طلب واضح بأسماء الحقول والجداول ، ومثال عن كيف تريد ان يكون الجواب ، تعمله على اكسل او صورة او وورد ، وهذا المثال يجب ان يكون من بيانات مرفقك ، وان شاء الله تجد المساعدة. جعفر المستسلم

وعليكم السلام الافضل ان ترفق برنامجك ونساعدك في تطبيق الكود عليه ، لأنه حتى وإن رفعت مثالي ، فتجربتي تقول بأن صاحب الموضوع سيصر على استعمال مثاله شكرا اخي على كلماتك الجميلة 1. انا لا املك مثال ، وسأضطر الى عمل مثال ، ولكن الافضل ارفاق برنامجك للتعديل عليه فهذه الجزئية اخذتها من احد برامجي لأحد الزبائن 2. هل يمكن عمل هذا ، الجواب نعم ، ولكن كيف؟ أ- كلمة البحث يجب ان ننظفها من جميع التشكيلات ، اي ندخلها في الوحدة النمطية اعلاه مرة واحدة ، ب- كل حقل موجود في سجل يجب ان ننظفه من جميع التشكيلات ، اي ندخله في الوحدة النمطية اعلاه مرة واحدة ، ويعتمد هذا على عدد السجلات المطلوب البحث فيها ، في البرمجه عندك الاختيار بين سرعة البرنامج ، او التفنن في عمل وشكل البرنامج ، في البداية سيطلب الزبون ويطلب ، وانت ستعطي وستغير ، والفائز في النهاية سرعة البرامج ، لذلك الجواب على سؤالك هو: أ- كل حقل في الجدول يحتوي على كلمات فيها تشكيله وتريد البحث فيه ، اعمل حقل جديد في الجدول لها الحقل ، وضع فيها جميع الكلمات بدون تشكيلة ، بإستخدام الوحدة النمطية اعلاه ، او ب- اذا عندك اكثر من حقل في الجدول يحتون على كلمات فيها تشكيله وتريد البحث في جميع هذه الحقول (ليس شرطا ان تبحث في نفس النموذج في جميع هذه الحقول ، فقد يكون عندك نماذج مختلفة للبحث في حقل/حقول معينة) ، اعمل حقل جديد واحد في الجدول ، وضع فيه كلمات الحقول جميعا وبدون تشكيلة ، بإستخدام الوحدة النمطية اعلاه وسواء استخدمت أ او ب ، فطريقة البحث سيان بتقول لي كيف ، وبقول لك ارفق برنامجك جعفر

شكرا جزيلا أخي محمد

انا حاولت ولم اتوصل الى حل ، وبحثت ، ولكن كذلك بدون فائدة جعفر

وعليكم السلام اخي العزيز ، المنتدى مليء بمثل هذا الموضوع ، اعمل بحث ويتلقى الكثير يُغلق الموضوع. جعفر

أخي أحمد تأكد ان ارتفاع قسم Detail هو نفس ارتفاع الحقول ، ثم 1. اختار جميع الحقول ، 2. ستلاحظ المربع 2، 3. اذهب الى 3 ، 4. واضغط على 4 ، لحذف هذه الطريقة . احفظ الملف ، ونتيجة طباعتة التقرير على pdf ، وتكبيره 400% ، يدل على عدم وجود مسافات . اما للتخلص من المسافة تحت المربعات الرمادية ، فاعمل نفس الطريقة لها جعفر 641.New Microsoft Access Database.accdb.zip

1. العمل لازم يكون بالتسلسل اعلاه ، 2. هل جربت المرفق؟

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

وعليكم السلام أخي حمدي البرنامج في المرفق يعطيك المطلوب وبحيث تستخدم مصدر النموذج ، والذي يجب ان يكون استعلام جعفر

وعليكم السلام المثال السابق يُظهر لك السجلات 2 و 4 وهو السجل الذي filter عليه علامة صح ، اما اذا اردت العكس ، وهو ان يظهر لك السجلات 1 و 3 وهو السجل الذي filter ليس عليه علامة صح ، فالكود: Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If Nz(Me.filter1, 0) <> -1 Then Me.Section(acDetail).Visible = True Else Me.Section(acDetail).Visible = False End If End Sub جعفر