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

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

السلام عليكم جرب الكود التالي في حدث ورقة العمل Private Sub Worksheet_Activate() ActiveSheet.TextBox1.Activate End Sub

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

أخي ابو عائشه انت لما تكتب الكود ، فهذه النافذة تُسمى نافذة اكواد VBA ، ويمكنك ان تبحث عن اي امر تريده مساعدة فيه ، بطريقتين (لإصدارات الاكسس 2000 الى 2010) : في هذه النافذة حقل في اعلى اليمين تكتب الامر اللي تريد تبحث عنه ، فتخرج لك نافذة فيها معلومات عن الكلمة التي تبحث عنها ، او تكتب اي امر في نافذة الاكواد ، مثلا: msgbox وتضع مؤشر الكتابة على اي جزء من الكلمة ، ثم تضغط على الزر F1 ، فتأتيك النافذة كما في الرقم 1 اعلاه ، بمعلومات عن msgbox. من الرقم ا او 2 ، سترى جميع الاوامر الخاصة بالامر msgbox الآن بالنسبة الى الامر msgbox ، فهناك اوامر تنبيه ، والتي تصدر صوت تنبيه كذلك ، وكل أمر له الشكل/الايقونة الخاص به (وهذا كان سؤال موضوعك)، مثلا: MsgBox "تجربة بصوت", vbYesNo + vbCritical او MsgBox "تجربة بصوت", vbYesNo + vbExclamation او MsgBox "تجربة بصوت", vbYesNo + vbInformation ولتكملة الموضوع ، فان الصوت يأتي من اصوات الوندوز ، ويمكنك ان تغيره من هنا (فالسهم يؤشر على صوت Critical ، والذي تناديه من الكود اعلاه بـ vbCritical): . وطبعا تستطيع استعمال أمر Beep كما قال عنه أخي شفان ، في اي مكان من البرنامج جعفر

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

السلام عليكم و رحمة الله تعالى وبركاته إخوتي الكرام حياكم الله. بعد نزع خاصية انشاء شريط القوائم بالأكسس في النسخ بعد 2003 أصبح هناك عائق كبير في إضافة هذه الأشرطة و لأنه يتوجب عليك العمل على ملف 2003 أو استعمال Ribbon بلغة Html و هي أصعب من الفكرة الأولى. مما جعلني أفكر في طريقة تجعلنا نستغني عن هذه الطرق المرهقة بعض الشيء. و قمت بتصميم برنامج يستطيع أن يضيف شريط قوائم للنموذج الرئيسي لقاعدة البيانات مهما كانت نسختها 2003 أو النسخ التي تأتي بعدها. نبدأ على بركة الله في شرح البرنامج: بعد فتح البرنامج نتبع الخطوات التالية: 1 - أكتب اسم القوائم التي تريد أن تضيفها مع وضع رقم كل قائمة بالترتيب (1,2,3,....و هكذا) 2- أضف العناصر أو الأوامر التي تندرج تحت كل قائمة في النموذج الفرعي رقم العنصر , تسمية العنصر ثم الكود الذي تريد أن ينفذه هذا العنصر 3- أختر قاعدة البيانات سواءا كانت 2003 أو ما بعدها ثم اختر اسم النموذج الذي تريد أن تضيف له الشريط 4- قم بالضغط على زر "إنشاء الشريط" 5- افتح قاعدة بياناتك و أنظر للشريط المضاف حتى لو كان النموذج منبثق و شاشة الأكسس مخفية سوف ترى الشريط شروط استخدام البرنامج: 1- قبل البدئ أحفظ نسخة إحتياطية من قاعدة بيانات 2- يجب أن لا يكون لديك في قاعدة بيانات نماذج بهذه الأسماء : list1,list2,list3..... و هكذا 3- يجب أن يكون حدث عن النقر للنموذج الرئيسي خال من أي كود 4-بعد الإنتهاء أدعولي و لوالدي و لعائلة بالخير و الصلاح. هذا هو البرنامج انشاء شريط قوائم.rar

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

السلام عليكم و رحمة الله تعالى و بركاته إخوتي الكرام حياكم الله أقدم لكم برنامج إستخراج أسماء الملفات و المجلدات الفرعية داخل مجلد دور البرنامج : استخراج اسماء الملفات الفرعية داخل مجلد و فتح الملف عند النقر مرتين على اسمه. شرح البرنامج: 1 - اختر النوع الذي تريد إظهاره المجلدات فقط أم المجلدات و الملفات معا 2- اختر المجلد الذي تريد استعراض ملفاته. 3- اضغط على الزر استخراج الملفات لظهور أسماء الملفات داخل مربع النص. 4- عند الضغط المزدوج على اسم الملف أو المجلد يقوم البرنامج بفتحه. أدعوا لي و لوالدي بالتسهيل في قرعة الحج إن شاء الله هذا هو البرنامج استخراج اسماء الملفات الفرعية لمجلد.rar

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

ظهرت عندي مصغرة عند الساعة .. نظام تشغيلي ويندوز 8 64bit مع اوفيس 2007 عربي .. وتمت التجربة بنجاح ايضاً على ويندوز 7 32bit مع اوفيس 2003 انجليزي

لدى نموذج لسداد مصاريف الطلاب اريد بمجرد كتابة كود الطالب يظهر اسم الطالب

اخي الكريم ما الفائدة من اخفاء الكومبوبوكس ؟؟؟ (طبعا هذا هو سبب رسالة الخطا ) اما بالنسبة الى فتح النموذج الثاني عند النقر على الاسم استخدم هذا الكود DoCmd.OpenForm "frm-general", , , "[surname]'=" & Me.SurName & "'"

تفضلي تم تعديل استعلامات نماذج "مواعيدك" الاربعة جعفر 630.ننظام متابعة مواعيد مرضى السكر.accdb.zip

تفضل اخي الفاضل https://drive.google.com/file/d/0B5oTVOnhU-rrOFhDOHFxN2c2T1k/view?usp=sharing

اخي سلمان اليلام عليكمورحمة الله وبركاته انااعتذر منك بشدة بعد الانتظار لمدة اكثر من واحد وعشرين ساعة ما وصلت للنتيجة المطلوبة

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

ما تريد اخي ابو عبدالله ما فهمت شيء من قاعدة بيانات المشاركتك الماضية هل تريد شي اخوك شفان ريكاني

اتفضل اليك هذا لحقل شهر 1 اعمله لكل الحقول اولا انا غيرت اسم المربع لشهر 1 من "01" الى "sh01" واستخدمت هذا الكود عند الفتح النموذج Private Sub Form_Open(Cancel As Integer) If DCount("[شهور]", "[qr1]", "[شهور]=" & "01") < 1 Then Me.sh01.ControlSource = "" Else Me.sh01.ControlSource = "01" End If End Sub اليك قاعدة بياناتك بعد اضافة الكود الاعلاه rr2.rar

اعتقد ان الجزئية الثانية ممكن تطبق عن طريق الحلقة Do Until Condition --- Loop لكن امكانياتى لا تسمح بتطبيقها اما التصغير بجوار الساعة تم تطبيقها بالفعل ولكن لا تعمل بالشكل الصحيح وكلها اخطاء تشرفت بمرورك

فى حال كان التقرير بالعرض نغير مقاس ارتفاع الورقة إلى 21 و هو عرض ورقة a4 هذا للفائدة

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

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

وعليكم السلام جرب الكود التالي ..ضع ما تريد من أكواد مكان سطر التعليق في الكود Sub LoopThroughClosedWBs() Dim wbk As Workbook Dim folderPath As String Dim fileName As String Dim founter As Double folderPath = ThisWorkbook.Path & "\" fileName = Dir(folderPath & "*.xl*") Application.ScreenUpdating = False Application.Calculation = xlManual Do While fileName <> "" If fileName <> ThisWorkbook.Name Then Set wbk = Workbooks.Open(folderPath & fileName) With wbk.Sheets("Sheet1") 'Your Stuff End With wbk.Close SaveChanges:=True End If fileName = Dir() Loop Application.Calculation = xlAutomatic Application.ScreenUpdating = True MsgBox "Finished ...", 64 End Sub

أخى أبو عبد الله هل الإجابة على سؤالى فيه حرج لكم؟ السؤال بعيد عن الأكسيس تماما ما المقصود بحد الرسوب و حد النجاح فى نظامكم التعليميى وفقكم الله

أخي عبد الفتاح أشكرك على عودتك و اهتمامك مرة اخرى انظر المرفق لايوجد فيه جمع لأي من الحدود ولكن الجمع يكون للدرجات في النموذج الفرعي واظهاره في نموذج الرئيسي لكل طالب الجمع فقط للدرجات مع كل احترامي وتقديري بانتظارك 623.stu new.rar

السلام عليكم ....... 1- العمل بصفة شهرية 2 - الموردين ثابتين . 3- لكل مورد حساب جاري .

السلام عليكم ورحمة الله استبدل هذا السطر : If c > 1 And ws.Range("BH" & LS) <> "" Then بهذا السطر : If c > 1 And ws.Range("BH" & LS) <> "" And ws.Range("BI" & LS) = sm.Range("F1") Then

وعليكم السلام رجاء الانتباه الى ترتيب اجاباتي ، فهي غير ترتيب اسئلتك 2. في جدول المواعيد ، اضيفي حقل بإسم Appointment_Cancelled (تم الغاء الموعد) ، ويكون الحقل بصيغة نعم/لا ، وقيمته الافتراضية 0 (صفر ، اي لا) ، وفي الاستعلام الذي هو مصدر بيانات النموذج الفرعي ، اعملي هذا المعيار للحقل (لا يساوي ناقص واحد ، لأن ناقص واحد "علامة الصح" معناها انه تم إلغاء الموعد) : <>-1 وسترين هذا الحقل الجديد في النموذج الفرعي ، ويمكنك النقر عليه لإلغاء موعد ذلك اليوم ، علامة الصح يعني تم الغاء الموعد ، ويجب ان لا يظهر في المواعيد في هذا الاستعلام ، لذلك يجب ان تضعي الكود التالي على حدث النقر على هذا الحقل: docmd.runcommand accmdsaverecord me.requery وعندها سيختفي هذا الموعد من القائمة. 1. كما قال الاخ اكرم ، في الاستعلام الذي هو مصدر بيانات النموذج الفرعي ، اعملي هذا المعيار لحقل التاريخ: >Date() 4. رجاء قراءة الرابط التالي ، ابتداء من "ومصدر بيانات النموذج الفرعي اصبح:" ، وقراءة المعلومة بين الخطين الاحمرين ، فهي ما طلبتيه: 3. اعملي نفس الطريقة للنموذج اعلاه جعفر

الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات تقبل تحياتي

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

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

حسب فهمي فقط راح تربط يو اس بي القارئ الباركود بالجهاز وراح تستخدمه بشكل اعتيادي

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

السلام عليكم لقد أضفت جميع أنواع وسيطات الرسائل هنا في هذا الدرس:

السلام عليكم أصل هذا الموضوع هنا أحببت أن أفرد الرد فى موضوع مستقل لنستفيد جميعا إن شاء الله و هو يختص بكيفية المحافظة على الترتيب داخل جدول حسب حقل المعرف فى حال حذف أحد السجلات و هذا هو الكود المستخدم Option Compare Database Private Sub Form_Current() If Me.NewRecord Then Dim MySQL As String, MyDB As DAO.Database, rst1 As DAO.Recordset Dim rst2 As DAO.Recordset MySQL = "Select [DashNum] From tblTest Order By DashNum;" Set MyDB = CurrentDb() Set rst1 = MyDB.OpenRecordset(MySQL, dbOpenSnapshot) Set rst2 = rst1.Clone rst1.MoveFirst: rst2.Move 1 'move to the 2nd Record in rst2 Do While Not rst2.EOF 'If the difference between 2 consecutive Dash Numbers is not 1, since 'they are ordered, this would indicate a gap in sequence If rst2![dashnum] <> rst1![dashnum] + 1 Then Me.dashnum = rst1![dashnum] + 1 rst2.Close rst1.Close Set rst2 = Nothing Set rst1 = Nothing Exit Sub End If rst1.MoveNext rst2.MoveNext Loop rst2.Close rst1.Close Set rst2 = Nothing Set rst1 = Nothing End If End Sub المحافظة على الترتيب.rar

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

السلام عليكم موضوع بحثت عنه قديما و لم أتوصل لإجابة شافية - هذا إذا افترضنا أنه ممكن- معيار الاستعلام هل يمكن تخزينه فى جدول و نستدعيه بدالة dlookup لا أقصد قيمة المعيار بل أقصد صيغة المعيار مثلا: لو كان المعيار : >7 أو يشتمل على محددات مثل > < or and <> هل يمكن تخزين صيغة المعيار كاملة فى حقل بجدول و استدعاؤها بدالة البحث أو حتى تخزينها فى مربع تحرير و سرد أفيدونا فى هذا الموضوع أفادكم الله

والله كنت أجهزة قبل أن تسأل أستاذى العزيز اتفضل جاااااااهز لعيونك استاذ عبد الفتاح.rar اللى راح يظهر فى الاستعلام لازم يكون = true من الجدول تمام

اتفضل اخي محمد استخدمت هذا الكود Dim i As Integer Dim sCount As Integer sCount = DateDiff("d", Me.StartDate, Me.enddate) DoCmd.GoToRecord , , acNewRec For i = 0 To sCount Me.XDate = DateAdd("d", i, Me.StartDate) Me.IdMonth = Format(Me.XDate, "mm") DoCmd.GoToRecord , , acNext Next DoCmd.Requery db11.rar

السلام عليكم بعد العديد من المحاولات أخي محمد توصلت إلى كود يقوم بتصدير الباركود كما هو: Dim objWord As Object Dim oDoc As Object Dim i As Integer Dim j As Integer Dim sTemp As String DoCmd.OpenReport "report1", acViewPreview, , , acHidden Set objWord = CreateObject("word.application") Set oDoc = objWord.Documents.Add With objWord .Visible = True .selection.Font.Name = "MW6 Matrix" .selection.Font.Size = 22 .selection.ParagraphFormat.LineSpacing = 11 .selection.ParagraphFormat.SpaceAfter = 0 .selection.ParagraphFormat.SpaceBefore = 0 .selection.InsertAfter Reports![Report1]![Text0] End With oDoc.SaveAs2 CurrentProject.Path & "\ss123.docx" objWord.Quit DoCmd.Close acReport, "report1" Set objWord = Nothing Set oDoc = Nothing Desktop10.rar

هل تريد العمل على الملف شهرى ام سنوى ؟ هل الموردين اسامى ثابتى ام متغيرة باستمرار هل لكل مورد حساب جارى ؟ ( يعنى بتسحب منه مهمات وتقفلها فى اخر الشهر فى فاتورة ) ولا حسابات الموردين نقدية ( الدفع عند استلام المهمات ) ؟ برجاء التوضيح

السلام عليكم أخي تفضل هذه هي الأكواد التي تحتاجها: 1- بالنسبة لحفظ المرفق بمكان معين في الكمبيوتر: Set db = CurrentDb Set rstable = db.OpenRecordset("tblFonts") Set rsfile = rstable.Fields("attach").Value rsfile.Fields("FileData").SaveToFile txtpath بحيث : txtpath هو مسار الحفظ و إذا أردنا فتح الملف بعد حفظه مباشرة نضيف هذا الكود: Application.FollowHyperlink txtpath & "\" & rsfile.Fields("Filename") 2- أما بالنسبة لفتح المرفق مباشرة فنستعمل هذا الكود: Dim db As DAO.Database Dim rsEmployees As DAO.Recordset Set db = CurrentDb Set rsEmployees = db.OpenRecordset("tblFonts") OpenFirstAttachmentAsTempFile rsEmployees, "attach" و نحفظ الكود التالي في وحدة نمطية جديدة: Public Function OpenFirstAttachmentAsTempFile(ByRef rstCurrent As DAO.Recordset, ByVal strFieldName As String) As String Dim rstChild As DAO.Recordset2 Dim fldAttach As DAO.Field2 Dim strFilePath As String Dim strTempDir As String strTempDir = Environ("Temp") ' Get the Temp directory from the environment variable. If Right(strTempDir, 1) <> "\" Then strTempDir = strTempDir & "\" ' Make sure the path always ends with a backslash. Set rstChild = rstCurrent.Fields(strFieldName).Value ' the .Value for a complex field returns the underlying recordset. strFilePath = strTempDir & rstChild.Fields("FileName").Value ' Append the name of the first (and only) attached file to temp dir. If Dir(strFilePath) <> "" Then ' the file already exists--delete it first. VBA.SetAttr strFilePath, vbNormal ' remove any file attributes (e.g. read-only) that would block the kill command. VBA.Kill strFilePath ' delete the file. End If Set fldAttach = rstChild.Fields("FileData") ' The binary data of the file. fldAttach.SaveToFile strFilePath rstChild.Close ' cleanup VBA.Shell "Explorer.exe " & Chr(34) & strFilePath & Chr(34), vbNormalFocus ' Use Windows Explorer to launch the file. End Function 'OpenFirstAttachmentAsTempFile و هذا ملفك بعد التعديل: fonts.rar

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

السلام عليكم هذه المرة مع ملف الشرح لأجل الأخ شيفان حمل ملف الشرح من هنا https://drive.google.com/file/d/0Bw4O...بهذا الملف جلب أسماء و مسارات الملفات لمجلد معين متضمنا المجلدات الفرعية لأعمق مستوى فتح موقع الملف – المجلد الموجود فيه-ز البحث فى أسماء الملفات و المجلدات فتح أى ملف من نفس الموضع داخل أكسيس تخزين أسماء الملفات فى جدول أكسيس يمكن تصديره و استخدامه كود استخلاص مسار المجلد من مسار الملف متضمنا شرحا لدالتى instr و instrrev و الفرق بينهما و كذلك شرح دالة left

السلام عليكم فيديو لشرح إضافة وظيفة فىvba

بسم الله الرحمن الرحميم الاحوة الكرام السلام عليكم ورحمة الله وبركاته عند الجمع التراكمي بدالة DSum اقوم بجمع كمية الشراء من جدول المشتريات بمعيار حقل المسلسل Id هكذا Total: Nz(DSum("Quantity";"Purchase";"[IdProduct]=" & [IdProduct] & "and [Id]<=" & [Id]);0) يكون الناتج صحيح وعند تنفيذ نفس الامر بمعيار التاريخ Xdate لا يعمل هكذا Total: Nz(DSum("Quantity";"Purchase";"[IdProduct]=" & [IdProduct] & "and [Xdate]<=" & [Xdate]);0) فهل يمكن حل المشكلة لاستيدالها بمعيار التاريخ Xdate ولكم وافر بتحية والسلام عليكم ورحمة الله وبركاته

هذا صحيح لأن اكسس ينتهي من العمل من تضبيط وحساب بيانات راس الصفحة قبل ان يذهب الى قسم التفاصيل (الذي به البيانات) ، ثم الى قسم ذيل الصفحة حيث يلقى مجاميع البيانات جاهزة للعرض جعفر

1. هكذا نسحب عدد المتغيّر المطلوب ، 2. جرب جعفر

سامحوني ان اشارك معكم اليك فونتات للباركود ما عليك الا ان تقوم بعمل نموذج و تقرير وفي مربع نصي للباركود تغير فونت المربع الى احد الفونتات مع رغبتك مع تقدير ALLBarcode_Font.rar

تم تعديل المرفق فقط باقى الرسائل الجماعية ان شاء الله قريبا مرفق المراسلة2.rar