علي هندسة

تفضل استاذ ابو البشر مشكورا abx.accdb

السلام عليكم ممكن المساعدة في كود يعرض ارقام السجلات المفقودة في جدول بين سجلين الاول والاخير وشكر

السلام عليكم شكرا استاذ محمد ابوعبد الله على الاجابة وهو المطلوب

السلام عليكم استاذ فارس بني هلال شكرا على الاجابة والشرح الجميل ما احتاجه هو في حالة ادخال تاريخ خطاً كان يكون 33/6/2012 وبما ان التاريخ في حقل الايام خطأ لانه لايجب ان يتعدى ال 31 يوم فتظهر لي رسالة بان التاريخ خطأ وكذالك اذا تم ادخال في حقل الشهر اكثر من الرقم 12 فتظهر رسالة الخطأ وشكرا

رائع رائع استاذ ابو عارف وهو المطلوب بارك الله فيك

السلام عليكم شكرا استاذ ابو عارف على الاجابة وشكرا على تعاونك لدي مشكلة بخصوص كود الغاء المسافة بين الاسماء Function RemoveSpaces(TextString As String) As String Dim TempText As String Do While Len(TextString) > 0 If Left(TextString, 1) <> " " Then TempText = TempText & Left(TextString, 1) End If (TextString = Mid(TextString, 2 Loop RemoveSpaces = TempText End Function ()Private Sub Cnm01_Click Dim c, i ("c = DCount("[Xname]", "Table DoCmd.GoToRecord , , acFirst For i = 1 To c XXname = RemoveSpaces(Xname) DoCmd.GoToRecord , , acNext Next i End Sub End Sub فهو بطيء ويستغرق مدة بالنسبة للسجلات الكثيرة ويصل لحد 18000 سجل تقريبا ويهمل الباقي هل يمكن تنفيذ الكود بسرعة وعلى كل السجلات والمشكلة الثانية هي بخصوص الكود الغاء المسافات الزائدة بين الاسماء Expr1: Replace(Replace(Replace(Replace([Xname]," "," ")," "," ")," "," ")," "," ") هل يمكن استبداله بكود في زر لفورم وشكرا لك استاذي

السلام عليكم شكرا استاذ ابو عارف على الاجابة ولكن كيف يتم تنفيذ الدوال الثلاثة بكود لقاعدة البيانات السابقة وماذا بخصوص المسافة بين الكلمات كما في الصورة المرفقة

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

شكرا اخي محمد ابوعبد الله على سرعة الاجابة الاسماء عباره عن حقل واحد في جدول كما في المرفق وشكرا tp.mdb

السلام عليكم ممكن المساعدة في كود الغاء السافات بين الاسماء في جدول فمثلا الاسم معن سعد محمود جاسم تصبح معنسعدمحمودجاسم

السلام عليكم اكتب الكود هكذا مع الغاء رسالة الخطاء 'On Error Resume Next DoCmd.OutputTo acOutputTable, "table name", "Excel97-Excel2003Workbook(*.xls)", "", True, "", , acExportQualityPrint

للرفع

السلام عليكم ضع هذا الكود في زر عند الصغط عليه DoCmd.OutputTo acOutputTable, "table name", "Excel97-Excel2003Workbook(*.xls)", "", True, "", , acExportQualityPrint علماً ان table name هو اسم الجدول المراد تصديره

السلام عليكم طلبي رساله تخبرني بان ىالتاريخ خطاء ويرجى تصحيحه

للرفع

السلام عليكم ممكن المساعدة في برمجة حقل التاريخ للملف المرفق بحيث عند كتابة تاريخ خطاْ تضهر لي رسالة تفيد بان التاريخ خطاُ كان يكون الخطاء بالايام مثلا اذا كان الشهر 30 يوم وتم ادخال رقم 31 او 33 او ان يكون الخطاُ بالاشهر مثلا اذا تم ادخال رقم 13 او 15 في مكان الشهر فتظهر رسالة بالعربي ان التاريخ خطاُ Q.accdb

رفع

السلام عليكم هل يمكن التعديل على الاكسس المرفق بحيث يتم الاستغناء عن زر ابحث وعند كتابة اي كلمة يتم البحث مع الاحتفاض بانواع البحث (يبدا/يتضمن/يطابق/مطابقة الهمزة/وعدم المطابقة) بحث بدون همزة.rar

اخي العزيز بحثت ولم اجد ممكن لنك لموضوعي مشكورا

رفع

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