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

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

الأستاذ / محمد مسافر السلام عليكم ورحمة الله وبركاته إليك الملف به المطلوب. حالة الموظفين.rar

..... شاهدوا المرفق أخوكم عماد الحسامي

اعمل أسطر .. بطريقة سريعة جدا أكتب في أول السطر ثلاث مرات أو أربع مرات ثم اضغط Enter بعدها مباشرة وبدون فراغ .. = أو * أو # أو - وانظر ماذا يحدث .. هذه الأسطر قد تحتاجها كثيرا وهي بين يديك .. اذا لم تستطيع عمل ذلك فقم بما يلي اختر قائمة (أدوات) (تصحيح تلقائي) اختر التبويب (تنسيق تلقائي أثناء الكتابة) ضع علامة صح أمام الخيارات (حدود) (جداول) وتجدها فوق على الجهة اليمنى. ثم طبق التجربة مرة أخرى .. وستتمتع بإذن الله بسهولة حركات برنامج Word وللفائدة أيضا أن كتابة الرمز ~ ثلاث مرات أو أكثر ثم Enter يعطي نفس الفكرة .. والرمز يقع في نفس زر الحرف ( ئـ ) + Shift باللغة العربية .. وبالإنجليزي الزر فوق الزر Tab طبعا مع ضغط الزر Shift

الصلاة والسلام علي رسول الله سيدنا محمد النبي الامي خاتم الانبياء اما بعد تعليم office 2010 كامل CD 8 من شركة pc lab الشهيره رابط مباشر + تورينت شرح برنامج الورد word 2010 شرح برنامج الاكسيل excel 2010 شرح برنامج بوربونت PowerPoint 2010 شرح برنامج اكسيس access 2010 هام قبل التحميل نتيجة فحص الروابط الارشيف من هنا نتيجة فحص الروابط التورنت من هنا التحميل بحجم 915 ميجا رابط مباشر ارشيف رابط مباشر مركز الخليج أفضل موقع رابط تورنت من اخبكم ومحبكم في الله خيالووو هام عند وجود هذه المشكله وهي عدم عرض الملفات الفيديو للتشغيل نتبع الاتي من start....run %temp% بارك الله في كل من له بصمه في هذا العمل

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

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

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

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

السلام عليكم ورحمة الله وبركاته بعد الحمد لله والصلاة والسلام على رسول الله وبعد احب ان اهدي هذا العمل _ وهو عملي الثالث _ لعمالقة منتدى اوفيسنا والذين طالما تعلمت منهم الكثير وبعتذر لعدم تخصيص الاهداء لاحد منهم وكلهم يستحقوا الذكر والثناء الجميل ولكن حتي لا انسى احد احب ان اجعل هذا الاهداء عام وباختصار هذا هو عملي الثالث بعد العمل الاول وهو شيت كنترول الصف الثاني الثانوي الصناعي انتظام [نجارة اساس... والعمل الثاني وهو [2]شيت كنترول الصف الثاني الثانوي الصناعي انتظام [حاسب أل... وهو خاص بشيت كنترول الصف الأول و الثاني الثانوي الصناعي انتظام جميع التخصصات لعام 2013/2014 [ 14 مادة تضاف للمجموع ] + [ 2 مادة لا تضاف للمجموع ] وبإذن الله سيتم عمل شيت خاص بالــــ 16و13 مادة قريباً اهم الاضافات والمميزات لهذا العمل 1 ) هذه اهم ميزة توصلت اليها ولله الحمد وهي شيت واحد لجميع التخصصات حيث اضفت صفحة بيانات التخصص هذه الصفحة سنكتب فيها اسم التخصص والمواد والدرجات وستنتقل البيانات الى جميع الشيت في اماكنها 2 ) هذا العمل خاص بالمرحلتين الاولى والثانية 3 )حاولت اصلاح جميع الاخطاء التى كانت موجودة في الاصدارات السابقة 4 ) حذف بعض الصفحات والتى لم يكن لها اهمية والان اترككم للتصفح وانا في انتظار ارائكم والسلام عليكم ورحمة الله وبركاته للعلم جميع المعلومات عن هذه المرحلة وما يخصها من درجات والقرارات الوزارية ماخوذة من الاستاذ //ahmed alimer فله الشكر وعند وجود اي أخطاء ارجو الابلاغ لتعديلها والسلام عليكم ورحمة الله وبركاته شيت النقل للصنايع_كل التخصصات 14 مادة تضاف للمجموع + 2 مادة لا تضاف للمجموع_.rar

السلام عليكم عباقره المنتدى واخوتى فى الله وجميع اعضاء المنتدى حين كنت بصدد عمل برنامج تحليل المصروفات كان لدى تقرير بأسم الحساب ولكنى ما وددت ان افعله بطريقتى التقليديه عمل عمود مساعد ثم الترحيل بمعادله INDEX كان امامى طريقان وعليا ان اسلك احداهما معادلات الصفيف كما اطلق عليها من قبل انها معقده ولكنى رأيتها غير ذلك ، ولكنى حين قمت بالتنفيذ وجدتها كذلك ولكن الحمد لله توصلت للنتائج المرجوه ،،،،،،،،،،، استفدت كثيرا من شرح الاستاذ كيماس ( عبد الفتاح كيره ) ولكن ملفه لم يعمل معى لم يأتى بنتائج ايضا كشف حساب الموهبه الفذه العملاق ( يحي حسين ) رائع جدا قمت بتطويره وتطويعه كى يتناسب مع متطلباتى و اصل الى هدفى اما الطريق الثانى هو الكود ارجأته قليلا ،،،،،،،، لحين ان يأتى دوره معى فأنا لا احب ان ( اقفز السلم ) ارجو من اى عضو قادر على الاتصال بملك المعالادت ان يخبره انى اريد ان اطمئن عليه وعلى صحته وانتظر رده فى موضوعى هذا ( برنامج تحليل المصروفات ) http://www.officena.net/ib/index.php?showtopic=52644 فى النهايه اتيت لكم بهذا المرفق الرائع حين جولتى فى بعض المنتديات الاجنبيه اترككم مع الملف !!!!!!!!!!! ارجو ان يحوز الملف على اعجابكم طبعا هو من اعمالى ههههههههههههههههه = {( طبعا انا كداب )} CtrlShiftEnterBookFinishedFile.rar

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

جزاك الله كل خير وتم تغيير الاسم وان شاء الله استفيد من المنتدى كتير :)

السلام عليكم ورحمة الله وبركاته بعد اذن استاذتنا الفاضلة أم عبدالله لاثراء الموضوع حل أخر ترقيم الصفوف_w.rar

الاستاذة الكريمة الأخت / أم عبدالله وعليك السلام ورحمة الله وبركاتة جزاك الله خيرا وجزاك الفردوس الأعلى من الجنة سامحينى لا أملك لك إلا هذه الدعوة ، لقول النبى صلى الله علية وسلم مَنْ صُنِعَ إِلَيْهِ مَعْرُوفٌ فَقَالَ لِفَاعِلِهِ جَزَاكَ اللَّهُ خَيْرًا فَقَدْ أَبْلَغَ فِي الثَّنَاءِ المعادلة ممتازة ، والحمد لله الذى بنعمته تتم الصالحات وأتقدم بمزيد من الشكر والتقدير أيضا للأستاذ الفاضل / وليد فتحى على تعبه ومجهودة معى وسعة صدرة لى وجزاه الله عنى خير الجزاء وجزى الله الموقع والقائمين علية خير الجزاء

وعليكم السلام ورحمة الله وبركاته الله الله الله الله الله ماشاء الله تبارك الله أختي وأستاذتي / أم عبدالله الملف هو المطلوب 100% وأكرر كلمتي ( أتفائل عندما اراى ردك ) اعرف ان الحل سيوجد بمشيئة الله أنا عاجز عن الشكر لسرعة ردك وتجاوبك نفعك الله بعلمك وحماك

الأستاذ / أبو زهراء ومعاذ السلام عليكم ورحمة الله وبركاته بعد إذن الأستاذ الفاضل / وليد فتحي جزاه الله خيراً على المجهود الكبير الرائع جزاه الله خيراً جعله الله في ميزان حسناته وزاده الله من علمه وفضله. إليك الملف لعله المطلوب غير التاريخ كما تريد وأخبرنا بالنتيجة. تم عمل تنسيق شرطي آخر. Overtime1_w.rar Overtime2_w.rar

الأستاذ /ahmd2505 السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب. ترقيم الصفوف.rar

السلام عليكم إستعمل هذه الدالة =COUNTIFS(B3:B16;"Normal")+COUNTIFS(B3:B16;"Half Annual Leave")+COUNTIFS(B3:B16;"Half Unpaid Leave")

السلام عليكم ورحمة الله وبركاته أخي الحبيب خالدوكوم هذا طلبك زر التالي والسابق تفضل المرفقات : Fkhezzani.rar

السلام عليكم ورحمة الله أخي الكريم، أعتقد أنه تم عمل المطلوب بالتعديل على الأكواد، تعديل على تنسيقات الورقة، إضافة نطاقات بالتسمية (Cellule ، Equipes)، إضافة كود خاص لعمل جدول المباريات حسب نتائج القرعة وجدول مساعد (مخطط المباريات)... أرجو أن تروقك هذه التعديلات... عملية القرعة هذه المرة تتم بصورة فردية لكل فريق... أخوك بن علية الملف المرفق : عملية قرعة لـ16 فريق_2.rar

السلام عليكم ورحمة الله وبركاته تفضل أخي الملف المرفق قد تجد فيه ضالتك ، مع العلم أن الفورم تم تطويره من طرف أحد أعضاء المنتدى لاتنسى له بالدعاء بظهر الغيب له ولوالديه VLOOKON_With_No_Limitation.rar

أرفق مثال لتسهل على إخوانك مساعدتك

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

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

السلام عليكم اذا تريد التعديل فقط يكفي هذا Sub EditAdd() Dim m Dim id As Integer, j As Integer id = Val(UserForm1.TextBox8) m = Application.Match(id, Range("A:A"), 0) If Not IsError(m) Then For j = 2 To 7 Cells(m, j).Value = UserForm1.Controls("TextBox" & j).Value Next j End If End Sub تحياتي

تفضل If ([x] >= 0 And [x] <= 100) Then MsgBox "الرقم محصور بين 0 و 100 " Else MsgBox "الرقم خارج نطاق 0 و 100 " End If مثال IF.rar

عليكم السلام ورحمة الله وبركاته أخي وحبيبي في الله محمد أبو البراء حلولك كلها أكثر من رائعة لك كل تحيه وتقدير

السلام عليكم ورحمة الله وبركاته الاخ الحبيب أبو اياد وبصراحة قرات الملف بسرعة وطبعا زي ما انت عارف اخوك.... النتيجة {لم افهم شئ} اضغط ctrl + sheft+ enter وروح على النقطة اللي بعديها ورغم اني وبصراحة لي تحفظ على ارجو ان يحوز الملف على اعجابكم طبعا هو من اعمالى ههههههههههههههههه = {( طبعا انا كداب )} ولكن اضحك الله سنك كما اضحكتني وخليتني افكر طيب لو دست دلوقت ctrl + sheft+ enter بعد {( طبعا انا كداب )} الناتج هيكون ايه ههههههههه

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل والاخ الحبيب // وليد فتحي جزاك الله خيراً على سرعة تلبيتك المعهودة واستاذنك أخي الحبيب في اثرء الموضوع بهذا الحل =IF(B3+B4<1000;1000;IF(B3+A9<2000;B3+B4;2000)) خارج محصور بين عددين_w1.rar

الشكر لله أخي أنس واقرر لك الدعوة بتغيير اسم الي اللغة العربية لسهولة التواصل

جياك أخي حتى لو أضفت حسابات جديدة (يعني أوراق جديدة) ستجد النتيجة في الورقة summary

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

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

في بعض الأحيان نقوم ينسخ نص من ملف إلى ملف آخر بحيث إذا حدث أي تغيير في الملف الأول يتم التغيير في الملف الثاني الخطوات كالتالي : حدد النص اختر نسخ انتقل إلى الملف الثاني (أو نفس الملف في موقع آخر) اختر من قائمة تحرير (لصق خاص) اختر من القائمة نوع RTF مع اختيار (لصق الارتباط) أي تعديل يتم في الفقرة الأولى سيتغير في الفقرة الثانية مباشرة.. والعجيب أنك لو غيرت اللون في الفقرة الأولى سيتم التغيير في الفقرة الثانيةاو الملف الثانى

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

العمليات المسموح بها في جملة WHERE ومن وحي ما تحدثنا به في السابق فإنه ولغايات تطبيق هذه العمليات لا بد من أن نراعي الشروط المتفق عليهافمثلاً : WHERE Employees.City='Seattle' عبارة صحيحة التنسيق WHERE Employees.City= Seattle عبارة خطأ في التنسيق ، حيث أن الشرط نصي ويلزمه علامات الإقتباس المفردة أو المزدوجة ، ولا يجوز وضعه في العبارة بدونهما ، وبالتالي نحصل عبى رسالة خطأ مفادها (خطأ في نوع البيانات) وكذلك الأمر بالنسبة للتاريخ والرقم فلا بد من مراعاة ضرورة إحسان تحديد نوع البيانات ، في العبارة سعياً للتطبيق السليم دون أخطاء. وننتقل الآن لتطبيق العمليات المسموح بها في جملة Where

محددات أنواع البيانات عند تزويد القيم لعبارة SQL، كما في معايير الاستعلام، لا بد من تحديد نوع البيانات الخاصة بها بشكل صحيح من قبل "المحددات". و يتم ذلك عن طريق إحاطة القيمة بزوجين من الرموز المناسبة. النص يجب وضع النص بين علامات الاقتباس المفردة (') أو علامات الاقتباس المزدوجة (") ، على سبيل المثال: WHERE Employees.City='Seattle' WHERE Employees.City=”Seattle” WHERE Employees.BirthDate = #2/19/1952# WHERE Employees.EmployeeID=1 .............. التاريخ يجب أن يرافق التاريخ علامات المربع (#) hash marks وتسمى أيضا pound أو number signs ، على سبيل المثال: الرقم وهناك الأرقام ، من أي نوع ، لا تحتاج الى المحددات، ويمكن إدخالها كما هي، على سبيل المثال:

بعض الشروط الفنية لبناء الجمل ودعونا هنا نتحدث عن بنية الجملة وبعض الشروط الفنية فيها. بنية الجملة SELECT Employees .LastName, Employees .FirstName FROM Employees WHERE (((Employees .City)=”Seattle”)); جملة تزودنا بالمعايير أما فيما يتعلق بالأقواس ، فيمكننا تركها وكتابة العبارة كما يلي : SELECT Employees.City, * FROM Employees WHERE Employees.City="Seattle"; كلمة رئيسية ترشد الاستعلام لاسترداد البيانات Employees .City, * أو قائمة الحقول التي تحدد أي الحقول سيتم إظهارها تحديد مصدر البيانات

SELECT … WHERE جملة WHERE وتصفية السجلات. يتم استخدام جملة WHERE لاستخراج ، فقط ، تلك السجلات التي تفي بمعيار محدد. بناء الجملة SQL SELECT … WHERE Syntax SELECT column_name(s) FROM table_name WHERE column_name operator value وحيث نريد تحديد الاشخاص الذين يقطنون في مدينة "" من الحقل City من الجدول Employees ، نستخدم عبارة SELECT WHERE التالية : SELECT Employees.City, * FROM Employees WHERE (((Employees.City)=”Seattle”)); ويكون شكل result-set كما في الاستعلام Q_WHERE NA_NorthwindSQL.rar

SQL DML and DDL ويمكن تقسيم SQL إلى قسمين: لغة معالجة البيانات (DML) لغة تعريف البيانات (DDL). الاستعلام وأوامر التحديث تشكل جزء DML • SELECT (حَدِد ) - استخلاص البيانات من قاعدة البيانات • UPDATE ( تحديث) - تحديثات البيانات في قاعدة البيانات • DELETE ( حذف ) - حذف البيانات من قاعدة البيانات • INSERT INTO (إدراج) - إدراج بيانات جديدة في قاعدة البيانات الجزء DDL من SQL يسمح لجداول قاعدة البيانات أن يتم إنشاؤها و حذفها. ويعرف أيضا الفهارس (المفاتيح)، تحدد الروابط بين الجداول، وتفرض القيود بين الجداول. و أهم جمل (عبارات) DDL في SQL هي: • CREATE DATABASE - إنشاء قاعدة بيانات جديدة • ALTER DATABASE - تعديل قاعدة بيانات • CREATE TABLE - إنشاء جدول جديد • ALTER TABLE - تعديل جدول • TABLE DROP - حذف جدول • CREATE INDEX - ينشئ فهرس (مفتاح البحث) • INDEX DROP - حذف فهرس

في حدث عند عدم الوجود في القائمة ضع الكود التالي مع تغيير اسم القائمة : If MsgBox("هذا البند غير موجود بالقائمة ." _ & vbCrLf & "هل ترغب بإضافته إلى بنود القائمة ؟" _ , vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading) = vbYes Then Response = acDataErrAdded LimitToList = False [اسم القائمة].RowSource = [اسم القائمة].RowSource & ";" & NewData DoCmd.Save LimitToList = True End If[/sql] يجب وضع التزام بالقائمة إلى نعم . ****************** أبو حمود

إضافة بسيطة للتنبيه على خطأ شائع: عند قسمة عبارة SQL على سطرين ينبغي مراعاة هل يوجد مسافة فاصلة بين الكلمتين : الأخيرة من السطر الأول ، والأولى من السطر الثاني . مثال : DoCmd.RunSQL "INSERT INTO Table1 ( Field1, Field2 )SELECT Table2.Field1, Table2.Field2 FROM Table2;" إذا قسمته إلى سطرين السطر الأول ينتهي بكلمة SELECT والسطر الثاني يبدأ بكلمة Table2 عليك أن تلاحظ أن بينهما مسافة ، ولذا يجب أن تضع هذه المسافة بعد الكلمة الأخيرة من السطر الأول أو قبل الكلمة الأولى من السطر الثاني يعني إما : DoCmd.RunSQL "INSERT INTO Table1 ( Field1, Field2 )SELECT " & _ "Table2.Field1, Table2.Field2 FROM Table2;" أو DoCmd.RunSQL "INSERT INTO Table1 ( Field1, Field2 )SELECT" & _ " Table2.Field1, Table2.Field2 FROM Table2;"