كل الانشطه

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

مشاركة ، ولا اعلم ان كانت صحيحة تفضل الملف المعدّل baseM_9 .accdb

اخي العزيز @sm44ms ، انت ما شاء الله عضو مميز ، ولا بد لك من معرفة قوانين المنتدى بإرفاق ملف و الأهم هو العنواااان . ان يكون ذا صلة واضحة لنوع الاستفسار . على العموم جرب هذه الفكرة Private Sub KH_Click() ' إعادة تعيين جميع المربعات لتكون فارغة ClearAllLists ' تعبئة القوائم للنماذج المختلفة عند الضغط على KH Me.lstForms1.AddItem "شاشة اصدار البطاقات;FO1" Me.lstForms2.AddItem "شاشة تجديد البطاقات;FO2" Me.lstForms3.AddItem "شاشة تعديل بيانات البطاقات;FO3" Me.lstForms4.AddItem "شاشة تعديل بيانات اساسية فرعية;FO4" Me.lstForms5.AddItem "شاشة اصدار بطاقات المتقاعدين;FO5" Me.lstForms6.AddItem "شاشة البطاقات المنتهية;FO6" Me.lstForms7.AddItem "شاشة الملف الشخصي العام;FO7" End Sub Private Sub TW_Click() ' إعادة تعيين جميع المربعات لتكون فارغة ClearAllLists ' تعبئة القوائم للنماذج الخاصة بـ TW عند الضغط على TW Me.lstForms1.AddItem "شاشة الملف التاريخي العام;TW1" Me.lstForms2.AddItem "حركة الملفات التاريخية;TW2" Me.lstForms3.AddItem "الملف التاريخي;TW3" Me.lstForms4.AddItem "حالة المعاملات التاريخية;TW4" Me.lstForms5.AddItem "الشاشة قيد الاجراء;TW5" Me.lstForms6.AddItem "شاشة قيد الاجراء 2;TW6" Me.lstForms7.AddItem "شاشة الملف ;TW7" End Sub Private Sub ClearAllLists() ' إعادة تعيين جميع مربعات القوائم إلى الحالة الافتراضية Me.lstForms1.RowSource = "" Me.lstForms1.Value = Null Me.lstForms2.RowSource = "" Me.lstForms2.Value = Null Me.lstForms3.RowSource = "" Me.lstForms3.Value = Null Me.lstForms4.RowSource = "" Me.lstForms4.Value = Null Me.lstForms5.RowSource = "" Me.lstForms5.Value = Null Me.lstForms6.RowSource = "" Me.lstForms6.Value = Null Me.lstForms7.RowSource = "" Me.lstForms7.Value = Null End Sub Private Sub lstForms1_AfterUpdate() HandleFormOpen Me.lstForms1 End Sub Private Sub lstForms2_AfterUpdate() HandleFormOpen Me.lstForms2 End Sub Private Sub lstForms3_AfterUpdate() HandleFormOpen Me.lstForms3 End Sub Private Sub lstForms4_AfterUpdate() HandleFormOpen Me.lstForms4 End Sub Private Sub lstForms5_AfterUpdate() HandleFormOpen Me.lstForms5 End Sub Private Sub lstForms6_AfterUpdate() HandleFormOpen Me.lstForms6 End Sub Private Sub lstForms7_AfterUpdate() HandleFormOpen Me.lstForms7 End Sub Private Sub HandleFormOpen(lst As Control) ' تحقق من العنصر المحدد في مربع القائمة Dim selectedIndex As Integer selectedIndex = lst.ListIndex If selectedIndex = -1 Then MsgBox "يرجى اختيار عنصر من القائمة.", vbExclamation Exit Sub End If ' تحديد المفتاح الخاص بكل مجموعة من النماذج Dim prefix As String If Me.KH.Visible Then prefix = "FO" ' النموذج المختار من KH ElseIf Me.TW.Visible Then prefix = "TW" ' النموذج المختار من TW End If ' فتح النموذج بناءً على الفئة المختارة Select Case selectedIndex Case 0 OpenFormWithPrefix prefix & "1" Case 1 OpenFormWithPrefix prefix & "2" Case 2 OpenFormWithPrefix prefix & "3" Case 3 OpenFormWithPrefix prefix & "4" Case 4 OpenFormWithPrefix prefix & "5" Case Else MsgBox "النموذج غير موجود." End Select End Sub Private Sub OpenFormWithPrefix(formName As String) If Not IsFormOpen(formName) Then DoCmd.OpenForm formName End If End Sub Private Function IsFormOpen(formName As String) As Boolean ' التحقق إذا كان النموذج مفتوح بالفعل On Error Resume Next IsFormOpen = (CurrentProject.AllForms(formName).IsLoaded) On Error GoTo 0 End Function Private Sub Form_Load() ' إعادة تعيين مربعي القوائم عند فتح النموذج Me.lstForms1.RowSource = "" ' تفريغ مربع القائمة الأول Me.lstForms2.RowSource = "" Me.lstForms3.RowSource = "" Me.lstForms4.RowSource = "" Me.lstForms5.RowSource = "" Me.lstForms6.RowSource = "" Me.lstForms7.RowSource = "" End Sub ما تم هو إضافة منطق لفتح النماذج بناءً على الاختيارات المختلفة ، بالإضافة إلى تخصيص الفتح حسب المجموعة المختارة .

المطلوب كود ترحيل بنون ناجحون في ورقة وترحيل بنات ناحجات في ورقة اخرى من ورقة اجمالي 4 ترحيل بنون ناجحون وترحيل بنات ناجحات.rar

شكرا لحضرتك على اهتمامك بالرد بس ده غير المقصود المفروض بحدد المكافأة بناء على 3 عوامل هي : الكلية (طبية أم هندسية ) q (من q1 إلى q4 ) العامل الثالث هو IF اللي بتراوج من 0.1 إلى اكبر من 6 ) وكل فئة ليها المبلغ الخاص بيها ياريت أكون كده وضحت لحضرتك المطلوب

السلام عليكم ورحمه الله وبركاته علي ما قدر مافهمت المطلوب =VLOOKUP(B2,البيانات!$A$2:$G$15,MATCH(C2,البيانات!$A$1:$G$1,0),0)

السلام عليكم أخواتي الأعزاء المرفق ملف به 2 شيت الشيت الأول به بيان بمكافأة محددة بناء على عوامل مختلفة محددة في الصف الأول 1 الشيت الثاني فيه بيان بأسماء الباحثين المطلوب استخراج قيمة المكافأة لكل باحث بناء على التقييمات اللي واخدها في البحث (الكلية ، if، q ) ارجوا اني اكون عرفت اوصل المطللوب مع خالص الشكر مكافآت_البيانات.xlsx

بارك الله فيك لكن الكود لا يعمل

عند اضافة استلام شيكات كتحصيل والصرف يختلف عملية ان كان الادخال الى نظام آخر مثال oracle باثيون الى ولكن للاثبات والتقارير وبعض التفاصيل الى .... طلبي بسؤال يكون الفصل بتحصيل بالشيكات او تحويل بنكي اما الصرف بتحويل بنك لا يعتمد على الشيكات كيف تنظيم بالواجهة واحده من غير حقول فارغة ويوجد حقول مشتركة مثل رقم الحساب ============================== هل يفضل عمل (حقل واحد ) يذكر فية تحويل بنك او شيكات في النموذج والتقرير بشرط اذا كان الحقل شيكات يظهر حقول مع التمسية الحقول ومستمر ؟!! ما هي طريقة الافظل حتى عند طباعة التقرير Cast ! ما هو الواجب عمله وشكرا خلصة المرحلة الثانية من ربط الثابت للاعدادة مع ربط برقم الملف بالاضافة الى رقم المدني القومي مع سكانر مع الربط والاستخراج وقفت على هذي النقطة فيديو للتوضيح ما ادري بس حاسه 😏

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

نعم أخي يمكنك تعديل السطور الأخيرة من الكود Dim fichier As String ' قم بتحديد خلية الإسم بما يناسبك fichier = WS.Range("E30").Value filePath = pdfFolder & "\" & fichier & ".pdf" WS.ExportAsFixedFormat Type:=xlTypePDF, fileName:=filePath, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Cnt: Next r MsgBox "تم تصدير الملفات إلى مجلد: " & FolderName, vbInformation Unload Me وبما أن ورقة Round 5 تتضمن إسم المستفيد على عمود c يمكنك استخدام هدا ليتم تسمية الملف ديناميكيا عند التنفيد مع مزيدا من التحقق Private Sub CommandButton2_Click() Dim r As Long, s As Long, t As Long, FolderName As String, pdfFolder As String, i As Integer Dim filePath As String, ID As String, Item As String, tmp As String, Chars As String If Trim(TextBox1.Value) = "" Or Trim(TextBox2.Value) = "" Or _ Not IsNumeric(TextBox1.Value) Or Not IsNumeric(TextBox2.Value) Then MsgBox "الرجاء التحقق من أرقام الإيصالات", vbCritical Exit Sub End If s = CLng(TextBox1.Value): t = CLng(TextBox2.Value) For r = s To t If Trim(dest.Range("B" & r + 2).Value) <> "" Then Exit For Next r If r > t Then: MsgBox "لا يوجد أي إيصالات للحفظ على قاعدة البيانات", vbExclamation: Exit Sub pdfFolder = ThisWorkbook.Path & "\الإيصالات" If Dir(pdfFolder, vbDirectory) = "" Then MkDir pdfFolder Chars = "\ / : * ? "" < > |" For r = s To t ID = Trim(dest.Range("B" & r + 2).Value) '(C)'جلب إسم المستفيد من عمود Item = Trim(dest.Range("C" & r + 2).Value) '(ID)' تجاهل حفظ الملف عند التحقق من عدم وجود إسم المستفيد أو رقم If ID = "" Or Item = "" Then GoTo Cnt tmp = Item For i = 1 To Len(Chars) tmp = Replace(tmp, Mid(Chars, i, 1), "") Next i filePath = pdfFolder & "\" & tmp & ".pdf" WS.[d4] = ID: WS.[U2] = ID On Error Resume Next WS.ExportAsFixedFormat Type:=xlTypePDF, fileName:=filePath, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False On Error GoTo 0 Cnt: Next r MsgBox ": تم تصدير الملفات إلى مجلد" & pdfFolder, vbInformation Unload Me End Sub PTT 2024 v3.xlsm

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

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

الاخ ناقل المحترم جربته بدون تغيير الرقم الظاهر ،...... ونجحت التجربة كما اردته احسنت .... لك جزيل الشكر والاحترام وشكراً لكل من اهتم بسؤالي وتفضل بالاجابة .

الاخ Moosak قصدي ان حقل التسلسل عندي (غير مكرر) بينما في المرفق الجدول فيه حقل التسلسل (مكرر) ... اقصد خاصية الجدول . نعم الكود لا يكرر التسلسل صحيح وشغال تمام لكن عندما اجعل خاصية الحقل ID (غير مكرر) لن يعمل عند الاضافة . ممنون منك اخي .

الاخ الاستاذ ابو خليل المحترم اضحكتني فلك الحق لي نصيب من اسمي ولله الحمد على كل حال .... اتمنى لك السلامة وراحة البال دائماً .... نعم استاذنا الغالي في مشاركتك الاولى لم يتم تحميل الملف المرفق ويظهر لي انه تالف ولم افهم مرادك من العبارة فكر قليلاً .... ولم استفسر حياءً .

السلام عليكم و رحمة الله صراحة لم اطلع على الملف الثانى ارجو ان يكون هذا الكود التالى هو المقصود ملحوظة : قم بانشاء ورقة جديدة سمها Colln Sub Collection() Dim ws As Worksheet, Sh As Worksheet Dim LR As Long, LS As Long Set ws = Sheets("Colln") LR = ws.Range("F" & Rows.Count).End(3).Row For Each Sh In Worksheets(Array("أدب عربي1", _ "أدب عربي2", "أدب عربي3", "أدب عربي4")) LS = Sh.Range("F" & Rows.Count).End(3).Row Sh.Range("A1:I" & LS).Copy ws.Range("A" & LR).PasteSpecial xlPasteAll LR = LR + LS Next Application.CutCopyMode = False End Sub

اعتذر بشدة سامحنى خالص الشكر لاهتمامك

السلام عليكم ورحمة الله وبركاته اخواني الكرام اريد كود VBA يمكنني من دمج عدة شيتات موجودة في نفس الملف بحيث يكون كل محتويات الشيت الثاني تحت محتويات الشيت الاول ومحتويات الشيت الثالث تحت محتويات الشيت الثاني وهكذا الملفين المرفقين الملف 1 به الشيتات منفصلة اريدا ان تكون مثل الملف 2 انا قمت بالعمل يدويا بالنسخ واللصق لكن عندي عدة ملفات يجب ان اقوم بعملها بنفس الطريقة لذلك اريد كود VBA ملاحظة الشيتات دائما لها نفس الشكل ملف1.xlsx ملف2.xlsx

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

السلام عليكم الاخوة الافاضل هل الشرح غير وافي ام المطلوب غير ممكن تجسيده بارك الله فيكم

تم الحصول على الكود ولكن يجب الاتصال اولا باستخدام sql driver 17 Sub nel_SQL() Dim db As DAO.Database Dim tdf As DAO.TableDef Set db = CurrentDb For Each tdf In db.TableDefs If tdf.Connect <> "" Then 'tdf.Connect = "PROVIDER=SQLOLEDB;SERVER=WIN-9V6JHD626P3\SQLEXPRESS;DATABASE=tarikbase2;UID=user1001;PWD=1@@1a" tdf.Connect = "ODBC;DRIVER=ODBC Driver 17 for SQL Server;SERVER=.\SQLEXPRESS;UID=user1001;PWD=1@@1a;Trusted_Connection=No;DATABASE=tarikbase2;" 'ODBC;DRIVER=ODBC Driver 17 for SQL Server;SERVER=.\SQLEXPRESS;UID=user1001;PWD=1@@1a;Trusted_Connection=No;DATABASE=tarikbase2; tdf.refreshlink End If Next tdf Set tdf = Nothing Set db = Nothing End Sub

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

كان الأجدر بك أن تكون واضحاً في طلبك ، وأن يكون ملماً بكل الإحتمالات ، فلست انا من سيقرر الاحتمالات البديلة لكل حقل أكثر من 125 !!!!! شكراً لك

نتشرف نحن مركـز بنــاء الدولي للتـدريب ( BenaaITC ) بدعوتكم للمشاركة فى البرنامج التدريبي إدارة المشاريع الإحترافية PMP يمكنكم من خلال هذا الرابط التسجيل وحجز مقعدكم وبناءاً عليه سيتم التواصل معكم وإرسال العرض المالي والفني الخاص بالبرنامج التدريبي المطلوب أو يمكنكم التواصل معنا مباشرة ... أ / فاطمة كريم جوال / واتساب / ڨايبر / لاين / إيمو : 00201020877915 البريد الإلكتروني : fatma@benaaitc.com الموقع الرسمي : مركـز بنــاء الدولي للتـدريب كما يسعدنا أن نقدم لكم مجموعة متميزة من أفضل البرامج التدريبية فى مجال إدارة المشاريع ( والتي يتم تنفيذها على أيدي نخبة من أفضل الأساتذة والمتخصصين في مجال التدريب ) ────────────────────────── » البرامج التدريبية في مجال إدارة المشاريع « ◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈ مهارات إدارة المشاريع تخطيط وجدولة ومراقبة المشاريع إدارة مخاطر المشروع السلوك الإحترافي في إدارة المشاريع الادارة الفنية الحديثة للمشاريع الماجستير المهني المصغر في إدارة الأعمال Mini MBA التدقيق علي المشاريع إدارة المشاريع لغير مديري المشاريع الإدارة الفعالة للمشروعات عن طريق القياسات ومؤشرات الأداء إدارة المشروعات متعددة الأطراف الرقابة والمتابعة والإشراف الإداري على المشروعات تخطيط وإدارة المشاريع باستخدام Primavera - المستوى المتقدم إعداد أخصائي إدارة المشاريع (PMP) نظم إداره معلومات المشروعات الإدارة المتقدمة للمشاريع إعداد دراسات الجدوى الاقتصادية للمشروعات إدارة المشاريع الإحترافية PMP ────────────────────────── » كما نقدم دورات تدريبية فى المجالات الآتية « ◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈ الإدارة والقيادة وتطوير الذات | المحاسبة والإدارة المالية | البنوك والقطاع المالي القانون وإدارة العقود | الهندسة الكهربائية | الهندسة الفنية والصيانة سلامة الغذاء | الخدمات الصحية والطبية | الموارد البشرية قطاع التأمين | التسويق والمبيعات وخدمة العملاء | إدارة المشاريع هندسة البترول والنفط | العلاقات العامة والإعلام | المشتريات والمخازن والخدمات اللوجستية الجودة الشاملة والإنتاج | الأمن والسلامة والصحة المهنية | السكرتاريا وإدارة المكاتب التنشيط السياحي وإدارة الفنادق ────────────────────────── » نقوم بتنفيذ البرامج التدريبية في معظم عواصم ومدن العالم ومنها « ◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈ ◈◈ دورات تدريبية تعقد في القاهرة | دورات تدريبية تعقد في دبي دورات تدريبية تعقد في اسطنبول | دورات تدريبية تعقد في جـدة دورات تدريبية تعقد في شرم الشيخ | دورات تدريبية تعقد في الرياض دورات تدريبية تعقد في الإسكندرية | دورات تدريبية تعقد في كوالالمبور ────────────────────────── يحصل المتدرب على شهادة بالعربية وأخرى بالإنجليزية معتمدة من مركـز بنــاء الدولي للتـدريب ────────────────────────── ملحوظة : ㋡ 。。。。 ↜ يوجد خصم خاص للشركات والهيئات والجهات الحكومية والمجموعات ↜ سياستنا مبنيه على الإلتزام بعقد جميع برامجنا التدريبية في موعدها دون تأجيل أوإلغاء وبغض النظر عن عدد المشاركين . ↜ يمكن تنفيذ أي برنامج تدريبي اخر يلبي احتياجاتكم التدريبية بالوقت و بالمكان المناسبين لكم اذا كان عدد المشاركين (2) كحد ادنى . ────────────────────────── ☚ أسلوب تنفيذ البرنامج : 。。。。。。。。 لضمان نجاح البرنامج التدريبى واتاحة اكبر قدر ممكن من المشاركة الفعالة من خلال إعداد المادة العلمية بطريقة واضحة وبسيطة ومفهرسة حتى يسهل على المتدرب إستيعاب المادة وكذلك وضع المادة العلمية وتقديم كافة المراجع على فلاش ميموري تسلم للمتدرب وكذلك يتخلل البرنامج التدريبي جلسات نقاش ولعب أدوار كما يتم عرض الحالات العملية الخاصة بالبرنامج وطرحها للنقاش والبحث بين المتدربين والمحاضر كما يتم عمل إستبيانات بصفة دورية للوقوف على مستوى البرنامج التدريبي ومدى رضاء المتدرب عن البرنامج من كافة جوانبه ومنها المادة العلمية المطبوعة والمعروضة على شكل شرائح تعليمية وقاعة التدريب وفندق إقامة البرنامج ومدى التواصل مع منسق الدورة لتذليل العقبات وإنجاح البرنامج التدريبي ────────────────────────── لحجز مقعدكم والإستفادة بالعروض والخصومات يمكنكم التواصل معنا على البيانات الآتية : فاطمة كريم Mob & WhatsApp & Viber & Line & Imo : 00201020877915 Email : fatma@benaaitc.com Website : www.benaaitc.com ────────────────────────── تابعونا على السوشيال ميديا : Facebook | Twitter | Linkedin | Instagram نحتاج التحفيز لكي نبدأ السباق .. بينما نحتاج التدريب لكي ننهيه بنجاح