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

انظر الصورة وطبق ..... pro.accdb

أخي الفاضل بارك الله فيك احي فيك هذه الرغبة في التعلم .... نصيحة لك اقرأ كثريا عن الدوال .... Asc ,Mid هذه دوال Asc تقوم بارجاع كل حرف او رقم في لوحة المفاتتيح الى القيمة الرقمية لها ليتم التعرف عليها هل هي حرف ام رقم ليتم عن طريق Mid اقتصاصها لو كلنت رقما طبعا لو تابعت الكود فيه حلقة تكرار For ليتم المرور على كل حرف او رقم موجود في السلسلة النصية الموجودة في الكمبوبكس .... لمزيد من الدوال في المرفق .... Microsoft Access Functions.pdf

تفضل >>>>>>> Function Seperate_Digits(T) ' هذا الفانك لاقتصاص الارقام من النص If Len(T & "") = 0 Then Seperate_Digits = "" Exit Function End If For i = 1 To Len(T) C = Asc(Mid(T, i, 1)) Select Case C Case 46, 48 To 57 Which_Letter = Which_Letter & Mid(T, i, 1) Case 47 Which_Letter = "" End Select Next i Seperate_Digits = Which_Letter End Function Private Sub cbList1_AfterUpdate() ' متغيرات Dim a, aa, ff As Integer Dim st As String 'اقتصاص رقم الشهر من الكمبو بكس الموجود في النموذج a = Seperate_Digits(Me.cbList1) 'عدد ايام الشهر المختار aa = CVDate(a) * 30 st = Day(DateSerial(Year(aa), Month(aa) + 1, 0)) 'ادخال تلك المتغيرات في العملية الحسابية ff = (Me.نص692 * Me.txtTotalSalary) / st Me.txtdaysalary1 = ff End Sub

انظر المرفق ..... ربما هو طلبك ... pro.accdb

هل تقصد هكذا ؟؟؟؟؟

تفضل هذا المقترح مجرد فكرة لا اكثر pro.accdb

وعليكم السلام 🙂 ليش الكود ، هل هناك سبب معين ؟ عادة نعمل الاشياء في الكود اذا كانت طلباتنا متغيرة ، بينما اذا الطلب ثابت ، فالاكسس يوفر لك اسهل الطرق 🙂 بالتنسيق الشرطي العادي ، مثل ما عمل اخي @Eng.Qassim : . والنتيجة : . ويمكنك استعمال هذه الكود بدلا عن التنسيق الشرطي: Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If [state] = "H" Then Me.result.BackColor = vbRed ElseIf [state] = "L" Then Me.result.BackColor = vbYellow Else Me.result.BackColor = vbWhite End If End Sub جعفر conditional format.accdb

تفضل هذا التعديل stu- up.accdb

بصراحة استخدام اللغة العربية تربك كثيرا في الاكواد .. جرد الكود ادناه DSum("المداخيل";"الخزينة";"[الفرع_المصلحة]='" & [الفرع_المصلحة] & "' and [التصنيف]='" & [التصنيف] & "' and "[التاريخ] between [Forms]![التقارير]![شهري] and[Forms]![التقارير]![نهاية_الشهر]")

يمكنك استعمال هذه الأكواد في النموذج Private Sub ComboBox1_Change() Sheet1.Range("a1").CurrentRegion.AutoFilter Field:=4, Criteria1:=ComboBox1.Value End Sub Private Sub ComboBox2_Change() Sheet1.Range("a1").CurrentRegion.AutoFilter Field:=5, Criteria1:=ComboBox2.Value End Sub Private Sub ComboBox3_Change() Sheet1.Range("a1").CurrentRegion.AutoFilter Field:=6, Criteria1:=ComboBox3.Value End Sub Private Sub CommandButton1_Click() ComboBox1.Value = "" ComboBox2.Value = "" ComboBox3.Value = "" Sheet1.Range("a1").CurrentRegion.AutoFilter End Sub Private Sub UserForm_Initialize() Me.ComboBox1.List = Array("معلم", "مهندس", "فني", "مدير", "مهندس اقدم", "محامي") For n = 1 To 12 Me.ComboBox2.AddItem n Next n For n = 2003 To 2022 Me.ComboBox3.AddItem n Next n End Sub لاحظ طرق تعبئة combobox واستعمال currentregion بالتوفيق

ما شاء الله تبارك الرحمن، أجدت وأحسنت وأفدت، الله يحرم أناملك الجميلة من النار.

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

عظمه على عظمه بارك الله فيك جعله فى ميزان حسناتك

بالتوفيق يارب

هذه طريقة تعلمتها سابقا من الست زهرة .. لا اعلم ان كانت تفيدك ام لا لان في النماذج او التقارير المسترة تاخذ نفس الالوان conditional format.accdb

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

إذا لم تكن مفعل version history من تبويب file ثم info فلا مجال للرجوع لنسخة احتياطية من الملف بالتوفيق

تفضل هذه المحاولة وارجو ان تكون موفقة ملاحظة : التعديل شمل الجدول ايضا ارجو ان لا يسبب لك مشكلة وتم التعديل على الاستعلامات بما يناسب التغييرات اما الاستعلامات الخاصة بالشركاء تم التعديل على استعلام اسماعيل حسب فهمي واذا التعديل مناسب يمكن تعديل بقية الاستعلامات الافضل الابتعاد عن التسميات باللغة العربية مستقبلا وعذرا للاطالة 2222-2.rar

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

وعليكم السلام 🙂 استخدم خاصية البحث في المنتدى ، فهناك الكثير من الاسئلة المشابهة لسؤالك ، وقد تم رد عليها 🙂 جعفر

بصراحه مش عارف اشكرك ازاى اعزك الله وجعله فى ميزان حسناتك

الكود فعلا يحدد نطاق البحث في بداية الاسم للوصول لما تريد غير هذا السطر في حدث عند تغيير مربع النص10 If C Like TextBox10.Value & "*" Then إلى If C Like "*" & TextBox10.Value & "*" Then بالتوفيق

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

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

جزاك الله خير وكتب الله أجرك ..

حسب ما فهمت من سؤالك .. في تلك الحالة تعمل من الجدول i2m تموذج فرعي بحيث يكون كل سجل لجهاز معين سواء 3 اجهزة او 10 اجهزة

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

استاذي العزيز ابو الحسن المعادلة شغالة عندي هذا حسب فهمي لطلبك اما المعادلة اعلاه فيها نقص لذا لا تعطي نتائج الا بوجود الحساب 1 قارن بينها وبين المعادلة السابقة وستجد الفرق وهذا تعديل حسب طلبك الاخير 2300-3-2.rar

نظرا لاستعمالك Option Explicit في بداية الكود يجب الإعلان عن المتغيرات ضع هذا السطر كأول سطر في إجراء البحث Dim ws As Worksheet, i As Long, i2 As Long بالتوفيق

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

تفضل التعديل ارجو ان يكون طلبك ملاحظة : التعديل تم على نفس المعادلات للتعامل مع الحقول اذا كانت فارغة هناك طريقة اخرى وهي جعل القيمة الافتراضية تساوي صفر للحقول التي تدخل في عملية الحسابات 2222-1.rar

معلومة اساسية : تحدث هذه النتيجة عندما يكون المعرف للباركود اقل من 3 ارقام او حروف

انظر الان.. المدخلات عن طريق النموذج .. والجدول يأخذ الارقام فقط stu- up.accdb

هل هذا ماتقصده؟ stu- up.accdb

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

الحل في ضبط اللغة من اعدادات الويندوز

لأني أهوى اختصار الأكواد يمكنك وضع هذا السطر فقط في الموديول Declare Function DisplaySize Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long وهذا كود وضع العرض والارتفاع في مربعي تسمية Me.label1.Caption = DisplaySize(0) Me.label2.Caption = DisplaySize(1)

تفضل أخي الكريم هذا أصغر كود لمعرفة دقة الشاشة ضع هذا الكود في موديول جديد Option Compare Database Public Const SM_CXSCREEN = 0 Public Const SM_CYSCREEN = 1 Declare Function DisplaySize Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long ولعرض دقة الشاشة في تسمية label على النموذج استعمل هذا الكود Me.label1.Caption = DisplaySize(SM_CXSCREEN) Me.label2.Caption = DisplaySize(SM_CYSCREEN) لا تنسوني من صالح دعائكم أخوكم محمد صالح

شكرا جزيلا لك أخي سالم وهذه بعض الاختصارات فقط مع مفتاح ctrl المفتاح ------ الوصف CTRL+SHIFT+( إظهار أية صفوف مخفية داخل التحديد. CTRL+SHIFT+) إظهار أية أعمدة مخفية داخل التحديد. CTRL+SHIFT+& تطبيق حدود خارجية للخلايا المحددة. CTRL+SHIFT_ إزالة الحدود الخارجية من الخلايا المحددة. CTRL+SHIFT+~ تطبيق تنسيق الأرقام "عام". CTRL+SHIFT+$ تطبيق التنسيق "عملة" بمنزلين عشريتين (تظهر الأرقام السالبة في أقواس). CTRL+SHIFT+% تطبيق التنسيق "نسبة مئوية" دون منازل عشرية. CTRL+SHIFT+^ تطبيق تنسيق رقم "أسي" بمنزلين عشريين. CTRL+SHIFT+# تطبيق التنسيق "تاريخ" باليوم والشهر والسنة. CTRL+SHIFT+@ تطبيق التنسيق "وقت" بالساعة والدقيقة و"ص" أو"م". CTRL+SHIFT+! تطبيق التنسيق "رقم" بمنزلين عشريين وفواصل آلاف وعلامة الناقص (-) للقيم السالبة. CTRL+SHIFT+* تحديد المنطقة الحالية الموجودة حول الخلية النشطة (تحاط منطقة البيانات بصفوف وأعمدة فارغة). في PivotTable، يحدد تقرير PivotTable بأكمله. CTRL+SHIFT+: إدخال الوقت الحالي. CTRL+SHIFT+" نسخ القيمة من الخلية الموجودة أعلى الخلية النشطة إلى الخلية أو إلى "شريط الصيغة". CTRL+SHIFT+Plus (+) عرض مربع الحوار إدراج لإدراج خلايا فارغة. CTRL+Minus (-) عرض مربع الحوار حذف لحذف الخلايا المحددة. CTRL+; إدخال التاريخ الحالي. CTRL+` التبديل بين عرض قيم الخلايا وعرض الصيغ في ورقة العمل. CTRL+'‎ نسخ صيغة من الخلية الموجودة أعلى الخلية النشطة إلى الخلية أو إلى "شريط الصيغة". CTRL+1 عرض مربع الحوار تنسيق خلايا. CTRL+2 تطبيق تنسيق غامق أو إزالته. CTRL+3 تطبيق تنسيق مائل أو إزالته. CTRL+4 تطبيق تسطير أو إزالته. CTRL+5 تطبيق تنسيق يتوسطه خط أو إزالته. CTRL+6 التبديل بين إخفاء الكائنات وعرض الكائنات وعرض العناصر النائبة للكائنات. CTRL+8 عرض رموز التخطيط التفصيلي أو إخفاؤها. CTRL+9 إخفاء الصفوف المحددة. CTRL+0 إخفاء الأعمدة المحددة. CTRL+A تحديد ورقة العمل بأكملها. إذا احتوت ورقة العمل على بيانات، تحدد CTRL+A المنطقة الحالية. ويؤدي ضغط CTRL+A للمرة الثانية إلى تحديد المنطقة الحالية وصفوف التلخيص. أما ضغط CTRL+A للمرة الثالثة يؤدي إلى تحديد ورقة العمل بأكملها. يتم عرض مربع الحوار وسيطات الدالة، عندما تكون نقطة الإدراج إلى يمين اسم الدالة في صيغة. يؤدي ضغط CTRL+SHIFT+A إلى إدراج أسماء الوسيطات والأقواس، عندما تكون نقطة الأدراج إلى يمين اسم الدالة في صيغة. CTRL+B تطبيق تنسيق غامق أو إزالته. CTRL+C نسخ الخلايا المحددة. يؤدي الضغط على CTRL+C متبوعاً بـ CTRL+C إلى إظهار الحافظة. CTRL+D استخدام الأمر تعبئة لأسفل لنسخ محتويات وتنسيق أعلى خلية في نطاق محدد إلى الخلايا الموجودة بأسفل. CTRL+F عرض مربع الحوار بحث واستبدال، مع تحديد علامة التبويب بحث. تعرض SHIFT+F5 أيضاً علامة التبويب هذه، بينما تكرر SHIFT+F4 إجراء بحث الأخير. يفتح CTRL+SHIFT+F مربع الحوار تنسيق الخلايا مع تحديد علامة التبويب خط. CTRL+G عرض مربع الحوار الانتقال إلى. تعرض F5 أيضاً مربع الحوار هذا. CTRL+H عرض مربع الحوار بحث واستبدال مع تحديد علامة التبويب استبدال. CTRL+I تطبيق تنسيق مائل أو إزالته. CTRL+K عرض مربع الحوار إدراج ارتباط تشعبي للارتباطات التشعبية الجديدة أو مربع حوار تحرير ارتباط تشعبي للارتباطات التشعبية المحددة الموجودة. CTRL+N إنشاء مصنف فارغ جديد. CTRL+O عرض مربع الحوار فتح لفتح ملف أو العثور عليه. يحدد CTRL+SHIFT+O كافة الخلايا التي تحتوي على تعليق. CTRL+P عرض مربع الحوار طباعة. يفتح CTRL+SHIFT+P مربع الحوار تنسيق الخلايا مع تحديد علامة التبويب خط. CTRL+R استخدام الأمر تعبئة لليمين لنسخ محتويات وتنسيق الخلية الموجودة أقصى اليسار في النطاق المحدد في الخلايا ناحية اليمين. CTRL+S حفظ الملف النشط باسم الملف الحالي وموقعه وتنسيقه. CTRL+T عرض مربع الحوار إنشاء جدول. CTRL+U تطبيق تسطير أو إزالته. يستخدم CTRL+SHIFT+U للتبديل بين توسيع شريط الصيغة أو طيه. CTRL+V إدراج محتويات "الحافظة" في نقطة الإدراج واستبدال أي تحديد. يتوفر فقط بعد قص كائن أو نص أو محتويات خلايا أو نسخها. تقوم CTRL+ALT+V بعرض مربع الحوار لصق خاص. ويكون متاحًا بعد قص أو نسخ كائن أو نص أو محتويات خلية على ورقة العمل أو في برنامج آخر. CTRL+W إغلاق إطار المصنف المحدد. CTRL+X قص الخلايا المحددة. CTRL+Y تكرار الأمر أو الإجراء الأخير إذا كان ممكناً. CTRL+Z استخدام الأمر تراجع لعكس الأمر الأخير أو لحذف الإدخال الأخير الذي كتبته. يستخدم CTRL+SHIFT+Z الأمر تراجع أو إعادة لعكس التصحيح التلقائي الأخير أو استعادته عند عرض "العلامات الذكية للتصحيح التلقائي".

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

جربي هذ الكود لإخفاء شاشة الأكسس للعلم يجب مع هذا الكود تغيير خصائص جميع عناصر الأكسس (نماذج - تقارير-استعلامات ........) إلى true في منبثق popup مشروط modal والقائمة المختصرة للتقرير تعمل مع هذا الكود بإذن الله تم الاستغناء عن الماكرو تكبير بكود التكبير docmd.maximize لعله يكون المطلوب ظ…ظƒطھط¨طھظٹ1 .rar

كل عام الكل في افضل حال والمنتدى في تقدم

بارك الله فيك أخي الكريم نسخة رائعة تقبل الله منا ومنكم صالح الأعمال

رأيك الكريم يغنيني عن الشهادات فأهم شيء للشاعر رأي الجمهور سعيد بزيارتك لموضوعي

تفضل أخي الكريم إن شاء الله سيكون المطلوب لا تنسوني من صلح دعائكم وقت الإفطار أخوكم محمد صالح mas-SelectCase.rar

تفضل أخي الكريم كود بسيط لفصل الاسم الثلاثي إلى مكوناته الاسم الأول و اسم الأب واسم العائلة بكل الاحتمالات في الأسماء المركبة كأن يكون الأول مركب أو الثاني مركب أو الثالث مركب فقط بكلمة عبد كما قلت ولا يوجد مركب بغير كلمة عبد أتمنى أن يساعدك كل عام أنتم بخير أخوك محمد صالح mas123-nameparts.rar