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

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

لا تكونوا مخربطين يا جماعة الخير بارك الله فيكم ، ورفع من قدركم وجعله في موازين حسناتكم ، وصدقاً أني لأعجز عن الحديث عما مررت به هذه الفترة من اكتساب للمعرفة ولمعلومات قيمة من قبل أساتذتنا جميعاً دون تحديد . وأسأل الله أن يجعلنا من الذين يُنتَفعُ بهم في الدنيا والآخرة .

اولا بحب اشكرك شكرا جزيلا على هذه الشهادة العظيمه استاذي @ابوخليل فلست ارى نفسي انى اقتربت من هذا المستوي ولسه قدامي الطريق طوييييييييل حتى اصل لمثل هذه الشهادة وهنا احب ان اقدم شكري وتقدير لاساتذتى الكرام @jjafferr و @ابوخليل و @ابو جودي @Eng.Qassim @Moosak الكثير هنا كلهم اساتتى واتعلمت منهم الكثير سائل المولى ان يبارك لنا فى اعمارهم وان يحفظهم من كل شر وان يبارك لهم فى جميع امورهم واهلهم اجمعين فلكم جزيل الشكر جميع على ما قدمتوه لنا فى هذا الصرح العظيم ❤️

الف مبروك وجزاكم الله خيرا جميعا على جهودكم💐 و الشكر موصول لأخونا @ابوخليل والأخوة أعضاء فريق الموقع جميعا 💐

هنيئا لكما @Foksh و @عمر ضاحى هذه الثقة التي انتم تستحقونها .. اسأل الله لكما التوفيق والسداد ...

ما شاء الله تبارك الله مبارك عليكم @عمر ضاحى و @Foksh واعانكم الله على نفع رواد المنتدى

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

اليك حل اخر باستخدام Combobox اظافة الى الحل الاول يمكنك اختيار ما يناسبك Private Sub ComboBox1_GotFocus() Dim wsdata As Worksheet: Set wsdata = Sheet1 Set d = CreateObject("Scripting.Dictionary") For Each c In wsdata.Range("B3", wsdata.Cells(Rows.Count, "B").End(xlUp)) If Not d.Exists(c.Value) Then d(c.Value) = "" Next c MyRng = d.keys tri MyRng, LBound(MyRng), UBound(MyRng) Me.ComboBox1.List = MyRng End Sub '*************************************** Private Sub ComboBox1_Change() Dim WS As Worksheet: Set WS = Sheet1 Set Tbl = WS.ListObjects("Data") Réf = ComboBox1 Tbl.Range.AutoFilter Field:=2, Criteria1:=Réf If Me.ComboBox1 = Empty Then Tbl.ShowAutoFilter = False End Sub وفي موديول Sub tri(a, gauc, droi) 'ترتيب ابجدي Réf = a((gauc + droi) \ 2) g = gauc: d = droi Do Do While a(g) < Réf: g = g + 1: Loop Do While Réf < a(d): d = d - 1: Loop If g <= d Then MyRng = a(g): a(g) = a(d): a(d) = MyRng g = g + 1: d = d - 1 End If Loop While g <= d If g < droi Then Call tri(a, g, droi) If gauc < d Then Call tri(a, gauc, d) End Sub '********* ' الغاء الفلترة Public Sub Reset_filter() Dim WS As Worksheet: Set WS = Sheet1 Sheets("Sheet1").TextBox1.Text = "": Sheets("Sheet1").ComboBox1.Text = "" Set Tbl = WS.ListObjects("Data") Tbl.Range.AutoFilter Field:=2 Tbl.ShowAutoFilter = False End Sub test_aziz_3.xlsb

:: السلام عليكم ورحمة الله وبركاته :: لا بد بين فترة وأخرى من اقتحام مجالات جديدة وتنمية المهارات البرمجية لدى للمبرمج 🙂 هذي المرة طرح أخي @TQTHAMI فكرة برنامج للكلمات المتقاطعة ، فلمعت في رأسي الفكرة وقررت خوض التجربة فنتج عنها ما يلي☺️ :: ((( لعبة الكلمات المتقاطعة ))) :: وهنا بعض الصور واللقطات للعبة إضافة لعبة جديدة وتصميمها :: وأخيرا تحميل الملف المفتوح 😊 :: لعبة الكلمات المتقاطعة.accdb :: ((( الإصدار الثاني 2.0 ))) :: أضفت زرين في نافذة إعداد اللعبة : طباعة اللعبة / طباعة الحل : التحميل 🙂 : ‏‏لعبة الكلمات المتقاطعة الإصدار 2.accdb1.63 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads

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

اختيار موفق مع تمنياتي لهم بالتوفيق

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

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

تمت معالجة هذا الأمر كثيرا يمكنك الاستفادة من هذا الرابط https://www.officena.net/ib/search/?q=جميع الشهادات pdf&quick=1&type=forums_topic&nodes=135&updated_after=any&sortby=relevancy&search_and_or=and بالتوفيق

ممكن وضع الكود بهدا الشكل لتستطيع الفلترة باي جزء من الاسم Private Sub TextBox1_Change() Dim WS As Worksheet: Set WS = Sheet1 Set Tbl = WS.ListObjects(1) Réf = "*" & Replace(Me.TextBox1, " ", "*") & "*" Tbl.Range.AutoFilter Field:=2, Criteria1:=Réf If Me.TextBox1 = Empty Then Tbl.ShowAutoFilter = False End Sub

جرب، علما لم أعمل أي احترازات في حالة وجود أخطاء إدخال. Hijri2Gregorian_01.xlsm

السلام عليكم ورحمة الله وبركاته قبل عامين تقريباً كنت قد بدأت بتصميم برنامج إدارة و حضور وانصراف لنادي رياضي أو لياقة بدنية . واليوم سأطرح البرنامج مع بعض التعديلات البسيطة التي جرت عليه كهدية وتجربة قابلة للتطوير والتحديث ومفتوح المصدر . Password : admin GYM 2022 - Final.zip الدعاء لوالدي رحمه الله ، ولوالدتي بالشفاء التام

اخونا @شايب لا يرغب . 🏃‍♂️ وعند جهينة الخبر اليقين . دعوني اشق القربة 😳 .. سبق لأخينا شايب ان حصل على الترقية مرتين ونحن ننزل عند رغبة استاذنا .. ولا نزيد ..

هنيئا لكما @Foksh و @عمر ضاحى هذه الثقة التي انتم تستحقونها .. اسأل الله لكما التوفيق والسداد ...

ما شاء الله تبارك الله مبارك عليكم @عمر ضاحى و @Foksh واعانكم الله على نفعنا ورواد المنتدى .

الف مبروك للاساتذة @عمر ضاحى و @Foksh على الترقية رغم اني تمنيت اضافة اخونا @شايب

مبروك يستاهلون الاساتذة و نعم الاختيار @عمر ضاحى @Foksh

حتى تعم الفائدة يمكننا ان نضع الكود التالي مع انشاء الشريط يقوم باخفاء مجموعة طرق العرض من الشريط الرئيسي </tab> <tab idMso="TabHomeAccess" > <group idMso="GroupViews" visible="false"/> </tab> قبل الاخفاء بعد الاخفاء الان اقوم بالبحث في باقي التبويبات لاخفاء طرق العرض منها

ما شاء الله تبارك الله ابدااااع وشغل على ميه بيضه 😍

يسعدني أن أكون أول المعلقين ، هذا لأنك من المبدعين القليلين أخي @Moosak ، وما يعجبني في نمط نفكيرك إنه خلّاق ومبتكر أبدعت جداً ، وعمل جميل وتصميم أنيق يليق بشخص أنيق

هل الصورة سوف تكون داخل نموذج ؟

اعرض الملف برنامج إدارة النوادي الرياضية السلام عليكم ورحمة الله وبركاته ، في أول مشاركة لي في مكتبة الموقع الرائع ، سأضع بين يديكم مشروع لإدارة النوادي الرياضية وصالات الجيم واللياقة البدنية ؛فتم تصميمه لتنظيم الإشتراكات الخاصة بالأعضاء المنتسبين .. وهو فكرة بدائية كأول مشروع لي . والفيديو التالي كان للنسخة المدفوعة ؛ ولكنه نفس الميزات ولكن مفتوح المصدر للتعديل والإستفادة منه . صاحب الملف Foksh تمت الاضافه 10 أكت, 2023 الاقسام قسم الأكسيس  

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

السلام عليكم شكرا الاستاذ عبدالله قدور هو المطلوب فعلاً وبكل دقة جزاك الله كل خير

فعلا واجهتني هالمشكلة وشكرا على الحل وجاري تجربة الملف و عمل تقرير لتحويل الصور الى pdf واعود اليك بالنتائج استاذ @Ahmed_J انتظرني اذا امكن غدا سأقوم بتجربة الملف و تصديره الى PDF

برنامج pos- نقاط البيع للمنشات التجاريه الصغيره . يتم التحديث عليه كل فتره pos (1).xlsm

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

ألف مبروك الترقية

هذه كانت وجهة نظري أيضاً ، ولكني طبقت الفكرة على مربع نص واحد فقط

السلام عليكم استاذ @ابو جودي نعم جربت المرفق HALABI _ up1 وهو يعمل بشكل طبيعي لكن اضم صوتي للاستاذ @زياد الحسناوي لو كان في اختيار حفظ الصور اما (image) او (pdf) وواجهتني هذه المشكلة عند عمل سكانر مرة اخرى كما في الصورة اعتقد انك وجدت حل المشكلة؟؟ ساقوم بالتجربة ووافيك بالنتيجة استاذ ي العزيز تحياتي للجميع

طيب ليه 3 مربعات بحث ... غريبة دى

وعليكم السلام هذا طلبك بإذن الله doctor.accdb

شكرا لك أخي @Foksh هدية رائعة وجميلة 🙂 🌼🌷 برنامج مدلع بالتصاميم الجميلة والترتيب والتنظيم والحركات الرائعة 😁👌 أحييك على ذوقك الراقي في التصميم ... أعجبني الستايل الغامق 👍😉 ولا تنسى تضيفه في مكتبة الموقع للرجوع إليه ويستفيد منه الإخوان

هذه محاولة في الوصول للحل تعتمد على تقسيم الاسم إلى الاسم ثنائي وثلاثي ورباعي تم وضع معادلاتها يمكنك وضع معادلات العمود B والمقارنة بأربع مستويات بدالة match مثلا أولها تطابق الاسمين في العمود A & B وفي حالة الخطأ تتم المقارنة بين عمودين الاسم الرباعي وفي حالة الخطأ تتم المقارنة بين عمودين الاسم الثلاثي واعتمادا على نتيجة المقارنة تكتب الحالة بالتوفيق نموذج طلب مقارنة.xlsx

اتفضل يا سيدى ان شاء الله يكون ده طلبك Database2 (3).accdb

لا أدري ان كان هذا يفي بالغرض ، 😅 تم تحديث الملف المرفق أخي @زياد الحسناوي ولكن أضف بعض اللمسات التي تراها مناسبة كإظهار المسميات مثلاُ Database2.accdb

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

السلام عليكم اخى عبد العزيز تفضل تم المطلوب Option Compare Text Private Sub TextBox1_Change() [A2].AutoFilter field:=2, Criteria1:=Me.TextBox1 & "*" If TextBox1.Value = "" Then [A2].AutoFilter End Sub A_aziz.xlsb

تفضل حساب الصيدلية1.accdb

الاخ العزيز شايب لا يهتم لامر افضل اجابة بالنسبة لوضع مثال الحقيقة انه في الفترة الاخير هناك عدد كبير من المشاركات تضع وصف مشكلة بدون مرفق او مرفق بدون بيانات والادهى من ذلك عدم متابعة الموضوع وهذا امر محبط اخيرا فكرة الاخ شايب كما اشار سابقا عمل جدولين بعلاقة واحد الى متعدد وبدون الحاجة حقل نعم لا ولا حاجة ايضا لاستعلام تحديث ثم عمل كود بسيط للمرور على ماتم اختياره من مربع القائمة واستخدامه كمعيار استعلام كمصدر للقائمة المنسدلة On Error GoTo a Dim k As String Dim i As Integer For i = 0 To c_2.ListCount - 1 If c_2.Selected(i) = True Then k = k & c_2.Column(0, i) & "," End If Next i Me.c_3.RowSource = "SELECT * FROM tbl_Towns_Blocks " & _ "WHERE tbl_Towns_Blocks.id IN (" & Left(k, Len(k) - 1) & ")" DoCmd.GoToControl "c_3" Me.c_3.Dropdown Exit Sub a: Me.c_3.RowSource = "" وهنا استخدمنا امر معالجة الخطأ لافراغ القائمة المنسدلة وهو استخدام قد لا يروق لبعض الخبراء وبالامكان استخدام For Each بدلا من for next ليكون الامر On Error GoTo a Dim s As Variant Dim t As String t = "" For Each s In Me.c_2.ItemsSelected t = t & "" & Me.c_2.ItemData(s) & ", " Next t = Left(t, Len(t) - 2) Me.c_3.RowSource = "SELECT * FROM tbl_Towns_Blocks " & _ "WHERE tbl_Towns_Blocks.id IN (" & t & ")" DoCmd.GoToControl "c_3" Me.c_3.Dropdown Exit Sub a: Me.c_3.RowSource = "" في جميع الاحوال هي مجرد مشاركة من غير متخصص ويترك الامر للاساتذة والخبراء اخونا الشايب CopyList (1)(1).accdb

السلام عليكم ورحمة الله تم عمل المطلوب في الملف المرفق باختيار اسم المعلم من الكومبوبوكس فقط (بالنسبة للفترة من تاريخ إلى تاريخ فهي تلقائية أي أن الكود يعطي تلقائيا أول تاريخ للاحتياط في TextBox2 وآخر تاريخ للاحتياط TextBox3 للمعلم المختار)... أرجو أن يفي الغرض المطلوب... بن علية حاجي حصص الاحتياط1.xlsm

بسم الله الرحمن الرحيم السلام عليكم قد يتم غلق البرنامج عندما تقوم بخذف عمود قد حدث لي هذا وقد وفقني الله لمعرفة سبب ذلك بعد تجارب كثيرة والسبب هو وجود تجميد للألواح أو أنقسام (freeze panes or split) وبعد إلغائه يتم حذف الأعمد دون أي مشكلة

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

بعد إن الأستاذ القدير / ياسير خليل وإثراء للموضوع تفضل الكود التالي اسم المجلد الجديد من قيمة الخلية A1 Sub CreateFolders() CreateObject("shell.application").Namespace("C:").NewFolder Range("A1").Value End Sub

الاخ الفاضل أكرم لإنشاء مجلد باسم Test مثلا على البارتشن C قم بتطبيق هذا الكود يمكنك تغيير اسم المجلد أو المسار كما تحب Sub Test() If Len(Dir("C:\Test", vbDirectory)) = 0 Then MkDir "C:\Test" End If End Sub