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

تم معالجة الامر بالنسبة لخمسة ايام متتالية الكود Option Explicit Sub test_5Dyas() Rem=====>>> Created By Salim Hasbaya On 29/8/219 Dim str$: str = "غ" Dim cont%, col%, k%: k = 35 Dim i%, x%: i = 3 Dim t% Dim my_text: my_text = "انذار 5 ايام متتابعة (" Dim X_arr(), m%: m = 1 Range("Ag5").Resize(3, 3).ClearContents For col = 5 To 7 For x = i To k '========================== If Cells(4, x) = "جمعة" Or Cells(4, x) = "سبت" Then GoTo Next_X End If '========================== If Cells(col, x) = "" Then cont = 0 x = x + 1 End If '========================== cont = cont + IIf(Cells(col, x) <> "", 1, 0) '========================== If cont = 5 Then ReDim Preserve X_arr(1 To m) X_arr(m) = my_text & m & ")" m = m + 1 cont = 0 End If '========================== Next_X: Next x On Error Resume Next t = UBound(X_arr) '========================== If t Then Cells(col, "AG").Resize(1, UBound(X_arr)) = X_arr End If '================================ cont = 0 Erase X_arr: m = 1 Next col End Sub الملف مرفق Inzar 5 Days.xlsm

الاخوة الاعزاء تجدون ادناه فكرة مبدئية لعمل معرض صور من روابط صورة خارجية آمل ان يحوز على رضائكم معرض صور فكرة مبدئية.mdb

تفضل الملف ترقيم تلقائي.xlsx

جربت الكثير من البرامج ولم يعمل اي واحد لا ادري مالسبب مع العلم اني استخدم Access 2010 ارجو المساعده

هل يمكن لبرنامج اكسل ان يقوم بتقسيم الصورة علي مجموعة خلايا بنسبة مئوية معينة انظر لهذا الملف لتفهم ما أقصده Complete_picture.xlsx

بارك الله في جهدك أستاذ سليم

بعد اذن استاذ حسين مامون جرب هذا الملف لعله يفى بالغرض قوائم اعلام الطلاب االفصل االثاني 2018-2019 --1.xls

جرب المرفق __قوائم اعلام الطلاب االفصل االثاني 2018-2019 -.xlsm

تسلم اخى ربنا يجعلة فى ميزان حساناتك( اشكرك)

جرب المرفق تم الغاء الاستعلام الخاص بالتحديث وبدون الحاجة الى نقر زر التحديث تم وضع حدث في حقل بعد التحديث بجملة sql بمجرد ادخال الكمية يتم تحديث حقل الكمية المتاحة في جدول items واذا كان المطلوب غير ذلك فاعتذر مقدما لكوني على سفر وربما لا استطيع الرد على الموضوع 3.accdb

ابشر اعطيني شوية وقت و اتمنى من الاخوان مشاركتنا بالفكرة و الحلول

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

جزاك الله خيرا انا عاجز عن الشكر

شرح الكود =IF(B2="";"";SUBTOTAL(3;$B$2:B2)) إذا كانت الخلية B2 فارغة يكون الناتج فراغ ، وإذا كانت غير فارغة استخدم الدالة SUBTOTAL ورقم 3 هو كما بالصورة الدالة COUNTA لاحتساب الخلايا غير الفارغة بعد الرقم 3 فاصلة او فاصلة تبع إعدادات جهازك اكتب B2 : B2 ثم أغلق الأقواس كما ترى قوسين الأول لدالة if والثاني لدالة SUBTOTAL بعد ذلك اختر أحد الرمزين B2 وقم بتظليله أو تحديده بالطريقة التي تناسبك ثم اضغط مفتاح F4 بعد ذلك قم بالسحب والنزول لأسفل حتى آخر خلية تريدها

في المرفقات ودائما عند قيامك بحذف اي حدث او امر او ماكرو في النموذج قم اول بحذف الكود من محرر الاكواد او من محرر الماكرو ثم قم بحذفه من النموذج قاعدة بيانات1.accdb

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

أذا كان المطلوب مسح ( إفراغ ) البيانات الموجودة في حقول الجدول استخدم هذا الكود وضعه تحت حدث عند نقر الزر DoCmd.RunSQL "UPDATE tbl_Q SET tbl_Q.q_Ch1 = "" "" ,q_Ch2 = "" "",q_Ch3 = "" "",q_Ch4 = "" "",q_Ch5 = "" "";" ' tbl_Q هو اسم الجدول 'q_Ch1 هو اسم الحقل الاول 'q_Ch2 هو اسم الحقل الثاني 'q_Ch3 هو اسم الحقل الثالث 'q_Ch4 هو اسم الحقل الرابع 'q_Ch5 هو اسم الحقل الخامي أما إذا كانت المقصود هو مس ( إفراغ ) بيانات مربعات النص في النموذج استخدم هذا Me.txt1 = "" Me.txt2 = "" Me.txt3 = "" Me.txt4 = "" Me.txt5 = "" ' txt1 هو اسم مربع النص الموجود في النموذج

برنامج سهل وصغير لتقديم الأقرار الضريبي ، الرقم السري 1975 للأكسس2003 ، أي ملاحظة نرجو الأفادة أبدأ بنموذج الأقرارات الدائنة أولا اقرار.rar

أخي @ماجدجلال تفضل ..... 1200.mdb

لك ما تريد ترتيب الطلاب _salim.xlsm

السلام عليكم قمت بتصميم برنامج اكسل لحساب عداد البنزين والمازوت في محطات الوقود / محاسبة مبيعات المحطة من تعبئة السيارات في كل وردية عمل / = الفكرة تعتمد على ارقام العدادت الموجودة في مضخات التعبئة حيث ان الرقم الموجود لا يتكرر ولا يرجع الى الخلف ولكن يعد بمجرد تعبئة السيارة بالوقود لنفرض ان العداد كان صباحا 15600 ومساءا 16200 هاذا يعني انا كمية المبيع اليومي هي 16200-15600=600 ليتر وسعر اللتر 1070 يصبح الرقم 600*1070=642000 هذا المبلغ الذي يجب ان اقبضه من العاملهذه الفكرة مبسطة وقمن انا بتجميعها بالاكسل بطريقة الفورم البرنامج مكتما بنسبة 90% باقي اضافة البونات واسعارها لتنخصم من المبيع ارجو من الجميع تجربتها واعطائي الملاحظات عن العمل او اذا كام هناك اخطا انا غفلت عنها وهل هناك طريقة لتطويره بشكل افضل والسلام عليكم لؤي AMS FORM.rar

الاصدار الاخير بعد اضافة نسخ احتياطي و تقسيم القاعدة والملفات وتعديل الطابعة وحدود الطباعة واضافة خانات العملة والحساب التلقائي ارجو التجريب والرد AMS.rar

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

أستاذ / محمود الشريف بارك الله فيك شرح رائع جداً جداً جداً جداً جعله الله في ميزان حسناتك ونفع بك الإسلام والمسلمين

اخي الفاضل بعد فك الضغط عن الملف اضغط شفت وابقى ضاغط عليه وافتح الملف وسيتم فتح الملف بحيث تستطيع التعديل عليه