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

السلام عليكم نهنىء اخونا وحبيبنا محمد عصام ( ابو جودي ) اهلا وسهلا بك خبيرا معتمدا والف مبروك زادك الله علما ورفعة ونفع بك

يكون الكود كالتالى Sub print_out() Sheets("Sheet1").Range("a2:g100").PrintPreview End Sub

تفضل-ولكن كا ن عليك من البداية رفع ملف تجنبا لإهدار الوقت وشرح لما تريد بالضبط فعليك بتغيير النطاق بالكود لما تريد Sub print_out() Sheets("Sheet1").Range("a2:g100").PrintOut End Sub

الافضل ارفاق ملف حتى يتم معرفة المطلوب بالضبط والتعديل عليه لكم تحياتي لاحظ الروابط التالية اضافة القرار كيفية توزيع درجات القرار اضافة درجات القرار

السلام عليكم معادلة أخي الكريم سليم مختصرة في الملف المرفق... يمكن استعمال الدالة SUMPRODUCT بدلا من الدالة SUM (وفي هذه الحالة غير ضروري تأكيدها كمعادلة صفيف)... بن علية حاجي DAYS_CALCULATION_2.xlsx

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

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

جرب هذا الملف DAYS_CALCULATION.xlsx

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

يعطيك الصحه والعافية

فورم اكسل استدعاء بيانات وصور العاملين الفيديو الصور الملف على الرابط التالى http://www.mediafire.com/file/r92gpfff79v1wgz/بيانات+وصور+الموظفين.rar

فورم اكسل تسجيل بيانات وترحيل بيانات لصفحة اخرى الفيديو الصور بيان الموظفين.rar

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

السلام عليكم و رحمة الله تعالى و بركاته إن من بين الأشياء الأكثر إرهاقا التي تعيق عمل المبرمجين هو تحديث قاعدة البيانات لدى الزبون فلا تستطيع إعطاءه قاعدة جديدة لأن جميع بياناته مسجلة في تلك القاعدة أما إضافة التحديث يدويا هذا يتطلب منك التنقل إلى الزبون أو الإتصال عن بعد و ربما الزبون لا يملك الأنترنت و الأكثر من ذلك ربما نستطيع التحديث يدويا لقاعدة البيانات و ماشي الحال فرضا هذا الشخص له عدد كبير من النسخ الإحتياطية 60 أو 70 أو أكثر و أراد ربط البرنامج بأحد النسخ الإحتياطية هل يتوجب على المبرمج التنقل له مرة ثانية؟؟ لكل مبرمج طريقته الخاصة بإضافة التحديث لقاعدة بيانات الزبون مع الحفاظ على بياناته سوف أقوم بطرح طريقتي التي أعمل بها و أتمنى من زملائي الأساتذة ممن لديهم طرق أخرى طرحها من أجل إثراء الموضوع. أولا: أنا أضع وحدة نمطية في ملف الواجهة تتحسس لوجود التحديث في قاعدة الخلفية إن لم تجدها فتقوم تلقائيا بإضافة هذا التحديث. الكود يعتمد على أوامر SQL و قد سبق لي أن شرحت هذه الدوال في هذا الموضوع: شرح دوال SQL التحديث هو عبارة عن إضافة جدول جديد أو إضافة حقل لجدول موجود الوحدة النمطية التالية: تقوم بإضافة جدول جديد لقاعدة البيانات اسمه tbl2 و إضافة حقل Age لجدول tbl1 Function edit_db() On Error Resume Next Dim app As Access.Application Dim file_data As String Dim sq As String 'مسار القاعدة file_data = CurrentProject.Path & "\DB.mdb" Set app = CreateObject("Access.Application") app.OpenCurrentDatabase (file_data) app.Visible = False DoCmd.SetWarnings False 'كود إنشاء جدول sq = "CREATE TABLE tbl2_fav ( id COUNTER PRIMARY KEY, name_adm text(50), num integer)" app.DoCmd.RunSQL sq ' كود إضافة حقل لجدول موجود sq = "ALTER TABLE tbl1 ADD COLUMN Age integer" app.DoCmd.RunSQL sq DoCmd.SetWarnings True app.Quit acQuitSaveAll Set app = Nothing MsgBox "تمت العملية بنجاح" End Function ونقوم بإستدعاء هذه الوحدة النمطية عند فتح ملف الواجهة حاول تحذف الجدول tbl2 و الحقل Age من الجدول tbl1 من الملف db و شغل الملف programme ثم أعد فتح ملف db سوف تجد البرنامج قد أضاف الجدول و الحقل تلقائيا. update-db.rar

السلام عليكم 🙂 اخي @essam rabea كنت خبير ، والآن اهلا وسهلا بك خبيرا معتمدا بيننا 🙂 جعفر

في العمل الرائع المرفق وهو للأستاذ essam rabea حاولت تطبيق العمل علي جدول أخر وقد أصدمت بخطأ في كود الاستعلام بنموذج البحث فهل من نظرة ومراجعة للتصحيح Officna - 1.accdb

اخي @صالح حمادي ضع الخط داخل القاعدة على شكل مرفقات ضع امر كتابة الخط من القاعدة للقرص الصلب , قم بتنصيب الخط , قم بحذفة من القرص الصلب

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

السلام عليكم تفضل الحل في الملف المرفق بمعادلة مختلفة تماما عن السابقة... بن علية حاجي DAYS_CALCULATION_3.xlsx

بارك الله فيك

بارك الله فيك استاذى بن علية

عمل رائع استاذنا @صالح حمادي أيدك أستاذي في هذا الكلام ....

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

جزيت خيرا هو المطلوب زادتك الله فضلا

شكرا لك مبدع ربنا يزيدك من فضلة

وعليكم السلام تفضل حذف أرقام من اليمين.xlsx

تفضل اظهار الوقت سالب.xlsx

ألف . ألف . مبروك استاذي الفاضل @essam rabea تستاهل اللقب وبجدارة ربي يوفقك يارب

ألف مبروك أستاذ @essam rabea تستاهل زادك الله من علمه و نفعك به إن شاء الله

أتمنى أن تضع لنا مثال على هذه الطريقة صديقي

بالتوفيق اخي عصام وااعانك الله على هذه المسؤولية :: تحياتي

يا بو صلاح مالو بس الإيموشن ما بيغمز ومفرفش اهه. فى المرفق عملت نموذج بحث آخر أرجو أن يكون المطلوب .. جرب وقولى. Officna - 1.zip

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

السلام عليكم الف مبروك -----ابا جودي بالتوفيق

وعليكم السلام تفضل Att Apr 2019.xlsx

بصراحة انا شفت إن عندك إستعداد للتعلم .. بمعنى إنك غيرت كتير فى الكود بما يتناسب مع عملك .. ممكن تسمع كلامى وتحاول إنت الأول وإن لم تستطع بعد عناء _ وأقصد ببعد عناء أن تحاول مرات كثيرة_ فكلنا هنا سباقون للإجابة عن إستفسارتكم. تحياتى

الخطأ بسيط أخى صلاح ويتلخص فى التالى استبدل strSQL = "SELECT Kaeel.IDKaeel, Kaeel.ISOName, Kaeel.KaeelFullName, Kaeel.Aboutkaeel" بـ strSQL = "SELECT Kaeel.IDKaeel, Kaeel.ISOName, Kaeel.KaeelFullName, Kaeel.Aboutkaeel" _ & " FROM Kaeel WHERE (" فى الحدثين الخاصين بهما وكذلك إستبدل DoCmd.OpenForm "frm_Kaeel", , , "[IDKeel]=" & Me.IDBook & "'" لرز Open على النموذج بـ DoCmd.OpenForm "frm_kaeel", acNormal, "", "[IDKaeel]=" & [IDKaeel], , acNormal وكذلك قم بتغيير إسم حقل القائل من TitleBook الى ISOName ولتعلم أخى الفاضل أنه لا يحك جلدك مثل ظفرك .. اعجبنى أنك حاولت وليس عيبا إن أخطأت فلكل منا عثراته .. واليك المرفق بعد التعديل ولكن حاول أنت أولا. غير فى شكل النموذج بما تحبه أنت وما يتلائم مع عملك تحياتى Officna - 1.accdb

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

أستاذ / ابا جودى بارك الله فيك وزادك علما..وقد تعلمت منك الكثير. أستاذ / محمد ابوعبد الله الله يبارك فيك ويحفظك أستاذ / SEMO.Pa3x بارك الله فيك أخى الكريم أستاذ / محمد طاهر بارك الله فيك ويسر لك كل الصعاب .. والله أنا حاسس إنى داخل إمتحان والمادة مذاكرها ومش فاكر فيها أى حاجه. يعيننى ربى أن أكون عند حسن الظن. أستاذ / ابوخليل بارك الله فيك .. وكم إستقيت العلم والمعرفة من منتدانا الكبير وأساتذته الأفاضل وكنت لا أعلم شيئا. أستاذ / omar19-3 بارك الله فيك أخى الكريم ويسر لك سبل النجاح. أستاذ / athal أعزك الله وزادك علما.

اهلا عزيزي, بعد قراءة نموذج تسجيل الدخول وجدته. كود طويل زيادة عن اللزوم وغير مرتب, اعدت كتابة النموذج الخاص بتسجيل الدخول. عدل ماتحب تعديله. SecurityLevel_group.accdb

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

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

السلام عليكم تم التعديل على المعادلات في العمودين E و F... جرب المرفق لعل فيه ما تريد... بن علية حاجي توزيع نقود كما بالبنوك (1).rar

السلام عليكم اضافة الى حل الاخ مصطفى شرف كود ان شاء الله يفي بالغرض ' اعمدة الجمع من عمود Private Const On_C As Integer = 4 ' الى عمود Private Const End_C As Integer = 7 ' مسمى عمود التكرار Private Const Colum = "C" Sub Ali_Def() Dim Lr As Long, Rw As Long Dim Col As Long Dim DelRNG As Range Application.ScreenUpdating = False Lr = Range(Colum & Rows.Count).End(xlUp).Row Set DelRNG = Range(Colum & Lr + 10) For Rw = 2 To Lr If Application.WorksheetFunction.CountIf(Range(Colum & 2 & ":" & Colum & Rw), _ Range(Colum & Rw)) > 1 Then Set DelRNG = Union(DelRNG, Range(Colum & Rw)) Else ' For Col = On_C To End_C Cells(Rw, Col) = Application.WorksheetFunction.SumIf(Range(Colum & ":" & Colum), Range(Colum & Rw), Columns(Col)) Next Col End If Next Rw DelRNG.EntireRow.Delete xlShiftUp Set DelRNG = Nothing Application.ScreenUpdating = True End Sub

الله يعطيك العافية اخي ابو ياسين ليت الأمر كان كما تصورته لهان منذ البداية الذي اقصده استخراج التواريخ المذكورة بناء على التاريخ الممرر لها من حقل EndDate وهو تاريخ ممرر حسب تقويم أم القرى مثلا انقر نقرا مزدوج في حقل EndDate وانظر الى التقويم لشهر شعبان ستجد انه 30 يوم اما التاريخ الهجري 29 يوم وهنا تكمن المشكلة في اظهار نتيجة بداية الاسبوع بين ام القرى والهجري علما ان المرفق الذي وضعته يعطي نتائج خاطئة سواء للتاريخ الميلادي او الهجري لاحظت ان بدايات الاسابيع ونهايتها خطأ بالمرفق التالي قمت بعدة محاولات وتمكنت من خلالها من اظهار نتائج صحيحة بالتاريخ الميلادي او الهجري وام القرى بتمرير دالة تاريخ أم القرى بعد ان قمت بمراجعة البرنامج الاساس للاستاذ ابو هادي وقراءة الوحدات النمطية والدالات جرب ادخل اي تاريخ بين شهر رجب 1440 و شهرشعبان وشهر رمضان 1440 وستجد الفروقات واضحة اما الشهور الاخرى والتي يكون فيها عدد الايام متساوي تكون متطابقة وهذا المرفق اضعه لعل من احد يستفيد منه شكر لك مد يد العون finel‏‏UMfirestWeekandlastweek.rar

السلام عليكم هذا مثال لتثبيت الخط داخل الونداوز من داخل ملف الأكسس إضافة خط للونداوز.rar

بعد اذن الاستاذ احمد بدرة واثراء للموضوع جرب هذا الملف نسخة من 1.xlsx

السلام عليكم ورحمة الله جرب الفكرة التي وضعتها في الملف... تم إضافة شيت جديد نضع فيه الأسماء في العمود A وصورة كل اسم في العمود B (صورة بحجم الخلية تقريبا 2.3 سم × 3.3 سم) وباستعمال المعادلات والتسميات تم عمل المطلوب... بن علية حاجي جلب الصورة على اساس الأسم.xlsx

السلام عليكم ورحمة الله تم عمل المطلوب بالمعادلات (معادلات بسيطة ومعادلات صفيف)... بن علية حاجي ترحيل الحراس.xlsm