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

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

يكون الكود كالتالى 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

صور بداخل الرسم البيانى بالاكسل الفيديو الصور رابط الملف http://www.mediafire.com/file/abefpdt2r7hvg4v/ادراج+صورة+داخل+الرسم+البيانى.rar

السلام عليكم, في السابق كنت استخدم خطوط معينة في برامجي وعند اعطاء البرنامج للعميل لاتظهر الخطوط التي قمت باستخدامها بل يظهر بمكانها الخط ( Arial ) وهذه مُشكلة. كت في وقتها الجأ الى ان اضع الخط بجانب قاعدة البيانات وفي داخل قاعدة البيانات اقوم بعمل تحقق لمجلد Fonts والبحث عن الخط في بداية تشغيل القاعدة, فإن لم يجده يعي رسالة للعميل بان الط مفقود وعليه ان يقوم بتثبيته من جانب البرنامج. بحثت طويلاً في الانترنت عن تثبيت خط من الاكسس فقط بدون مساعدة عامل خارجي ولكن لم اصل لنتيجة. اليوم بحمد الله قمت بحل المشكلة بإستخدام ( Visual .NET ) قمت بكتابة اداة بسيطة وظيفتها تثبيت الخط. يتم تمرير براميتر لها وهي بدورها ستقوم بتثبيته الدوال المستخدمة: AddFontResource CreateScalableFontResource ShellExecuteA للمزيد من المعلومات ، اضغط على اسم الدالة ارفقت لكم المصادر من MSDN شرح بسيط لمن لم يعرف ماذا اقصد بتثبيت الخط واستخدام الخط وانه لن يظهر في حال كان العميل لا يملكه. قمت بارفاق قاعدة بيانات لكم كـ مثال للشرح مع الخط المستخدم مع الاداة. شرح الاستعمال: يجب ان تكون الاداة ( SEMO_RegisterFont.exe ) هي والخط الذي سوف تستخدمه بجانب قاعدة البيانات. افتح برنامجك وضع فيه هذا الاجراء. Sub RegisterFont(nFont) Dim strExe As String Dim strArg As String strExe = CurrentProject.Path & "\" & "SEMO_RegisterFont.exe" strArg = "/SEMO/" & nFont ShellExecute 0, "runas", strExe, strArg, vbNullString, SW_SHOWNORMAL End Sub في الاستدعاء اي في الحدث Form_Current RegisterFont "DroidSansArabic.ttf" حيث ان الـ DroidSansArabic.ttf هو اسم الخط الذي قمنا بوضعه بجانب قاعدة البيانات ملاحظة مهمة جدا: في حال كان اسم الخط يتكون من اكثر من كلمة مثل ( Droid Sans Arabic.ttf ) قم بحذف المسافات بين كلمة واخرى بحيث يصبح ( DroidSansArabic.tts ) وستعمل قاعدة البيانات التي قمت بتصميمها بشكل رائع وبالخطوط التي قمت انت بأختيارها بدون الخوف من مشكلة عدم توفر الخطوط في جهاز العميل. الشرح حصري للمنتدى وغير موجود في الانترنت. لا تشكرني الا اذا وجدت انني استحق ذلك. تم بحمد الله حسنين RegisterFont_SEMO_Pa3x.rar

Option Compare Database Option Explicit Const SND_ALIAS_SYSTEMASTERISK As String = "SystemAsterisk" Const SND_ALIAS_SYSTEMDEFAULT As String = "SystemDefault" Const SND_ALIAS_SYSTEMEXCLAMATION As String = "SystemExclamation" Const SND_ALIAS_SYSTEMEXIT As String = "SystemExit" Const SND_ALIAS_SYSTEMHAND As String = "SystemHand" Const SND_ALIAS_SYSTEMQUESTION As String = "SystemQuestion" Const SND_ALIAS_SYSTEMSTART As String = "SystemStart" Const SND_ALIAS_SYSTEMWELCOME As String = "SystemWelcome" Const SND_ALIAS_YouGotMail As String = "MailBeep" ' playsound Params Const SND_LOOP = &H8 Const SND_ALIAS = &H10000 Const SND_NODEFAULT = &H2 ' silence if no sound associated with event Const SND_ASYNC = &H1 ' play async (don't freeze program while sound is playing) Private Declare PtrSafe Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long Private Sub Form_Close() PlaySound vbNullString, ByVal 0&, SND_NODEFAULT End Sub Private Sub Form_Load() PlaySound CurrentProject.Path & "\" & "DB_FILES\About.wav", vbNull, SND_ALIAS Or SND_NODEFAULT Or SND_ASYNC Or SND_LOOP End Sub اي سؤال انا حاضر، اتمنى الفائدة للجميع.

السلام عليكم و رحمة الله تعالى و بركاته إن من بين الأشياء الأكثر إرهاقا التي تعيق عمل المبرمجين هو تحديث قاعدة البيانات لدى الزبون فلا تستطيع إعطاءه قاعدة جديدة لأن جميع بياناته مسجلة في تلك القاعدة أما إضافة التحديث يدويا هذا يتطلب منك التنقل إلى الزبون أو الإتصال عن بعد و ربما الزبون لا يملك الأنترنت و الأكثر من ذلك ربما نستطيع التحديث يدويا لقاعدة البيانات و ماشي الحال فرضا هذا الشخص له عدد كبير من النسخ الإحتياطية 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 تستاهل زادك الله من علمه و نفعك به إن شاء الله

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

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

بسيطة يمكنك استخدام هذه المعادلة -لو افترضنا ان أرقام المعتمرين بالخلية A2 وأن متوسط تسكين الفندق في الخلية B2 فتكون المعادلة بهذا الشكل -ولكن كما ننصح الجميع لابد من رفع ملف في اى مشاركة وتوضيح المطلوب عليه =ROUNDUP(A2/B2,0)

وعليكم السلام تفضل 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

السلام عليكم الف الف مبروك الترقية اخي الفاضل essam rabea وانشاء الله تكون حلقة خير ومحبة من سلسلة حلقات خبرائنا الاعزاء

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

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

الف مبروك وفقك الله وزادك علما ورفعة ونفع بك

ألف مبروك أستاذ/عصام زادك الله من فضله وعلمه.

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

مليون مبروك استاذنا الفاضل

مبارك الترقية للاخ الفاضل عصام.

السلام عليكم تم التعديل على المعادلات في العمودين 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