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

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل _ ا / ابو اسامة العينبوسي 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

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