نجوم المشاركات

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

الأستاذ / أحمد الحاوي السلام عليكم ورحمة الله وبركاته بعد إذن استاذنا العبقري / جمال والستاذ الفاضل إبراهيم أبو ليله جزاهم الله خيراً على الحلول الرائعة ولعدم وجودهم حالياً بالمنتدى إليك الملف به معادلة أستاذنا العبقري وتم تطبيقها على العمود الأول جزاه الله خيراً على إبداعاته الرائعة التي نتعلم منا دائماً جعلها الله في ميزان حسناته وأعطاه الله الصحة والعافية. ترحيل بيانات عملاء بين تاريخين.rar

برنامج مدارس اليمن الرقم السري= 1975 وجدته في مكتبتي مفتوح المصدر العيوب = الكائنات والحقول كتبت بحروف عربية وهذا فيه صعوبة على من يريد تعلم اللغة البرمجية المكتوبة قد لا يحقق كامل المطلوب : ولكن يفتح الذهن ويعطي تصور لكيفة العمل داخل بيئة اكسس school.rar

الرسالة تعني ان اعدادات اللغة في الجهاز غير متوافقة مع البرنامج اضبط اعدادات اللغة في وندوز من لوحة التحكم في xp الاعداد الاقليمية وفي win7 المنطقة واللغة

وبعد الكود الجميل لأخى الحبيب "إبراهيم " يمكن جلبها بالمعادلات أيضا تقبلوا تحياتى ترحيل بيانات عملاء بين تاريخين.rar

السلام عليكم ورحمة الله أخي الكريم، جرّب معادلة الصفيف التالية : =INDEX($B4:$J4;SMALL(IF($B4:$J4>=$B$2;COLUMN($B:$J)-1);1)) ولا تنسى تأكيد المعادلة بواسطة : CTRL+SHIFT+ENTER أخوك بن علية

استاذ سالم السلام عليكم و على كل الاخوة الذين شاركوا في هذا الموضوع حل اخر بالمعادلات يمكنك ليس فقط ايجاد اول مساحة بل المساحات الاخرى ايضاً com 2 salem alsalem.rar

استاذى الحبيب جمال عبدالسميع كل معادلات واعمالك نحن ندرسها ونتعلمها وعندما تمر على مشاركتى فهذا شرف عظيم لى يسعدنى ويفيدنى ويعطى قيمة لحلى جزاكم الله خير

بعد إذن أخى الحبيب " الريفى " لوأردت معرفة ، كل أسم على حدة فطريقة أخى الربفى تحقق المطلوب أما إذا أردت إجمالى عدد الأسماء المكررة فأستخدم هذه الصيغة وهى صيغة صفيف أى لابد من الضغط على " CTRL+SHIFT+ENTER" والمعادلة هى" =COUNTA(MATCH(A2:A21;A2:A21;0)) تقبلوا تحياتى

بعد إذن أخوتى الأفاضل وحلولهم الرائعة يمكن إستخدام هذه المعادلة وهى معادلة صفبف " أى لابد من الضغط على CTRL+SHIFT+ENTER " لكى تأتى المعادلة بالناتج الصحيح والمعادلة هى: =MIN(IF(B4:J4>=B2;B4:J4)) تقبلوا تحياتى

إذا كان النموذج في وضع Single Form يمكنك كتابة =[CurrentRecord] في مصدر بيانات الحقل الخاص بالترقيم

إنسخ هذا في مربع نص الترقيم التلقائي طبعا إذا كان مربع النص التلقائي اسمه ID =RcNum([Form];"ID";[ID]) ثم انسخ الكود هذا في الوحدة النمطية Function RcNum(frm As Form, fldName As String, mID As Variant) As Variant Dim RstClone As Recordset Dim Fld As Field Dim I As Long RcNum = Null If IsNull(mID) Then Exit Function Set RstClone = frm.RecordsetClone If RstClone.RecordCount = 0 Then Exit Function Set Fld = RstClone.Fields(fldName) With RstClone .MoveFirst Do Until .EOF I = I + 1 If Fld = mID Then Exit Do .MoveNext Loop End With RstClone.Close RcNum = I End Function

بعد اذن الاستاذ أبـوخليل استاذ nacer_alger هل هذا هو المطلوب AliElmasry.rar

ارفق مثالك حتى يستطيع اخوانك مساعدتك

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

عمل رائع وممتاز وجزاك الله خيرا ولكن عند عمل حفظ للفاتورة جائني المدة التجريبية للبرنامج انتهت ادخل الرقم السري هل البرنامج مجاني ولا للشراء وشكراً