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

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

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

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 حاولت تطبيق العمل علي جدول أخر وقد أصدمت بخطأ في كود الاستعلام بنموذج البحث فهل من نظرة ومراجعة للتصحيح Officna - 1.accdb

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

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

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

بارك الله فيك

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

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

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

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

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

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

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

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

@ essam rabea نبارك لكم الترقية ومنها للأعلى إن شاء الله

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

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

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

الف مبروك استاذ عصام رفع الله قدرك ونفع الله بك

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

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

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

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

الف مبروك ، و الي الأمام دائما فى شتى المجالات باذن الله

السلام عليكم مشكور على كلماتك الطيبه جرب المرفق امل ان يفي بالغرض fatoura2.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

شكرا لجهودك اخي محمد, سبق وجربت هذه الدالة لكنها فشلت لدي. تحتاج صلاحيات مسؤول, والخط لا يظهر في مجلد Fonts الا بعد الريستارت

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

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

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

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