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

السلام عليكم ورحمة الله وبركاته الموضوع هذا بدأ بسؤال الرابط التالي: 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

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

بارك الله فيكم.... أنا أريد من صفحة النتائج "Stati1" أن تجلب علامات التلاميذ من الورقة "Comp1" إذا كانت الخلية "R2= "Comp1 وأن تجلب العلامات من الورقة "Comp2" إذا كانت الخلية "R2= "Comp2 *** وأي علامات تجلب، يشترط فيها أن ترتب حسب المعدل الفصلي، من الأكبر إلى الأصغر ** إخواني الكرام؛ إذا كان بإمكانكم إيجاد حل بتغيير المعادلة المستعملة، فلا مانع من تغييرها. ولكم مني جزيل الشكر

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

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

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

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

اتمنى احد عباقرة المنتدى مساعدتك في طلبك الثاني

بارك الله فيك استاذ ياسر خليل أبو البراء نعم اشتغل الف الف شكر

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

أخي الكريم مهند يرجى تغيير اسم الظهور للغة العربية إليك الملف التالي فيه حل بالكود بدلاً من التعامل مع المعادلات التي تثقل الملف في حالة التعامل مع كم هائل من البيانات أرجو أن يفي بالغرض Sub GetData() Dim Col As Long Dim Data As Variant Dim Dict As Object Dim N As Long Dim Rng As Range Dim Row As Long Dim Table As Variant Dim Wks As Worksheet Dim Addr As String Set Dict = CreateObject("Scripting.Dictionary") Dict.CompareMode = vbTextCompare ReDim Table(1 To 6, 1 To 1) For Each Wks In ThisWorkbook.Worksheets If Wks.Name <> "تصفية حسب الأشهر" Then Set Rng = Wks.Range("A1").CurrentRegion.Columns(2) Set Rng = Intersect(Rng, Rng.Offset(1, 0)).Resize(ColumnSize:=2) Col = Col + 1 Data = Rng.Value Addr = Rng.Address For N = 1 To UBound(Data) If Not Dict.Exists(Data(N, 1)) Then Row = Row + 1 Dict.Add Data(N, 1), Row ReDim Preserve Table(1 To 6, 1 To Row) Table(Col, Row) = Data(N, 2) Else Table(Col, Dict(Data(N, 1))) = Data(N, 2) End If Next N End If Next Wks Table = Application.Transpose(Table) With Worksheets("تصفية حسب الأشهر") .Range("B2").Resize(Dict.Count, 1).Value = Application.Transpose(Dict.Keys) .Range("C2").Resize(UBound(Table, 1), UBound(Table, 2)).Value = Table End With End Sub تقبل تحياتي Grab All Data From All Sheets YasserKhalil.rar

أخي الكريم الشيباني اطلعت على ملفك ولم أفهم المطلوب بشكل جيد .. ما هي آلية العمل والتنسيق الشرطي المطلوب؟ هل المرفق في الجدول B هو شكل للنتائج المتوقعة ..؟ إذا كان الأمر كذلك ما هي شروط التنسيق الشرطي؟ أم أنك تريد تصميم الجدول B بناءً على الجدول A نرجو الإيضاح .. عموماً على حسب ما فهمت إليك الملف المرفق تم استخدام معادلة بسيطة جداً للتنسيق الشرطي =$E7=$C6 حيث تم الاعتماد على الجدول A في جعل الخلية الملونة تكون باللون الأبيض من خلال تحقق الشرط أرجو أن يكون المطلوب CF YK.rar

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

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

السلام عليكم أخي عمر في الواقع اخي شوقي قد اعطاك الجواب ، وانا جمعته مع بعض هذه النتيجة: . هنا انا استعملت استعلام لأقوم بالحسابات المطلوبة ، واستخدمت هذا الاستعلام كمصدر للتقرير. وستلاحظ اني حولت السنة/الشهر/اليوم الى تاريخ من (1) ، وتاريخ الى (2) ، ثم ارسلت هذين التاريخين الى الوحدة النمطية التي تخص المطلوب (يعني وحدة نمطية للسنين ، واخرى للاشهر وثالثة للايام ، والتي ارفقها الاخي شوقي في مشاركته في الموضوع). وهذا هو الكود: Option Compare Database Function CalcAge(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAge = vYears & " ÓäÉ, " & vMonths & " ÔåÑ, " & vDays & " íæã" End Function Function CalcYears(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcYears = vYears End Function Function CalcMonths(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcMonths = vMonths End Function Function CalcDays(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcDays = vDays End Function جعفر 310.N1.mdb.zip

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

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

السلام عليكم ورحمة الله وبركاته الحمد لله على السلامة عوداً حميداً بمشيئة الله أخي الحبيب ياسر أبو البراء تقبل تحياتي العطرة

بارك الله فيك أخي الرائع مختار يمكن استخدام الإضافة التالية لتؤدي الغرض بعد إدراج الإضافة سيظهر زر أمر في التبويب Home باسم Get Sheet Size Get Sheets Size.rar

السلام عليكم مع انني مشغول جدا ولكن السائل اعلى من كل انشغالاتي ولاني لم ارى الجواب شافي من اخي وحبيبي الاستاذ جعفر هنا يا استاذ محمد انت سالت سؤال تراوغ منه لغة الاستعلامات الاكسس ! لانها مش قادره عليه ! هنا خلينا نعمل حاجة في الاستعلامات select وحنسيب الالحاق لاحقا ! انا عملت مايدور في ذهنك او حسب سؤالك وارفقته كملف اكسس ! والمطلوب كملف اكسل وهذا اللي احنا عايزينه ! احنا خلينا نعمل نتيجة ت زي اللي بالاكسل بعدين نرجع لموضوع الالحاق ! فاريدك تحاول ! بالتوفيق mo_esam.rar

الاخ والاستاذ الحبيب / ياسر خليل رجعتنى لزمان وايام زمان ايام افتح الباب ونط من الشباك يا عبدالتواب بس فى سؤال مهم جدا هو ليه فتح البيبان مبيكونش غير بالشتاء معاك ؟؟؟؟؟؟؟؟؟؟ بجد روعه روعه روعه اسلوب شرح ممتع وجذاب ميخلكش تنام زى روتانا كدا اوعى تغمض عنيك جزاكم الله خيرا وبارك فيك لا تحرمنا من هذه الكنوز وبانتظار المزيد بس خليها صيف وشتاء **عايز بس اقول للاخوة الاعضاء ان الموضوع ده مهم جدا انا شخصيا اتعلمت من خلاله الكثير فى بداية البرمجه كنت امشى بـ F8 خطوه خطوه حتى اشاهد الكود زى فيديو كدا قدامى واتعلم منه وكمان الفايده الاكبر بعدما تكون محترف بالاكواد اكيد هيقابلك كود فيه خطأ وانت مش عارف اين موقع الخطا لاصلاحه وقتها هتستفيد منها فى اكتشاف اين الخطا بالكود فهى عامله زى دكتور الاشعه بتعملك تصوير للكود** تقبل تحياتى

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

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

كل الشكر الى الدكتورة الفاضلة زهرة ودعواتنا لها بالتوفيق ارجو المساعدة من الزملاء الافاضل مرفق قاعدة بها جدول درجات الطلاب المطلوب استخلاص الخمس الاوائل فى كل صف واضافة الترتيب اللفظي لهم مثل الاول الثاني الثاني مكرر وهكذا وجزاكم الله خيرا degree.rar

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

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

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

بسم الله الرحمن الرحيم اليوم نقدم لكم برنامج جديد أرجوا أن تجدوا فيه الفائدة وأن يحقق لأحدكم النفع في حياته العمليه ملحوظه ( جميع البرامج السابقة سنجمعها لكم قريباً وبصورة أرجوا أن تنال رضاكم ) برنامج اليوم : هل لديك عقار صغير تقوم بتأجيره ؟ إذا كان الجواب نعم . فأليك برنامج اليوم الذي سيساعدك في تسجيل كل عملية تأجير ومتابعة تسديد الدفعات والأيجارات والمصروفات والحصول على تقارير كاملة عند تشغيل البرنامج ستظهر لكم الشاشة التالية وعند الرغبة في تسجيل تأجير جديد عليك أولاً الذهاب لصفحة الأسماء وتسجيل أسم المستأجر وسوف يقوم البرنامج تلقائياً بأعطاؤه رقم متسلسل فلا تقوم بالترقيم بنفسك .. الرقم هام جدا فسوف نحتاجه في كل خطواتنا بالبرنامج الآن وبعد أن قمنا بتسجيل أسم المستأجر الجديد وعرفنا رقمه . نقوم بالتوجه لصفحة تسجيل بيان أيجار جديد ونكتب فقط رقم المستأجر ليظهر لنا أسمه .. وهنا نقوم بأدخال مبلغ الأيجار المطلوب بالكامل منه وكذلك نكتب بيان يصف عملية الأيجار للتذكير . التاريخ سيظهر تلقائياً وفق تاريخ اليوم ويمكنك تعديله أن أردت ذلك الآن في حال الرغبه في تسديد دفعات من هذا المستأجر عليك التوجه الي صفحة التسديد وسنقوم أيضاً بكتابة رقم المستأجر وسيظهر لنا أسمه والمبلغ المطلوب منه وبياناته السابقه . نقوم بكتابة المبلغ أو الدفعه التي سيسددها وستظهر رساله بالباقي عليه وسيظهر تاريخ اليوم ويمكن تعديله ويمكننا تسجيل وصف لعمليةالتسديد للتذكير يمكنك الحصول على تقرير بحالة المستأجرين وستجد زر بالصفحة الرئيسية يذهب بك لتلك الصفحه . ولكن عند طباعة التقرير يجب الضغط على زر الطباعه الموجود بالصفحه لكي يطبع لك البيانات فقط دون الحاجه لطباعة الصفحات الفارغة يمكنك الحصول على تقرير عام بالأجماليات عبر الزر المخصص لذلك بالصفحة الرئيسية يمكنك الحصول على تقرير بحالة مستأجر واحد وذلك بالضغط على الزر المخصص لذلك وعند الذهاب للصفحه فقط عليك كتابة رقم المستأجر البرنامج في المرفقات مضغوط ببرنامج الـ Winrar لا تنسونا من خالص الدعاء منتظر إقتراحاتكم للتطوير أو التعديل .. وبالتوفيق للجميع _______________.rar

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

السلام عليكم ورحمة الله وبركاته وهذا شرح ثالث مع بعض الفنيّات لا تنسانا من دعاءك _________________________.rar

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