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

السلام عليكم ورحمة الله وبركاته الموضوع هذا بدأ بسؤال الرابط التالي: http://www.officena.net/ib/topic/65783-البحث-عن-اي-جزء-من-الكلمة-عنوان-معدل/ ولكن لأني غيرت الكود وجعلته يبحث في اي عدد من الحقول في السجل ، لذا رأيت ان اجعل له موضوعا مستقلا يمكنك البحث عن اي جزء من الكلمة ، واذا اردت البحث عن كلمة اخرى في السجل او جزء منها ، فما عليك الا ان تضع (مسافة او / او *) بين الكلمات ، فسيعتبرها البرنامج على انها كلمة اخرى يجب البحث عنها. الشئ المهم في الكود هو طريقة إضافة حقول جديدة للبحث فيها: هذا اول حقل يتم البحث فيه fld = "[كلمات ارشادية]" لما نريد ان نضيف حقول إضافية للبحث فيها ، يجب ان يكون الكود كالتالي fld = fld & " & ' ' & " & "[موضوع الخطاب]" fld = fld & " & ' ' & " & "[my other field]" وكل ما عليك الآن هو ان تطبع وترى نتيجة بحثك: . ملاحظة مهمة: اذا كان برنامجك على الشبكة ، فلا تضع الكود على "حدث التغيير" (معناه ، كلما اضفت/حذفت حرف ، فارجع الى الجدول وخذ البيانات منه) ، لأنه سيجعل البرنامج جدا بطئ ، وانما استخدم زر البحث. جعفر 309.Search_as_you_Type_Multiple_Fields_jj.mdb.zip

أخي الكريم أبو حماده إليك الملف التالي عله يكون المطلوب أو مشابه للمطلوب يمكنك اختيار أوراق العمل لإخفائها أو لإظهارها Hide Unhide Sheet Manager.rar

=CONCATENATE(Table174[[#This Row];[نقد/ شيك]];" ";Table174[[#This Row];[المصرف]];" ";IF(Table174[[#This Row];[تاريخ الشيك]]<>"";"رقم";"");Table174[[#This Row];[رقم الشيك]];IF(Table174[[#This Row];[تاريخ الشيك]]<>"";"تاريخ";"");IF(Table174[[#This Row];[تاريخ الشيك]]<>"";TEXT(Table174[[#This Row];[تاريخ الشيك]];"yyyy/mm/dd");"")) أخي الكريم أبو البراء لقد أضفت شرطاً للمعادلة كي لا تكتب شيئاً عند استلام المبلغ نقداً باستخدام الدالة if وقد كان ناجحاً بفضل الله تعالى. لأنها دون كتابة تاريخ يكتب افتراضياً تاريخ 00-01-1900 عسى أن يستفيد الآخرون ممن يطلعون على المشاركة ..والسلام عليكم.

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

السلام عليكم ورحمة الله وبركاته للمهتمين بعلوم واسرار الاكسيل ( زكاة العلم نشره شارك معى الجميع) معظمنا سمع عن الدالة المخفية DATEDIF ولكن هل سمعت عن الدالة EVALUATE انها ايضا دالة مخفية او سرية موجوده فى الاصدار Excel v4.0 macro function الصادر عام 1994 . وهذا شرح مبسط لكيفية عمل هذا الدالة . EV.zip

تفضل أخي أحمد ، الكود بالشرح: Private Sub cmd_another_DB_Click() 'نشير الى المرجع الصحيح 'فعندنا مرجع 'ADO ومرجع DAO 'وهنا سنستخدم المرجع الاخير ، DAO Dim rst As dao.Recordset Dim db As dao.Database 'اختار قاعدة البيانات ، وفي حالتنا فهي خارجية Set db = OpenDatabase(Application.CurrentProject.Path & "\rr.mdb") 'الآن نربط الكود بقاعدة البيانات اعلاه ، بالجدول المحدد 'ونستطيع ان نعطي امر للتصفية وامر للفرز كذلك Set rst = db.OpenRecordset("Select * From emplyee") 'لكي يتم قراءة الجدول اعلاه بطريقة كاملة ، يجب ذهاب المؤشر الى آخر الجدول ثم الرجوع الى اوله rst.MoveLast: rst.MoveFirst 'عدد سجلات الجدول RC = rst.RecordCount 'إقرأ السجلات من اول سجل الى آخر سجل For i = 1 To RC 'اطبع قيمة السجلsatff_name MsgBox rst!satff_name 'انتقل الى السجل التالي rst.MoveNext 'واصل اللف حول السجلات Next i 'اغلق قاعدة لبيانات ، وازلها من الذاكرة rst.Close: Set rst = Nothing End Sub جعفر

أخي الكريم مهند جرب الكود التالي عله يفي بالغرض - مع العلم أنه تم تقديم نفس الكود تقريباً في موضوعك السابق على هذا الرابط من هنا Sub SortData() Dim WS As Worksheet Dim LR As Long Set WS = Sheets("Sheet1") With WS LR = .Range("B" & Rows.Count).End(xlUp).Row - 1 .Range("B1:D" & LR).Sort Key1:=.Range("C1:C" & LR), Order1:=xlAscending, Header:=xlYes End With End Sub Sorting.rar

تفضل يا أستاذ ... أعذرنى فلم أستطع فهم معنى اسم حضرتك الأجنبى -- طبعا لمستواى المتقدم باللغة وعموما لو ساعدتنا بتعريب مسمى حضرتك لتحسن منادتنا لك بما تحب لكنا من الشاكرين ... آسف كنت سأنسى : المرفق بعد التعدل لعله يكون المطلوب . hh.rar

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

السلام عليكم شكرا لك على هذه الملاحظة ، واللي كان لها الفضل في ايجاد حل سهل: . عليه تم اضافة 2000 الى السنوات ، وكان الله رؤوف رحيم . جعفر 310.N2.mdb.zip

السلام عليكم اخواني الكرام جداول اكسس تختلف عن جداول اكسل فالاساس في جدول اكسس هو السجل والحقل فرع منه .. لذا فالعمود لا ينفرد بخصيصة قد يعترض على هذا بحجة امكانية تصفية العمود .. نعم ولكن بالمقابل بقية بيانات السجل ستكون تابعة لهذه التصفية لو افترضنا تم تطبيق مطلب اخونا محمد عن طريق الكود فستكون القيم : 1 ، 4 ، 7 في سجل واحد السؤال الآن : ما الرابطة او العلاقة بين هذه القيم ، وبأي وسيلة نستطيع الرجوع الى احدى هذه القيم عند الحاجة نخرج من هذه المقدمة المقتضبة الى وجوب وجود معرف في كل جدول وتكون له علاقة داخل الجداول الاخرى السجل وحقوله في الجدول كالمنزل وساكنيه

ما احلى هذا الكلام الجميل ربنا يحفظكم ويحببكم فى بعض كمان وكمان .

وعليكم السلام أبا الحسن والحسين جزيت خيراً على تجربة الكود والملف .. بارك الله فيك ونفع بك إخوانك يرجى من الأخ مختار ذكر النسخة التي تعمل عليها .. وإذا كانت النسخة أوفيس 2007 فلتخبرنا ، فقد تكون المشكلة في النسخة لديك تقبلوا تحياتي

وهذه مشارك بسيطة من اخوكم تحياتي لكم تحديد لغة الادخال لمربع النص.rar تحديد لغة الادخال لمربع النص.rar

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

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

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

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

السلام عليكم المسألة كانت تحدي ، وقبلت التحدي انا غيرت اسماء النموذج الرئيسي والفرعي الى اسماء frm_Search و sfrm_Search. الآن يمكنك البحث عن اي جزء من الكلمة ، واذا اردت البحث عن كلمة اخرى في السجل ، فما عليك الا ان تضع (مسافة او / او *) بين الكلمات ، فسيعتبرها البرنامج على انها كلمة اخرى يجب البحث عنها: . والكود: Option Compare Database Dim mySQL As String Dim mySQL1 As String Private Sub Form_Load() mySQL = "Select * From [المستندات]" Me.n2 = "" If Len(Me.n2 & "") = 0 Then Me.sfrm_Search.Form.RecordSource = mySQL End If End Sub Private Sub n2_Change() 'do the initial subform Record Source mySQL1 = "Select * From [المستندات]" mySQL = mySQL1 & " Where" 'now we want to split the search code into smaller bits, 'if seperate by / \ * or space, then change this seperator to | (a unique letter), 'this way we will have more than ONE word to search for Dim x() As String Dim A As String A = Me.n2.Text A = Replace(A, "/", "|") A = Replace(A, "\", "|") A = Replace(A, " ", "|") A = Replace(A, "*", "|") 'the words are split and ready x = Split(A, "|") If UBound(x) = 0 Then 'Still one word, search for it mySQL = mySQL & " [كلمات ارشادية]" mySQL = mySQL & " Like '*" & x(i) & "*'" Else 'it is ONE word and a seperate by / \ * or space, 'so lets make a Where statement for each seperate word For i = LBound(x) To UBound(x) If i = 0 Then 'its a word and a seperator, the NEXT word is NOT added yet mySQL = mySQL & " [كلمات ارشادية]" mySQL = mySQL & " Like '*" & x(i) & "*'" Else 'its multiple words, add the AND command between each word mySQL = mySQL & " AND [كلمات ارشادية]" mySQL = mySQL & " Like '*" & x(i) & "*'" End If Next i End If 'if the Search field is Empty, use the initial mySQL1 Me.n2.SetFocus If Len(Me.n2.Text & "") = 0 Then mySQL = mySQL1 End If 'Debug.Print mySQL Me.sfrm_Search.Form.RecordSource = mySQL End Sub . ملاحظة مهمة: اذا كان برنامجك على الشبكة ، فلا تضع الكود على "حدث التغيير" (معناه ، كلما اضفت/حذفت حرف ، فارجع الى الجدول وخذ البيانات منه) ، لأنه سيجعل البرنامج جدا بطئ ، وانما استخدم زر البحث. جعفر 309.Search_as_you_Type_jj.mdb.zip 309.Search_as_you_Type_jj.mdb.zip

قريبا ان شاء الله مع الشرح = = = = = = = ‏الثلاثاء‏ 21‏/11‏/1432هـ الموافق ‏18‏/10‏/2011م نظام المستوعات و متابعة المخزون الفكرة من اعداد اخي اسامة العضو في هذا المنتدى هو نظام اكسل يهدف لحساب حركة المخزون لعدد 4 عمليات وهي (استلام + صرف + ارجاع + شطب) المميزات و الخصائص 1. يمكن تسجيل عدة مستخدمين للملف تصل الى 11 مستخدم 2. يمكن تسجيل اضناف او مواد حتى 9000 صنف او مادة 3. قائمة المواد المخزنة مع ملخص بياناتها 4. كل الحركات المسجلة للمواد 5. نموذج خاص لإضافة أي مواد جديدة 6. نموذج للبحث في قائمة المواد 7. البحث خلال فترة محددة عن أي مادة اسماء المستخدمين وكلمات المرور الحالية هي: Admin = 123 موظف 2 = 22 Super_Stores.rar

رجاءا افادتي بكود قفل للاكسيل بعد وقت معين او تاريخ معين (اي لا يستطيع احد العمل عليه ثانيا) الا بادخال كلمة سر اخري

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

السلام عليكم ورحمة الله تم التعديل على بعض المعادلات وإضافة عمود آخر مساعد في شيت Data ليتماشى مع المطلوب الجديد، أرجو أني وفقت في تقريب المفهوم... بن علية اجازات.rar

. لما قلت لي: . فهمت منها انك فهمتها وطبقتها!! وإلا ، كان بإمكانك ان تستوضح أكثر!! على العموم ، مثل ما قلت سابقا ، استعمل طريقة أخي محمود ، وياريت انك تسجل اعجابك بمشاركته . لا الفكرة جدا بسيطة ، فبدل ان تعمل alt+shift يدويا ، يقوم الكود بعمله جعفر

الحمد لله الذي بنعمته تتم الصالحات الحمد لله أخي الحبيب مختار أن من الله علينا بحل المشكلة لا تنسانا بدعوة بظهر الغيب تقبل تحياتي

الحمد لله الذي رزقني بكم إخواني فالدعاء بظهر الغيب يمنع عني المصائب الكبرى ويجلب لي الراحة النفسية بارك الله فيكم وجزاكم الله خير الجزاء ، ولكم بمثل ما دعوتم إن شاء الله

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

انا اسميه بيت الصدقات الجاريه . ربنا يتقبل منكم جميعا

بصراحة الملف معقد في هيكلته ولذا ستكون هناك صعوبة في التعامل معه يرجى تناول جزئية واحدة للتسهيل على الأخوة الكرام تقديم المساعدة وإلا لن تجد من يقدم لك العون ، ليس تعنتاً - لا سمح الله - ولكن لصعوبة التعامل مع الملف ومحاولة ايجاد حل لمشكلتك ، لذا أنصحك أن تتناول نقطة واحدة في كل مرة كنوع من التركيز تقبل تحياتي

وعليكم السلام الظاهر ان الكود اللي عملته الان صحيح ولكنك لم ترسل اي قيمة بالحقل EmpID ، اي ان الحقل EmpID فارغ ، لها السبب لا يوجد لديك سجل حيث قيمة EmpID تساوي لا شئ!! ولأني لا ارى برنامجك ، ومن خلال الصورة السابقة اللي ارفقتها انت ، ارى انك عملت الكود على حدث زر ، ولم تعمله كما قلت لك: . عندما تنقر على EmpID ، فقيمة EmpID ممكن اخذها من السجل الذي تم النقر عليه ، واما عندما تنقر في اي مكان آخر (زر الامر مثلا) ، فقيمة EmpID غير متوفرة!! جعفر

و عليكم السلام ... تفضل ... اذا لم يكن هذا قصدك ... فيرجى التوضيح ... New .rar

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

السلام عليكم بارك الله في وقتكم واعماركم

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

أخي الحبيب الغالي المتميز محمد الريفي بارك الله فيك وجزاك الله كل خير موضوع جميل ودالة مفيدة جداً ويمكن استخدامها في الفيجوال بيسك أيضاً تقبل وافر تقديري واحترامي

تفضل 275.2.ImportDegrees.accdb.zip

الله يعطيك العافية .. يعمل بشكل سليم بالنسبة للملاحظة : - يوجد مشكلة في خانة RankA و RankB ( احتاج تكون البيانات بالعكس فيها ) .. قمت بحلها عن طريق تعديل استعلام الالحاق وغيرت مكان الالحاق بين الحقول :) بقي الملاحظة الاخيرة : - ارغب بإضافة خاصية : عند استيراد ملف اكسل جديد لا يقوم بحذف البيانات القديمة في الجدول وإنما يضيف البيانات الجديدة عليها ( وعند تشابه ID يقوم بحذف البيانات القديمة والإبقاء على الجديدة )

السلام عليكم ورحمة الله وبركاته اسمح لي أخي jjafferr بعد اذنك ...... هذه محاولة طالب من طلاب هذا المنتدى وغيره من المنتديات في الملف المرفق طريقو كود لأستيراد جميع اوراق ملف الاكسل مهما كان عددها بشرط تتطابق تنسيق الاوراق ............. أشكر لك سعت صدرك ..... Ba-degrees.rar

السلام عليكم لاحظت تكرار بعض البيانات ، فاليك النسخة المعدلة 275.1.ImportDegrees.accdb.zip

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

ربما كان المطلوب هذه المرة مثال _لجدول التقاطعات_معدل salim.zip

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

السلام عليكم الاخ والاستاذ ياسر خليل شرح رائع وموفق انت "جامعه" تقبل مروري

هذا الملف لاخي العزيز ابا الحسن والحسين هل من الممكن عند انتهاء مده انتهاء البرنامج وطلب الباسور د يتم ادخال كود لتغيير التاريخ مثلا البرنامج ينتهي في 1/10/2016 يتم ادخال الارقام ءءء0ءء1ءءءء12ءءء2ءء0ءء2ءءءء0 ليتغير التاريخ الي 01/12/2020 حيث العلامات في المنتصف ممكن ان تكون ارقام او حروف protection date limite KHMB2.rar

السلام عليكم و رحمة الله هذه هي النسخة الأخيرة للبرنامج بعد اضافة التحابيش و تحبيك التحابيك مع التحية و التقدير نظام_ORGNL.rar

من حسن حظي ان اكون اول واحد يرد جزاك الله كل خير عمل متقن

السلام عليكم ورحمة الله وبركاته أخي في الله (ib_mostafa) من أعلم أنت أم الرسول صلى الله عليه وسلم ؟؟؟ الرسول صلى الله عليه وسلم يقول في الحديث الصحيح الذي يرويه البخاري " عن النبي صلى الله عليه وسلم قال خيركم من تعلم القرآن وعلمه " فأنت بعنوان موضوعك تعارض نص صريح صحيح فأرجو تعديل العنوان من قبل الإدارة فورا وأهلا وسهلا بك أخ عزيز بين إخوانك وتقبلوا فائق الإحترام

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

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

توجد دالة جاهزة مصممة ضمن الملف الذي أرفقته أنت و اسمها CalcAge و يبدو أنك لم تنتبه لها و باستخدام بسيط لها تظهر لك النتيجة المطلوبة كما في الاستعلام المرفق 101.zip