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

السلام عليكم سوف نشرح في هذا الموضوع طريقة سهلة جدا لإضافة QR CODE للتقرير داخل مربع نص و يدعم اللغة العربية كذلك أولا: هناك ملف تنفيذي يقوم بتسجيل الأدوات و نوع الخط نقوم بتثبيته داخل الكمبيوتر ثانيا: لإضافة QR CODE نقوم باستدعاء الوحدة النمطية الموجودة في المرفق في مصدر عنصر التحكم لمربع النص و نغير نوع الخط إلى BCW_2D =QrCode([T];1;1;صواب;4;1) [T]: هو مربع نص نأخذ منه البيانات و هذا رابط المصدر : https://barcodewiz.com/user-manual/qr-code-fonts/create_qr_code_barcodes_in_ms_access.aspx و أخيرا تمتع بـQR CODE رائع أرجوا من الإخوة تجربته و موافاتنا بالنتائج. توليد QR CODE.rar

تفضل ::: اجريت بعض التعديلات على الكود : اصبح ينشئ المجلد اذا كان غير موجود اصبحت الملفات باسماء المدارس ‏‏SlicingDB.accdb

جرب المرفق fathy www.xlsm

عليك السلام ورحمة الله وبركاته تم وضع المعادلة التي في الخلية I2 في الخلية c1 جرب هذا اخفاء واظهار الصفوف حسب العدد.xls

السبب ان المجلد sample في الدرايف C غير موجود انشئ مجلد باسم sample في الدرايف C وجرب .....

تفضل ..... مثال.rar

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

السلام عليكم 🙂 هناك الكثير من الميزات/الاوامر التي يعطينا برنامج الاكسس ، والتي يمكن ان نعمل لها بديل ، ولكن يكون هناك فرق في سرعة تنفيذ كودنا مقارنة مع الكود الاصل من الاكسس !! مثل القائمة المختصرة التي تظهر لنا بالنقر على زر الفأرة الايمن ، والتي بها يمكننا ان نستغني عن الكثير الاوامر ، مثل الفرز والتصفية بأنواعه ، ولكن وللأسف الشديد ، فأنا ارى ان 99.99% من البرامج ، يتم حذف هذه القائمة وعدم تفعيلها ، والسبب ان المستخدم يستطيع ان يدخل في تصميم النموذج من خلال هذه الاوامر(في الدائرة الحمراء) : و . ويضطر المبرمج ان يعوض بقية الاوامر في القائمة ، بمجموعة من الازرار ، او بطرق مختلفة !! ----------------------------------------------------------------------------------------------- الاكسس يسمح لنا ان نعمل قوائم مختصرة Shortcut Menu والتابعة لمجموعة CommandBars ، حسب احتياجنا ، ونختار ما نضعه فيها 🙂 هناك 3 انواع من هذه القوائم : الثابته ، والمؤقته ، والمؤقته التي تحتاج الى كود. الثابته: وهي التي عندما نعملها ، تصبح مستقله عن الكود ، وتُحفظ وتبقى في قاعدة البيانات بعد إغلاقها ، ويمكننا ان نستوردها في قاعدة بيانات اخرى عندما نستورد احد/جميع كائنات قاعدة البيانات الآخرى ، بإستخدام : . ونختارها في النموذج : . او التقرير : . هذا مثال لعمل الكود الاساس لعمل قائمة قطع/نسخ/لصق : Option Compare Database Option Explicit Dim cmb As Object Dim cmbCtrl As Object Dim cmbName As String ' ' ' to use: ' Dim cbr As Commandbar ' Dim cbrButton as CommandbarControl ' ' we have to select in the References: ' Microsoft Office xx.x Object Library ' Public Function SCM_Copy(Optional DeleteMe As Boolean = False) On Error Resume Next 'If menu with same name exists delete cmbName = "cmb_Copy" CommandBars(cmbName).Delete If DeleteMe = True Then Exit Function If Err.Number <> 0 Then Err.Clear Set cmb = CommandBars.Add(cmbName, msoBarPopup, False, False) With cmb .Controls.Add msoControlButton, 21, , , False ' Cut .Controls.Add msoControlButton, 19, , , False ' Copy .Controls.Add msoControlButton, 22, , , False ' Paste End With Set cmb = Nothing End Function . وشرح الكود : 1. اسم القائمة المختصرة ، والتي سوف نختارها في النموذج او التقرير ، 2. هذه المجموعة الاساس منبثقة Popup ، 3. بينما هذه المجموعات عبارة عن ازرار Buttons ، وقد تكون قائمة منسدلة Combobox ، او نص Edit نُدخل فيه قيمة معينة للتصفية مثلا ، 4. هل هذه القائمة مؤقته ؟ False معناها ثابته وتُحفظ في قاعدة البيانات ، بينما True معناها انها مؤقته وتعمل لما ننادي الوحدة النمطية/الكود ، 5. هذه ارقام كل امر ، وملف الاكسل المرفق من مايكروسوفت فيه جدول يضم جميع ارقام الاوامر للاكسس 2010 () ، 6. اذا اردنا ان نحذف هذه القائمة ، فننادي الوحدة النمطية بضم True في امر المناداة المؤقته: ونستعمل True في مكان الرقم 4 اعلاه. وهي التي عندما نعملها ، لا تصبح مستقله عن الكود ، ولا تبقى في قاعدة البيانات بعد إغلاقها ، ولا يمكننا ان نستوردها في قاعدة بيانات اخرى عندما نستورد احد/جميع كائنات قاعدة البيانات الآخرى (كما هو الحال مع القائمة الثابته) ، ويجب ان نستخدم "حدث فتح" النموذج/التقرير لعملها واستخدامها في النموذج/التقرير ، و "حدث اغلاق" النموذج/التقرير لحذفها ، طيب ، خلونا نعمل هذه القائمة : Public Function SCM_Copy_Sort(Optional DeleteMe As Boolean = False) On Error Resume Next 'If menu with same name exists delete cmbName = "cmb_Copy_Sort" CommandBars(cmbName).Delete If Err.Number <> 0 Then Err.Clear Set cmb = CommandBars.Add(cmbName, msoBarPopup, False, False) With cmb Set cmbCtrl = .Controls.Add(msoControlButton, 21, , , False) ' Cut cmbCtrl.Caption = "Cut..." cmbCtrl.FaceId = 21 Set cmbCtrl = .Controls.Add(msoControlButton, 19, , , False) ' Copy cmbCtrl.Caption = "Copy..." cmbCtrl.FaceId = 19 Set cmbCtrl = .Controls.Add(msoControlButton, 22, , , False) ' Paste cmbCtrl.Caption = "Paste..." cmbCtrl.FaceId = 22 Set cmbCtrl = .Controls.Add(msoControlButton, 210, , , False) 'Sort Ascending cmbCtrl.BeginGroup = True cmbCtrl.Caption = "فرز تصاعدي..." cmbCtrl.FaceId = 210 Set cmbCtrl = .Controls.Add(msoControlButton, 211, , , False) 'Sort Decending cmbCtrl.Caption = "فرز تنازلي..." cmbCtrl.FaceId = 211 End With Set cmb = Nothing End Function . وشرح الكود: احنا توسعنا في الكود الاساسي ، واضفنا له : 1. تسمية اختيارية غير الافتراضية ، لاحظ في الصورة اعلاه اني استعملت الانجليزي والعربي ، 3. وهو لعمل خط فاصل في الصورة بين مجموعة قطع/نسخ/لصق ومجموعة فرز تصاعدي/تنازلي ، . 2. ممكن ان نبدل الصورة الافتراضية التي تيجي مع الرقم ، بتبديل هذا الرقم (لاحظ صورة الاسهم للتصاعدي/التنازلي) : . ومرفق ارقام جميع الصور الموجودة في الاكسس : . . . . . . . . . . . في قاعدة البيانات المرفقة myRight_Click.mdb ، بالاضافة الى القوائم الثابته اعلاه ، تم اضافة هذه القائمة ايضا : . والتقرير يحتوي على القائمة المؤقته التالية : . - ملف الاكسل myList.xlsx ، اخترت فيه اهم القوائم في وجهة نظري ، - ملف الاكسل AccessControls_2010.xlsx ، من مايكروسوفت ، يحتوي على جميع الاوامر 🙂 جعفر المصادر: http://dev-soln.com/access-shortcut-right-click-tool/ https://www.experts-exchange.com/articles/12904/Understanding-and-using-CommandBars-Part-II-Creating-your-own.html https://filedb.experts-exchange.com/incoming/2014/02_w06/833359/CommandBars-II.mdb https://www.experts-exchange.com/articles/18341/CommandBars-Part-III-Using-Built-in-Shortcut-Menus.html http://www.skrol29.com/us/vtools.php AccessControls_2010.xlsx myList.xlsx myRight_Click.zip

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة كود لتحديد مدى الطباعه تم ارفاق كود الحل من الافاضل / الحسامي رحمه الله _ يحيى حسين _ أبوعبد الله _ هشام شلبى _ الخالدي و لا تنسونا من صالح الدعاء تحياتى Book222 الحسامى_01_.rar _هشام شلبىكود طباعة مدى متغير.rar تعيين نطاقة الطباعة نهاية صفه بنص بالنطاق _ابو عبدالله_02_).rar ابو عبدالله__01تحديد نطاق الطباعة بطريقتين وإلغاؤه.rar يحيى حسين _01_طباعه).rar Book222 (الحسامى_02).rar _طباعه _الخالدي.rar

تفضل Currancy Rate_1.xlsx

عنك مشكلة في برنامج الضغط يحتاج تحديث تفضل .... ترجبة محمد.accdb

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

تفضل ... ترجبة محمد.rar

أخي نحن هنا لمساعدتك حتي تصل لمرادك ان شاء الله أولا - هل التقرير بالمرفق السابق لم يكن هو المطلوب أما ماذا؟ ثانيا - لا يوجد تعقيد البتة في المعادلات المحاسبية بل هي موضوعة للتيسير وتسهيل تبويب كل أوجه وأعمال النشاط التجاري بشكل صحيح وكما ذكرت حضرتك هنالك أشياء كثيرة تؤثر بشكل مباشر علي معادلة الأرباح أو الخسائر ولا يمكن أن يتم تجاهلها - ولا أعتقد أننا سنأتي بطريقة أفضل مما أقره علماء هذا الفن الذين أفنو فيه أعمارهم دراسة وتجارب وتركوه لنا بغير عناء منا. أخيرا - لا علاقة بتحقيق الربح وحساب الصندوق فكما تعلم حضرتك ( الربح يتحقق بمجرد عملية البيع وهذا أحد المبادئ المحاسبية الهامة) لذلك لا تجد مثلا حساب النقدية بالصندوق موجود بأحد الطرفين لا في تكلفة المبيعات ولا في تكلفة المشتريات أليس كذلك. أما حــ/ الصندوق فهو حساب يمثل رصيد الأموال السائلة داخل المنشأة من جراء العمليات النقدية. وكذلك هنالك حــ/ العـمـلاء والذي يمثل رصيد العمليات الآجلة والنصف آجلة (باختصار مديونية العملاء للمنشأة) أرجو ألا تجد في كلامي تعقيدا آخر غير المحاسبة 😁

اسف علي هذا الخطأ الغير مقصود ما فهمت مرادك جيدا بالمرة الأولي جرب الآن هذا التعديل ووافنا بالنتائج قاعدة بيانات.rar

بعض الناس يريدون عدم العبث في ملف فيحول الوورد إلى بي دي إف والبعض الآخر يريدون التعديل على الملف فيحول البي دي إف إلى وورد

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

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

غير معادلة استعلام الى FileName(id, Worker) Photo.rar

تم التعديل على الماكرو كما تريد Option Explicit Sub tranfere_data() Dim S As Worksheet, T As Worksheet Dim RGG5S As Range, RGB11S As Range, RGAS As Range Dim r%, x1%, x2% Set S = Sheets("SOURCE_SH"): Set T = Sheets("TARGET_SH") Set RGG5S = S.Range("G5").Resize(5) Set RGB11S = S.Range("B11").Resize(4) With T .Range("G6").Resize(5).ClearContents .Range("B12").Resize(4).ClearContents .Range("a18").Resize(18, 7).ClearContents .Rows.Hidden = False End With x1 = Application.CountA(RGG5S) x2 = Application.CountA(RGB11S) If x1 + x2 <> 9 Then MsgBox "Insufficient data in SOURCE_SH" & Chr(10) & _ RGG5S.Address & Chr(10) & "OR" & Chr(10) & _ RGB11S.Address Exit Sub End If Set RGAS = S.Range("A21").CurrentRegion.Columns(1) r = Application.CountA(RGAS) If r = 1 Then MsgBox "No data in SOURCE_SH to transfere" Exit Sub End If Set RGAS = S.Range("a22").Resize(r - 1, 7) With T .Range("G6").Resize(5).Value = RGG5S.Value .Range("B12").Resize(4).Value = RGB11S.Value .Range("A18").Resize(RGAS.Rows.Count, RGAS.Columns.Count).Value = RGAS.Value .Range("A18:A35").SpecialCells(4).EntireRow.Hidden = True End With End Sub

تفضل أخي محمد انظر تغير وحدة نمطية و حدث في الحالي لنموذج Photo.rar

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

وعليكم السلام-اهلا بك فى المنتدى , يمكنك استخدام هذه المعادلة =IF(SUM(C5:D5)-SUM(1450,M5,O5,P5,S5,T5,U5,V5,W5,X5,Y5,Z5,AA5,AB5,AC5,AD5,AE5)<5000,7.5*(SUM(C5:D5)-SUM(1450,M5,O5,P5,S5,T5,U5,V5,W5,X5,Y5,Z5,AA5,AB5,AC5,AD5,AE5))/1000,8*(SUM(C5:D5)-SUM(1450,M5,O5,P5,S5,T5,U5,V5,W5,X5,Y5,Z5,AA5,AB5,AC5,AD5,AE5))/1000) 1مرتب.xlsx

السلام عليكم بعد اذن استاذنا أحمد الفلاحجى يمكن وضع الكود التالي في حدث عند التركيز بصيغة الالوان التالية Me.text1.BackColor = vbGreen Me.text1.ForeColor = vbRed standard colors : Application VBA / Excel / Access / Word ----------------------------------------------------------- vbBlack vbRed vbGreen vbYellow vbBlue vbMagenta vbCyan vbWhite تحياتي

السلام عليكم انظر للملف المرفق اتمنى ان يكون المطليوب تحياتي pdf.rar

عليك السلام ورحمة الله وبركاته جرب هذا لعله يفي الغرض حسابات.xlsx

عليك السلام ورحمة الله وبركاته جرب هذا فرز محدد.xlsb

جزانا الله و إياكم أخي أحمد إن شاء الله هل جربت البرنامج و ما هي النتائج؟

تفضل ورقة عمل Microsoft Excel جديد --.xlsx

وعليكم السلام ضع فى حدث عند التغيير الكود التالى السطر الاول لتغيير الخلفيه السطر الثانى لجعل لون الكتابه ابيض وظاهر فالكتابه Me.TXT.BackColor = RGB(255, 0, 0) Me.TXT.ForeColor = RGB(255, 255, 255) وللمساعده فاختيار اللون https://www.w3schools.com/colors/colors_rgb.asp تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

اريد نسخه من البرنامج

ادخل على الكود وعدل اسم الملف والبارتشن المراد عمل التصدير اليه اصنع ملفجديد على الباتشن f باسم tttt أو غير هنا باللون الأحمر 😕Set dbs = ws.CreateDatabase("f\tttt\Schl_" & i & ".mdb", dbLangArabic) DoCmd.CopyObject "f😕tttt\Schl_" & i & ".mdb", "School", acTable, "School" SlicingDB.rar

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

الاخ emam1424 شاهد المرفقات Test_1.rar

بل أرجو أن تفتح مشاركة جديدة تبحث فيها الأفكار المحاسبية وتطبيقاتها على قواعد بيانات أكسس 🤔

السلام عليكم ورحمة الله استخدم الكود التالى بعد وضعه فى حدث ThisWorkBook دبل كليك على الخلية A1 فى كل مرة Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If Target.Address <> "$A$1" Then Exit Sub On Error GoTo 1: For i = 1 To Sheets.Count If ActiveSheet.CodeName = Sheets(i).CodeName Then Sheets(i + 1).Activate Exit For End If Next 1: Exit Sub End Sub

اخي مهند لا شيء مستحيل مع برنامج اكسل هذه المعادلة في C5 واسحب نزولاً (يمكن تغير الرقم 7 الى ما تريد والنقطة الى ما تريد ايضاً مثلا * داخل الدالة REPT) =REPT(".",7)&VLOOKUP($I$1,ورقة1!$B$6:$E$27,ROWS($C$5:C5)+1,0)&REPT(".",7) الملف مرفق New_Book.xlsx

يمكن ان ينال اعجابكم هذا الملف ايضاً ممكن توسيع نطاق الاسماء (العمودين C و D ) والعلامات حتى 250 اسماً ,ولك حرية اختيار عدد الطلاب الأوائل من الخلية L2 Order_by_notes.xlsm

جرب هذا الملف order_up_to_1000.xlsm

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

بسم الله الرحمن الرحيم احبابي في الله ادعو الله ان تكونو بخير يارب هذا ملف به كود ممتاز يصلح لرجال التربيه والتعليم وخاصه رجال الكنترول شيت رائع وبه كود الحاله ( ناجح او له دور تان ) ما اسهله وما اروعه ===== Sub استخراج_حالة_الطالب() 'تم هذا الكود بواسطه المحترم ياسر العربي 'فائده هذا الكود هو استخراج حاله الطالب من 'ناجح او دور تان وكذلك استخراج مواد الدور لتاني 'تم في 28/8/2016 'حسب معطيات المحترم ابو احمد محمدي عبد السميع Dim ARR Dim ARRY Dim ARRYS '___________________________________________ Dim R As Long Dim X As Long Dim XX As Byte Dim ALL_LESS As String Dim Main As Worksheet Dim Info As Worksheet Set Main = Sheets("رصد الترم الثانى") Set Info = Sheets("بيانات المدرسة") '___________________________________________ Const STATUS As Byte = 133 'عمود الحالة ناجح او دور ثان Const NOTES As Byte = 134 ' عمود الملاحظات عمود المواد او منقول للصف ا لاخر Const GENDER As Byte = 141 ' عمود الجنس ذكر او أنثى Const TOTAL As Byte = 98 Const LESS_ROW As Byte = 6 'صف الدرجة الصغرى Const NAM_ROW As Byte = 2 'صف اسماء المواد Const NAME_FIRST As Byte = 6 ' (اول صف لاسماء الطلاب -1) Const Absent As Byte = 12 'عدد المواد لحساب الغياب Dim NAME_LAST As Long: NAME_LAST = Info.Range("B10").Value + NAME_FIRST ' عدد الطلاب '====== '_____________________________________________________ 'اعمدة اختبار الترم التاني 'رقم عمود المجموع يكتب هنا ARR = Array(10, 21, 32, 43, 135, 65, 72, 79, 86, 93, 105, 98) 'اعمدة الدرجة النهائية 'ايضارقم عمود المجموع يكتب هنا ARRY = Array(14, 25, 36, 47, 60, 68, 75, 82, 89, 96, 109, 98) 'اعمدة اسماء كل المواد 'ايضارقم عمود المجموع يكتب هنا ARRYS = Array(5, 16, 27, 38, 49, 63, 70, 77, 84, 91, 100, 98) '================= With Main 'اسم شيت البيانات Application.ScreenUpdating = False 'الغاء تحديث الشاشة Application.Calculation = xlManual ' ايقاف الحساب التلقائي For R = NAME_FIRST To NAME_LAST ' حلقة تكرارية تبدأ بأول اسم طالب الى اخر اسم For X = 0 To UBound(ARR) ' حلقة تكرارية تبدأ من الصفر الى اقصى مصفوفة اعمدة اختبار الفصل الدارسي الثاني On Error Resume Next '____________________________________________________ 'يتم حساب عدد ا لمواد المتغيب بها الطالب او درجتها صفر ويتم وضع عدد المواد في المتغير اكس اكس 'اذا وصل عدد المواد الى 11 اصبح الطالب متغيب If .Cells(R, ARRY(X)) = 0 Or .Cells(R, ARRY(X)) = "غ" Then XX = XX + 1 End If '___________________________________________________ If ARR(X) = TOTAL Then 'لايوجد اختلاف بين هذا الكود وبين الكود الموجود بالاسفل If .Cells(R, ARR(X)) < .Cells(LESS_ROW, ARR(X)) Then ALL_LESS = ALL_LESS & .Cells(NAM_ROW, ARRYS(X)) & " لنصف الدرجة " & " - ": GoTo 86 GoTo 86 Else GoTo 86 End If End If '____________________________________________________ 'هنا يتم مقارنة المواد بالدرجة الصغرى الخاصة الفصل الدارسي الثاني في اول الكود او اذا كانت غياب يتم اضافة اسم المادة من صف المواد الى المتغير 'ALL_LESS 'او مقارنة الدرجة النهائية لكل مادة بالدرجة الصغرى لها او اذا كانت غياب اذا تحقق الشرط فيتم اضافة المادة الى المتغير 'ALL_LESS '______________________________________________________ If .Cells(R, ARR(X)) < .Cells(LESS_ROW, ARR(X)) Or .Cells(R, ARR(X)) = "غ" Then ALL_LESS = ALL_LESS & .Cells(NAM_ROW, ARRYS(X)) & " لثلث الدرجة " & " - ": GoTo 86 End If If .Cells(R, ARRY(X)) < .Cells(LESS_ROW, ARRY(X)) Or .Cells(R, ARRY(X)) = "غ" Then ALL_LESS = ALL_LESS & .Cells(NAM_ROW, ARRYS(X)) & " - " End If '______________________________________________________ 86 Next X 'الذهاب الى المادة الاخرى لاعادة تطبيق الكود مرة اخرى حتى انتهاء جميع المواد 'اذا كان المتغير اكس اكس بيساوي عدد المواد اذن الطالب متغيب If XX = Absent Then ALL_LESS = "غياب ": XX = 0 '_____________________________________________________ 'هنا بعد اكتمال الكود يتم عمل شرط للمتغير 'ALL_LESS 'اذا كان المتغير فارغ اي لم يتم اضافة اي مواد به اذا الطالب ناجح If ALL_LESS = "" Then If .Cells(R, GENDER) = "ذكر" Then .Cells(R, STATUS) = "ناجح " 'اذا كان نوع الطالب ذكر يتم وضع ناجح If .Cells(R, GENDER) = "أنثى" Then .Cells(R, STATUS) = "ناجحة " 'اذا كانت أنثى يتم وضع ناجحه If .Cells(R, GENDER) = "ذكر" Then .Cells(R, NOTES) = "ومنقول " & Info.Range("B16") 'ويتم وضع في الملاحظات منقول الى ويتم جلب الصف من صفحة الانفو If .Cells(R, GENDER) = "أنثى" Then .Cells(R, NOTES) = "ومنقولة " & Info.Range("B16") 'مثل ماسبق 'اما اذا كان المتغير يحمل اي بيانات لمواد يصبح الطالب له دور ثان ElseIf ALL_LESS <> "" Then If .Cells(R, GENDER) = "ذكر" Then .Cells(R, STATUS) = "له دور ثان في" 'مثل ما سبق بخصوص النوع If .Cells(R, GENDER) = "أنثى" Then .Cells(R, STATUS) = "لها دور ثان في" ' .Cells(R, NOTES) = Left(ALL_LESS, Len(ALL_LESS) - 2) 'هنا يتم وضع قيمة المتغير اي المواد في خلية الملاحظات ALL_LESS = Empty 'تفريغ المتغير لاعادة تعبئة اسم طالب اخر End If '_____________________________________________________ Next R 'الذهاب الى الصف التالي حتى انتهاء عدد الطلاب End With Application.ScreenUpdating = True 'اعادة تحديث الشاشة Application.Calculation = xlAutomatic 'تشغيل الحساب التلقائي End Sub استخراج حالة الطالب ومواد الرسوب نسخه منقحه1.rar

السلام عليكم هذا هو الفديو الثانى فى شروح أكسيس و لا أدعى أن فى هذه الفديوهات أشياء جديدة على معظمكم لكنها شروح أرجو أن ينتفع بها عدد غير قليل من زوار المنتدى و كل إنسان له بداية ضعيفة ثم بالبحث و المران اكتسب المعلومات و الخبرة و قد كنا و نحن فى البدايات نبحث عن مثل تلك الشروح أرفق لكم ملف الأكسيس قيد الشرح و نتعرض للموضوعات التالية فى هذا الفديو خاصية القيمة الافتراضية و فوائدها استخدام الخاصية فى إدراج معرف الموظف تلقائيا استخدام خاصية وقف علامات الجدولة دالة iff dcount dmax و أشكر الأخ المراقب أبا خليل لتشجيعه وفقكم الله

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

هذه نسخة من البرنامج بصيغة mdb انشاء شريط قوائمmdb.rar العفو أخي الحبيب الله يحفظ و يرعاك

وعليكم السلام المشكلة كانت في اشياء قديمة انت كنت عاملها في البرنامج: . و . وتم حذفها ، وحُلّت المشكلة جعفر 453.Aziz.accdb.zip

وعليكم السلام استاذنا الجليل عبدالعزيز كانت عندك معادلة Dsum هنا: . فتم نسخها وتعديل المتغير [Name] الى نموذجك المطلوب فيه التغيير ، ولكن ولأنه حقل محسوب تتغير قيمته طول الوقت ، فإجعله غير مضمن ، ولا تحفظ قيمته في الجدول: . والنتيجة . جعفر 453.Aziz.accdb.zip

ربما يكون هذا الماكرو المطلوب Sub hide_rows() x = [d7] Rows("9:59").Hidden = True Rows("" & 9 & ":" & 9 + x-1 & "").Hidden = False End Sub

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

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

اذا كان حقل رقم الهاتف نص و ليس رقم فالمعادلة ناقصة - ينقصها اضافة ال " قبل و بعد القيمة و تكون الصيغة كالتالي : في حالة حقل الشرط رقمي DLookUp("[FieldName]","TableName","[FieldName] = " & [Forms]![MainFormName]![SubFormName]![FieldName]) فى حالة حقل الشرط نصي DLookUp("[FieldName]","TableName","[FieldName] = '" & [Forms]![MainFormName]![SubFormName]![FieldName] & "'") ايضا راجع هذا الموضوع شرح دوال أكسس - دوال تجميع المجال http://www.officena.net/ib/index.php?showtopic=152 و هنا توجد أمثلة عليها و كلها متشابهة فى التطبيق دوال الأكسس http://www.officena.net/ib/index.php?s=&act=SF&f=30