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

السلام عليكم اخوانى الافاضل لا اعرف مدى افادة الموضوع لكم ولكن افادنى كثيرا الموضوع هو ان تجعل العملاء يرسلون تقييم لك عن برنامجك لترى مدى رضى العملاء عنه هذه صورة من موبايلى وهى ما شدنى ان يكون نموذج التقيمات مثلها للعلم انا اطبقه فى كل برامجى اتمنى من الله ان يفيدكم الان مع البرنامج وصور منه وهذه صورة من الميل المرسل كل ما تحتاجه هو عمل ميل على الجيميل وهو الذى سنستخدمه فى الارسال ولازم يكون جيميل وميل اخر اى ميل لتستقبل عليه التقييميات والا مع البرنامج Rate My Pro.rar

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

ومشاركة مع الأستاذ السيد جمال هنا اعدادات الوهتميل hotamil Set emailObj = CreateObject("CDO.Message") 'بريد المرسل emailObj.From = "xxx@hotmail.com" ' العناوين المراد الإرسال لها emailObj.To = "xxxx@gmail.com" & ";" & "xxxx@yahoo.com" & ";" & "xxxx@hotmail.com" emailObj.Subject = "عنوان الرسالة" emailObj.TextBody = "نص الرسالة " 'emailObj.AddAttachment "c:\windows\win.ini" Set emailConfig = emailObj.Configuration emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.live.com" 'Exclude the following line 'emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxx@hotmail.com" ' هنا تضع بريد الهوتميل وكلمة المرور emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "كلمة المرور هنا" emailConfig.Fields.Update emailObj.Send If Err.Number = 0 Then MsgBox "Done" بالتوفيق

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

وعليكم السلام انا غيرت في الجدول ، وجعلت الامكانية ، لكل نموذج اسم مستقل الوحدة النمطية التي تقوم بالعمل: Function myName(F) myName = DLookup("[frm_Caption]", "tbl_frm_Caption", "[frm_Name]='" & F & "'") End Function ونناديها سواء على حدث "تحميل النموذج" او "فتح النموذج" ، هكذا: Me.Caption = myName(Me.Name) والنتيجة جعفر 365.for form.Caption.mdb.zip

شكرا لك وكل التقدير والتوفيق لك والله ما نغيب عنكم بملكنا ولكن الحمد لله اولا واخرا شكرا لك اخى الكريم بارك الله فيك وطيب مسعاك دا ئما

شكرا أخي الكريم وجزاك الله خير الجزاء تمت بحمد الله وتوفيقيه الامر ثم بفضل جهدك الطيب لقد قمت بترحيل جميع الكائنات الى ملف أخر وجربت الكود Me![Désignation] = Me![ID_Tarif].Column(1) Me![Prix_unitaire] = Me![ID_Tarif].Column(2) ونجح الامر الف شكر للاستفادة هذا تمريني الأول facture new.rar

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

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

وعليكم السلام البحث في المنتدى اعطاني: و وطبعا هنلك المزيد جعفر

حياك الله والفضل يعود للأستاذ رمهان جعفر

وعليكم السلام من خصائص التقرير / لسان التبويب تنسيق الاتجاه / اجعله من اليسار الى اليمين

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. ومع كل جديد ومفيد ، أقدم لكم اليوم كود في منتهى الروعة ، يقوم الكود بإنشاء مصنف منفصل لكل ورقة عمل في نفس مسار الملف .. في الملف المرفق ، تم وضع المصنف المسمى Split Workbook في مجلد .. المصنف يحتوي على 4 أوراق عمل ( الأول Main - الثاني Data - الثالث Search - الرابع Result) في ورقة العمل المسماة Main يوجد زر أمر ، بالنقر عليه يتم عمل الكود ، ويبدأ في نسخ كل ورقة عمل ويسميها باسمها كمصنف جديد في نفس مسار المصنف الحالي ، ثم يقوم الكود بإغلاقه .. أسطر الكود مشروحة داخل الكود .. Sub SplitWorkbook() 'تعريف المتغير من النوع النصي Dim xPath As String 'تعريف المتغير من النوع ورقة عمل Dim SH As Worksheet 'تعيين المتغير لتساوي قيمته مسار المصنف الحالي xPath = Application.ActiveWorkbook.Path 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'إلغاء خاصية رسائل التنبيه Application.DisplayAlerts = False 'حلقة تكرارية لكل أوراق العمل بالمصنف For Each SH In ThisWorkbook.Sheets 'نسخ ورقة العمل SH.Copy 'حفظ ورقة العمل بنفس الاسم ونفس المسار Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & SH.Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled 'إغلاق المصنف الجديد والذي أصبح هو المصنف النشط Application.ActiveWorkbook.Close False 'الانتقال لورقة العمل التالية Next 'تفعيل خاصية رسائل التنبيه Application.DisplayAlerts = True 'تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub * ملحوظة : يجب ألا تكون هناك ورقة عمل بنفس اسم المصنف Split Workbook ، حتى لا يحدث مشكلة أثناء تنفيذ الكود أو لتجنب هذه المشكلة يمكن إضافة هذا السطر On Error Resume Next أرجو أن ينال الملف رضاكم ، وتستفيدوا منه في المقام الأول ... دمتم في رعاية الله وطاعته .. وهذا رابط لقناتي على اليوتيوب (في انتظار آرائكم حول القناة كبداية لمرحلة جديدة ..) My Channel أخوكم أبو البراء من منتدى أوفيسنا حمل الملف من هنا

صدر بحمد لله كتاب (مشروعي) و هو كتاب متكامل باللغة العربية في إدارة المشاريع والاعداد لشهادة PMP. الكتاب من تأليف كلٍ من: د/عمرو مسلم و م/ محمد طاهر عرفه ويقع في أكثر من 800 صفحة تغطي المجالات المعرفية الأساسية لإدارة المشروع ،كما يمثل الكتاب مرجع عربي متكامل لمن يرغب في الاستعداد لشهادة مدير المشروع المحترف PMP. اعتمد الكاتبان بالأساس على تبسيط الإصدار الخامس من الدليل المعرفي لإدارة المشروعات ليس من خلال الاختصار ولكن عن طريق الشرح والتوضيح وإضافة أمثلة وتلميحات ورسومات توضيحية وخرائط ذهنية ومعلومات يحتاجها كل مدير مشروع مع الكثير من التمارين المتنوعة في أسلوبها وذلك لضمان استيعاب القارئ لما جاء في كل فصل من معلومات. ويحوي الكتاب خاصية فريدة لتوضيح أين سيتم استخدام أهم مخرجات كل عملية كمدخلات للعمليات الأخرى، مما يؤدي لمساعدة القاريء على الربط المتميز بين كافة العمليات و المجالات المعرفية الواردة في الكتاب. بالإضافة الى ذلك، يحوي الكتاب ما يقارب 500 سؤال تدريبي للاستعداد لاختبار شهادة مدير المشروع المحترف PMP بالإضافة الى 60 نموذج من أهم النماذج المستخدمة في إدارة المشاريع ، فضلا عن تطبيق عملي لاستخدام أهم النماذج ضمن فصول الكتاب، وأخيرا قائمة بأهم المصطلحات المستخدمة في إدارة المشاريع وترجمتها. أخيراً، فإن الكتاب مُوَجه لكل من يفتقد مادة علمية متكاملة في إدارة المشاريع باللغة العربية والتي قد تمثل عاملاً مهماً لتخطي حاجز اللغة الانجليزية والتي جاءت بها معظم الكتب والمراجع في هذا المجال. لمعلومات التوزيع و التواصل ووصلة الكتاب على موقع أمازون إضغط هنا

كل عام و انتم بخير_ جعل الله هذه الايام_ايام رحمة و مغفرة و يفتح لنا الله ابواب الجنة امام دعائنا المستجاب_باذن الله هديتى بمناسبة العام الجديد2015_الاصدار الثانى_تجريبى من برنامج حسابات اوفيسنا دبل كليك و اهداء خاص لمعلمى الاستاذ / عبدالله باقشير و الاساتذة الافاضل تنويه الفضل الاول و الاخير بعد توفيق الله سبحانه و تعالى يرجع الى منتدانا و الاساتذة الافاضل باسرة المنتدى مرفق البرنامج مع الشرح الاصدار الاول يمكن متابعته من هنا هديتى3 _شرح _برنامج_يومية و ميزان مراجعة_حسابات_معدل_KH_G_ابو ادهم لاتنسونا من صالح الدعاء تجريبى_برنامج حسابات_اوفيسنا دبل كليك 2015_G_adham.rar

السلام عليكم هذه الطريقة في توليد الأرقام صالحة لأي برنامج بمعنى ليس بالضرورة أن يكون منجز بالإكسل ملاحظة 1 يمكن توليد أكثر من 100 صف أفقيا كما هو الآن و ذلك بتغيير المتغير x و يمكن توليد أكثر من عشر أعمدة رأسيا كما هو الآن و ذلك بتغيير المتغير y كما أن الكود يقوم بالتأكد من تشابه الأرقام التسلسلية فإن كانت هناك مشكلة يخبرك بها و يقوم بتلوين الخلايا المتشابهة ملاحظة 3 كل هذه الحيل لا تنطلي على متخصص في الإكسل لكن المعروف أن المتخصص لا يشتري برنامجا بل يصنعه بنفسه . و السلام عليكم توليد سريل نمبر.rar

جزاك الله خيرا أخي ياسر قمت بتحميل الملف الجميل كنت اتبع طريقة لتغير اسم الكموند بوتن ( بوتن لا اعني به اسم رئيس روسيا ) و هذه الطريقة هي Private Sub CommandButton1_Click() If CommandButton1.Caption = "1" Then CommandButton1.Caption = "2" Else CommandButton1.Caption = "1" End Sub

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

حياك الله بالترتيب خيارات اكسس ... قاعدة البيانات الحالية ... رمز التطبيق ... تختار صورة تكون بإمتداد .ico وهنا رابط لأحد مواقع الأيقونات . http://www.iconarchive.com/ وهنا التعديل عن طريق الكود Dim db As Database Set db = CurrentDb ' هنا الأيقونة موجودة في مسار قاعدة البيانات ' ssab هو اسم الأيقونة db.Properties("AppIcon").Value = CurrentProject.Path & "\ssab.ico" ' هنا في حال رغبت في استخدام الايقونة للتقارير والنماذج تصبح القيمة true والعكس db.Properties("UseAppIconForFrmRpt").Value = True Application.RefreshTitleBar بعد ان يتضح المطلوب امسح الشرح . بالتوفيق

اما انا فعلى قد حالي ما أقرأ بين السطور ، وما افهم بدون مثال جعفر

جزاك الله كل خير استاذ جعفر نعم بحثت كثيرا ووجدت مايمسى بال CDO لإرسال الإيميل دون الحاجة للاوت لوك . Collaboration Data Objects وهذا هو الكود بإعدادات الهوتميل hotmail Set emailObj = CreateObject("CDO.Message") 'بريد المرسل emailObj.From = "xxx@hotmail.com" ' العناوين المراد الإرسال لها emailObj.To = "xxxx@gmail.com" & ";" & "xxxx@yahoo.com" & ";" & "xxxx@hotmail.com" emailObj.Subject = "عنوان الرسالة" emailObj.TextBody = "نص الرسالة " 'emailObj.AddAttachment "c:\windows\win.ini" Set emailConfig = emailObj.Configuration emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.live.com" 'Exclude the following line 'emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxx@hotmail.com" ' هنا تضع بريد الهوتميل وكلمة المرور emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "كلمة المرور هنا" emailConfig.Fields.Update emailObj.Send If Err.Number = 0 Then MsgBox "Done" وشكرا مرة اخرى على المرور.

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

السلام عليكم ورحمة الله اعمالك دائما فى غاية الروعة بارك الله فيك

وعليكم السلام اخي سلمان انا استعملت حقل من نوع ATTACHMENT وادخلت الصورة مياشرة في الجدول. جعفر 366.SA1.accdb.zip

اخى محمد جزاك الله خيرا

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

شكرا اخي jjafferr وبعد اذن حضرتك انا غيرت الحل اني لغيت قرأه الوحده النمطيه اني ادخل فيها الجمله مباشره من غير قراه من الجدول

سلام الله على الأخوة الأحباب إعيد رفع ملف القرآن الكريم مستوفيا بإذن الله تعالى شكله شبه النهائى بعد إعادة مراجعته فاللهم تقبل. * ارجوا من أخى الحبيب أبو البراء (بكل رفق - ابتسامة) شرح الله صدره مشكورا غير مأمور ان يتم عمله على هذا الملف نظرا لمراجعته وموثوقيته. * ارجوا من جميع الأخوة الذين قاموا بتحميل المرفق بدون تكليف ولكن لمزيد من الإطمئنان أن يقوم بمراجعة نصوص آيات الملف قد استطاعته حفظا لكتاب الله فإذا وجد أى ملاحظة ولو بعد حين أن يبلغنا بها وجزاكم الله الأجر والمثوبة فالجزاء على قدر المشقة. للرفع UthmanicHafs1 Ver09 14-4-2016.rar

من عيوني يا أبو أسيل...غالي ....طلباتك أوامر ...من باب المحبة أولاً والسلام عليكم.

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

تحياتى و بارك الله فيك

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

الأخ فراس/ جرب المرفق وهو تكملة لملف الأستاذ سليم عله يكون المطلوب تكرار الخلايا مع تجاوز الخلايا الرقمية.rar

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

ما شاء الله على التعاون بين الاحبة

منتظرين لابداع

السلام عليكم جرب هذه المعادلة =DATE(YEAR(B2);MONTH(B2)+1;DAY(B2))-B2-(DAY(B2)) أو هذه =DAY(EOMONTH(B2;0))-(DAY(B2)) حيث B2 هي خلية التاريخ المدخل

طيب قبل إضافة الحماية هل كان الكود يعمل بشكل جيد يرجى إرفاق آخر نسخة من الملف للإطلاع عليه

نفترض اسماء الحقول f1,f2,f3 =nz(f1,0)+nz(f2,0)+nz(f3,0) ومعناته استخدام دالة التعويض بقيمة عندما يكون الحقل فارغ بالتوفيق

جرب ان تضع التعبير التالي كعمود جديد بالاستعلام query1 Expr1: DCount("*","items","categoryid=" & [CategoryID] & " and itemid<=" & [ItemID]) بالتوفيق

انصح بهذه الطريقة دائما وخصوصا عند نقل القاعدة لاجهزة اخرى بالتوفيق

السلام عليكم يمكن ترك الرقم كما هو متسلسل 1 - 2 - 3 - 5 ويتم ربطه مع سنة التسجيل كعملية حسابية وحسب حاجة مكان الظهور مثلا حقل الرقم id وحقل التاريخ dt يكون المعادلة او التعبير =id & "/" & year(dt) بالتوفيق

بسم الله والصلاة والسلام على رسول الله السلام عليكم أخي الحبيب أبو أسيل بارك الله بكم . ..كل يوم اكتشاف جمال موهبة جديدة ....مدونة الحبايب رائعة ...اللهم اجعلنا من المتحابين بجلالك ...آمين

الغاء تفعيل القص والنسخ والصق والصق الخص من قائمة كلك يمين بالموس ومن الاختصارات بلوحة المفاتيح DisableCopyPasteCut.zip منقول من صفحة اجنبية

اخي الفاضل محمد الخازمي راجع الموضوع ده هيفيدك في طلبك الملف الاول كان عند الضغط دبل كلك تجد ان النسخ والقص مفعلين الملف الثاني النسخ واللصق غير مفعلين

السلام عليكم الاستعلام في وضع التصميم: ومهم جدا لنجاح هذه العملية ان يكون الاستعلام 1. بفرز مواد المجموعات ، ثم 2. بفرز الترقيم التلقائي مثلا ، وعمل الترقيم تقوم به الوحدة النمطية RowCounter : . والنتيجة: . ولتحديث الجدول Items ، يجب ان يكون لدينا الاستعلام اعلاه ، ثم يقوم الاستعلام qry_2_Update بتحديث الجدول على اساسه وهذه هي الوحدة النمطية: Option Compare Database Option Explicit Public Function RowCounter( _ ByVal strKey As String, _ ByVal booReset As Boolean, _ Optional ByVal strGroupKey As String) _ As Long ' Builds consecutive RowIDs in select, append or create query ' with the possibility of automatic reset. ' Optionally a grouping key can be passed to reset the row count ' for every group key. ' ' Usage (typical select query): ' SELECT RowCounter(CStr([ID]),False) AS RowID, * ' FROM tblSomeTable ' WHERE (RowCounter(CStr([ID]),False) <> RowCounter("",True)); ' ' Usage (with group key): ' SELECT RowCounter(CStr([ID]),False,CStr([GroupID])) AS RowID, * ' FROM tblSomeTable ' WHERE (RowCounter(CStr([ID]),False) <> RowCounter("",True)); ' ' The Where statement resets the counter when the query is run ' and is needed for browsing a select query. ' ' Usage (typical append query, manual reset): ' 1. Reset counter manually: ' Call RowCounter(vbNullString, False) ' 2. Run query: ' INSERT INTO tblTemp ( RowID ) ' SELECT RowCounter(CStr([ID]),False) AS RowID, * ' FROM tblSomeTable; ' ' Usage (typical append query, automatic reset): ' INSERT INTO tblTemp ( RowID ) ' SELECT RowCounter(CStr([ID]),False) AS RowID, * ' FROM tblSomeTable ' WHERE (RowCounter("",True)=0); ' ' 2002-04-13. Cactus Data ApS. CPH ' 2002-09-09. Str() sometimes fails. Replaced with CStr(). ' 2005-10-21. Str(col.Count + 1) reduced to col.Count + 1. ' 2008-02-27. Optional group parameter added. ' 2010-08-04. Corrected that group key missed first row in group. Static col As New Collection Static strGroup As String On Error GoTo Err_RowCounter If booReset = True Then Set col = Nothing ElseIf strGroup <> strGroupKey Then Set col = Nothing strGroup = strGroupKey col.Add 1, strKey Else col.Add col.Count + 1, strKey End If RowCounter = col(strKey) Exit_RowCounter: Exit Function Err_RowCounter: Select Case Err Case 457 ' Key is present. Resume Next Case Else ' Some other error. Resume Exit_RowCounter End Select End Function Public Function Reset_RowCounter() Call RowCounter(vbNullString, False) End Function Public Function Correct_Last_Sequence() Dim rst As DAO.Recordset Dim Last_Seq As Integer Set rst = CurrentDb.OpenRecordset("Select * From 1 Order By Auto_ID Desc") rst.MoveNext Last_Seq = rst!M rst.MovePrevious rst.Edit rst!M = Last_Seq + 1 rst.Update rst.Close: Set rst = Nothing End Function جعفر 361.Database1.mdb.zip

اعمل قاعدة جديدة واستورد لها هذا النموذج وجرب بالتوفيق

السلام عليكم ورحمة الله أخي الكريم مصطفى، لتمديد المعادلة المقترحة من أخي العزيز محمود على الأسطر الأخرى يكفي تغيير المعادلة من الشكل : =SUM(IF(data<=U2;data2)) إلى الشكل: =SUM(IF(data<=$U$2;data2)) ثم تغيير معادلة النطاق المسمى Data2 بالمعادلة : ='Cash Flow W.P (2012)'!$E8:$T8 بدلا من المعادلة: ='Cash Flow W.P (2012)'!$E$8:$T$8 وأنبه أخي الكريم محمود أن الدالة SUMIF شغالة في كل نسخ الأوفيس 2003 أو 2007 أو 2010 أو 2013 ويمكن استبدال المعادلة الأولى (معادلة الصفيف) بالمعادلة (عادية): =SUMIF(data;"<="&$U$2;data2) بينما الدالة SUMIFS لا تعمل إلا في النسخ الجديدة للأوفيس (2007 ، 2010 ، 2013)... أخوكم بن علية

السلام عليكم تم توسيع النطاق ، الآن يمكنكم تفقيط الأرقام حتى طول 21 خانة والكسور حتى 6 خانات ، كما تمت بعض التنقيحات الأخرى . تحياتي . Num2Text_20060728.rar

السلام عليكم تم التعديل على التفقيط الإنجليزي ويبقى عملية إضافة s الجمع فهل هي مطلوبة هنا وخصوصا أنه كثير من الأحيان يستخدم اختصارات للعملة مثل S.R أو علامة الدولار $ . تم معالجة القيم Null بعد عمل دالة شبيهة للـ Nz حيث هي غير متوفرة في الأكسل ومطلوبة بشدة في الأكسس وهي بإسم myNz . شكرا لكل من أبدى برأيه وملاحظاته ولازلت بانتظار المزيد . تحياتي . الملفات المرفقة Num2Text_97.zip ( 56.12ك ) عدد مرات التنزيل: 267