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

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

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام وأحبابي في الله أقدم لكم اليوم موضوع خفيف دمه ظريف ، ومفيد جداً جداً إلى أبعد مما تتصور ...الموضوع يتمركز حول استخدام كلمة NOT والتي تعكس القيمة أي إذا كانت القيمة True فإنها تصبح False ، وإذا كانت القيمة False تصبح القيمة True ... وإليكم أمثلة تطبيقية لتأكيد المعلومة وكيفية الاستفادة منها المثال الأول : Sub ToggleFormulaBar() Application.DisplayFormulaBar = Not Application.DisplayFormulaBar End Sub نجد نفس السطر اللي على اليسار هو هو كما على اليمين ، فقط أضفنا كلمة NOT والتي تعكس القيمة فإذا كان شريط المعادلات مخفي أصبح ظاهراً ، وإذا كان شريط المعادلات ظاهراً أصبح مخفياً .. سأدرج بقية الأمثلة مع ذكر الفائدة من كل كود ، والفكرة نفسها في كل الأمثلة ------------------------------------------------------------------------------------------ المثال الثاني : Sub ToggleShowZeros() ActiveWindow.DisplayZeros = Not ActiveWindow.DisplayZeros End Sub الكود لإظهار القيم الصفرية وإخفائها المثال الثالث : Sub ToggleGridlines() ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines End Sub الكود لإظهار خطوط الشبكة وإخفائها المثال الرابع : Sub ToggleDisplayHeadings() ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings End Sub الكود لإظهار عناوين الصفوف والأعمدة المثال الخامس : Sub ToggleScrollBars() ActiveWindow.DisplayHorizontalScrollBar = Not ActiveWindow.DisplayHorizontalScrollBar ActiveWindow.DisplayVerticalScrollBar = Not ActiveWindow.DisplayVerticalScrollBar End Sub الكود لإظهار أشرطة التمرير الأفقية والرأسية وإخفائها المثال السادس : Sub ToggleWorkbookTabs() ActiveWindow.DisplayWorkbookTabs = Not ActiveWindow.DisplayWorkbookTabs End Sub الكود لإظهار تبويبات المصنف أي أسماء أوراق العمل المبوبة وإخفائها المثال السابع : Sub ToggleStatusBar() Application.DisplayStatusBar = Not Application.DisplayStatusBar End Sub الكود لإظهار شريط الحالة وإخفائه المثال الثامن : Sub ToggleShowFormulas() ActiveWindow.DisplayFormulas = Not ActiveWindow.DisplayFormulas End Sub الكود لإظهار المعادلات في ورقة العمل وإخفائها (التعامل هنا ليس مع شريط المعادلات) المثال التاسع : Sub ToggleShowColumns() Columns("I:J").Hidden = Not Columns("I:J").Hidden End Sub الكود يقوم بإظهار الأعمدة I و J وبالطبع إخفائها أرجو أن يكون الموضوع نال إعجابكم ... وهذه صورة من الملف المرفق حمل الملف من هنا وأخيراً تقبلوا وافر تقديري واحترامي

جزاك الله خيرا أخي ياسر قمت بتحميل الملف الجميل كنت اتبع طريقة لتغير اسم الكموند بوتن ( بوتن لا اعني به اسم رئيس روسيا ) و هذه الطريقة هي 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" وشكرا مرة اخرى على المرور.

شكرا على محاولاتك ، وصبرك جعفر

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أخي الحبيب " محمّد حسن المحمّد " على العمل الرائع و الفكرة الحلوة إضافات جماليّة لها تأثير كبير في كيفية إستعراض الملف و الفورم بشكل خاص جزاك الله خير الجزاء و زادك من علمه و فضله خالص تحيّاتي

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

السلام عليكم ورحمة الله وبركاته اخي ابو يوسف جزاك الله كل خير وبارك الله فيك على هذه الموضوع هل يمكن تلوين خمس أزرار الفورم

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

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

السلام عليكم و رحمة الله و بركاته .... إكمالاً لعملك الكبير أخي ابو سليم أرفق ملفين الأول من تصميمي و سبق لي أن و ضعته بالمنتدى في وقت سابق و الآخر مأخوذ من أحد المواقع الأجنبية ... _______________________________________________ في المرفق MoNo أقدم لكم ( برنامج المطبعة ) نسخة تجريبية من البرنامج مع ملف يشرح أساسيات البرنامج _______________________________________________ في المرفق Mohammed هل تريد أن تظهر لك حكمة اليوم أو نكتة اليوم أو حديث اليوم كلما فتحت برنامجك ؟؟؟ هل تريد أن يكون برنامجك كاملاً ... حتى أن شاشة الـ TIPs تظهر لك كلما فتحته ؟؟؟ و أن تقوم بتعطيل ظهورها إن أردت تماماً كبرنامج الأوفيس الذي صنعت برنامجك به !!! حمل المرفق MONO.rar Mohammed.rar

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

أخي الفاضل مشكلتك ليست في الكود ، وانما في البرنامج ككل ، واعدادات الوندوز ، والدليل هو رسالة OLE Active x . افتح ملف اكسس جديد ، واستورد جميع كائنات هذه البرنامج الى البرنامج الجديد ، ثم جرب الكود جعفر

السلام عليكم عمل جميل جزاكم الله خيرا اخي ابو البراء واخي وائل و جعله الله في موازين حسناتكم

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

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

استاذ كرار ايش رايك Private Sub aaa_AfterUpdate() tw.Visible = aaa = "متوفي" ts.Visible = aaa = "شهيد" End Sub

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

السلام عليكم يمكن ترك الرقم كما هو متسلسل 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

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

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

علي فكرة أستاذي أنافي أنتظارك منذ الصباح الباكر منذ إشتراكي في هذا المرفق لأني متشوق للجديد من حضرتك بصراحة قمة في الروعة والجمال بارك الله فيك بصراحة أشتراك حضرتك في عمل لية بيضفي علية قيمة وجمال بارك الله فيك أستاذي وأكثر من أمثالك عفوا أستاذي فعلا ( دالة sumif ) تعمل في جميع نسخ الأوفيس ولكن يتم إستدعائها كتابتا في النسخ مابعد 2003 لحكمة من ميكروسوفت

السلام عليكم ورحمة الله أخي الكريم مصطفى، لتمديد المعادلة المقترحة من أخي العزيز محمود على الأسطر الأخرى يكفي تغيير المعادلة من الشكل : =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)... أخوكم بن علية