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

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

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

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

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

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

وجزيت خيراً أيها المتهرب من ذكر اسمه .. قلت لك مش هسيبك بارك الله فيك وجزيت خيراً على مساهمتك الجميلة والرد عليها بهذا السطر CommandButton1.Caption = IIf(CommandButton1.Caption = "1", "2", "1") أبسط وأيسر

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

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

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

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

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

بارك الله فيك حبيبي الغالي ابو يوسف هي تحت الانشاء باذن الله تلبي معظم الاحتياجات تقبل تحياتي

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

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

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

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

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

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

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

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

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

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