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

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

السلام عليكم ورحمة الله انسخ هذا الكود والصقه فى موديول جديد واربطه بالزر الموجود Sub EditData() Const x = 155 Dim cel As Range For Each cel In Range("A4:A10") If cel.Value = x Then cel.Offset(0, 1) = cel.Offset(0, 1) + cel.Offset(0, 2) cel.Offset(0, 2) = cel.Offset(0, 3) cel.Offset(0, 3) = cel.Offset(0, 4) cel.Offset(0, 4) = cel.Offset(0, 5) cel.Offset(0, 5) = cel.Offset(0, 6) End If Next End Sub

شکرا لک ابو الاء بارك الله فيك وفينا اجمعين

مبارك لكم المولود الجديد ربي يبارك لك بعمره ويحفظه من كل شر يا رب

السلام عليكم استعمل هذا الكود في حدث عند التحميل Me.Form.Caption = DLookup("[user]", "fbi")

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

شكرا لك على الرد والتوضيح استاذي فقط كاقتراح عند النقاش مع الفريق العمل ان تعطون للاعضاء الجدد كل يوم مثلا 3 او 4 رسائل والامر يرجع لكم نفتخر بكم تحياتي

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

جرب هذا الماكرو Sub GetLast_Value() If Not (ActiveSheet.AutoFilterMode) Then Range("a1").AutoFilter End If Set filter_range = ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible) b = Split(filter_range.Address, "$") LastRow = Val(b(UBound(b))) Range("c1").Value = Range("a" & LastRow) End Sub الملف مرفق (بالكود و بواسطة المعادلات) اخر خلية بعد الفلترة salim.rar

السلام عليكم ورحمة الله ويركاتة اقدم لكم برنامج ثوابى الاصدار الاول للمخازن وحسابات العملاء والموردين البرنامج مفتوح المصدر لكى يستفيد منه الجميع وتحياتى الى كل الاخوا الكرام اعضاء ومشرفين تم تبديل المرفق بالنسخة الأخيرة بحسب طلبك منتدى اوفسنا "جرجس" مصر محافظة بورسعيد girgis_girgis22@yahoo.com

السلام عليكم ورحمة الله وبركاته طرق الاهلاك باستخدام دوال الاكسيل هام للمحاسبين ورؤساء الحسابات والمديرىن الماليين لاتنسونا بصالح دعاؤكم تحميل الملف http://excelfinancial1.blogspot.com.eg/2017/04/blog-post.html

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

السلام عليكم مؤقتا الي حين انتهاء النقاش ـ تم تعديل حد الترقية لعضو فعال و بالتالي اتاحة الرسائل الي 100 مشاركة ، بدلا من 200 فيما سبق بعد اول مشاركة يفترض ان تتم الترقية اليا و بالتالي تتاح الرسائل

ما شاء الله عليك اخي@shivan rekany كلك ابداع. جميل جدا .حلووووووو .شاكر لك .اخي أبو محمد. وتصبح بالف خير

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

حياك الله اخي@shivan rekany دوما وانت محب للخير وتقدم المساعدات للناس وهذه من طيبك والله بس تعرف مبتدى ياليت تعمل لي الكود عل النماذج بواجه المحاسبه والشكر والتقدير والاخترام لك وامثالك الخيرين والقائيمن على المنتدى والاعضاء ربنا يبارك فيك اخي

غیر الکود بدل ان تستخدم لمربع نصی او لیبل لاظهار المستخدم غيرها ب كابشن للنموذج اي تسمية توضيحية

السلام عليكم جرب هذا المرفق بعد التعديل أخي عبد المنعم Microsoft Access قاعدة بيانات جديد (2).rar

جزاك الله خيرا

الف الف شكر لك استاذي جزاك الله خرا

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

اليك اخي الكريم الملف المرفق به طلبك .. علي حسب فهمي له تقبل خالص تحياتي تعديل + وبحث.rar

ارفع الملف لضبط المعادلة وليس صورة عنه الصورة لا تتعامل مع المعادلات جرب هذه المعادلة في المرفق اما اذا كنت مصر على Offset المعادلة الصحيحة لذلك:(Ctrl+Shift +Enter) وتسحب نزولاً =OFFSET($D$1,IF($B$1:$B$15=B1,MAX(ROW($B$1:$B$15)-1,0)),0) redundancy salim.rar

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

قبل اشرح لك ما تم عمله هل هو مطلبك ام لا اذا نعم انتظرني لكي اشرح لك ما عملت

ارفع الملف لضبط المعادلة وليس صورة عنه الصورة لا تتعامل مع المعادلات

بارك الله بك اخي الكريم شفان وعلى اهتمامك انظر التعديل stu.rar

اي تعديل سيدي

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

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

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

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

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

اخي الكريم من خصائص المجلد الذي فيه قاعدة البيانات اذهب الى تبويب المشاركة ومن ثم ستجد Network file and folder sharing وكذلك تحت منها Advanced sharing من خلالها يمكنك عمل المشاركة مع اعطاء الصلاحيات الكاملة او الجزئية تحياتي

السلام عليكم إطلع على هذه المشاركة بها ما تحتاج

أعتقد يمكن استخدام الحلقات التكرارية

السلام عليكم شكرا للاخ حمادة على الرد على طلب الاخ محمد الخازمي السائل عن زر الحذف اما بخصوص طلب الاخ ناصر سعيد قم بتغير الكود الموضح بالصورة بهذا الكود فقط Dim D: D = "*" & UCase(TxSerch)

اعتقد حدث هذا بعد الترقية الاخيرة تم الرفع لادارة الموقع

السلام عليكم الاخ الكريم / محمد الخازمي بارك الله فيك وبعد اذن اخي وحبيبي القدير الرائع دائما /شوقي ربيع .. جزاه الله خيرا ضع الكود التالي في زر ليتم تنفيذ امر الحذف .. وعذرا لعدم ارفاق ملف لبطئ شديد بالنت لدي Private Sub CommandButton1_Click() Dim i As Integer TextBox1.Enabled = True For i = 3 To 2000 If Val(TextBox1.Value) = Cells(i, 1) Then Cells(i, 1).Select ActiveCell.EntireRow.Delete MsgBox "!! done" End If Next End Sub جزاكم الله خيرا

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

انتظرني حتى غدا ان شاء الله راح اعطيك حل

تم عمل البرنامج على طبيعة شغلي وهو مأخوذ بالكامل من افكار واكواد أساتذة المنتدى الكرام ( حمل على ثلاثة اجزاء لكبر حجم الشيت ) ولكن حين تم تجربته فى بعض التقارير بطيئة جدا واكتسبت افكار جديدة سوف يتم تغير البرنامج الى شكل افضل بكثير مما عليه . ولكن اعرض هذا الربنامج موقتا الى حين يتم الأصدار الجديد منه والتعديل عليه وغرضى من العرض ربما يستفيد منه أحد على هذا الوضع أو يضيف لى أى افكار أخرى تساعدنى فى تطويرة رقم الدخول عند فتح البرنامج كلمة agro فى خانة المستخدم ، 1234 فى رقم الدخول ورقم السري فك الأكواد 200473 وذلك لتعم الفائدة البرنامج عبارة عن 10 ازرار :- الزر الأول : تكويد الأصناف والمخازن يتم كتابة جميع الأصناف حتى 50 صنف تحت خلية اسم الصنف ويتم كتابة أمام كل صنف اسم الوحدة تحت خلية الوحدة ويتم كتابة المخازن تحت خلية اسم المخزن ويتم وضع أرصدة أول المدة بالمخازن كما تراه افقي فى عمود الكمية أما عمود العدد فهذا توضيح اكثر لو محتاج لذلك يتم كتابته بمعني : يوجد فى المخزن 20 شوال ملح ما يعادل 1000 ك توضع فى العدد 20 والكمية بالوحدة كيلو 1000 مثال اخر يوجد فى المخزن 50 جركن زيت ما يعادل 250 لتر العدد =50 والكمية =250 لتر وهكذا للتوضيح اكثر ويوضع امام الصنف وتحت المخزن العدد والكمية للصنف اما نوع التوريد والسداد يمكن تصنيف الأصناف على حسب احتياجك فى التقرير بمعني : براميل ، بالتات ، صناديق ، اجولة تصنف مواد تعبئة وتغليف أما الملح واحماض ومشتريات الخام يصنف مواد خام واوليه وهكذا الزر الثاني : أدخال الداتا : فى بداية أدخال الداتا يتم ادخال الأرصدة الأفتتاحية للمورد والعميل بمعنى التاريخ اسم المورد او العميل نوع الحركة اسم الصنف الوحدة العدد متوسط الكمية الكمية السعر القيمة نوع التوريد والسداد 1-1 على رصيد اول مدين 5000 1-1 محمد رصيد اول دائن 2000 وبعد ذلك يتم ادخال الداتا بشكل يومي بمعنى ( تم كتابة مثال بسيط فى الداتا لتوضيح البرنامج ) لتنقل بين الصفحات رمز البيت ، الزر الأحمر فى ادخال الداتا باستمرار يجب الضغط عليه بعد الأدخال أما باقي الأزرار تقارير ولا يتم كتابة اى شي بهما ويجب تحديثهم من خلال الأزرار الموجودة اعلهم أما فى تقرير كارت الصنف يجب الضغط على تقرير حركة صنف برنامج المشتريات والمبيعات والمخازن.part1.rar برنامج المشتريات والمبيعات والمخازن.part2.rar

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

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

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

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

( هل من الممكن عمل نموذج بحث يبحث الاسم او الرقم في جدولين مختلفين بصراحة عندي جدولين منفصلين واحتاج ان ابحث اسم لكي اعرف هل هو مسجل في دائرة اخرى اي جدول اخر ) أخي الغالي مليون تحية وبعد ،،،،،،،،،،،، أهلاً بك وكل عام وأنت بألف خير وبركة اليك هذا المثال حيث يقوم بالبحث في أكثر من جدول متمنياً لك عيداً سعيداً وتوفيقاً من الله ، كما أتمنى هذا المثال هو المطلوب وأخيراً ... تقبل أجمل تحياتي db1.rar