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

بسم الله الرحمن الرحمن الرحيم الدرس الثاني لليوزفورم التفاعلي تعال نفكر مع بعض خارج المألوف والمعقول بمعني ايه اي حد بفكر يعمل فورم يسهل استخدام البيانات بقعد يفكر في شكل الفورم وتصميمه وتركيب الاكواد وما الي ذلك في موضوعات تناولت الفورم المرن او حسب مايكون اسمه فورم بيركب علي ورقة العمل وتضبط شغلك عليه لو فكرنا بطريقة مختلغة برمجية خارج حدود التصميم والاكواد والوقت والمجهود طيب الفكرة هنا ايه ...........!!! فورم يصنع لك الفورم يلي انت عاوزه بالالوان والاعمدة والشكل نفس فكرة مواقع التصميم والبلوجر يلي بتعطيك template قالب جاهز وتعدل عليه ندخل في الموضوع النهاردة موضوعنا فورم تفاعلي يصنع لك فورم خدمي نضيف ورقة عمل جديد من خلال التبويب Insert Sheet نضيف عدد الاعمدة يلي انت عاوزها في قاعدة بياناتك من خلال Enter No of columan مثال اضافة ورقة عمل جديدة باسم Officana عدد الاعمدة 5 مثلا (Sno-Name-username-password-Contact) اقوم بادخال اسماء الاعمدة ثم Add من خلال الفورم هاتقدر تعدل المسيات تضيف تحذف كما تشاء بعد ما تنتهي من الاعداد للتصميم لقاعدة بيانات كل يلي عليك تختار الشيت تدخل طريق العرض من خلال عدد الاعمد مثلا 3 وتضغط openForm وشوف النتيجة وهنا هتلاقي وظايف البحث والتعديل والحذف كما اخترت طريقة العرض 3 طيب لو غيرنا طريق العرض 2 لاحظ تغير الفورم معاك لتغير اللون اضغط علي Color هاسيبك تجرب بنفسك وتشوف النتيجة اتمني من الله اكون قدرت اوصلك المعلومة وافيدك الملف بالمرفقات Advance Data Entry Software Officana.xlsm الدرس القادم الفورم التفاعلي المتقدم عن نقاط البيع ان شاء الله برنامج POS لادارة نقاط البيع مع فاتورة ضريبية

السلام عليكم ورحمه الله وبركاته مشاركه مع الاستاذ ابو العلا جزاه الله كل خير انظر الاستعلام qry والاستعلام qryMaxDate استعلام مساعد بالتوفيق last result.accdb

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

احسنت استاذ ابو احمد بذلت مجهود كبير تشكر عليه لا يمكن اهمال نتائج الاكسل لان صحة الكود متوقفة على مقارنة نتائج الكود والدالة الاصلية في الاكسل نعم المقارنة تكون بتطبيق الكود بالاكسيس وليس الاكسل ومقارنة النتائج مع الدالة الاصلية في الاكسل

شكرا لكم استاذ @husamwahab وشكرا لجهودكم، ياريت الجميع يفعل كما فعلت، فعلا الفحص يحتاج دائما إلى التنويع في البيانات. خيرا فعلت. تم التصحيح. تم تبديل المرفقات أكثر من مرة، العملية متعبة وخصوصا لما تقارن مع مخرجات الاكسل، وكما قلت سابقا في موضوع آخر أن الاكسل يستخدم نوع رقمي أوسع من النوع double الموجود في الفيجوال، وهذا يسبب فقدان جزء ضيل جدا من قيمة الكسر وهذا ما يسبب الفروقات. لو نهمل المقارنة مع الاكسل الأمور تكون أسهل ولا تحتاج إلى مزيد من المعالجات والتحايل أحيانا. CeilingFunction4Access_03.xlsm 4ExcelFunctions4Access_03.xlsm

الاخ كريم نظيم اكرمك الله فقط ااتذير انني استخدم Windows 11 مع - Microsoft® Excel® for Microsoft 365 MSO (Version 2210 Build 16.0.15726.20068) 32-bit قد يفيد هذا في حل المشكلة اكرر جزيل شكري و تقديري لجهودكم

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

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

جزاك الله خير تمت العملية بنجاح ما قصرت يا استاذي الكريم 🤩

أفضل إجا لسلام عليكم 1. اذهب الى Start ثم Settings 2 . اختر Control Panel 3. Regional And Language Options 4. من تبويب Advanced في خانة الاختيار اختر اللغة العربية 5. ثم OK في محرر الاكواد من قائمة Tools ثم Option من تاب Editor Format ثم Font اختر نوع الخط هذا Courier New (Arabic)

حياك الله اخى @salah.sarea قم بحذف سجلات جدول 2 ثم قم بتشغيل الاستعلام qryInsert ووافق على الرسائل ثم افتح الجدول 2 واخبرنى هل تم نقل البيانات ام لا بالتوفيق

جرب ربما هو المطلوب. نموذج مصغر_02.accdb

وعليكم السلام ورحمه الله وبركاته اتفضل اخى @salah.sarea اول خطول عمل استعلام تجميع ثم عمل استعلام الحاق من استعلام التجميع بالتوفيق 123.accdb

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

بالخدمة استاذ

@husamwahab شكرا لك عزيزي عاشت ايدك مضبوط بالتمام الله يحفظكم ما قصرتوا

@AlwaZeeR عزيزي شكرا لك لكن لحد الان نفس المشكلة @husamwahab عزيزي هاي مو مشكلتي وهاي خطا بسيط اعرفها لكن مشكلتي هيه الدالة فقط شكرا لك

'اختيار التاريخ'

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

مشان نقدر نساعدك ضع البرنامج الاصلي

السلام عليكم و رحمة الله اليك الكود هو بطئ نسبيا نظرا لطول البيانات و تعدد الخيارات جارى العمل على ايجاد كود اسرع و لكن فى وقت لاحق ان شاء الله Sub Filtrng() Dim Rng As Range, Dta As String Dim i As Long, LR As Long Application.ScreenUpdating = False LR = Range("A" & Rows.Count).End(3).Row i = 2 Do While i <= LR Dta = Left(Cells(i, 1), 3) If Dta = "080" Or Dta = "081" Or Dta = "082" Then Range("A" & i).EntireRow.Hidden = False Else Range("A" & i).EntireRow.Hidden = True End If i = i + 1 Loop Application.ScreenUpdating = True End Sub

السلام عليكم و رحمة الله بارك الله تسلم ايديك دائم الابداع

بشرت بالجنة استاذى الحبيب لقلبى اخى فى الله kanory تقبل احترامى وتقديرى

طيب .... هذه نسخة مبسطة كما ذكرت ويمكن الابداع في طريقة تنفيذها ...... 1- النموذج المراد تعديله ... 2- نسخة لإعادة التجربة . طبعا يمكن اضافة اضافات لبرنامج التحديث اخذ مثلا نسخة احتياطية قبل التنفيذ ..... ايضا يمكن اضافة التعرف على برنامج العميل من حيث النسخة وهل البرنامج محدث او لا الى إخره من الابداعات والمهارات ................................... kan_PRO.rar

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

اعتذر للخطا تعديل للكود Function vbCEILING2(ByVal Number As Variant, Significance As Double) As Double If Sgn(Number) <> Sgn(Significance) Or Sgn(Significance) = 0 Or Not IsNumeric(Number) Then Exit Function End If If (Val(Number) / Significance) > Fix(Val(Number) / Significance) Then vbCEILING2 = (Fix(Val(Number) / Significance) + 1) * Significance Else vbCEILING2 = Fix(Val(Number) / Significance) * Significance End If End Function

وعليكم السلام .. حدثت معى هذه المشكلة من قبل .. فلابد من تسطيب ويندوز جديد وشكراً

أهلا بك ومرحبا المعادلة الموضوعة في العمود A من ملفك هي فقط للمساعدة لترقيم الفاتورات تصاعديا (بنود كل فاتورة لها الرقم نفسه كما هو موجود في الملف)، وهذه المعادلات ممتدة لـِ 10000 سطر (من السطر 2 إلى السطر 1000)... بمعنى أنه يمكنك إضافة (حجز) فاتورات جديدة بداية من العمود B بكل بنودها (ولا يهم عدد البنود) فمعادلات العمود A تقوم بترقيم هذه الفاتورات تسلسليا والتنسيقات الشرطية المطبقة على النطاق B2:AN10001 تقوم بتأطير كل فاتورة ببنودها كما طلبت في موضوعك... والله أعلم.

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

اخي الفاضل من فيديو الموقع وطريقة تنصيب البرنامج ، فالبرنامج يبدو انه ليس اكسس ، وعليه لا يمكننا في قسم الاكسس من المنتدى مساعدتك ، قد تكون الجداول اكسس ، ولكن هذا لا علاقة له بالطابعة ، وفي الموقع ايميل الدعم الفني ، فيمكنك مراسلتهم وطرح سؤالك هناك 🙂 إذا كان احد الاعضاء هنا عنده علم بالموضوع ، فان شاء تحصل على جواب 🙂 جعفر

شوف كده استاذي حذف اسم طالب بجميع بياناته.xlsm

اسف على التاخير صراحة لم اتدكر موضوعك حتى قمت بالمشاركة في احدى المواضيغ المشابهة تفضل اخي اليك حل اخر ربما يفيدك test_MH.xlsm

اختار ما تشاء من مجموعة الايقون بما يتناسب مع احتياجاتك https://www.google.com/search?q=employee+icon+png

السلام عليكم ورحمة الله تعالى وبركاته تفضل اخي يمكنك اختيار معيار الفلترة في خانة (D1) او ادخاله يدويا لفلترة جميع الاوراق على نفس المعيار Sub Filter_Me() Dim ans As String Dim T As ListObject MH = Sheets("Drawing").Range("D1") For i = 1 To Sheets.Count For Each T In Sheets(i).ListObjects T.Range.AutoFilter Field:=1, Criteria1:=MH Next Next End Sub ''''الغاء الفلترة من جميع الاوراق Sub Remove_Filters_From_Workbook() Dim MH As Worksheet Dim lstObj As ListObject For Each MH In Worksheets For Each lstObj In MH.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj Next MH End Sub New Microsoft Excel Worksheet_MH.xlsm

بسم الله الرحمن الرحيم لاحظت في الفترة الأخيرة كثرة الأسئلة عن موضوع نسيان كلمات مرور ملفات الإكسل أو بعض ورقات العمل بالملف فأحببت أن أشارك إخوتي وأحبّتي أعضاء ومشرفي وخبراء منتدانا الرائع هذه الإضافة MasNoPass لفك حماية أوراق العمل في ملفات الإكسل وتعمدت تسهيل عملها &&&&&&&&&&& فقط تحتاج لإضافة الوظيفة الإضافية: 1 في ويندوز xp نسخ المرفق إلى المسار التالي C:\Documents and Settings\***\Application Data\Microsoft\AddIns حيث أن C هو قرص النظام و *** هو اسم المستخدم 2 في ويندوز 7 نسخ المرفق إلى المسار التالي C:\Users\***\AppData\Roaming\Microsoft\AddIns حيث أن C هو قرص النظام و *** هو اسم المستخدم ****************** بالنسبة لمستخدمي إكسل 2003 من خلال: فتح برنامج الإكسل والضغط على قائمة أدوات tools ===> وظائف إضافية Addins ===> ثم اختر MasNoPass ثم موافق ok وبالنسبة لمستخدمي إكسل 2007 يتم ذلك من خلال : فتح برنامج الإكسل والضغط على زر الأوفيس ثم خيارات إكسل Excel options ثم اختيار وظائف إضافية Addins من الجانب الأيمن/الأيسر ثم اذهب go ثم اختيار MasNoPass ثم موافق ok وبالنسبة لمستخدمي إكسل 2010 وما بعدها يتم ذلك من خلال : فتح برنامج الإكسل والضغط على قائمة ملف file ثم خيارات إكسل Excel options ثم اختيار وظائف إضافية Add-ins من الجانب الأيمن/الأيسر ثم اذهب go ثم اختيار MasNoPass ثم موافق ok /////////////////// طريقة العمل:- بعد تسجيل الوظيفة الإضافية تجد ظهور قائمة جديدة باسم (فك الحماية) وتحتاج فقط إلى فتح الملف المحمي ثم الضغط على قائمة فك الحماية واختيار (إزالة كلمة المرور) بعدها سيتم البدء في عدّ المحاولات والوقت المنقضي في إجراء العملية بعدها تظهر رسالة تفيد أنه تم إزالة كلمة المرور عن الملف وبعد الضغط على الرسالة ستجد الملف مفكوك بين يديك $$$$$$$$$$$$$$$$ و أذكّر نفسي وإياكم بأن الصحابة عليهم رضوان الله كان الواحد منهم إذا أراد أن يدعو لنفسه دعا لأخيه فيقول له الملك آمين ولك مثلها فلا ينقصني سوى دعائكم وأخيرا أذكر بخطورة الموقف وأرجو عدم استعمالها فيما حرّم الله وعند النقل يجب ذكر المصدر منتديات أوفيسنا اللهم قد بلّغت ... اللهم فاشهد أخوكم محمد صالح فيديو لشرح كيفية استعمال الأداة ولا ينقصني سوى دعاؤكم ينصح بالاشتراك في القناة وتفعيل جرس التنبيه ليصلكم كل جديد ومفيد وقت صدوره MasNoPass.rar New_MasNoPass.rar

بارك الله فيك استاذى وزادك من فضله اعتقد انى لم اصل المطلوب انظر اخى الكريم هذا النموذج بالبرنامج الخاص بى مرفق عند الدخول user-admin pass-123 من الشاشة الرئيسية نضغط زر قيد جديد نجد هذا النموذج بالاسفل المطلوب يوجد معادلة جمع منه وله والرصيد له-منه ما احتاجه انه لابد ان اضغط بالماوس فى الخلية لكى يظهر الناتج فى هذه الخلايا احتاج تطبيق فكرة اخى استاذ جعفر بمجرد كتابة الرقم يظهر فورا ناتج الجمع هذا هو المطلوب اخى رضاك الله وارضاك الدائن و المدين-2.accdb