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

السلام عليكم ضع هذا الكود بالاستعلام مع تغيير اسم الحقل تحياتي مثال مرفق لاحد الاخوة Replace([field name];"ا";"أ") db2.rar

السلام عليكم معكم ساجدة العزاوي من العراق اول مشاركة لي في المنتدى فديو مميز سهل رائع لاقى صدى واسع ينفع للكل للمدارس لدوائر الدولة للقطاع الخاص فديو عملته بـ 8 اجزاء ولما شفت كثيرين استفادوا منه عملت فديوين بعنوان في الاكسل متعة وسعادة وفرح فاصبح 10 اجزاء وساكمله باجزاء اخرى ... لانه رائع ومميز وسريع هناك من يريد تنسيبه لنفسه اترككم مع الفديو بحث بالاسم في TEXTBOX فيتم الفلترة الى LISTBOX وثم الى TEXTBOXES اكسل ساجدة العزاوي

السلام عليكم الافضل ان ترفق مثال عند طرح السؤال لتوفير الوقت على الجميع * بالنسبة للالوان ممكن عمل ذلك عن طريق الكود او عن طريق التنسيق الشرطي انظر للاكواد اتمنى تكون المطلوب 'تحديث بيانات النموذج me.Refresh Docmd.Requery '--------------------- 'تغير خلفية الحقل الى اللون الاحمر اذا كان فارغ If IsNull(Me.text1) Then Me.text1.BackColor = vbRed End If '----------------------------------------- 'يوضع في التنسيق الشرطي في التعبيير لتغيير اللون IsNull([text1]) '------------------------------------------- ' باكثر من شرط يوضع بالنموذج If Not IsNull(Me.[اسم الموظف]) And Not IsNull(Me.[الدرجة الوظيفية]) Then Beep MsgBox "مبروك كل الحقول مملوءة" End If تحياتي

ضع مصدر الحقل الكود التالي =DLookup("[balance]";"[Query1]"; "[id] =" & TX) Data_2.rar تحياتي

الحل ان تجعل البحث يغتمد على حقل فريد لا يمكن تكراره مثالك يحتوي على حقل فريد فعلا باسم = المعرف ثم يتم تعديل مربع تحرير وسرد ليكون عمودين ثم يتم تعديل الكود كالتالي Dim Rs As Object Set Rs = Me.Recordset.Clone Rs.FindFirst "[المعرف] = " & Str(Me![CmboStud1]) If Not Rs.EOF Then Me.Bookmark = Rs.Bookmark End If مثال_5.rar تحياتي

السلام عليكم وجدت هذا البرنامج في أحد المواقعالأجنبية يساعد في ضبط مقاس الشاشة للنماذج RESIZE وهي مشكلة اعتقد أن الكثير يعاني مثلها أتمنى من يعرف الاستفادة منه أن يدلنا على طريقة التعامل معه. afr.rar

أخواني الأعزاء في هذا المنتدى : أضع بين أيديكم العديد من البرامج الجاهزة مع الشرح الكامل ، جمعتها من موقع أجنبي و فيها العديد من المستويات المبتدئ المتوسط المتقدم حيث قمت بتجميعها من العديد من المواقع و المنتديات الأجنبية ليتم حصرها في منتدانا الحبيب هذا أرجو منكم الرد لوضع المزيد من البرامج ، حيث ومن خلال ردودكم سأقوم بوضع إحتياجاتكم من البرامج في حال توفرها لدي ، حيث يوجد لدي مكتبة كبيرة من البرامج تحتوي ما يقارب 3000 برنامج و هناك المزيد . مع الشكر للجميع و أريد منكم فقط دعوة من قلب صادق لي و لوالدي ،،، accarch181.zip accarch180.zip

السلام عليكم .المعذره لم استطع تحميل ملفك المرفق عموما ..ضع الكود التالي في حدث الورقة المطلوبه ويمكن لك التحكم في المدى بين علامتي "" Private Sub Worksheet_Activate() ScrollArea = "A1:N100" End Sub

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم لطرح الايام بين تاريخين نستخدم الكود التالي DateDiff("d",[StartDate];[EndDate])+1 اما اذا كان الكود في الاستعلام يكون البشكل النالي X1 : DateDiff("d";[StartDate];[EndDate])+1 تحياتي

انت قمت باستخدام مربع تحرير وسرد كما انه مربع نص ( بغض النظر ان هذه ليست وظيفته ) هل جربت نتيجة البحث سؤال : انت لديك كتابن يحملان الرقم 150 . كيف ستصل بالحث الى الكتاب الذي يحمل رقم 150 الثاني في كل الاحوال ارجو من الله للجميع دوام التوفيق تحياتي

السلام عليكم اخى الفاضل هل هذا ما تريد ؟ بعد اختيار التاريخ سيتم تحديث الرقم جرب ووافنا بالنتيجه واعذرنى عالتقصير تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق 3ادخال_بالكود(1).accdb

اذا كان ما فهمته صحيح المطلوب في هذا الملف Oujour.xlsx

المعادلة المطلوبة =IFERROR(VLOOKUP(A2,$H:$H,1,0),0)

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

جزاك الله خيرا اخى خالد من غير استئذان فاننى اتعلم منكم اخوانى واساتذتى تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

الاستاذ علي بطيخ سالم ربي يخليك ويرضى عنك شكرا

السلام عليكم بعد اذن استاذنا الفاضل أحمد الفلاحجى تفضل تم التعديل اتمنى ان يكون المطلوب تحياتي A_des.rar

بارك الله فيك استاذ احمد على المساعدة الدائمة للاعضاء

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

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

وعليكم السلام اخى الفاضل رابح اهلا وسهلا بك معنا فى قسم الاكسيس اتفضل مثال على الحاق السجل وحذفه ملحوظه صغيره للمنفعه استخدم خاصيه البحث فالموقع ستجد ما تبحث عنه وزياده تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق A_dbu - Add-Delet.mdb

الله يعطيك العافية استاذ خالد

لا اخي ابا محمد اقصد المحمي فقط بكلمة سر وليس المحول الى accde

عليكم السلام و رحمة الله و بركاتة تفضل اخى الفاضل لك ما طلبت officna.xlsx

تفضل التعديل اخي العزيز Root13.rar

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

اخى ابوتامر فى المثال عدة تكسات اريد اكتب نص فى تلست 1 واعلمه وكليك يمين اختار كوبى والصق بكليك يمين كما يحدث فى خلايا الورقه !_Right&Left_Mouse_Click_On_UserForm.xls

الاخ ابو طيبه شكرا لك عزيزي الاخ saad abed اضرب لي مثال حتي تتضح لي الرؤية

الاجابة هنا (الجدول الاصفر) 3 أرقام - 4 ارقام / 3 ارقام Creasy_data_val.xlsx

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

الاجابة في النطاق الاصفر من هذا الملف Spec_Char.xlsx

السلام عليكم تفضلي أختي الكريمة حل سريع بالجداول المحورية وبعض المعادلات الجدول والمعادلات بالورقة2 وبعض المعادلات بورقة البصمة نفسها ليتعرف النظام عندي علي فورمات التاريخ والوقت تقرير البصمة.xlsx

السلام عليكم و رحمة الله و بركاته المرفق مثال يحتوي على أكواد مهمة / منقول من موقع أجنبي / قد يحتاجها أحد الزملاء أو الاساتذة لتصميم برامجهم أسأل الله لي و لكم التوفيق و السداد MoveForm&Control_v7.3.accdb

وانا ايضا لا ادرى استاذى الحبيب @عبد اللطيف سلوم الموضوع محتاج لقيل من الشرح بالتفصيل اولا متى تريد فتح النموذج الاخر -- المبلغ -- كما اخبرك استاذى الجليل ومعلمى القدير المبجل الاستاذ @AlwaZeeR هكذا يتم النقل بس لا ادري اين اضع الامر وبعد ان تنقل القيمة الا هناك ماذا بعد الشرط الذى يخص الاسم بالنموذج الاساسى فما هو الرابط الذى يربط بين قيم النموذجين ام انك مستقبلا تريد نقل الاسم والتكلفة ؟ ولاحظ انك سألت سؤالين فى موضوع واحد رجاء لتغليب المصلحة العامة على المصلحة الشخصية نحافظ على قواعد المشاركات سؤال واحد فقط وافتح للسؤال الثانى موضوع مستقل والا لن تجد الا القفل المتين على الموضوع ونجد على العنوان مغلق

وعليكم السلام ورحمة الله وبركاته ماذا تقصد بشرط الاسم؟؟ وكيف تريد نقلها؟ عند الضغط على ماذا؟ حسب ما ورد في المثال لديك هكذا يتم النقل بس لا ادري اين اضع الامر Forms![المبلغ]!mb = Forms![عدادات المياه]![التكلفة] mb هو اسم الحقل الموجود في جدول المبلغ وبخصوص الجزئية الثانية من السؤال كنت قد اجبت عليها في سؤال سابق للأستاذ عبد الغفار بخصوص ارقام الجلوس تقريبا نفس الحل عموما اشرح اكثر وسنصل للنتيجة لا تقلق عزيزي الأستاذ عبد اللطيف

Expand And Collapse( الطى والتوسيع ) ExpandCollapse( الطى والتوسيع).mdb

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

الأخ العزيز خالد عبد الغفار هل هذا هو المطلوب؟ كل عام أنتم بخير bb1.zip

تفضل هذا الملف يفيدك محافظات.mdb

السلام عليكم طبعا نحن نعمل برامجنا وخاصة تنسيق الفورم واجهزتنا مقاسات الشاشات فيها على دقة معينة وحين يتم نقل البرنامج الى حاسبة اخرى لا بد ان يكزن دقة الشاشة فيها بنفس الدقة التي في حاسباتنا والا سيختل العرض في النماذج وأظن هذا الامر معلوم عند عموم الاخوة . اخي حاتم : استللت لك الكود الخاص بتحجيم النموذج ووضعته لك في مثال بسيط كل ما عليك هو نقل الكود الى برنامجك وعمل خطوتين : ( لتبقى نماذجك على مقاس واحد دائما ) 1- في حدث عند التحميل للنموذج الصق هذا الكود ReSizeForm Me 2- غير مقاسات الشاشة في الوحدة النمطية في هذين السطرين Private Const DESIGN_HORZRES As Long = 1024 Private Const DESIGN_VERTRES As Long = 768 db1.rar

أستاذ mohamedamrawy أين الضغط على الإعجاب لكل هذا المجهود من الأساتذة ؟!!!!💙

دومك مبدع استاذ عمر في تقديم الحلول الفريده الله يحفظك ويبارك بيك ويكثر من امثالك

الأخ mohamedamrawy تفضل اخي عمل لوحة اوامر بالضغط علي الزر الأيمن الماوس وايضا عمل لوحة اوامر بالضغط علي الزر الأيسر من الماوس !_Right&Left_Mouse_Click_On_UserForm.xls