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

http://im40.gulfup.com/Ltirv.jpg هذا الكتاب يعد اول كتاب باللغه العربية لتعلم لغه ال VBA http://im35.gulfup.com/saxzs.png يتناول الكتاب ما يلى:- ❑ تخزين المعلومات في المتغيرات والمصفوفات ❑ صنع القرار في التعليمات البرمجية ❑ الحلقات ❑ معالجة الأخطاء ❑ اليوزر فورم رابط التحميل http://www.mediafire.com/download/dj01xxwnczia62k/VBA+Excel.rar (هذا الكتاب يعد عمل مترجم ولا يعبر عن فكر شخصى إلا فى اجزاء منه)

السلام عليكم و رحمة الله و بركاته اخوانى و أحبابى فى أوفيسنا اليوم باذن الله تعالى أعرض عليكم تعليمة برمجية صغيرة من سطر واحد تمكنك هذه التعليمة من الضغط على أى شكل تلقائى بمعلومية اسمه . مثال : اذا كان لديك شكلا تلقائيا اسمه Picture 1 كيف تضغط عليه برمجيا لا يدويا يمكن تنفيذ ذلك من خلال هذه التعليمة : Sub clickonashape() Application.Run ActiveSheet.Shapes("Picture 1").OnAction End Sub ممارسة الضغط على الشكل Picture 1 لن تشعر به الا اذا ربطت هذا الشكل بكود معين يؤكد لك أنه تم ضغطه لنربط الشكل بالكود التالى مثلا : Sub xxx() MsgBox "Hi Officna" End Sub جرب تشغيل الكود الأول ستجد أن الكود الثانى اشتغل و ظهرت الرسالة ( Hi Officna ) تطبيق على الكود السابق : اضافة شكل تلقائى لتشغيل كود مباشرة دون ربطه يدويا فى الكود التالى تم استثمار التعليمة السابقة و لكن بشكل مختلف : يتم اضافة شكل تلقائي فى مكان محدد بالشيت و له بعض الخصائص : من ضمن هذه الخصائص : أن يكون الشكل مربوطا بكود موجود مسبقا Sub addshpjoinedwithcode() Dim shp As Shape ' اضافة الشكل فى المكان المحدد Set shp = ActiveSheet.Shapes.AddShape(msoShapeSmileyFace, Left:=ThisWorkbook.Application.Range("E5").Left + 10, Top:=ThisWorkbook.Application.Range("E5").Top + 2, Width:=100, Height:=100) ' اضافة بعض الخصائص للشكل المضاف With shp .Name = "SmileyFace" .Fill.ForeColor.RGB = RGB(255, 192, 0) ' لون الشكل .Line.ForeColor.RGB = RGB(0, 176, 240) ' لون الخط .Adjustments.Item(1) = -2 ' الشكل يبدو عابسا .OnAction = "xxx" ' السطر الرئيسى : فى حالة ضغط الشكل يعمل الكود المحدد End With End Sub يعنى باختصار يلا يظهر الشكل تقدر تدوس عليه ليعمل الكود التالى : xxx Sub xxx() Application.ScreenUpdating = False With ActiveSheet.Shapes("SmileyFace") .Fill.ForeColor.RGB = RGB(146, 208, 80) ' لون الشكل الجديد .Line.ForeColor.RGB = RGB(192, 0, 0) ' لون الخط الجديد .Adjustments.Item(1) = 1 ' الشكل يبدو ضاحكا End With Application.ScreenUpdating = True MsgBox "Hi Officna" End Sub المرفقات : programmatically add shape , join it with specific code.rar programmatically click on a shape.rar أتمنى أن يكون الموضوع خفيفا و مفيدا لكم فى أكوادكم و برامجكم و السلام عليكم ورحمة الله وبركاته

الموضوع شكله ضاحكا واللي يعدي وميحطش اعجاب يبقي عابسا احلى لايك

أخي الغالي مختار صحيح بتغطس بس بتطلع لنا بجواهر ودرر يا أحلى غطاس .. تصدق إمبارح بس لسه عارف المعلومة دي بتاعة Application.Run .. لما شفت الموضوع عجبني توارد الأفكار لأني كنت بفكر أعمل موضوع مشابه ، بس طبعاً مكانش هيكون متميز زي موضوعك تقبل وافر تقديري واحترامي

تفضل أخى الفاضل =(HOUR(A1)*3600+MINUTE(A1)*60+SECOND(A1))/60 بفرض أن الوقت موضوع فى الخلية A1 برجاء أخى الانتباه بالنسبة لتكرار الموضوع حيث أن هذا الموضوع مكرر مرتين

عذرا أخى فقد نسيت هذه النقطة تفضل تجزئه3.rar

السلام عليكم ورحمة الله وبركاته بعد اذن أخى الحبيب ياسر خليل تفضل أخى جرب الكود التالى Sub ragab() Dim cl As Range, sh As Worksheet Dim ws As Worksheet '======================================= Set sh = Sheets("الرئيسيه") Set ws = Sheets("النموذج") '======================================= Application.ScreenUpdating = False ThisWorkbook.Unprotect "123" ws.Unprotect "123" '======================================= For Each cl In sh.Range("D4:R7") If Not IsEmpty(cl) Then x = Trim(cl) On Error Resume Next If Worksheets(x) Is Nothing Then Sheets.Add.Name = x Sheets(x).Move After:=Sheets(Sheets.Count) ws.Range("A1:k36").Copy With Sheets(x) .Select .Paste .Protect "123" End With End If End If Next '======================================= Application.CutCopyMode = False ThisWorkbook.Protect "123" ws.Protect "123" Sheets("الرئيسيه").Select Application.ScreenUpdating = False End Sub تجزئه2.rar

تمت اضافة السطر المحدد فى الصورة السابقة

ههههههههههه بس أحلى بطيخة حمرا ومرملة ودمها خفيف

عوداً حميداً أيها الزعيم والمعلم الكبير رجب والله لكم أسعد بوجودك فيما بيننا .. جهز البطة عشان نازل قريب على آخر الأسبوع

تفضل أخى الفاضل جرب هذه الفكرة اكرم.rar

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

وبعد اذن اخى الكريم واستاذى / سليم حاصبيا واثراء للموضوع اليكم رابط وهو للأستاذ الكبير / حسام

اذهب الى العنوان حيث لي مشاركة بهذا الموضوع http://www.officena.net/ib/topic/66471-%D9%82%D8%A7%D8%A6%D9%85%D8%A9-%D9%85%D9%86%D8%B3%D8%AF%D9%84%D8%A9-%D9%85%D8%B7%D8%A7%D8%B7%D9%8A%D8%A9-%D9%85%D9%86-%D8%B5%D9%81%D8%AD%D8%A9-%D8%A7%D8%AE%D8%B1%D9%89/#comment-433091

السّلام عليكم و رحمة الله و بركاته الأخ الكريم " خيثر يعقوب " بالنسبة لحفظ عنوان المنتدى الحبيب و الدخول له عبر بوّابة الاكسل ..تفضل هذا كنت وضعته هنا منذ مدّة الفورم ربّما تجد به مبتغاك .. أمّا اسم المستخدم و كلمة المرور إبحث كذلك أخي الفاضل و بإذن الله ستجد الكثير من المثلة التي طرحها الإخوة الأعزّاء .. أمّا بالنسبة لعنوانك " عمالقة الاكسل " ثقْ تمامًا أخي العزيز أني أجبتك بخبرة قَزم صغير أمام خبرة الأساتذة الأكارم فائق إحتراماتي الهايبر لينك عبر اليوزرفورم.rar

السلام عليكم ورحمة الله وبركاته كيف حالكم إخواني الكرام في المنتدى الأغر ... هل ....؟ سؤال موجه لكم وليس لي هل .....؟ والإجابة على السؤال بهل إما بـ "نعم" أو بـ "لا" هل قمت يوماً ما بتحميل مصحف كامل لأحد القراء المحببين إليك؟ إذا كانت الإجابة بنعم انتقل للسؤال الثاني وإذا كانت الإجابة بـ "لا" .. مش عيب عليك تحمل أفلام ومسلسلات وألعاب وناسي كتاب الله السؤال الثاني : هل بعد عملية التحميل وجدت أن المجلد الذي يحتوي على السور مرقمة من 001 و 002 إلى 114 بدون أسماء السور؟ إذا كانت الإجابة بـ "نعم" فإليك الحل السحري مع الإكسل .. الحل هو دمج أسماء السور مع الاحتفاظ بالرقم أيضاً من أجل ترتيب السور ، لتصبح في النهاية بهذا الشكل 001 - الفاتحة ، 002 - البقرة وهكذا!! خطوات العمل : ************** قم بنسخ المصنف الذي سأقوم بإرفاقه في نفس مسار المجلد الذي يحتوي على السور القرآنية .. افتح المصنف .. اضغط زر الأمر .. وشكراً لكم على حسن تعاونكم معنا أترككم مع الملف :fff: Rename Quran Files.rar

السلام عليكم ورحمة الله وبركاته نيابة عن منتدانا الكريم أتقدم بخالص التهاني والتبريكات للإخوة الكرام للترقية.. وهم: عبدالله قدور إلى عضو محترف أبو محمد إلى عضو خبير سعيد صواب إلى عضو محترف داعين المولى عز وجل إلى مزيداً من التقدم وإلى أعلى الدرجات العليا ولكل الإخوة الكرام

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

السلام عليكم اذا عندك مجموعة استعلامات ، تحديث/الحاق/حذف ، وكل استعلام يعتمد على نتيجة الاستعلام الذي قبله ، فاليك ما فهمته من الكثير من المواقع على الانترنت: 1. إما ان تستخدم كود VBA بواسطة وحدة نمطية كما قال الاستاذ علي ، هكذا: . 2. واما اذا اردت ان تستعمل الماكرو ، فهناك شئ جدا مهم يجب ان تعرفه ، وهو ان الماكرو سينفّذ جميع الاوامر / الاستعلامات دفعة واحدة ، ولن يطبقها بالتسلسل الذي تريد ، بحيث ان الاستعلامات الاخرى ستبدأ بالعمل قبل ان ينتهي عمل الاستعلام الذي قبله (وخصوصا اذا كان الاستعلام بطيئا) فاذا اردت استعمال الماكرو لهذا الامر ، فالطريقة الصحيحة هي ان تغلق كل استعلام قبل البدء بإستعمال الاستعلام الذي يليه ، هكذا: SetWarnings (No) OpenQuery (Query,"اسم الاستعلام رقم 1", DataSheet, Edit) CloseWindow (Query,"اسم الاستعلام رقم 1", No) OpenQuery (Query,"اسم الاستعلام رقم 2", DataSheet, Edit) CloseWindow (Query,"اسم الاستعلام رقم 2", No) OpenQuery (Query,"اسم الاستعلام رقم 3", DataSheet, Edit) CloseWindow (Query,"اسم الاستعلام رقم 3", No) OpenQuery (Query,"اسم الاستعلام رقم 4", DataSheet, Edit) CloseWindow (Query,"اسم الاستعلام رقم 4", No) SetWarnings (Yes) جعفر

يشرفنى زيارتك الكريمة أخى الحبيب وفى انتظارك ان شاء الله

أخي الغالي رجب دا عشمي فيك والله .. إن شاء الله ناوي أزورك مش عشان البط ..يكفيني كوباية عثير وثاندوتث كبده .. أنا قنوع ومش عايز أتقل عليك

أخى الحبيب / ياسر ليست بطة واحدة ولا اثنتان بل ثلاث بطات وأكثر أنت تؤمر وتنور بلشاى كلها

أخى الحبيب / ياسر ( فاكهة المنتدى ) ربنا يبارك فيك ويديم المودة

أخي الكريم أحمد لقد سبقني المعلم الكبير رجب بالحل .. ولكن بالفعل أن كنت مجهز حل من بدري لكن كان ينقصني فقط كلمة السر لإضافتها للكود .. عموماً الحل قريب جداً من الحل المقدم من أخونا الغالي رجب ..فقط اختلاف بسيط ، وإليك الكود إثراءً للموضوع لا أكثر Sub CreateSheets() Dim Cel As Range, strCel As String Application.ScreenUpdating = False ThisWorkbook.Unprotect 123 Sheet2.Unprotect 123 For Each Cel In Sheet1.Range("D4:R" & Sheet1.Cells(Rows.Count, 4).End(xlUp).Row) strCel = Trim(Cel.Value) If strCel <> "" Then If Not Evaluate("ISREF('" & strCel & "'!A1)") Then Sheet2.Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = strCel Cel.Hyperlinks.Add Cel, "", , "Screen_Tip", strCel Cel.Hyperlinks(1).SubAddress = "'" & strCel & "'" & "!A1" ActiveSheet.Protect 123 End If End If Next Cel ThisWorkbook.Protect 123 Sheet2.Protect 123 Application.ScreenUpdating = True MsgBox "Done ...", 64 End Sub تقبل تحياتي Create Sheets By Cells In Range & Add Hyperlinks YasserKhalil.rar

حياك الله أخوي رضا الله شاكر لك سؤالك عني ، هذا من طيبك واحسانك جعفر

وجزاك الله كل خير أخى أحمد الحمد لله أن تم المطلوب

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

اليك الملف مع المعادلة المطلوبة تقييم الموظفين salim.rar

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

أخى الكريم يمكنك استخدام داله IF الشرطيه واليكم بالمرفقات الملف بعد وضع الداله تقييم الموظفين1.rar

احد الشباب استهزأ بعامل النظافة فقال له: يا مدير بكم كيلو الزباله عندك ؟ فرد عليه العامل : انت ذوقها وما راح نختلف على السعر فن من فنون الرد أسلوب السخرية رخيص لا يستخدمه إلا من فقد قيمة ذاته وأيضا : دكتور جامعة ، دخل على قاعة غلط قال له الطلاب يا دكتور انت في القاعة الثانية قال آسف: إن البقر تشابه علينا رد عليه أحد الطلاب : كذلك كنتم من قبل فمّن آلله عليكم فنون آلرد . من اجمل ما قرأت سألوا رجلا أيهما أجمل أمك أم القمر !!!! قال : إذا رأيت أمي نسيت القمر ... وإذا رأيت القمر تذكرت أمي ... في قمة الروعة كن في حياة الآخرين كحبات السّكّر حتى و إن اختفيت تركت طعماً حلوا..... في مستشفى سقط حجاب فتاة وظهر عدم وجود شعر فضحك الكل عليها وشمتوا فيها وعندما ساعدها شاب قالت: وهي تبكي وترجف: ما ذنبي إذا السرطان اخذ شعري -احذروا الوقاحة- "طفل مستواه ضعيف في المدرسة" ذهب لقبر أمه وقال تعالي معي المدرس يضربني امام الطلاب ويقول أمك مهملة ولا تهتم بك! کن حذرا فبعض الكلام يقتل !! . ليست الأمراض في الأجساد فقط بل في الأخلاق .. لذا إذا رأيت سيء الخلق فإدع له بالشفاء و احمد الله الذي عافاك مما ابتلاه فنحن مخلوقون من "نطفة " وأصلنا من "طينة " وأرقى ثيابنا من "دودة" وأشهى طعامنا من "نحلة" ومرقدنا تحت الأرض "حفرة" . سبب المشاكل وقطع العلاقات وشحن النفوس هو نقل الكلام فكونوا صُم، بُكم، عُمي فكلنا إليه راجعون . عجيب من يجد لنفسه عذرا في كل شيء ولا يعذر الناس في اي شيء ! . أجمل سرقة هي : سرقة القلوب بطيب الأخلاق. الفراشة رغم جمالها: حشرة !! و الصبار رغم قسوته: زهرة !! فلا تحكم على الناس من أشكالهم بل احكم عليهم بما تحتويه قلوبهم .. . كن من تكون : فاليوم تمشي وغداً مدفون اهتمامنا شديد جداً بمسمياتنا في الدنيا امير بروفيسور، دكتور، مهندس، معلم. لكن ..! ماذا أعددنا لمسمياتنا في الآخرة؟ الصائمون، القائمون، القانتون، المتصدقون، الراكعون، الذاكرون. فعلا سؤال يستحق التأمل .. . اكثروا من التفكير في قوله تعالى : ياليتني قدمت لحياتي. لتعلموا أن الحياة الحقيقية ليست الآن . ثلاث أدعية لا تنسوها في سجودكم: اللهم إني اسألك حسن الخاتمة، اللهم ارزقني توبة نصوحة قبل الموت، اللهم يا مقلب القلوب ثبت قلبي على دينك. إذا نويت نشر هذا الكلام انو به خيرا لعل الله يفرج لك بها كربة من كرب الدنيا والآخرة و تذكر: افعل الخير مهما استصغرته'

بورك لك فى الموهوب وشكرت الواهب وبلغ أشده ورزقت بره

السلام عليكم جرب تلغي الوقت والـ On Timer و الـ interval والامور الاخرى المرتبطة فيه جعفر

في النموذج المطلوب اضغط على ترتيب الجدولة ورتبها على حسب التسلسل اللي انت عايزة

اخى الحبيب الغالى // ابو البراء احلى صباح عليك وعلى عيونك بارك الله فيك **** ورزقنا الله واياكم من حيث لانحتسب وجزاكم الله خيرا

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

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

اتفضل اخى ان شاء الله يكون ما تريد بالتوفيق مرتب.rar

أخي الحبيب سعيد بصراحة الكود الذي تريد التعديل عليه كود معقد بعض الشيء وبطيء كما قلت ولا أدري ما الداعي لهذا التعقيد .. حاولت تتبع أسطر الكود لأعرف ما هي المهمة التي يقوم بها (تعبتني وكان من الأفضل شرح المطلوب من الكود بدلاً من أن تعطيني كود وتقوله عدله ، فالتعديل في بعض الأحيان يكون أصعب من كتابة الكود نفسه خصوصاً إذا لم أكن من كتبت أسطر الكود) المهم قمت بعمل حيلة أعجبتني أنا شخصياً ..اعتمد على العمود C في ورقة الفواتير الصادرة وقمت بإخفاء الخلايا الفارغة والتي لا تريد ترحيلها ..وفي السطر التالي قمت بنسخ الخلايا الظاهرة فقط مما جعل الكود أسرع من كودك الأول بكثير ويؤدي الغرض أيضاً .. إليك الكود الجديد للطلب الثاني Sub TarhilModified() Dim Ws As Worksheet, Sh As Worksheet, LR As Long Set Ws = Sheet4: Set Sh = Sheet5 Application.ScreenUpdating = False Application.Calculation = xlManual LR = Sh.Cells(Rows.Count, "L").End(xlUp).Row + 1 With Ws .Range("C8:C" & .Cells(Rows.Count, "C").End(xlUp).Row + 1).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True .Range("C8:C" & .Cells(Rows.Count, "C").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy Sh.Range("L" & LR).PasteSpecial xlPasteValues .Range("I8:J" & .Cells(Rows.Count, "C").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy Sh.Range("M" & LR).PasteSpecial xlPasteValues .Cells.EntireRow.Hidden = False Sh.Range("I" & LR).Resize(1, 3).Value = Array(Ws.Range("M4").Value, Ws.Range("M2").Value, Ws.Range("B4").Value) Sh.Activate End With Application.CutCopyMode = False Application.Calculation = xlAutomatic Application.ScreenUpdating = True End Sub تقبل تحياتي

الف مبروك للشباب والي الامام دائما والله الموفق والمستعان

الف مبروك .. تستاهلون اكثر شكرا لمشرفينا الأعزاء وشكرا لإدارة الموقع

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

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

وعليكم السلام ورحمة الله أهلا بك أخي.. أي رسالة أخي التي تظهر لك؟ وهل السجلات أنت الذي الموجودة تمت كتابتها بشكل عشوائي أم هذا نتيجة ما أشرت إليه عند تمريرك للنموذج؟؟ أرجو مزيد من التوضيح ليظهر سبب ما تقابله

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

يستاهلوا الشباب

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

جرب هذا الملف عندك خيارين:(بخط كبير) قائمة منسدلة مطاطة(لا تذكر المكرر الا مرة واحدة ولا تحتسب الفراغات) مربع بحث حسب الحروف( او الحرف الاول) google combo.rar

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

مشاركة مع اخواني اتوقع ان طريقة ارسال التقرير بالايميل افضل مع التالي: 1. يتيح لك الاكسس ان تعمل تقرير يومي به البيانات المحددة ! فمثلا بيانات مايخص صاحب البرنامج لاتكون في التقرير المرسل 2. يتيح لك الاكسس تحويل التقرير الى pdf وارسال بريد الكتروني مرفقا به الملف كلها ممكن في خطوة واحدة وبنقرة زر خصوصا وجود الوت لوك عندك يمكنك البحث في المنتدى فبه امثلة كثيرة حول ارسال التقرير بالايميل ! او ارفاق ملف للتطبيق عليه ! بالتوفيق