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

السلام عليكم تم عمل مثل هذا المشروع سابقا ، هنا http://arabteam2000-forum.com/index.php?/topic/282469-عند-الضغط-على-زر-الحرف-يتم-تلوين-الحرف-الأول/ جعفر

وعليكم السلام أخي عبدالله ولو انه يمكن عمل المطلوب هكذا: Dim a1, a2 a1 = Me.EntryType a2 = Me.EntryCode DoCmd.OpenForm "frmtr", , , "[trtype]=" & a1 & " And [TTTT]=" & a2 ولكني انصح بهذه الطريقة ، لمرونتها ولسعة مجالات استعمالها: جعفر

امثلة بسيطة ارجوا ان تنفعنا جميعا صيغة الدالة DLookup DLookup(expr, domain [, criteria] )‎ expr( مطلوب) اسم الحقل domain( مطلوبة) اسم الجدول/الاستعلام criteria( اختيارية) الشروط دا مثال بسيط : عازوين نعرف اسم الصنف الذي كوده 15 في جدول الاصناف اسم الجدول : items اسم الحقل الذي يحمل أرقام الاصناف : code_items اسم الحقل الذي يحمل أسماء الاصناف: items_Name كود: MsgBox DLookup("[items_Name]", "items", "code_items=15") ممكن ناخد كود الصنف من مربع نص موجود في نموذج بدلاً من التصريح في الدالة عن كود الصنف لنفترض مثلا أن مربع نص موجودٌ في النموذج باسم txtItemsCode كود: MsgBox DLookup("[items_Name]", "items", "code_items=" & Me.txtItemsCode) ممكن ناخد قيمة كود الصنف من نموذج آخر بس بشرط أن يكون مفتوحاً ، فلو كان txtItemsCode موجود في نموذج آخر باسمfrm1 فإن الكود سيأخذ الشكل التالي : كود: MsgBox DLookup("[items_Name]", "items", "code_items=" & Forms!frm1!txtItemsCode) ملحوظة بالنسبة للشروط يجب أن تأخذ في الاعتبار نوع بيانات الحقل الذي نعتمد عليه في الشرط ، في المثال السابق كان حقل نوع بياناته (رقم) ، فلو كان نوع بياناته (نص) سيكون الكود بالشكل التالي :code_items كود: MsgBox DLookup("[items_Name]", "items", "code_items='" & Me.txtItemsCode & "'") طب لو كان نوع بياناته (وقت/تاريخ) الكود هيبقى كدا كود: MsgBox DLookup("[items_Name]", "items", "code_items=#" & Me.txtItemsCode & "#") وشكر الله لكم جميعا

السلام عليكم تفقيط محدث بدالتي جديدتين واحدة للعربي ArbNum2Text وأخرى للإنجليزي EngNum2Text وتم الفصل بينهما بعد إن كانتا في دالة واحدة وذلك لوجود فرق في عدد المدخلات تصل إلى 4 مدخلات . والتحديث الآن تركز على تسهيل استخدام الدوال وخصوصا العربي مع استخدام المدخلات الإختيارية والتي كانت سابقا كلها مدخلات مطلوبة . لي ملاحظة واحدة فقط وتحتاج إلى آرائكم وهي تفقيط الكسر للدالة الإنجليزي وخصوصا أن الدالة تبدأ بالعملة أولا ثم تحويل الأرقام إلى حروف وعند الكسر يكون العكس ، الشيء الذي لا يروق لي .. فمن له دراية بالموضوع أرجو التكرم بتقديم مالديه من معلومات ولكم جزيل الشكر سلفا . الكود معمول لللأكسس والأكسل معا . تحياتي . الملفات المرفقة Num2Text20030725.zip ( 74.73ك ) عدد مرات التنزيل: 626

بسم الله و ما شاء الله اللَّهُمَّ انْفَعْنَا بِمَا عَلَّمْتَنَا , وَعَلِّمْنَا مَا يَنْفَعُنَا , وَزِدْنَا عِلْمًا إِلَى عِلْمِنَا اهداء لكل من شارك بعلمه اقل ما يقال لكم "عندما تنتهى كلمات الابداع و تبدأ من جديد و تنتهى عندكم" بارك الله لكم ( فكرة المدونة هى سهولة الوصول و البحث فى المنتدى للذهاب الى ملف _ المدونه الاصدار الاول من هنا مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_سلسله تجميعيه قسم أكواد فيجوال بيزيك التطبيقات - VBA_ منتدى اوفيسنا محفظة اكواد منوعة_ بدأه _ أ / عبدالله باقشير موضوع مميز _ مكتبة اكواد _ أ / ياسر خليل أبو البراء _ مشاركات الاعضاء افتح الباب وادخل لعالم البرمجة (متخافوش يا أحباب من اللي ورا الباب) أ /ياسر خليل المشروع الكبير (مكتبة الصرح .. زاخرة بالشرح) وهي عبارة عن تجميع لمكتبة الأكواد _ أ / ياسر خليل بداية الطريق لإنقاذ الغريق _ أ / ياسر خليل فهرس بتعليمات وبرمجيات الفيجوال بيزيك للاكسل _ أ / طارق محمود مكتبة أكواد-300كود _ مشاركة _ أ / عبدالعزيز محمد-محب البرمجة هدية للموقع تجميعية ملف به اكواد vba جاهزة _ أ / عبدالعزيز محمد-محب البرمجة بنك أكواد _ أ / abo mohamad هدية للموقع تجميعية ملف به اكواد vba جاهزة _ أ / قلم-الاكسل(عبدالعزيز) لاول مره على الانترنت- كتاب تعلم لغه ال VBA باللغه العربيه (إكسيل) _ أ / خالد الرشيدى افضل موافع الاكسيل على مستوى العالم _ أ / محمد الريفى *** دوال مستحدثة - برامج - أدوات ذكية ***_ أ / أبو تامر_عمر الحسينى الحلول الذكية لمشاكل الاكسل _ أ / أبو تامر_عمر الحسينى موسوعة الاكواد _ أ / أبو تامر_عمر الحسينى اجابات للموضوعات التى يكون عنوانها ( سؤال فى VBA ) _ أ / أبو تامر_عمر الحسينى سلسلة دروس الفيجوال بيسك 6 والاكسيل من علي مصطبة ياسر العربي _ أ / ياسر العربى دروس فى VBA Excel _ نتعلم معا برمجه اكسل _ أ / محمود الشريف مش مهم تكون محترف vba ولكن مهم يكون عندك معلومات عن vba _ أ / إبراهيم ابوليله قسم مكتبة الاكواد فى المكتبة _ أ / محمد طاهر دورة شرح الفيجول بيسك للتطبيقات VBA _ أ / عبدالله المجرب كتاب الكتروني : دورة المبتدئين في ال VBA _مشاركة الاستاذ / محمد يحياوي اهداء الى الاستاذ / ياسر خليل أبو البراء كتاب الكتروني : دورة في الVBA وتطبيقاته في الاكسل 2 _مشاركة_ أ / محمد يحياوي كتاب الكتروني : دورة للمتوسطين في الVBA للاستاذ هادي _مشاركة_ أ / محمد يحياوي (موضوع مميز ) بعض الاكواد المنفصلة قد تهم البعض_بدأه_ أ / محمد يحياوى كل شيئ عن VBA _ مشاركة_ أ / محمد يحياوي حصريا : تعرف على VBA .... ببساطة_ أ / ابو هاجر المصرى ( موضوع مميز ) معالم على طريق البرمجة بلغة VBA _ أ / زياد على موضوع مميز_مجموعة ملفات بالاكواد عن طريق الارتباط التشعبى بشيت اكسيل _ أ / زياد على شرح الماكرو و القوائم بالصور مع برنامج _ أ / هادى محمد المامون سالم شرح الفيجوال بيزيك للمتوسطين_ أ / هادى محمد المامون سالم دورة شرح الفيجوال بيسك لبرنامج الاكسيل VBA .. !! خطوة خطوة _ أ / حمادة عمر أضع لكم بعض الاكواد البسيطة المطلوبة لتعم الفائدة _ أ / رؤوف1951 الطريق الى تعلم فيجوال بيسك الاوفيس _ مشاركات الاعضاء أول الغيث قطرة_ تعلم VBA _ مشاركات الاعضاء ماذ تفعل لو .... سلسلة تعليمية _ أ / طارق محمود شرح دوال الاكسل للاستاذ خبور _ أ / عبدالله باقشير خواطر إكسيلية _ أ / محمد حسن المحمد و مشاركات الاعضاء أمثلة على دوال هامة بالعربي مصنفة حسب عمل الدوال _ أ / أبوعبد الله_اكسلجى موضوع مميز_مكتبة تجميعيه للدوال بالعربى _ أ / أبوعبد الله_اكسلجى كتاب VISUAL BASIC للجميع بالعربي - هدية للجميع _ أ / أبوعبد الله_اكسلجى سلسلة فتح باب الإبداعات للناس العسل في تعريب معادلات الإكسيل _ أ / أبوعبد الله_اكسلجى أكواد أعجبتني _ أ / أبوعبد الله_اكسلجى سلسلة فتح باب الإبداعات للناس العسل في تعريب معادلات الإكسيل _ أ / أبوعبد الله_اكسلجى مكتبة دوال ومعادلات _ أ / محمد الريفى مكتبة دوال ومعادلات الاكسيل (سابقا:مقدمه هامه فى الصيغ) _ أ / محمد الريفى مكتبة كتب اكسيل باللغه العربيه _ أ / محمد الريفى ملف من احد المنتديات الاجنبيه به معادلات شتى وصفيف رائعه_ بدأه _ أ / ابو اياد ( الاسيوطى ) دوال اعجبتنى _ أ / هشام شلبى (موضوع مميز) شرح بعض المعادلات وبعض الخصائص فى الاكسيل_ بدأه _ أ / جمال الفاار اضخم كتاب لتعلم الصيغ والدوال في Excel 2007_ مشاركة من أ / mebsat2 مواضيع قديمة ومهمة جدا بمنتدى الاكسيل_ أ / قنديل الصياد الدوال فى Excel (حسب الفئة) _ أ / قنديل الصياد دوال الإكسيل المختلفة مع شرح مبسط جداً لوظيفة كل دالة _ أ / ا بو سليمان ملف رائع للكثيرمن دوال الاكسل _ أ / ا بو سليمان الدوال بالأكسل _ أ / نزار سليمان عيد لنتعلم سويا _ أ / dangerman2 أفضل ما قرأت _ أ / dangerman2 دروس مترجمة في ( VBA ) _ أ / dangerman2 لنطور أنفسنا _ أ / dangerman2 شرح لبعض دوال الاكسيل باللغة العربية _أ / bahraini مجموعه دوال وافكار للاكسل _أ / abo mohamad قاموس شرح دوال الإكسل (ملف تعليمي) _ أ / محمد عسكر حصرياً ولأول مرة على مستوى المنتديات العربية- الدورة المتميزة- اكسيل 2013 المستوى المتقدم (موضوع متجدد) _ أ / nedal_shami دروس vba_درس رقم 1 _ أ / الخضر ترجمة 339 معادلة إلى أربع لغات _ أ / أبوطارق Excel Function Dictionary v.2 _ أ / ابو اسامة العينبوسي بعض دوال اكسيل باللغة العربية - ملف جميل و سهل _ أ / يحيى حسين فنبلة الموسم لعام 2017 ، كتاب يحتوي على 1200 مثال لتطبيق الماكرو على الإكسيل _ أ / الزباري مجموعة دوال اكسيل _ أ / h63 مشاركة متواضعة _ أ / asmo200666

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل _ ا / ابو اسامة العينبوسي Private Sub Worksheet_SelectionChange(ByVal Target As Range) Sheets(1).Protect Password:="Secret", UserInterfaceOnly:=True Sheets(1).Cells.Locked = True If Sheets(1).Cells(ActiveCell.Row, ActiveCell.Column).Value = vbNullString Then Sheets(1).Cells(ActiveCell.Row, ActiveCell.Column).Locked = False End Sub مرفق الملف Lock.zip و لا تنسونا من صالح الدعاء تحياتى

من منا لايرغب بأن تكون الصفحة لديه مرتبة، وأن يعتمد أبعاد الخلايا كمرجع لتنظيم العمل ، إليكم ماكرو للتعرف على أبعاد الخلية النشطة.. cellsize.rar

هلا والله اخوي شفان جعفر

الفخر لي انا بالاجابة على احد اعلام المنتدى جعفر

تحياتي لك معلمي الكبير جعفر وافخر اني جعلت علامة تقيميك الان 1200

بسم الله الرحمن الرحيم الحمد لله ولا اله الا الله والله اكبر ربنا لك الحمد كما ينبغى لجلال وجهك ولعظيم سلطانك سبحانك لا علم لنا الا ما علمتنا سألت سؤال وهو ازاى اعرض كل التقارير من خلال نموذج رئيسى انا منمتش من امبارح لانى كنت محتاج جدا للموضوع ده وبفضل الله رب العالمين ربنا انعم وتفضل على بالوصول لنتيجة رائعه ونظرا لافضال اهلى المنتدى على ولاساتذتى الكرام لهم كل الشكر والتقدير اهدى عملى المتواضع هذا اليكم حتى تعم الفائده النموذج المرفق يحتوى على - صلاحيات مشتخدمين -صلاحيات استخدام العناصر لكل مستخدم على حده -البحث والفلترة والتظليل لنتائج البحث وظهورها بلون احمر ايا كان موقع الحروف والارقام والبحث متعدد ومتقدم -نموذج لعرض كل قاعدة البيانات من خلاله بكل سهوله وايضا من خلال هذا النموذج يمكن عمل تصدير لاى تقرير بجميع الصيغ كما يمكن معاية التقرير قبل الطباعه ثم طباعة التقرير اتمنى ان تجدوا ما يسركم وينفعكم ان شاء الله لعلم كل ما ورد فى المرفق حصرى لمنتادنا فقط لان تصميم القاعده بتلك الكيفية ومعالجة البيانات من بنات افكارى طبعا ادين بالفضل لكل استاذ جليل او اخ كريم تعلمت منه او على يديه سواء بطريق مباشر او غير مباشر المرفق عباره عن ملف تيكست به رابط تحميل من المدياي فاير File size: 2.73 MB =================================================================== READ IT.txt مثال شامل.rar

اخي الكريم في الحقيقه‌ انا ما اعرف شي من ذاك الاكواد لكن عملت لك نسخ ولصق الاكواد المطلوبة ومبرعات نصية اي يعني سرقت بعض الاشياء من حضرة ابا جودي لكن بعد عدنا مشكلة مع اللغة العربية ما يخرج صحيح لذا ارجوا من استاذ اباجودي اذا سمح له الوقت ان يشرح لنا الاكواد او يشرح لنا برامج باكمله بيكون احسن مع تقدير

انا بدأت العمل عليه ، وان شاء الله اخلص اللي في يدي ، وابدا في موضوعك جعفر

جزاك الله كل خير و جاري التجربة و ربنا يكرمك و يوفقك لكل ما يحب و يرضى

وعليكم السلام تفضل example1.rar

اخي اتفضل بدل اسم اللون الى اي لون تريد انا غيرته الى لون ازرق مع تقدير

بارك الله في جهودكم ونفعنا الله واياكم .. وبعلمكم نتقدم ان شاء الله وجعله الله في ميزان حسناتكم

وعليكم السلام الرابط التالي فيه طريقة وكود لتغيير الصور في جميع النماذج/التقارير ، من مضمنه الى مرتبطة ، . وبتغيير بسيط تستطيع ان تغيره الى طلبك ، ولاحظ ان نوع الخط الجديد هو "Andalus" في المثال Function Convert_img_Embed_to_Link() Dim frm As AccessObject Dim rpt As AccessObject Dim dbs As Object Dim frm1 As Access.Form Dim rpt1 As Access.Report Dim ctl As Access.Control Set dbs = Application.CurrentProject For Each frm In dbs.AllForms DoCmd.OpenForm frm.Name, acDesign Set frm1 = Forms(frm.Name) For Each ctl In frm1.Controls If ctl.ControlType = acComboBox Or _ ctl.ControlType = acCommandButton Or _ ctl.ControlType = acLabel Or _ ctl.ControlType = acListBox Or _ ctl.ControlType = acOptionButton Or _ ctl.ControlType = acTextBox Then Debug.Print frm.Name & " > " & ctl.ControlType & " > " & ctl.Name ctl.FontName = "Andalus" If frm1.DefaultView = 2 Then frm1.DatasheetFontName = "Andalus" 'DataSheetForms End If End If Next ctl DoCmd.Close acForm, frm.Name, acSaveYes Next frm Exit Function For Each rpt In dbs.AllReports DoCmd.OpenReport rpt.Name, acDesign Set rpt1 = Reports(rpt.Name) For Each ctl In rpt1.Controls If ctl.ControlType = acComboBox Or _ ctl.ControlType = acCommandButton Or _ ctl.ControlType = acLabel Or _ ctl.ControlType = acListBox Or _ ctl.ControlType = acOptionButton Or _ ctl.ControlType = acTextBox Then Debug.Print rpt.Name & " > " & ctl.ControlType & " > " & ctl.Name ctl.FontName = "Andalus" If rpt1.DefaultView = 2 Then frm1.DatasheetFontName = "Andalus" End If End If Next ctl DoCmd.Close acReport, rpt.Name, acSaveYes Next rpt End Function جعفر

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

ربما يكون المطلوب حل معادلة salim.rar

نورت المنتدى اخي قصي حفظك الله ورعاك تقبل تحياتي وشكري