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

هذا الموقع به العديد من الايقونات والازار التي قد تفيدكم في تصميم شاشات وأزرار البرامج https://icons8.com/icons تحياتي

الأخ mohamedamrawy تفضل اخي عمل لوحة اوامر بالضغط علي الزر الأيمن الماوس وايضا عمل لوحة اوامر بالضغط علي الزر الأيسر من الماوس !_Right&Left_Mouse_Click_On_UserForm.xls

مرحبا اخي حسان تعليقي من شقين : وقبل ذلك اعتذر عن التعديل على المثال لاني لا املك اكسس في حاسوبي الشق الأول : الترقيم حيث يمكنك ادراج رقم المكتب ضمن الرقم وايضا لست بحاجة الى العلامة الفاصلة (السلاش) بحيث يتكون الرقم من اربع خانات للسنة وخانتين لرقم المكتب على اعتبار ان المكاتب سوف تزيد مستقبلا وباقي الرقم من اليمين للترقيم المعاملة ( مفتوح بدون عدد ) فيكون اترقيم على النحو التالي : 2020011 2020012 2020013 ....... وهكذا ايضا يمكنك ادراج رمز ( رقمي ) ضمن هذا الترقيم يعبر عن الصادر او الوارد لو احببت تعمل على جدول واحد ملحوظة : من خلال هذه المعطيات الثابتة يمكن في التقارير استخراج التالي : فصل المعاملات الصادرة من الواردة معاملات كل مكتب على حدة ترتيب المعاملات حسب النوع وحسب الرقم ................................................................................ الشق الثاني : واضح ان المكاتب في اماكن متفرقة وانك تجمع البيانات بالنسخ واللصق اذا هذا صحيح فيجب عليك التفكير بطريقة تجمع بها هذه البيانات بدون تدخل يدوي من الطرق : جمع قواعد البيانات الواردة من المكاتب في مجلد واحد ( لاحظ ان كل قاعدة ستحمل اسما مختلفا حسب اسم المكتب ) ثم تعمل استعلاما يجلب لك هذه البيانات .

اخى الحبيب اتفضل الملف بعد التعديل من طلبية الاصناف للمطاعم.xlsx

السلام عليكم اخي العزيز السبب هو استخدامك ل like * في الاستعلام ومعناه اضهر لي اي عدد يبد بالرقم واحد او اي يبدا باي رقم موجود في الكومبوبوكس هذه محاولة وهي حيلة للالتفاف على البرنامج ارجو ان يكون فيها طلبك qqq.rar

وعليكم السلام-لك ما طلبت Data Entry.xlsm

أخي الكريم جرب حل أخونا حسين أولا ، جزاه الله كل الخير

السلام عليكم و رحمة الله تعالى وبركاته إخوتي الكرام حياكم الله. بعد نزع خاصية انشاء شريط القوائم بالأكسس في النسخ بعد 2003 أصبح هناك عائق كبير في إضافة هذه الأشرطة و لأنه يتوجب عليك العمل على ملف 2003 أو استعمال Ribbon بلغة Html و هي أصعب من الفكرة الأولى. مما جعلني أفكر في طريقة تجعلنا نستغني عن هذه الطرق المرهقة بعض الشيء. و قمت بتصميم برنامج يستطيع أن يضيف شريط قوائم للنموذج الرئيسي لقاعدة البيانات مهما كانت نسختها 2003 أو النسخ التي تأتي بعدها. نبدأ على بركة الله في شرح البرنامج: بعد فتح البرنامج نتبع الخطوات التالية: 1 - أكتب اسم القوائم التي تريد أن تضيفها مع وضع رقم كل قائمة بالترتيب (1,2,3,....و هكذا) 2- أضف العناصر أو الأوامر التي تندرج تحت كل قائمة في النموذج الفرعي رقم العنصر , تسمية العنصر ثم الكود الذي تريد أن ينفذه هذا العنصر 3- أختر قاعدة البيانات سواءا كانت 2003 أو ما بعدها ثم اختر اسم النموذج الذي تريد أن تضيف له الشريط 4- قم بالضغط على زر "إنشاء الشريط" 5- افتح قاعدة بياناتك و أنظر للشريط المضاف حتى لو كان النموذج منبثق و شاشة الأكسس مخفية سوف ترى الشريط شروط استخدام البرنامج: 1- قبل البدئ أحفظ نسخة إحتياطية من قاعدة بيانات 2- يجب أن لا يكون لديك في قاعدة بيانات نماذج بهذه الأسماء : list1,list2,list3..... و هكذا 3- يجب أن يكون حدث عن النقر للنموذج الرئيسي خال من أي كود 4-بعد الإنتهاء أدعولي و لوالدي و لعائلة بالخير و الصلاح. هذا هو البرنامج انشاء شريط قوائم.rar

هذا برنامج الملاحظة1 وهو يرنامج صمم خصيصا لمساعدة الإدارات المدرسية في عمل حصص المراقبة على الامتحانات , والمساواة بين المعلمين بقدر الأمكان في حصص المراقبة التعليمات والشرح داخل الملف برنامج الملاحظة1.rar

السلام عليكم ياحبايب جمعتكم مباركة ان شاء الله عندي برنامج كاشير ع الاكسس احتاج احد مستعد يطور لي البرنامج ونشوف ايش ممكن يحتاج البرنامج عشان احتاج اطبقة في مشروعي الخاص وعليكم السلام أستاذي العزيز هذا رابط لتحميل البرنامج و إن شاء الله ألقى من يساعدني اسم المستخدم : bill كلمة السر : 123 Cashier.accdb

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

هذا الموقع قد يساعد الكثيرين في تحويل الصور لصيغة png التي تتناسب كثيراً مع شاشات وبرامج الأكسيس والايقونات احببت مشاركتكم اياه لتعم الفائدة https://www.rapidtables.com/convert/image/jpg-to-png.html تحياتي

الموقع يساعدك في تحديد الوان الخلفيات بصيغ مختلفة hex على ان تقوم بنسخ الكود لتبويب التصميم في عرض تصميم النموذج rgb وذلك بنسخ الارقام لكود تصميم الوان الخلفيات او النماذج ويكون من مكون من 3 ارقام وهذا مثال للون الاخضر بكل درجاته http://www.flatuicolorpicker.com/green-hex-color-model تحياتي

موقع تحويل الالوان من HEX to RGB والعكس https://www.rapidtables.com/convert/color/index.html تحياتي ..

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

بالخدمة اخي الكريم

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

اسم المستخدم: user2 الرقم السرى: 2 مع العلم أن صلاحيات المستخدمين لا يدخلها غير من له صلاحية الاشراف وهى متاحه لهذا المستخدم

في النموذج في حدث بعد للتحديث لحقل مربع السرد والحوار الذي يضم أسماء المكاتب ضع الكود التالي: Me.Id = dcount("*";"YourTableName";"[YourCombobox]='"&[Yourcombobox]&"') & "\" &"2020" مع ضرورة جعل العمود الأول لمصدر صف مربع السرد والحوار هو أسماء المكاتب وليس المعرف التلقائي. هذه إحدى الطرق الممكنة.

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

تفضل اخي العزيز ارجو ان يكون طلبك aaa.rar

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

شكرا اخي واستادنا الغالي Ali Mohamed Ali لك مني الف تحية اخلاص

اسأل الله العظيم رب العرش العظيم ان يشفيه ويعافية ويشفي جميع مرضانا ومرضى المسلمين

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

السلام عليكم اجعل النوع في الحقل مزدوج.

الموضوع ليس بالسهل او الهين فهو صعب تنفيذه

حمل الملف لوضع اليد على الخطأ وتصحيحه

اتفضل الملف لعله يفى بالغرض نسخة من طلبية الاصناف للمطاعم.xlsx

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

برنامج رائع جدا هو حضرتك اللي منفذه؟

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

انا عدلت على اخر تعديل ليا فوق شوف التعديل واخبرنى بالتوفيق Relation2(1).accdb

الاجابة في النطاق الاصفر من هذا الملف Spec_Char.xlsx

بعد اذن استاد طارق محمود ولاثراء الموضوع جرب المرفق 1 انسخ المجلد المسمى mydata في :d 2 افتح الملف المسمى main واضغط زر استعلام سيأتي ببيانات حسب الرقم في العمود A ملاحظة تم تغيير اسماء الشيتات ليعمل الكود بكفاءة ارجو ان يكون ما تريد my data.rar

لمن يعاني من ترتيب المخزن وجرده ويريد برمجه بسيطه تنظم مخزنه هذا هو الحل برنامج إدارة مخازن بسيط جداً معتمد علي الأكسيل وقد جمع كم هائل من المعادلات المعده مسبقاً حتي يكفي الغرض منه فهو يحتوي علي صفحة الأصناف والكميات وصفحة لحركة المخزن ككل .وفواتير المبيعات وكتابة الفواتير وتصديرها لصفحة فواتير المبيعات شرح مبسط للبرنامج 1. بعد تحميل البرنامج وفك الضغط عنه بستخدام أي برنامج فك ضغط نجد ملف به البرنامج وملف به باسورد البرنامج عند فتح البرنامج أول مره بيطلب تفعيل ميزة الماكرو ** تنبيه: الماكرو تفعيله لا يضر الجهاز طالما الملف من مكان موثوق .واذا لم تفعله لاتقلق فسوف يعمل البرنامج بشكل طبيعي غير أنه سوف تجد صعوبه في استخدام بعض مزايا البرنامج صورة توضيحية: 2. بعد تفعيل الماكرو يغلق برنامج الاكسيل ويفتح مره اخرى علي صفحة حماية البرنامج ويتم فيها ادخال كلمة السر المدرجة مع .ملف البرنامج صورة توضيحية: 3. بعد كتابة كلمة السر والدخول علي البرنامج بتظهر الصفحة الرئيسية اللي بتتكون من عده أقسام 1. الأصناف والكميات 2. حركة المخزن 3. المبيعات (فواتير المبيعات بعد ادخالها) 4. كتابة الفواتير 5. الخروج من البرنامج شرح الأقسام القسم الأول: الأصناف والكميات: يتضمن هذا القسم الأصناف حيث يتم تكويد الصنف ووضع اسم الصنف في الخانة التالية ليه وسعر بيع الصنف وباقي الصفحة يعمل اتوماتيك مع عمليات الادخال التي تقوم بها صورة توضيحية: *** نجد في الاعلي ازارا التنقل داخل البرنامج احصائيات حول الاصناف كمية الأصناف من كمية الوارد والمنصرف داخل المخزن تنبيه: هناك فلتر علي الصنف واسم الصنف حتي نتمكن من تحديد صنف معين ومعرفة الوارد والمنصرف من ذلك الصنف وكلمة سر فك الضغط هي f7men Stores_Management_V3.1-برنامج_اكسيل_إدارة_المخازن_الإصدار_3.1.rar

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

المرحلة الاولي: اضغط زر ويندوز + r اكتب appwiz.cpl ثم اضعط Enter اختار Intel Optane Pinning Explorer Extensions. ثم اختار Repair المرحلة الثانية اضغط زر ويندوز + X ثم اختار Device Manager ثم اختار Intel® Pinning Shell Extensions ثم اختار Software components ثم Uninstall Device

العفو استاذي @jo_2010 واذا كنت مازلت ترغب في التصفية عن طريق امر لكل مدينة مع ان الفكرة غير عملية حاليا لديك 3 مدن وربما غدا 10 مدن او اكثر فلا توجد مشكلة ممكن عملها لكل زر امر نضع الكود التالي مع تغيير اسم المدينة Dim myfilter As String myfilter = "[city]='" & "الرياض" & "'" Me.tbl1.Form.Filter = myfilter Me.tbl1.Form.FilterOn = True ولعرض الكل Me.tbl1.Form.FilterOn = False ولكن اعيد ان هذه الطريقة ليست عمليه المثال في المرفق بحث3.accdb استاذنا الفاضل @أحمد الفلاحجى جزاك الله خير

من كل تطبيق مثل الوورد مثلا يمكنك معرفة مكان الملفات من File options save auto-recover file location و الذهاب للمجلد و حذف الملفات

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

قبل اول كلمة Dim في الماكرو اكتب هذا السطر و بذلك يقوم الماكرو بعمله حتى ولو كانت الورقة محمية ActiveSheet.Protect "123", UserInterfaceOnly:=1 ليصبح الماكرو بهذا الشكل Option Explicit Sub get_my_studiants() Application.ScreenUpdating = False '++++++++++++++++++++++++++++++++++++++++++++++++++++++ ActiveSheet.Protect "123", UserInterfaceOnly:=1 '++++++++++++++++++++++++++++++++++++++++++++++++++++ Dim A As Worksheet Dim B As Worksheet Set A = Sheets("ALL_STD") Set B = Sheets("B") Dim col%, r, x, LB LB = B.Cells(Rows.Count, "B").End(3).Row If LB < 5 Then LB = 5 B.Range("a5").Resize(LB - 4, 6).Clear Dim my_clas$: my_clas = B.Range("e2") Dim my_mad$: my_mad = B.Range("K2").Value If my_clas = "" Or my_mad = "" Then GoTo Exit_Sub col = A.Rows(1).Find(my_clas, lookat:=1).Column r = A.Columns(1).Find(my_mad, lookat:=1).Row x = Application.CountIf(A.Columns(1), my_mad) B.Range("b5").Resize(x).Value = _ A.Cells(r, 2).Resize(x).Value B.Range("c5").Resize(x, 3).Value = _ A.Cells(r, col).Resize(x, 3).Value With B.Range("A5").Resize(LB - 4, 6) .Columns(1).Formula = "=if(B5="""","""",max($A$4:a4)+1)" .Columns(1).Interior.ColorIndex = 6 .Borders.LineStyle = 1 .Columns(6).Formula = "=RANK(E5,$E$5:$E$29,0)+COUNTIF($E5:E$5,E5)" .Value = .Value .Font.Size = 26 .Font.Bold = True End With Exit_Sub: Application.ScreenUpdating = True End Sub الملف مرفق My_students_Protected.xlsm

بعد إذن أستاذنا الفاضل سليم لحماية المعادلات من العبث ممكن تضع هذا الكود في حدث ورقة العمل لمنع المستخدم من الوقوف على الخلية التي بها معادلة وبدون رقم سري جرب هذا Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select End If End Sub My_students (1).xlsm

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

حرب هذا الماكرو Option Explicit Sub get_my_studiants() Application.ScreenUpdating = False Dim A As Worksheet Dim B As Worksheet Set A = Sheets("ALL_STD") Set B = Sheets("B") Dim col%, r, x, LB LB = B.Cells(Rows.Count, "B").End(3).Row If LB < 5 Then LB = 5 B.Range("a5").Resize(LB - 4, 6).Clear Dim my_clas$: my_clas = B.Range("e2") Dim my_mad$: my_mad = B.Range("K2").Value If my_clas = "" Or my_mad = "" Then GoTo Exit_Sub col = A.Rows(1).Find(my_clas, lookat:=1).Column r = A.Columns(1).Find(my_mad, lookat:=1).Row x = Application.CountIf(A.Columns(1), my_mad) B.Range("b5").Resize(x).Value = _ A.Cells(r, 2).Resize(x).Value B.Range("c5").Resize(x, 3).Value = _ A.Cells(r, col).Resize(x, 3).Value With B.Range("A5").Resize(LB - 4, 6) .Columns(1).Formula = "=if(B5="""","""",max($A$4:a4)+1)" .Columns(1).Interior.ColorIndex = 6 .Borders.LineStyle = 1 .Columns(6).Formula = "=RANK(E5,$E$5:$E$29,0)+COUNTIF($E5:E$5,E5)" .Value = .Value .Font.Size = 26 .Font.Bold = True .InsertIndent 1 End With Exit_Sub: Application.ScreenUpdating = True End Sub الملف مرفق My_students.xlsm

السلام عليكم ورحمة الله وبركاته تانية طريقة هنشرحها باذن الله هى طريقة .. شرح تصدير البيانات من الاكسس الى ملف ورد معد مسبقا عن طريق الاشارة المرجعية الفيديو https://youtu.be/VtPEat0Qkqo MS_Export data to Word file.rar

الاخ الفاضل جرب هذا الحل اعمار الديون (1).7z

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

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

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