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

اكتشفت خلل في كود البحث تم استبداله DoCmd.SearchForRecord , "", acFirst, "[Nm] = " & Str(Nz(Screen.ActiveControl, 0)) Example3.accdb

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

وعليكم السلام-يمكنك استخدام هذا الكود Sub print_out() Sheets("Sheet2").Range("g1:l20").PrintOut End Sub ولا تنسى فى المرات القادمة عندما تريد الحل بإستخدام الأكواد فعليك برفع الملف بإمتداد XLsm Print.xlsm

السلام عليكم طال غيابي عنكم احبتي في الله لسببين اولهما ظروف خاصة وثانيها لتوجهي الى تعلم لغات برمجة اخرى و ابتعادي عن الاكسل العشق فلما اخذني الحنين للاكسل فكرة لمذا لا استخدمه كما تعلمت مع اللغات الاخرى فرفعت التحدي و عملت هدا البرنامج البسيط البرنامج عبارة عن تسجيل عمليات استلام وتسليم الوصلات واظهار كشف الحساب لكل مورد على حده او تقرير عام بصفة عامة البرنامج بسيط ما يهم هو ما يخفيه من اكواد و مايظهره من جمال للفورم اما الثانية ما يظهره من جمال الفورم حاولت ان اعمل ما يستخدم في c# ui design و النتيجة هي اما الاولى مايخفيه من اكواد هي قاعدة البيانات هي اكسيس بحيث برمجة كلاس يمكنك استخدامه لتتعامل مع ملفات الاكسيس بكل سهولة ابتداءا بجملة الاتصل فتح الاتصال اغلاق الاتصال الى تنفيذ الكموند تماما كما هو الحال مع c# او غيرها من لغات اخرى الى كل من يبحث عن كيفية العمل على برنامج واحد باكثر من جهاز او مستخدم في نفس الوقت هذا الملف يمكنك من ذلك وذالك برفع قاعدةالبيانات الاكسيس على اي استضافة كقوقل دريف او دريفبوكس وتسليم ملف الاكسل للمستخدمين سيستطيعون جميعهم العمل عليه في نفس الوقت كل ما تحتاجه هو تغيير مسار الملف في كلاص الاتصال المسمى ClsConnctionDB في الاخير تحياتي للجميع تم تعديل الملف ليشتغل على ويندوز 7 WPFVBA_Win7.rar WPFVBA_Win10.rar

وذلك لأنك أخطأت فى المعادلة الموجودة بالعمود V الخاصة بجلب أرقام الشيكات فهذه معادلة مصفوفة وليس معادلة عادية فلابد من الضغط على Ctrl+Shift +Enter وليس Enter فقط كباقى المعادلات تجميع المكررات1.xlsx

تفضل لك ما طلبت تجميع المكررات1.xlsx

وعليكم السلام-تفضل samples1.xlsm

السلام عليكم اللي عملته هو: 1. يطبع التقرير صفحة واحدة بغض النظر عن عدد السجلات ، 2. التحكم في حجم الخط ، وتجعله في حجم مربع النص 1- بسبب ان اعدادات طابعتي تختلف عن طابعتك ، وطابعة المستخدم الاخير ، فجعلت الكود يحسب كل ارتفاعات الطابعة واقسام التقرير تلقائيا: hSum = Me.Section(1).Height + Me.Section(2).Height + Me.Section(3).Height + Me.Section(4).Height pSum = Me.Printer.TopMargin + Me.Printer.BottomMargin extra = 576 * 2.5 'to tighten the space h_p_t = hSum + pSum + extra 'in twips pPaper = 29.7 'Me.Printer.PaperSize A4 pPaper_t = pPaper * 576 hDetail = (pPaper_t - h_p_t) 'Me.StuName.Height = 23.2 * 576 / Me.mycount Me.StuName.Height = hDetail / Me.mycount اذا تلاحظ المتغير (والذي يساوي 2.5 سم ، والرقم هذا اتى بعد عدة محاولات) extra = 576 * 2.5 'to tighten the space وذلك حتى يرفع التقرير ويصبح صفحة واحدة بغض النظر عن عدد السجلات 2- من الرابط http://www.lebans.com/autosizefont.htm ، اضفت الوحدة النمطية modTextHeightWidth ، والتي تتحكم في حجم الخط ، وتجعله في حجم مربع النص ، وبما ان البيانات كان بالانجليزي ، فكل شيء كان تمام ، وقد اخبرتك انه قد يجب ان تتلاعب مع السطر التالي في الكود ، والذي يحدد حجم الخط .FontSize = .FontSize - 1 فقد تضطر ان تغير الرقم 1 الى رقم آخر ، ولكن بالتجربة ستتوصل فيما اذا كان يجب ان تقوم بالتغيير اصلا او لا جعفر 625.SH-16-17Ssss.accdb.zip

مميزات التقويم 1-هجري / ميلادي 2- يمكن البحث بالسنوات الهجرية ما بين 1318 و 1500 3- يوضح بالألوان فصول السنة 4-حسب تقويم أم القرى المعتمد من مدينة الملك عبدالعزيز للعلوم والتقنية 5-إمكانية إضافة المواعيد والمهام وتعديلها وحذفها 6-يوفر فرز للمواعيد والمهام القادمة والفائتة 7- يميز مواعيد والمهام المنفذة والفائتة 8- في التقويم يميز اليوم الموجود فيه موعد أو مهمة غير منفذة 9-يمكن تسجيل المواعيد والمهام بالتاريخ الهجري أو الميلادي تم تعديل الملف ليناسب الجميع التقويم.xlsx

اعرض الملف برنامج الاتصالات الادارية (وارد - صادر - متابعة المعاملات - أرشفة الكترونية) السلام عليكم ورحمة الله تعالى وبركاته الاصدار الاول من برنامج الاتصالات الادارية وارد .. صادر .. متابعة المعاملات .. أرشفة الكترونية للتواصل علي الواتساب:- 00201018156170 او الايميال:- soft.sample2014@gmail.com لتحميل نسخة تجريبية من الرابط التالى https://drive.google.com/open?id=1ze...qbrqm2L3yHmk-i مستخدم كامل الصلاحيات اسم المستخدم : user كلمة المرور : 1234 مستخدم صلاحيات محدودة اسم المستخدم : user1 كلمة المرور : 1234 صاحب الملف محمد سلامة تمت الاضافه 07 أكت, 2018 الاقسام قسم الأكسيس

جزاك الله خيرا اخى صالح @ابوآمنة تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم

DoCmd.SearchForRecord'ابحث عن سجل اسم النموذج الحالي ويوضع فارغاً في حال البحث في النموذج الحالي , "" ابدء البحث من أول سجل , acFirst, اسم الحقل المراد البحث عن "[Nm] = " & عنصر التحكم مربع التحرير والسرد Str(Nz(Screen.ActiveControl, 0)) علماً أنك تستطيع إدراج الكود بشكل آلي عند إدراج مربع التحرير والسرد من خلال معالج عناصر التحكم بشرط أن تكون القاعدة بصيغة .mdb حتى يتم إضافة الكود في الوحدة النمطية مباشرة . وبالتوفيق أخي أحمد

هذا الرابط به سؤالك 🙂 جعفر

السلام عليكم هذا المرفق للاستاذة زهرة اتمنى ان يكون النطلوب تحياتيza-FullControlOfPrintReport2010.accdb za-FullControlOfPrintReport2010.rar

يعمل بشكل ممتاز . جزاك الله خيرا .... 🌺🌺

دالة NZ وهي اختصاراً لكلمتي : NULL Zero ومهمتها أن يتم التخلص من مشكلة وجود القيمة Null في بعض العمليات مما يعطي خطأ .. Nz(DSum("Qty";"tabl2";"barcode=" & [barcode]);0) السلام عليكم انظر للمرفق اخي الكريم اتمنى ان يكون المطلوب Qty in table - Qty on form.rar

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

جرب هذا الماكرو Private Sub CommandButton1_Click() insertbutton_Click End Sub '+++++++++++++++++++++++++++++++++ Sub insertbutton_Click() Dim x%, y%, nextRow%, rg_to_copy As Range Set rg_to_copy = Me.Range("b6").CurrentRegion x = rg_to_copy.Rows.Count If x = 1 Then Exit Sub y = rg_to_copy.Columns.Count nextRow = Me.Cells(Rows.Count, 2).End(3).Row + 1 Set rg_to_copy = rg_to_copy.Offset(1).Resize(x - 1) Me.Range("B" & nextRow). _ Resize(x - 1, y).Value = rg_to_copy.Value rg_to_copy.ClearContents End Sub الملف مرفق samples_BUTTON.xlsm

السلام عليكم وضعت هذه المعلومات أسفل جدول القائمة (في معادلة واحدة على أساس أن عدد الصفوف في اللجنة الواحدة لا يتجاوز 2)... أرجو أن يفي الغرض المطلوب... ملاحظة : تم التعديل على بعض تنسيقات الملف... بن علية حاجي لجان الإختبارات.xlsm

جرب هذا لجان الإختبارات.xlsm

عليك السلام ورحمة الله وبركاته جرب هذا 12-1.xlsm

النسخة الكاملة لازم اشتريها صح ؟ ممكن معلومات عنها اكتر

استبدل الى هذا الماكرو Sub remov_dup_new() Dim r%, col%, COL_1%, i%, k%, m%: m = 2 Dim dic As Object Dim My_rg As Range Set My_rg = Range("a1").CurrentRegion r = My_rg.Rows.Count: COL_1 = My_rg.Columns.Count Set My_rg = My_rg.Offset(1).Resize(r - 1) 'My_rg.Select Cells(1, COL_1 + 2).CurrentRegion.ClearContents For i = 2 To r Set dic = CreateObject("Scripting.Dictionary") col = Cells(r, Columns.Count).End(1).Column Cells(m, COL_1 + 2) = Cells(i, 1) For k = 2 To col + 1 dic(Cells(i, k).Value) = vbNullString Next k Cells(m, COL_1 + 3).Resize(, dic.Count) = dic.keys m = m + 1 dic.RemoveAll Next i Set dic = Nothing End Sub

يظهر معك السعرين في القائمة لكن في حال كانت الفاتورة بيع يتم إدراج سعر البيع في حقل السعر وهكذا

السلام عليكم من بعد اذن السيد خالد شوف هذا الملف عملتة على عجالة هل هو المطلوب ؟ Test1.accdb

فقط يمكنك استخدام هذه المعادلة =SUMIF(ورقة1!$A:$A,$A2,ورقة1!$C:$C) test1.xlsx

اشكرك اخي علي جزيل الشكر هذا المطلوب

استاذنا الفاضل @أبو عبدالله الحلوانى اقصد انك قمت بتغيير خحم ورق الطباعة الى a5 لكن التقرير ما زال محتفظ باعداداته والعناصر التي عليه بنفس المقاسات لم تتغير الحقيقة جربت الموضوع قبل ذلك فالذي وصلت اليه كتابة اسماء العناصر يدوياً Me.TextBox1.Width = Me.TextBox1.Width / 2 فارجو ان يحاول معنا الاخوة في هذا الموضوع الشيق لعلنا نصل الى نتيجة ان شاء الله تحياتي

جرب البحث الآن Example_2 (1).accdb

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

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

وعليكم السلام-اهلا بك فى المنتدى أستاذ Mostafa.A.A وذلك بالكود الموجود بالملف المرفوع فى المشاركة الأولى عندما تقوم بفتح الملف والضغط على Alt F11 ستجد الكود

الكود النهاني (مع الفرز حسب اللجان) و ادراج عدد اللجان اوتوماتيكياً حسب عدد الطلاب الاجمالي و عدد الطلاب في كل لجنة تغيير اسم الصفحة الى SALIM لحسن عمل الكود وعدم ظهور احرف غريبة في الكدو مما يؤثر على عملية نسخه ولصقه Option Explicit Sub Ahmed_Salim_Final() If ActiveSheet.Name <> "SALIM" Then Exit Sub Dim AA%, N%, i%, k%, Last_Row% Dim tt%: tt = 1 Dim m%: m = 8 With ActiveSheet AA = .Cells(Rows.Count, 2).End(3).Rows Last_Row = AA + 7 .[d2] = AA N = IIf([d2] Mod [d4] = 0, [d2] / [d4], Int([d2] / [d4]) + 1) .Range("D8", .Range("D7").End(4)).ClearContents For k = 1 To N For i = 1 To .[d4] .Cells(m, 4) = k m = m + 1 If m = Last_Row + 1 Then GoTo End_Me Next i Next k End_Me: .Range("D3") = Evaluate("=max(D8:D1000)") End With End Sub الملف النهائي distribution_Final.xlsm

السلام عليكم هذا توزيع آخر مع التوزيع السابق... بن علية حاجي توزيع2.xlsx

بارك الله فيك وزادك الله من فضله

بارك الله فيك وزادك الله من فضله

اخي الكريم بما ان جدول tbl_sheet فارغ فانت ستحتاج الى 1 - استعلام الحاق 2 - استعلام تحديث سيتم تنفيذ الاستعلام Query1 اولاً لالحاق البيانات واذا كان رقم الموظف موجود مسبقاً بالجدول يتم تنفيذ الاستعلام Query2 لتحديث البيانات انظر المرفق تحديث من نموذج الي جدول بشرط.rar تحياتي

السلام عليكم جرب المرفق Ali_Tst _1.xlsm

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

جرب هذا Timer & Stopwatch.xlsm

ربما ينفع هذا الكود Option Explicit Sub remov_dup() Dim r%, col%, i%, k%, m%: m = 2 Dim dic As Object r = Cells(Rows.Count, 1).End(3).Row Cells(2, "j").CurrentRegion.ClearContents For i = 2 To r Set dic = CreateObject("Scripting.Dictionary") col = Cells(r, Columns.Count).End(1).Column Cells(m, 10) = Cells(i, 1) For k = 2 To col dic(Cells(i, k).Value) = vbNullString Next k Cells(m, 11).Resize(, dic.Count) = dic.keys m = m + 1 dic.RemoveAll Next i Set dic = Nothing End Sub الملف مرفق Salim 3.xlsm

وعليكم السلام , اهلا بك فى المنتدى -تفضل سلسلة علمنى كيف اصطاد ( الفورم ) Forms

بارك الله فيك استاذ احمد وبعد اذن حضرتك ولإثراء الموضوع تم التعديل على الملف الأصلى للأستاذ ahmedhossin ونصيحة من اخ لك لابد من البداية رفع الملف الأصلى لك تجنبا لعدم اهدار الوقت فهذا ذنبك انت بالتأكيد لأنك من البداية رفعت ملف مختلف عما تريد-تفضل تم التعديل مرة اخرى Book2.xlsm

وعليكم السلام-تفضل =IF(ISNUMBER(E3),VLOOKUP(E3,$A$2:$B$500,2,0),INDEX($A:$A,MATCH(E3,$B:$B,0))) معادلة مزدوجة1.xlsx

تفضل بالتأكيد بعد اذن استاذنا الكبير سليم-تم تغيير اسم الصفحة تجميع الى Collection لحسن عمل الكود وذلك ما ينبه اليه استاذنا الكبير سليم دائماً الى جعل اسماء الصفحات بالإنجليزية لحسن وكفاءة عمل الكود All_sh2.xlsm

وعليكم السلام-هذا فيديو للشرح https://www.youtube.com/watch?v=Sh5WG2yZLlE

هذه هى النتيجة 03:00 pm وليست 02:30 لا يوجد خطوات فقط اجعل تنسيق خلية الناتج كوقت وذلك كما بالصورة جمع ساعات 1العمل.xlsx

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

تفضل اخي هذا مثال قريب جداً لطلبك ارجو ان يفيدك Dur arb.rar ان واجهتك مشكلة في التطبيق ارفق مثال صغير ليتم التعجيل عليه ولك الشكر تحيايت

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