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

وعليكم السلام-يمكنك جلب الإسم بدون تكرار بهذه المعادلة أما الباقى فمعادلة Sumif =IFERROR(INDEX(بيانات!$I$2:$I$240,MATCH(0,INDEX(COUNTIF($B$1:B1,بيانات!$I$2:$I$240),),0)),"") tagg1.xlsm

وعليكم السلام ورحمة الله وبركاته فكرة لك أن اردت جعل الجهاز المعار لا يظهر من اساسة من ضمن الاجهزة المعارة يعني ( الجهاز المسلم للموظف لا يظهر في القائمة حتى يتم تسليمة ) بهذا الشكل تقل عدد الاجخزة بدل اختيارها وظهور رسالة ثم تعيد اختيار جهاز اخر .... IT_v1_0001.rar

واضح انك مستعجل اخي امير لا داعي لاي تعقيدات الحقيقة ممكن نعملها بعدة طرق وباكواد وبدون اكواد عن طريق منشئ التعبير على كل حال الطريقة الاسهل اولا نعمل جدول باسماء البنوك يحتوى على حقلين معرف البنك مفتاح اساسي ونوعة رقم نسجل فيه رموز البنوك والتي كما ذكرنا تكون رقم 5 و 6 من جهة اليسار في الايبان اسم البنك حقل نصي وممكن اضافة حقول اخرى مثلا اسم البنك الانجليزي ورقم السويفت كود الخ والهدف من الجدول سهولة التعديل لو احتجنا الى اضافة بنك او تغيير اسم بنك او اندماج بنوك لكون التعديل هنا اسهل من التعديل على الكود ثانيا في جدول حسابات العملاء نضيف حقل اسم البنك من نوع نص ثالثا في النموذج تسجيل الحسابات البنكية نضيف حقل اسم البنك الذي وضعناه في الجدول في حدث بعد التحديث لرقم الايبان نضع الكود التالي Dim b As String Dim x As Integer x = Mid([Odb_AccBanckIBAN], 5, 2) Odb_AccBanck = Right(Odb_AccBanckIBAN, 14) b = DLookup("[n_bank]", "tbl_bank", "[id]=" & x) Me.n_bank = b تم عمله على السريع ولم اقم بمراجعته بسبب انشغالي فعذرا مقدما الملف مرفق DB2.accdb

وعليكم السلام ... كان عليك استخدام خاصية البحث بالمنتدى تفضل هديتى برنامج مخزنى و دليل حسابات_ECO2_DuClick_store_ بفورم بحث و اضافه 1.0.0 وهذا برنامج اخر برنامج مخازن وكارت صنف2012 من تصميمي.xls

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

تفضل حسب طلبك المرفق يشتمل على قاعدة البيانات وثلاث مجلدات Downloads2.rar

الصق هذا السطر في الحدث المناسب لحقل الآيبان وليكن بعد التحديث Odb_AccBanck = Right(Odb_AccBanckIBAN, 14) DB2.rar

ممتاز اخي و استاذي حسام ولاثراء الموضوع عند استخدام dsum بدون معيار سيتم اضافة مجموع كافة الفواتير و ليس للفاتورة الحالية لذا لابد من استخدام معيار رقم الفاتورة ليكون الناتج صحيح اما فكرتي المتواضعة طالما ان الاجمالي للفاتورة الحالية موجود في النموذج الفرعي ممكن اختصار الكود ليكون Me.Recalc Me.Parent!d = Me.XSum في البداية ااستخدمنا recalc لاعادة تحديث الحقول المحسوبة ثم جعلنا قيمة الاجمالي في الرئيسي تساوي الاجمالي في الفرعي DB.accdb

تفضل هذه المعادلة لكود المندوب =IFERROR(INDEX(المناديب2!$A:$A,MATCH($A2,المناديب2!$B:$B,0)),"") وهذه المعادلة لكود السيارة =IFERROR(INDEX(' السيارات3'!$A:$A,MATCH($C2,' السيارات3'!$C:$C,0)),"") حركه السيارات.xlsx

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

امير.accdb

تفضل لك ما طلبت وهذه هى معادلة القائمة المنسدلة لتسمح بالبحث داخلها واضح ذلك بالملف المرسل لك الم تطلع عليه ؟!!! توضح بالخلية E2 فى القائمة المنسدلة , من قائمة Data ثم Data Validation =OFFSET($R$2,,,COUNTIF($R$2:$R$100,"?*")) وعليك بمتابعة ودراسة المعادلات المساعدة الموجودة بالعمودان R & P ابراهيم1.xlsm

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

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

بقاعدة البيانات المرفقة بدي لو تكرمت بالفورم (النموذج) لما اختار اسم طالب يطلع كل الكتب يلي مستلمها الطالب وبجانب كل كتاب مربع اختيار لحالات الكتاب ( تالف - مدور - جديد - مصور) Database1.accdb

السلام عليكم ورحمة الله وبركاته كل سنة وحضراتكم بخير اريد من اخواتي حل او طريقة تجعلني عند الضغط علي الزر في نموذج form1 يفتح معي نموذج الاقساط بناء علي اسم العميل الذي ادخلته بنفس النموذج (فتح نموذج على سجل محدد بناء على قيمة فى نموذج اخر) وكل الشكر لمن يحاول يساعدني كما احب ان اقول لاساتذتي الذي تعملت من مواضيعهم بالمنتدي كثيراً كل عام وهم بخير @biskra @احمد الفلاحجي @ابوخليل الاقساط.rar

يا اخي ايش اللفظ هذا ...

طيب جرب المرفق .... kan_761.accdb

Me.text1 = Int(x1) + Int(x2) D2.rar

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

جزاك الله خيرا اخي مشكور جدا

جرب هذا وهذا برنامج اخر برنامج عيادة بيطرية ارشفة وادخال وفاتورة

السلام عليكم ادخل البيانات داخل الدائرة وسيتم الكتابة بالمقابل في حالة احد الخانتين فاضي لم يكتب به لن تظهر النتيجة مع الشكر excel.xlsm

شكرا استاذنا القدير على هذه الفائدة والمعلومة الجديدة الذي اعرفه هو رمز فرع البنك وهو الارقام الثلاثة 11 ، 12 ، 13

احسن الله اليك استاذنا ابو خليل فائدة لمن يهمه الامر يمكن ايضا الحصول على اسم البنك من خلال رقم الايبان حيث ان الرقم الخامس والسادس خاصة برمز البنك SA7915000000000000000000 البنك الاهلي 10 بنك البلاد 15 بنك الرياض 20 البنك العربي 30 سامبا 40 ساب 45 البنك السعودي الهولندي 50 السعودي الفرنسي 55 مصرف الراجحي 80 الانماء 05 الجزيرة. 60 وهكذا يمكن عمل كود بسيط يتم من خلالة كتابة اسم البنك بمجرد ادخال رقم الايبان والفكرة ببساطة عمل متغير من نوع رقم يساوي x = Mid([Odb_AccBanckIBAN], 5, 2) ثم استخدام Select Case او اي طريقة مشابهه لكتابة الاحتمالات الخاصة باسم البنك وكذلك السويفت كود والله الموفق

بارك الله فيك استاذ حاتم وزادك الله من فضله

جميل جدا استاذ kha9009lid Me.Recalc معلومة جديدة بالنسبة رحم الله والديك

وعليكم السلام-تفضل mathtype 6.9

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

بارك الله فيك استاذنا الكريم وكل عام وانتم جميعاً بخير

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

تم تحديث الحل حسب طلبك الاخير Private Sub ts1_AfterUpdate() On Error Resume Next Dim i, x, z As Integer i = DCount("no", "tb", "chk=1") x = DCount("no", "tb", "chk=2") z = DCount("no", "tb", "chk=3") If ts1 = 1 Then Me.no = i + 1 ElseIf ts1 = 2 Then Me.no = x + 1 ElseIf ts1 = 3 Then Me.no = z + 1 End If Me.chk = Me.ts1 End Sub وانظر التطبيق حيث يلزم اضطرارا وضع حقل في الجدول يبين النوع ترقيم تلقائي منوع.rar

فى التقرير توجد خاصية Running Sum للحصول علي المجموع التراكمي للسجلات أما فى النماذج ، فللحصول علي المجموع التراكمي ، فهذا ملف مرفق به مثالين للأخوة حارث و أبو هاجر Cum____.rar

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

هذا مثال علي دوال تجميع المجال معد المثال هو الأخ مخلص الحريصي Aggregate.rar

مثال على بنامج محاسبي كامل مع عمل عبد الرحمن الخطيب إن شاء الله تجد فيه الاستفادة مضغوط بـ winrar أشرف خليل Albayan_new.rar

السلام عليكم المعروف ان هناك خاصية موجودة باكسس اسمها عاموديا وتقوم بتحويل محاذاة النص الى الاتجاه العامودي ولكن باتجاه لايلائم النصوص العربية على عكس الاكسل فيه اكثر من اتجاه عامودي ..من فوق الى تحت او العكس السؤال هو هل اقدر احول الاتجاه للعامودي عبر كود معين بما يناسب اتجاه اللغة العربية مادامت الخاصية لا تدعم هذا الخيار ؟؟ ولكم خالص تحياتي...

السلام عليكم لدي قاعدة بيانات واريد ربطها عبر شبكة الانترنت بواسطة صفحات اكسس فكيف يتم هذا .... مع خالص تحياتي

المثال http://www.pcpages.com/osama457/SerialInGroub2.zip فيه استعلامين Simple_Q هذا بدون كود لكن لازم تكون الارقام المسجلة متسلسلة يعني بدون ارقام مفقودة ، ولازم تكون السجلات مفروزة حسب الرقم Code_Q بالكود ، ويمشي حتى لو كانت الارقم المسجلة ملخبطة وناقصة . SerialInGroub2.zip

@ابوخليل I hate you