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

السلام عليكم ورحمة الله وبركاته.. اليوم سأشرح لكم الدالة StrConv ولأي الامور تستخدم. الدالة حصرا تتعامل مع النصوص ( String ) ووضيفتها التحويل بين الاحرف الانجليزية ( كبير , صغير ) الدالة تأخذ 3 براميترات: البراميتر القيمة الوصف vbUpperCase 1 تحويل جميع الحروف الى حروف كبيرة vbLowerCase 2 تحويل جميع الحروف الى حروف صغيرة vbProperCase 3 تحويل الحرف الاول من كل كلمة الى كبير وباقي حروف الكلمة الى حروف صغيرة vbUnicode 64 تحويل النص الى سلسلة الـ UNICODE vbFromUnicode 128 تحويل النص من سلسلة UNICODE الى تنسيقات اخرى مثال: StrConv ("officena semo pa3x", 1) Result: "OFFICENA SEMO PA3X" StrConv ("OFFICENA SEMO PA3X", 2) Result: "officena semo pa3x" StrConv ("OFFICENA SEMO PA3X", 3) Result: "Officena Semo Pa3x" الاستخدام في الاستعلام يكون: الاستخدام في داخل محرر الـ VBA يكون: StrConv([CategoryName],3) تحياتي للجميع.. SEMO.Pa3x

السلام عليكم 🙂 في وجهة نظري ، اذا رأيت احد الاعضاء يرد على اسئلة الاعضاء ، واجاباته تفي بحل السؤال (من المعروف ان هناك عدة طرق لحل اي سؤال ، وهناك طرق افضل من اخرى) ، فأظل اراقب هذا العضو لمجموعة مشاركات ، حتى اتاكد من علمه ، ومواظبته للمنتدى ، ولو بشكل متقطع. عندها اقوم بترشيح ترقيته الى درجة خبير 🙂 الاخ حسام وهاب @husamwahab اهلا وسهلا بك على قائمة خبراء منتدى الاكسس 🙂 ولازال البحث مستمر لترقية بقية الاعضاء 🙂 جعفر

السلام عليكم تفضل اخي الكريم ارجو ان يكون طلبك Dim appExcel As Object On Error Resume Next Set appExcel = GetObject(, "Excel.Application") appExcel.Application.DisplayAlerts = False appExcel.Application.Save appExcel.Application.DisplayAlerts = True appExcel.Application.Quit Set appExcel = Nothing

السلام عليكم مؤخراً قمت بعمل مشروعٍ لمعالجة بيانات جهاز البصمة الإلكترونية Fingerprint Scanner ، ومن ضمن مراحل العمل احتساب الإجازات الساعية شهرياً وذلك بتحويلها إلى يوم إجازة، ونظراً لكون المشروع يتعلق بخصوصية المكان المنفذ لأجله مع التعقيدات القانونية المتعلقة بذلك، فقد اختصرت العمل لما يبين هذه الجزئية فقط، بعد أن وجدت من يسأل عنها؛ عسى أن يكون في هذا العمل ما ينفع، مع بعض الأكواد البسيطة التي قد يُحتاج إليها. أللهم صلِ على سيدنا محمد وعلى آله وصحبه وسلم. ميديا فاير- رابط المثال

السلام عليكم أرفق نسخة مرفوعة على سيرفر الموقع برنامج احتساب البصمة.accdb

الأخ علي لا لزوم لهذه المعادلة الطويلة (لادراج من A الى Z ) تكفي هذه =IF(ROWS($A$1:A1)>26,"",CHAR(64+ROWS($A$1:A1))) ربما تنفع هذه الثلاث كودات Option Explicit Sub insert_arab() Dim i%, k% Dim arr() k = 0 Range("A1").CurrentRegion.ClearContents arr = Array(1, 2, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, _ 18, 19, 20, 21, 23, 24, 25, 27, 29, 30, 31, 32, 39) For i = LBound(arr) To UBound(arr) Range("A" & i + 1) = Chr(198 + arr(k)) k = k + 1 Next End Sub '++++++++++++++++++++++++++++++++++++ Sub insert_Cap() Range("C1").CurrentRegion.ClearContents Dim i% For i = 1 To 26 Range("C" & i) = Chr(64 + i) Next End Sub '++++++++++++++++++++++++++++++++++++++++++ Sub insert_Small() Range("F1").CurrentRegion.ClearContents Dim i% For i = 1 To 26 Range("F" & i) = Chr(96 + i) Next End Sub الملف مرفق ALPHABET.xlsm

برنامج شئون الموظفين مع ارشفةصور المستندات وملفات pdf الباسوورد : 2545 https://youtu.be/A0u_-nowx1s وهذا هو البرنامج برنامج_الموظفين.accdb

السلام عليكم ورحمة الله بفرض جعل القائمة المنسدلة قى الخلية "E3" ضع الكود التالى فى حدث الورقة و تغيير الاكواد Code1 , Cod2 .... الخ باسماء الاكواد التى لديك Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$E$3" Then Exit Sub If Target.Value = "اجمالى" Then Call Code1 ElseIf Target.Value = "دراسة" Then Call Code2 ElseIf Target.Value = "بحث" Then Call Code3 ElseIf Target.Value = "صح" Then Call Code4 Else Exit Sub End If End Sub

وعليكم السلام اخى @حسين العربى حاجه كده ع قدى ان شاء الله تظبط معك شوف الجدول هناك سجلان بتوقيات مختلفه اللى هيظهر فالاستعلام السجل الاول المنتهد المده جرب ووافنى بالنتيجه بالتوفيق ان شاء الله ادخال بيانات البطاقه المدنية.rar

في الطريقة التي اشار اليها الاستاذ @أحمد الفلاحجى اعتمدت الاستاذة زهرة على وضع حقل غير منظم بالنموذج الفرعي وقيمته تساوي =Nz(Sum([total]);0) وفي حقل الاجمالي للنموذج =Forms![إجمالى فاتورة البيع(مبيعات الأسمنت]![تفصيل فاتورة البيع]!TOT ومكن اختصار الطريقة بدون الحاجة للحقل غير المنظم في الفرعي باستخدام دالة dsum =Nz(DSum("[total]";"تفصيل فاتورة البيع";"[im_id]='" & [im_ID] & "'");0) المثال في المرفق TOTAL.accdb

اساتذتي ومعلمي الاحباء الف الف شكر الحقيقة هذا اكثر من استحقاقي اين انا من هؤلاء الاهرامات والاساتذة الذين اتحفونا وما زالوا يتحفونا باجوبتهم شكرا لاستاذنا jjafferr والشكر موصول لاساتذتي واخوتي Shivan Rekany أحمد الفلاحجى ابو البشر Khalid Jnb ابوخليل wael_rafat أبو إبراهيم الغامدي essam rabea kha9009lid ابو محمد 316 m.r

وعليكم السلام اخي حمدي 🙂 وشكرا جزيلا لك 🙂 جعفر

مشاركة مع اصدقائي لكي يظهر كل السجلات فقط قم بتغير نوع العلاقة بين استعلامين كما مبينة في الصورة شوف النتيجة واليك مرفقك بعد تعديل علاقة TEST.accdb

اخي الفاضل : 1. قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف 2. اخبرك اخوي خالد : 3. اخبرك اخوي شفان ، ان قاعدة البيانات من نوع mde والتي لا يمكن ان تفتحها وترى الاكواد رجاء اخي الفاضل ، الالتزام بقوانين المنتدى 🙂 جعفر

هلا اخي تم التعديل الفكرة هى ضم كل الاسطر في الجدولين...اضفت سطر 8 لجدول IN للتوضيح بالتوفيق TEST-UPDATED.accdb

السلام عليكم هذه مشاركة مع استاذ ابو تراب TEST10.rar

تفضل أخي ListBox to One Row.xlsm

هلا اخي... هل هذا طلبك نفذ الاستعلام Q_IN_OUT_ALL TEST.accdb

وعليكم السلام-على الرغم انك لم تقم برفع ملف موضح عليه المطلوب بكل دقة , الا انى قمت بتصميم هذا لك , بداخل الملف طريقة عمل التسلسل بمعادلة عادية وطريقة أخرى بدالة معرفة Dynamic Serial by Letters.xlsm

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

اخي واستاذنا الفاضل @Khalf لا مشكله اخي جميعنا نعمل لهدف واحد بارك الله فيك ولك وسوف اقوم بعون الله بتحميل المثال وتجربته عندما يتوفر لدي جهاز يدعم تطبيقات ميكروسوفت فائق التقدير والاحترام 🌹 تحية اجلال واحترام لاخينا واستاذنا ابو بسمله الجميل في اخلاقة والجميل في تفانيه في خدمة الجميع 🌹

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

اتفضل اليك هذا الكود Public Sub Terminate(Process As String, Optional PID As Long = 0) StrPID = IIf(Not PID = 0, " AND ProcessId=" & PID, "") Set Obj = GetObject("winmgmts:\\.\root\CIMV2") Set ColItems = Obj.ExecQuery("SELECT * FROM Win32_Process WHERE Name='" & Process & "'" & StrPID, , 48) For Each Obj In ColItems Obj.Terminate Next End Sub تقدر ان تغلق كل انواع البرامج بهذه الطريقة فقط عليك ان تكتب اسم البرامج عند تدعيه مثلا هنا نريد ان نغلق ملفات اكسل المفتوحة هكذا سنستدعيه عند الضغط على الزر Private Sub Command28_Click() Call Terminate("Excel.exe") End Sub

Application.Sum(Sh.Cells(i, 1). _ Offset(, 4).Resize(, 5) في هذا السطر الرقم 5 في ((Resize(, 5) هو عدد الأعمدة التي تريد جمعها ابتداء من العامود الذي مسجل في (Offset(, 4 وتضيف عليه 1 (4+1)=5 (العامود E رقمه 5) مثلا اذا كنت تريد جمع عامود واحد تكتب (Resize(, 1 العامود فقط E اذا كنت تريد جمع عامودين تكتب (Resize(, 2 العامودين E و F

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

تم ربط الازرار بالاكواد البرنامج يعمل ولكن هناك ملاحظة يوجد كود وهو اخر كود اسمه copy من المفترض ان يكون هناك زر خاص به ولديك خطا فيه محدد صفحة اسمها result وهي غير موجودة في ورقة العمل بصراحة لا اعلم الية عمل البرنامج جربه واعطيني ملاحظاتك النقاط.xlsm

مشكور اخي واستاذي Barna

الف مبروك اخي @husamwahab

بدل اعطاء البيانات والتفتيش عنها داخل الورقة اذكر الأعمدة المطلوب نقلها (مثلاً عامود B عامود C الخ.... )

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

مبارك عليك أستاذ حسام شارة الخبراء.. تمنياتي لك بمزيد من النجاح..

الف الف مبروك استاذنا @husamwahab تسناهل كل خير والى الامام دائما ان شاء الله 🌷

الف الف مبروك اخي حسام وهاب @husamwahab اهلا وسهلا بك على قائمة خبراء منتدى الاكسس تحياتي

عليكم السلام ورحمة الله وبركاته في مرة السابقة ايضا كان مشكلتك نفس المشكلة خلي توضح لك لكي تستفيد اكثر القي نظرتا الى هذه الصورة هناك حقل باسم bi لكن مصدره هو حقل user1 وفي مصدر التقرير والنموذج الغياب هناك شرط فيه وهو يجب ان يكون حقل bi يساوي بحقل bi في جدول الملفات1 اي يجب ان يكون مصدر حقل bi في جدول ملفات1 يكون حقل bi نفسه لذلك انا قمت بتسمية مربع bi الى user1 ومن جديد اضفت حقل bi في نموذج اتفضل اليك قاعدتك بعد تعديل ملفات.rar

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

السلام عليكم اتفضل اخى @husseinharby مشاركه لاخى العزيز @Khalid Jnb جزاه الله خيرا وجزاه الله خيرا من علمنى هذا الكود وشفاه الله وعافاه شفاء لا يغادر سقما بالتوفيق اخى حسين New Microsoft Access Database.rar

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

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

الله االله الله تم تم ربنا يحفظك يارب الله يكرمك استاذى يارب ويحفظك يارب كل عتم وانت واسرتك بكل خير الدنيا يارب حبيبى والله احترامى اخى الغالى واستاذى الله يكرمك يارب دائما

السلام عليكم تفضل اخي العزيز اتمنى ان يكون المطلوب تحياتي New Microsoft Access Database.rar

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

طريقة اخرى بالكود ... ستجد جميع ماطلبته في شيت التمويل بالاعتماد على البيانات في شيت يومية الخزينة المعادلة :- النقد الفعلي في الخزينة = ( صافي النقد في الخزينة ( اجمالي التمويل + اجمالي الايرادات - اجمالي المصروفات )) + ( اجمالي العهد ) يومية خزينة2020.xlsm

الكثير منّا يحاول ادخال التاريخ في الكومبوبوكس لكن المشكلة انه يظهر بالتنسيق الأميركي (شهر /يوم /سنة) بحلية بسيطة يمكننا ان نخدع الاكسل لأدخال التاريخ في الكومبوبوكس كما نريد نحن (يوم/شهر/ سنه) اذ ليس الامر باختياره انظر الى الملف المرفق لتعرف ماذا اعني Reel_date_to Combo.xlsm

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

اخي عامر تفضل لعله المطلوب لقد قمت بصياغة الملف وتسمية الاوراق بالانجليزي حتى يعمل الكود جيدا Sub copypaste() Dim lastrow As Integer, erow As Integer, sh1 As Worksheet, sh2 As Worksheet Set sh1 = Worksheets("sheet2") Set sh2 = Worksheets("sheet4") lastrow = sheet2.Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To lastrow erow = sheet4.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row sheet4.Cells(erow, 5) = sheet2.Cells(i, 1) sheet2.Cells(i, 1).ClearContents sheet4.Cells(erow, 3) = sheet2.Cells(i, 2) sheet2.Cells(i, 2).ClearContents sheet4.Cells(erow, 7) = sheet2.Cells(i, 5) sheet2.Cells(i, 5).ClearContents Next i ThisWorkbook.Worksheets("sheet4").Columns().AutoFit lastrow = sheet3.Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To lastrow erow = sheet4.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row sheet4.Cells(erow, 2) = sheet3.Cells(i, 1) sheet3.Cells(i, 1).ClearContents sheet4.Cells(erow, 4) = sheet3.Cells(i, 2).Formula sheet3.Cells(i, 2).ClearContents sheet4.Cells(erow, 6) = sheet3.Cells(i, 4) Next i ThisWorkbook.Worksheets("sheet4").Columns().AutoFit End Sub tarheel‬.xls

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاتهأحبتى فى الله كل عام وأنتم بخير بقدوم شهر رمضان المبارك وبهذه المناسبه أقدم لحضراتكم داله معرفه جديده بالاكسيل من تصميم صقر الاكسل الاستاذ / حسام عيسى جزاة الله خير داله بحث مرنه جديده بالاكسيل VLOOKUPAlsaqrHMK وداعا للعقم فى الدالة vlookup وداعا لمعادلات الصفيف المرهقة دالة مرنة جدا جدا شوف الشرح المميز للدالة واتعرف على كل خصائص هذة الدالة المميزة جدا مرفق ملف الدالة كاملا https://www.youtube.com/watch?v=qr3uL3B0hLs استخراج-أخر-حركتان-للصنف-الشيت-(1).rar

الاخ waleed907 السلام عليكم هذا البرنامج كان من تصميمي الشخصي وكان بعنوان (برنامج قروض للمبتدئين)اكسس 2003 ورفعته على المنتدى للفائدة منذ مدة ليست ببعيدة ومنتديات اخرى واجريت عليه بعض التعديل ليتوافق مع اكسس 2013 فهل من المعقول ان يظهر بحلة جديدة وبعنوان جديد وباسم مصمم اخر اعتقد ان هذا الامر ........ (مصادرة لجهود الآخرين) اليك البرنامج الاصلي قروض.rar

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

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

أخي العزيز / herni يمكنك استخدام دالة COUNTIF عن طريق المعادلة التالية : =COUNTIF($A$1:$A$25;E5) ثم تقوم بسحبها للأسفل جرب المرفق أخي العزيز جدول الموظفين.rar