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

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

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

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

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

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

السلام عليكم قد يكون الموضوع مش جديد وعلى المبتدئين ! ولكن يمكن ان يكون من نوع السهل الممتنع ! الموضوع : عند اضافة بيانات لحقل معين اريد ان يشيك اولا هل هو موجود فيذهب لذلك السجل او يستمر في الاضافة عند عدم وجود المكرر ان ما جعلني اكتب هذا الموضوع هو ان احد الاخوة طرح هذا السؤال وهو شخص اعرف ان مستواه جيدا فقمت بالبحث في اماكن عدة فلم اجد جوابا شافيا ! ويكثر الطلب عليه دائما ! وضعت هنا طريقتين وعند الحدث قبل التحديث للحقل: 1. وهي المطبقة في المرفق: Private Sub Id_BeforeUpdate(Cancel As Integer) Set rs = Me.RecordsetClone rs.FindFirst "id=" & Me.Id If Not rs.NoMatch Then Undo Me.Bookmark = rs.Bookmark MsgBox ("موجود هنا") End If End Sub 2. Private Sub Id_BeforeUpdate(Cancel As Integer) idx = Me.Id If DCount("*", "persons", "id=" & idx) Then Undo DoCmd.FindRecord idx MsgBox ("مكرر هنا") End If End Sub تحياتي متمنيا الفائدة ومستقبلا التعقيب وراغبا في المشاركة بافكار اخرى check_before_ins_upd.rar

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

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

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

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

اذا صورة او صورتين صغار ، فما في مشكلة ان شاء الله هذا كود السطر الواحد ، واللي يربط الصورة بالنموذج/التقرير: شوف هذا الرابط ، فيه الكثير ، بس إقرأه على كيفيك ، إبدأ من اول السؤال وهذا جعفر

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

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

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

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

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

الله ينور حبيبي (أنجم) نفس كلمة ابو البراء بس مصري بارك الله فيك وجزاك كل خير تقبل تحياتي

شكرا اخي 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 هي خلية التاريخ المدخل

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

السلام عليكم ورحمة الله بارك الله فيك اخى الحبيب تقديرى لك يزيد يوما بعد يوم بارك الله فيك

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

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

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

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

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

حياك الله اعمل استعلام وفي حقل تاريخ اخر معاملة اعمل المعيار التالي date()+30 بالتوفيق

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

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