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

بسم الله الرحمن الرحيم اعضاء المنتدى الكرام السلام عليكم ورحمة الله وبركاتة اعلم انى مقصر معكم ولكن كانت ظروف طارئة وان شاء الله نعود اليكم بمجموعة منوعة من درووس الاكسيل انتظرونا وتابعونا درس اليوم بناء على سؤال احد الاصدقاء عن كيفية عمل فلتر او تصفية دون تغييير فى المسلسل للجدول فيديو شيق يارب يعجبكم https://youtu.be/kpRzecjmM0g

بسم الله الرحمن الرحيم الاخوه الكرام بعد فترة انقطاع عن المنتدى بسبب الظروف وبعودتي الميمونة احببت أقدم لكم اليوم بمشيئة الله درس حول التحكم بحجم الفورم ===================================== الأدوات ===================================== تكست بوكس/TextBox ليبل/Lebel أو أيقونات كما في الصورة zoom_in zoom_out ===================================== الكود البرمجي ===================================== '==================================================== Private Sub UserForm_Initialize() Dim i As String i = Me.TextBox.Value If i <= 0 Or i = "" Or Not IsNumeric(i) Then i = 100 Me.Zoom = i Me.Width = 712.5 * i / 100 Me.Height = 579.75 * i / 100 End Sub '==================================================== Private Sub zoom_out_Click() If Me.Zoom <= 80 Then Exit Sub j -10 End Sub '==================================================== Private Sub zoom_in_Click() j 10 End Sub '==================================================== Private Sub j(ByVal s) Me.Zoom = Me.Zoom + s Me.Width = 712.5 * Me.Zoom / 100 Me.Height = 579.75 * Me.Zoom / 100 Me.TextBox.Value = Me.Zoom End Sub '==================================================== وفي الاخير أتمنى الفكرة نالت إعجابكم في إنتظار تجربتكم التحكم بحجم الفورم.rar

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

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

السلام عليكم ورحمة الله وبركاته أخي الحبيب أحمد أبو بسملة جزاكم الله خيراً على هذه المعلومات القيمة واسمح لنا أن نشارك ببعض القبسات إثراء لعملكم وفقكم الله تعالى إلى كل خير: - لوضع التوقيت الحالي في خلية نضغط: Ctrl+Shift+; حرف الكاف - لوضع التاريخ الحالي أيضاً: Ctrl +; حرف الكاف - لنسخ قيمة الخلية التي فوق الخلية المفعلة نضغط: Ctrl+' حرف الطاء جزاكم الله خيراً على كل ما قدمتموه والسلام عليكم ورحمة الله وبركاته.

اسف نسيت ارفق المثال ... 12345.rar

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

احي ياسر انت اقترحت فقط 6 خلايا ،وانا اشتغلت على هذا الاساس اذا كنت تريد اكثر انظر الى هذا الملف جدول مقلوب.rar او ربما هذه المعادلة ابسط قليلاً =IF(ROWS($A$1:A1)>COUNTA(A:A),"",INDEX(A:A,COUNTA(A:A)-ROWS($A$1:A1)+1))

بعد التجارب الامر requery فقط هو اختصار ل me.requery وللتجربة وضعت مربع قائمة فعند البحث لا تظهر النتائج بها لانها تحتاج ريكويري فاما تعمل ريكويري خاص بها او docmd.requery سيعمل للجميع فعند استخدام requery فقط لم تتحدث القائمة مما يظهر لنا انه نفس me.requery على غرار docmd.requery والذي قام بعمل ريكويري للكل تحياتي بحث واضافة-update.rar

كل الشكـــــــــر والتقديـــــــــــــــــــــر استاذ رمهان شكر الله لك واجزلك وفير العطاء وجزاك عنى وعن كل اخوانى كل الخير ان شاء الله

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

اولا السلام عليكم ورحمة الله تعالى وبركاته استاذى الحبيب رمهان ثانيا انا لى عظيم الشرف ان حضرتك تتابع اقل طالب علم فى هذا الصرح الشامخ ثالثا بصراحة انا مش عارف الفرق بين 1. docmd.requery 2. me.requery وللعلم انا جربت الطرق الثلاثه 1. docmd.requery 2. me.requery 3-requery والنتيجة واحدة

هذه مشاركة ضع المعادلة التالية في حقل الدمج =[year] & Format([autono],"0000") بالتوفيق

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أخي الغالي " محمّد حسن المحمّد " على التّنبيه بهذا المصاب الجلل الذي أصاب أخونا الفاضل " ياسر فتحي البنّا " ما عسانا سوى أن نقول : {إِنَّا لِلَّهِ وَإِنَّا إِلَيْهِ رَاجِعُونَ} عظم الله أجركم و أحسن عزاءكم و ألهمكم و ذويكم الصّبر و السّلوان و أسكن الفقيدة فسيح جناتّه إن شاء الله يا رب

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

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

أخي الكريم شريف جرب الحل التالي Sub ConvertTextToNumberUsingArrays() Dim Arr, Temp, C, Str As String, I As Long, P As Integer Arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) ReDim Temp(1 To UBound(Arr, 1)) For I = LBound(Arr) To UBound(Arr) Temp(I) = AscWConvert(Arr(I, 1)) Next I Range("B1").Resize(UBound(Temp)).Value = Application.Transpose(Temp) End Sub Function AscWConvert(Rng As Variant) Dim C, P, Str If IsNumeric(Rng) Then AscWConvert = Val(Rng) ElseIf Not IsEmpty(Rng) Then For P = 1 To Len(Rng) C = AscW(Mid(Rng, P, 1)) If C - 1632 >= 0 And C - 1632 < 10 Then Str = Str & (C - 1632) Else Select Case C Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 Str = Str & ChrW(C) End Select End If Next P If Len(Str) = 0 Then AscWConvert = "" Else AscWConvert = Val(Str) End If End If End Function الموضوع استغرق مني يومين بحث ومناقشات في منتديات للوصول لحل ، فلا تنسانا بدعوة بظهر الغيب تقبل تحياتي

وعليكم السلام ورحمة الله تفضلي أختنا الفاضلة فتح استعلام الاسم.rar

بغد اذن اخي بن علية هذه المعادلة توضع في الخلية B18 ,تسحب ياسراً و نزولاً =SUMPRODUCT((($B$3:$B$14) ($B$3:$D$14)=$A18)*(($D$3:$D$14) ($B$3:$D$14)=B$17)*$C$3:$C$14) مرفق الملف Kerols Ashraf.rar

اتفضل انا غيرت شوية حجات البحث عملته بطريقه جديده علشان يكون عندك اكثر من طريقة اكواد الاضافة والتعديل والحذف تم اضافتها بحث واضافة-update2.rar

السلام عليكم ورحمة الله تطبيق المعادلة المقترحة في الموضوع الآخر المكرر... بن علية طلب معادلة.rar

السلام عليكم مشاركة سريعة مني تحليل الاذون مارس 2016 .rar

برنامج تأليف و تلخيص الكتب ************************ برنامج مجانى لا ابيح فتح مصدره (محتواه البرمجى) و لا استخدامه تجاريا ************************************************************* رابط شرح البرنامج https://www.youtube.com/watch?v=pKjRK737QXk ************************************************ رابط تحميل Microsoft Access 2010 Runtime https://www.microsoft.com/en-us/download/details.aspx… ****************************************************** رابط تحميل البرنامج http://www.mediafire.com/download/ol2ca1fnri9s7m8/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC+%D8%AA%D8%A3%D9%84%D9%8A%D9%81+%D8%A7%D9%84%D9%83%D8%AA%D8%A8+.accdb ****************************************************** اسم المستخدم : الله المستعان كلمة السر : الله المستعان ********************************** لا تنسى الإعجاب بالصفحة حتى يصلك كل جديد https://www.facebook.com/mahmoudelhamahmy1000 ******************************************************

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

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

شوف يا عم ابو البراء انت عمال تجيبلنا موضوعات صعبه انا كل اللى عرفت اعمله احط معادله فى الست خانات باستعمال اوفست دى اول خانه والبقيه تحتها =OFFSET(A1;5;0) حاولت اعمل مصفوفه معرفتش حاولت اظبطها باوفيست فى Vba برضه معرفتش يالا مش مشكله هنحاول تانى وجزاك الله كل خير والنبى والنبى يا استاذ امتحنا امتحان سهل احنا ساقطين لوحدنا ههههههههههههههههههههههه

أخي الحبيب سليم عندما نطرح موضوع فنحن نتعامل دائماً مع النطاقات بشكل ديناميكي ليكون الحل المقدم مرن ويفيد الجميع بدون أن يضطر المستخدم العادي إلى التعديل بارك الله فيك وجزيت خيراً على المعادلات الرائعة وإضافة بسيطة جرب المعادلة بهذا الشكل =IFERROR(OFFSET($A$1,COUNTA($A:$A)-ROW(),),"") في انتظار المزيد من الحلول بالمعادلات أو بالأكواد أو بأي طريقة .. تقبل تحياتي

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

تستطيع في الاكسس 2007 ومافوق وفي الاستعلام بالضغط على مجاميع او اجمالي بالانجليش totals ومن شرط الادوات وسيظهر لك خيار جمع الاعمده بالتوفيق

أخي الحبيب الفلاحجي بارك الله فيك وجزيت خيراً على كل ما تقدمه من جديد أو قديم واااااااااااااصل بلا فواصل .. فسنكون بإذن الله في انتظار جديدك دائماً تقبل تحياتي

جزاك الله خيراً أتمنى أن تضيف جديداً كلما سنحت للك الفرصة

السلام عليكم ورحمة الله وبركاته إخوتي الكرام: أخي الكريم حراثي تواتي لقد ساعدك إخوتي الكرام باﻷكواد وفقا لطلبكlabel 5 &6 إلا أنك عرضت كود به label 59&60 فكيف لأكوادهم أن تلبي طلبك إذا كانت المعطيات تختلف عما طلبت منهم . جزاكم الله خيرا على كل ما قدمتموه إخوتي الجموعي وعبد العزيز وحراتي والسلام عليكم ورحمة الله وبركاته.

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

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

تم معالجة الامر القاعدة if.rar حل اخر بواسطة الماكرو القاعدة if salim Macro.rar

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

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

شكرا اخي الكريم على الرد و الافادة هذا الكود الذي جربته و ضبط معي Private Sub UserForm_Activate() Do Me.Label59.Caption = Format(Now, "hh:mm:ss") DoEvents Loop End Sub

في حدت اليوزرم فورم Private Sub UserForm_Initialize() End Sub أضف هذا الكود Me.Label5.Caption = Format(Now, "hh:mm") Me.Label6.Caption = Format(Date, "yyyy/mm/dd")

الاخ / ياسر عظم الله اجرك انا لله وانا اليه راجعون

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

حياكم الله اخواني هنا فكرة بأن تدع الترقيم التلقائي يعمل بشكله العادي وبدون تنسيق وفي النموذج تعدل الطريقة لتصبح بالشكل التالي =[year] & 0 & 0 & 0 & [AutoNo] بالتوفيق

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

طريقه ممتاز اخي اباجودي

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

خاصمتها إثر ذنبٍ في المسا حصلا * ورحتُ دونَ وداعٍ أقصدُ العملاوفي الظهيرةِ عُدتُ البيت مُكتئِبـا * وصلتُ لكن سرور الروحِ ما وصلارأيتها عندَ فتحِ الباب باكـــيةً * ودمعُها أغرقَ الخدّينَ والمُقــــــــــــــلاعانقتها عندَ ظني أنها ندِمت * وصرتُ أسردُ في توصيفها غــــــــــزلايا أقرب الناس مِن قلبي كفى ألماً * فدمعُ عينيكِ لولا الحبّ ما نزلا ففارقتني وقالت لم يكُن ألماً * بل كنتُ أقطعُ بالسكّـينةِ البصـــــــلا

عظم الله اجركم اخي ياسر انا لله وإنا إليه راجعون

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

وعليكم السلام أخي محمد البرنامج يعتمد على البرنامج الخارجي pdftk.exe ، واللي المفروض ان يكون في مجلد البرنامج ، غير هذا ، البرنامج يحفظ ملف الـpdf في مجلد الوندوز المؤقت ويناديه بهذا الامر fReturnTempDir ، وعلشان هذا الامر يشتغل ، فانت محتاج للوحدة النمطية modSystemDirectories واذا لم ترد ان تحفظ الملف المؤقت في مجلد الوندوز المؤقت (او كان عندك كود آخر لهذه المهمة) ، فانت لست بحاجة لهذه الوحدة النمطية. برنامج Adobe Acrobat Reader لا يملك قابلية عمل كلمة سر لملف pdf ، ولا إمكانية تمرير كلمة السر اليه لفتح ملف pdf ، لهذا السبب فنحن محتاجين الى الى البرنامج pdftk.exe ليقوم بهذه العمليات لنا جعفر

السلام عليكم ورحمة الله وبركاته لإدراج الكسور الإعتيادية في وورد المتمثلة في البسط والمقام وكذلك الجذور والكثير من رموز الرياضيات مثل ينتمي . لاينتمي . أكبر من . أصغر من والكثير غيرها من الرموز إتبع الخطوات التالية :- من قائمة إدراج >> كائن ثم حدد Microsoft Equation 3.0 ثم موافق لإظهار شريط رموز الرياضيات بجميع أنواعها وكم تمنيت أن أرفق لكم الصور فقد شرحتها وبعد إدراجهافي المنتدى علمت بأن الصور غير متاحة تحياتي للجميع