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

اكتشفت خلل في كود البحث تم استبداله 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

اعرض الملف برنامج الاتصالات الادارية (وارد - صادر - متابعة المعاملات - أرشفة الكترونية) السلام عليكم ورحمة الله تعالى وبركاته الاصدار الاول من برنامج الاتصالات الادارية وارد .. صادر .. متابعة المعاملات .. أرشفة الكترونية للتواصل علي الواتساب:- 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

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

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

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

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

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

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

بسم الله ما شاء الله اخى بارك الله فيك ووسع من رزقك وجزاك خيراً .

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

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

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

السلام عليكم اخي الكريم ما رأيك بهذه الطريقة البحث بواسطة الاسم او رقم الهاتف بواسطة مربع نص . شوف الملف بالتوفيق 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

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

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

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

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

السلام عليكم عملت لك نموذج بسيط لقتح وحفظ مسار pdf ضمن الاكسس اعلمنا النتائج image+pdf.rar

تفضل لك ما طلبت محمد_2020.xlsm

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

اخي العزيز emam1424 لاحظت انك تسال نقس السؤال اكثر من مرة بخصوص التاكد من ادخال البيانات بالجدول واظهار الرسالة Beep MsgBox ("تم حفظ البيانات بنجاح"), , "مبروك" ان الكود هو يقوم اصلا بحقظ البيانات في الجدول ومن ثم ينتقل للسجل التالي بالجدول DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.GoToRecord , , acNewRec افضل مكان للتاكد من ادخال وحفظ البيانات هي وضع الرسالة بعد التحديث After Update كما في الصورة ( يعني لاتظهر الرسالة الا بعد حقظ البيانات ) وهذا ينطبق على كل النماذج

لا يمكن عمل ما تطلب سوى بهذا الشكل وهذه الطريقة فقط يمكن عمل هذا فى نفس الورقة ولكن اعتقد ان هذا يكون متعب لك وغير طبيعى لطول الأعمدة والبيانات ver_2.xlsx

وعليكم السلام-تفضل بعد اذن الأستاذ حسين 12.xlsm

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

تفضل لك ما طلبت-بمجرد الضغط على ايقونة طباعة سيتم عمل نسخة من هذه الصفحة عل ملف Pdf اسمه Fawzy على نفس مسار ملف الإكسيل ويمكنك عمل الطباعة منه وستجده كما تريد ان شاء الله وقمت بعمل تجربة لك وهذا هو ملف Pdf المستخرج للطباعة ت . ص1.xls Fawzy.pdf

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

اهلا بك فى المنتدى -يمكنك استخدام هذه المعادلة =IF(COUNTIFS(Sheet1!$N:$N,$A2,Sheet1!$R:$R,$E2)>=1,"مدرج","غير مدرج") ملف مقارنه الاصناف مع الفاتوره1.xlsx

اهلا بك فى المنتدى-فقط عليك استخدام هذه المعادلة =COUNTIFS($G:$G,$I3,$A:$A,$I$2) 2021.xlsx

تفضل لك ما طلبت Sub t() Dim i, itotalrows As Integer Dim strRange As Range, strRange2 As Range Dim col As Long itotalrows = ActiveSheet.Range("a65536").End(xlUp).Offset(1, 0).Row For col = 1 To 1 Do While i <= itotalrows i = i + 1 Set strRange = Cells(i, col) Set strRange2 = Cells(i + 1, col) If strRange.Text <> strRange2.Text Then Rows(i + 1).EntireRow.Insert itotalrows = ActiveSheet.Range("a65536").End(xlUp).Offset(1, 0).Row i = i + 1 End If Loop Next col End Sub وهذا كود اخر اصغر Sub InsertBlankRows() Dim LastRow As Long Dim i As Long LastRow = Cells(Rows.Count, "A").End(xlUp).Row For i = LastRow To 2 Step -1 If i = 1 Then 'Do nothing ElseIf Cells(i, "A") <> Cells(i - 1, "A") Then Cells(i, "A").Insert End If Next i End Sub ادراج 1صفوف.xlsm

وعليكم السلام-تفضل تم عمل المطلوب بمعادلات الصفيف بعد ضبط تسمية صفحات الملف برنامج التنسيق 1.xlsm

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

وعليكم السلام-تفضل =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

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

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