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

السلام عليكم ورحمة الله تعالى وبركاته بفضل الله تعالى تم انجاز المشروع والحمد لله وذلك لطلب الاخوة فى هذا الموضوع http://www.officena.net/ib/index.php?showtopic=62339&hl= الموضوع يتلخص فى نظام مراسلة وارسال رسالة بين المستخدمين لقاعدة البيانات شبيه بالفيس بوك صفحة تسجيل الدخول قمت باضافة شى مهم جدا وهو ربط نموذج باستضافة مجانيه به جدول وضعته اذا احببت ارسال تعليق لى بخصوص البرنامج شكر الله لكم جميعا والاكواد الخاصة بهذا الربط مدرجة فى هذا الموضوع http://www.officena.net/ib/index.php?showtopic=61514 الصفحة الشخصية بها قائمة الاصدقاء ونظام المراسلة منصة عرض الرسائل والارشفة قوائم الاعضاء ويمكنك اضافة الاصدقاء الى قائمة اصدقائك والان مع البرنامج تحياتى

اخى الحبيب كل عام وانتم بخير ارجو من الله عز و جل ان يكون هذا هو طلبك اسم المستخدم : asd الرقم السرى : 123 1العربي الوفي حليب.rar

فعلا أخي الكريم خالد خلدك الله في جنات النعيم الدالة الأولى أكثر دقة في حالة كتابة جميع تواريخ الأجازات بما فيها الأجازات التي تكون يوم الجمعة أو السبت (اللي هما أصلا أجازة) أما المعادلة الثانية تعتمد على طرح عدد الأجازات المحصورة بين تاريخ البداية والنهاية من العدد الكلي لأيام العمل بين التاريخين ....................... شفت الفرق يا اللي لسة بتستخدم أوفيس 2003 وما قبله يالا بينا نستحدم كل جديد

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

أخي الحبيب أبو يوسف تستخدم الإشارة -- لتحويل القيم المنطقية True و False إلى 1 و 0 ..

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

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

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

اعتذر رفعت مرفق خاطئ البرنامج مرفق المراسلة.rar

اخى الحبيب كل عام وانت بخير صراحه اللى حضرتك طالبه 3 حاجات وانا والله لضيق وقتى بسبب تصميم برنامج EMA بحاول قدر المستطاع عمل ما تريد برنامج EMA النسخه القادمه برنامج كامل لكافه الامور المحاسبيه وخاصه جزء المخازن والمبيعات والمشتريات فيه كل ما تريده انتظره سيكون قريب جدا بالمنتدى وحصرى فقط على افيسنا تقبل تحياتى

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

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

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

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

السلام عليكم / واضح ان استازى علاء كان اقرب الى فهم المطلوب اكثر منى فجزاه الله خيراً وإذا سمح لى اخى الكريم ها هو المطلوب بالمرفق :- مساعدة فى قاعدة if_4.rar

جزاكم الله خيراً أخي الحبيب ياسر خليل أبو البرّاء سعيد بتواجدي بينكم في منتدى أوفيسنا

استاذ/ محمد هل تقصد هذا ام ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

جزاكم الله كل خير

بارك الله فيك وجزاك كل الخير علي علمك النافع المفيد لجميع الاعضاء

أخي الفاضل عبد الله شيخون وعليكم السلام ورحمة الله وبركاته كان يجب أن تنوه أن هناك ورقة عمل مخفية للتعامل معها .. عموماً قد تداركت الأمر وقمت بعمل اللازم إليك الملف المرفق بعد إضافة كود يمسح البيانات من جميع أوراق العمل ما عدا ورقة العمل "الدفتر" وورقة العمل المخفية "كود" Sub ClearAllExceptMain() Dim SH As Worksheet For Each SH In ThisWorkbook.Worksheets If SH.Name <> "الدفتر" And SH.Name <> "كود" Then SH.Range("B3:L1000").ClearContents Next SH End Sub إن شاء الله يفي بالغرض الأخ الكريم ابو يوسف المصري أحبك الله الذي أحببتني فيه .. بارك الله فيك وجزاك الله خير الجزاء وجمعنا الله في الجنة في مستقر رحمته الأخ الحبيب الغالي ابو يوسف بارك الله فيك وجزيت خيراً على تشجيعك الدائم لابنك .. تقبل الله منا ومنكم Transfer Data By Region YasserKhalil.rar

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

السلام عليكم انت تقوم بالترحيل سجل سجل ، ويمكنك المحاولة بترحيل الجميع اذا كانت بياناتهم المالية كاملة ومحدثة وعلى كل حال وبعد الاطلاع على الاكواد المسؤلة عن الترحيل جرب الآتي : 1- احذف الاقواس من هذا السطر If Not (rs.EOF And rs.BOF) Then ليصبح : If Not rs.EOF And rs.BOF Then 2- عطل هذا السطر عن العمل rs.MoveNext

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

إخوتي الأكارم ..أخي محمد صالح السلام عليكم ورحمة الله وبركاته عملك متميز ولا أقلل من عمل إخوتي الأكارم فكلهم على العين والرأس جزاكم الله خيراً ....ولكنني كمبتدئ بهذا المجال وإن صار لي زمناً طويلاً أحتاج لشرح هذه المعادلة أي لماذا إشارة - - مكررة مثلاً =SUM(INT((WEEKDAY(A2-{1,2,3,4,5})+B2-A2)/7))-SUMPRODUCT(--(C2:C10>=A2),--(C2:C10<=B2)) والسلام عليكم.

بسم الله ما هى قواعد احتساب الرسوب و النجاح فى المادة الحصول على 50% فأعلى أم 40% فأعلى ؟ (1) الخانات التى سيتم التعامل عليها فى هذا الأحتساب هى الدرجة الفعلية و اختبار الفصل الدراسى الثانى ( للتحريرى ) أم شئ آخر ؟ (2) بعد الاجابة على الاستفسارات ان شاء الله سيكون الحل متاح و يجب الأنتباه الى ثبات الأعمدة فى الملف الأساسى .. دمت بخير و أعزك الله .

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

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

سلمت يمينك وبارك الله فيك مواضيعك فعلاً مرجع كبير للجميع ما شاء الله تبارك الرحمن .

أخي الكريم عبد الله شيخون إليك الكود التالي Sub TarhilByRegion() Dim WS As Worksheet Dim Cell As Range Dim strSheet As String Dim LR As Long Set WS = Sheets("الدفتر") Application.ScreenUpdating = False For Each Cell In WS.Range("J3:J" & WS.Cells(Rows.Count, "J").End(xlUp).Row) strSheet = Cell.Value On Error GoTo 1 LR = IIf(Sheets(strSheet).Cells(Rows.Count, "D").End(xlUp).Row < 3, 3, Sheets(strSheet).Cells(Rows.Count, "D").End(xlUp).Row + 1) Cell.Offset(, -8).Copy Sheets(strSheet).Range("D" & LR).PasteSpecial xlPasteValues Cell.Offset(, -6).Resize(, 8).Copy Sheets(strSheet).Range("E" & LR).PasteSpecial xlPasteValues 1 Next Cell WS.Activate Application.CutCopyMode = False Application.ScreenUpdating = True End Sub لا تنسى أن تحدد أفضل إجابة وأن تضغط على كلمة "أعجبني هذا" إذا أعجبك الحل تقبل تحياتي Transfer Data By Region YasserKhalil.rar

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

وإذا سمح لي أخي سليم سلمه الله من كل سوء بإثراء الموضوع (رغم ثرائه) لهواة الإكسل ومحترفيه: لحساب عدد (أيام العمل) بين تاريخين: * باستثناء العطلات الأسبوعية (الجمعة والسبت) * وباستثناء قائمة من الأجازات نستخدم هذه المعادلة: =SUM(INT((WEEKDAY(A2-{1,2,3,4,5})+B2-A2)/7))-SUMPRODUCT(--(C2:C10>=A2),--(C2:C10<=B2)) * ويمكن تغيير أيام العمل في الأرقام {1,2,3,4,5} حيث 1 يشير للأحد و 2 يشير للاثنين ..... وهكذا * ويمكن حساب عدد مرات يوم واحد السبت مثلا بين تاريخين باستبدال {1,2,3,4,5} إلى 7 بدون أقواس حيث تستعمل الأقواس مع اليومين فأكثر وهذه صورة للمعادلة ........................ ولا تنسوني من صالح دعائكم

الأخ الكريم بدء الكلام بالسلام أفضل .. السلام عليكم أرى أنك متابع للمنتدى منذ فترة فأذكر و نفسى بهذا الموضوع التوجيهات http://www.officena.net/ib/index.php?showtopic=60147 حتى تهتدى لإجابة و حل لمسئلتك دون الخوض فى الكثير من النقاش.. عليك برفع ملف للتطبيق عليه حتى يأتى متماشيا مع طبيعة ملفك الأصلى.. أى ليس شرطا ان يحتوى على بيانات حقيقية و لكن على الأقل صورة مشابة للأصلى من حيث الأعمدة و الصفوف و رؤوس الأعمدة و ترتيبها ( بين الدفتر الأساسى و شيتات المحافظات ).. بدأت بساجة و انتهيت بمسخ ( اعرف انها سادة و نسخ .. و لكن الحمد لله اننى لست فى مزاج رائق للقفشة حتى أقتنصها .. بل اشرت اليها فقط ).. دمت بخير و أعزك الله

أخي الكريم تعليموه إليك الكود التالي عله يفي بالغرض .. سيتم نسخ ورقة العمل المسماة "المشكلة" باسم " النتيجة المطلوبة" وعمل اللازم في ورقة العمل الجديدة Sub YasserKhalil() Dim Rng As Range, DN As Range, nRng As Range, Temp As Range, R As Range Dim SHT As Worksheet Dim SHP As Shape Application.DisplayAlerts = False On Error Resume Next Sheets("النتيجة المطلوبة").Delete Sheets("المشكلة").Copy After:=Sheets(Sheets.Count) Set SHT = ActiveSheet SHT.Name = "النتيجة المطلوبة" With Sheets("النتيجة المطلوبة") Set Rng = .Range("A1").Resize(.Range("A1").CurrentRegion.Rows.Count) For Each SHP In .Shapes SHP.Delete Next SHP For Each DN In Rng If Not IsEmpty(DN.Value) And Not IsEmpty(DN.Offset(, 1).Value) Then Set Temp = DN.Offset(, 2) Else Temp = IIf(IsEmpty(Temp), DN.Offset(, 2).Value, Temp & " - " & DN.Offset(, 2).Value) If nRng Is Nothing Then Set nRng = DN Else Set nRng = Union(nRng, DN) End If End If Next DN If Not nRng Is Nothing Then nRng.EntireRow.Delete With .Range("A1").CurrentRegion .BorderAround ColorIndex:=1, Weight:=xlThin .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With End With Application.DisplayAlerts = True End Sub لا تنسى أن تحدد أفضل إجابة وتضغط على كلمة "أعجبني هذا" تقبل تحياتي وكل عام وأنت بخير :fff: YasserKhalil Officena.rar

السلام عليكم اخي عبدالحميد هل ندمك لان الملف محمي أم ماذا؟

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

الدرس الثاني تسجيل الماكرو سنقوم بعمل المثال التالى معا للتعرف على تفاصيل خاصة بالكود والماكرو وأتمنى أن يتم تنفيذه من قبل الدارس أو الراغب فى التعلم المثال - حذف محتويات الأعمدة A و C - نقل محتويات العمود B الى العمود A - نقل محتويات العمود D الى العمود C قم بتعبئة محتويات الأعمده السابقة بأيه بيانات قم بالضغط على "Ok" " Record Macro" قم بتنفيذ المطلوب يدويا الى أن تنفذ جميع الخطوات بالترتيب لأن كل ما تفعله يتم تسجيله من قبل اداه تسجيل الماكرو ثم إضغط على Stop Recording الخطوات بالصور لتسهيل تنفيذ المطلوب بعد تعبئة البيانات قم بالضغط على Record Macro تظهر لنا نافذة 1 - نقوم بكتابه اسم الماكرو نلاحظ أن اسم الماكرو لا يحتوى على ايه مسافات ومن الممكن أن نضع علامه ( _ ) بين كلمتين لو اردنا تسمية الماكرو بأسم مكون من كلمتين مثلا 2 – نجد ان هناك كلمه Ctrl + وبجوارها مربع وتعنى أننا يمكن وضع أى حرف داخل هذا المربع ويكون وسيله لإستدعاء الماكرو فيما بعد لتنفيذ المطلوب وهذا امر غير مطلوب حاليا سيتم توضيح ذلك فيما بعد ان شاء الرحمن بالتفصيل 3 – هناك مستطيل به سهم رأسه الى الأسفل وتعنى اختيار من متعدد وهنا نقوم بإختيار الملف المراد تسجيل به الماكرو فى حاله ان هناك مثلا عدد ( 2 ) ملف اكسل مفتوحين 4 – وهناك مربع آخر وهو الوصف المختصر لهذا الماكرو الذى سيتم تسجيله وحاليا هذا الأمر غير مطلوب 5 – نقوم بالضغط على زر OK بعد الانتهاء من تنفيذ المطلوب بالكامل نقوم بالضغط على ايقاف التسجيل كما بالصورة التالية ملحوظة قد تظهر علامه تسجيل الماكرو بأسفل الشيت نقوم بالضغط عليها لتسجيل الماكرو كما بالصورة ثم بعد الانتهاء من تنفيذ المطلوب نقوم بالضغط على ايقاف التسجيل كما بالصورة لقد تم تسجيل الماكرو ونبدأ الآن فى معرفة تفاصيل الكود الذى قمنا بعمل خطواته من خلال عمليه التسجيل ومعرفة بعض الأمور الأساسية والهامه للكود البرمجى للدخول الى الصفحة التى بها الكود البرمجى والذى تم تسجيله تلقائيا فى موديول نقوم بالضغط على ALT+F11 معا تفتح لنا صفحه تسمى صفحه محرر الأكواد كما بالصورة الملاحظات : 1- يبدأ الكود بكلمه Sub ثم اسم الماكرو ثم هذين القوسين المغلقين ( ) الكود دائما يبدأ بذلك الأمر وخاصة إذا كان داخل موديول وهناك أكواد تكتب ولا تسجل عن طريق الماكرو تبدأ بخلاف ذلك وتلك التى توجد داخل حدث الصفحة ( الشيت ) أو داخل حدث الملف This Workbook وسيأتى الحديث عن ذلك بالتفصيل فيما بعد ان شاء الرحمن داخل تلك الدروس 2 – هناك داخل الكود علامه (( ' )) وهى دائما تكون مصبوغة باللون الأخضر وتسمى علامه اقتباس أحادية تشير الى تعليق يمكنك كتابته يدويا بأى لغة الفائدة منها : وهذا التعليق يكون خاص إما بشرح جزء من الكود أو تشير الى تعليمات برمجيه معينه يتجاهلها الكود تماما أثناء عملية تنفيذ الكود وليس لها اى تأثير مطلق على الكود 3 – ينتهى الكود بجمله End Sub وهذه الجمله هامه جدا لإنهاء عمل الكود 4 – يمكننا هنا ونحن داخل الموديول الذى به الكود البرمجى الذى تم تسجيله تلقائيا بناء على أننا قمنا بتنفيذ الخطوات الخاصة بالمثال يدويا · تغيير اسم الكود الى اى اسم .. اى نقوم بتغيير كلمه Module1 الى اى كلمه أخرى قد تكون معبرة عن طبيعة عمل الكود أو حتى يمكننا وضع اسمنا باللغة الإنجليزية طبعا دون ترك مسافات ويمكننا الاستعانة بوضع تلك العلامه ( _ ) التى تسمى Under Scour يمكننا التعديل والإضافة داخل الكود البرمجى ايضا فى تغيير اسماء الأعمده والمدى وخلافه أو أى أمر آخر كما يتراء لنا وسيأتى فيما بعد ذكر هذا الأمر فى الدروس القادمة بشىء من التفصيل >>>> يتبع الدرس الثانى >>>>>>

بعد اذن الاستاذه المحترمين _ جزاكم الله خيرا على اعمالكم عبدالله باقشير حماده عمر محمدى عبد السميع تم توظيف و تجميع الكودين للملفين بالملف المرفق كود ادراج شيتات بفورم للاستاذ / حماده عمر ملفhttp://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_id=68757 كود التنقل بين الصفحات للاخ عبداله باقشير بملف الاستاذ محمدىhttp://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_id=51698 ليكون ملف واحد و به ادراج شيتات بفورم و التنقل بين الصفحات بسهولة ارجو قبول تقديرى و احترامى لاعمالكم المبدعه معدل_ادراج شيت _التنقل بين الصفحات_.rar

الحمدلله الذي بفضله تقضى الحاجات تمت الاجابة

الكود المقترح كان بدون كودات للخيارات اليك تطبيقاً لما لديك جربت وأظنه كافياً ... إن كنت قد أحسنت الفهم عنكم جرب ووافني بالنتيجة ...... .......... NA_SavePro3.rar

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

السلام عليكم أيها الأخوه تجدون في الرابط التــــــــــــالــــــي موقع فيه تصميم لأنواع عديده من قواعد البيانات و هي حقيقة خاصة بالأوراكل لكن التصميم الهيكلي واحد في الأكسس و الأوراكل لكن المختلف فقط طبيعة الحقول و بنيتها الهيكلية و فما عليك الا دراسة التصميم ووانشاء الجداول و تعريفها و يمكن ايضا في حال الضغط على أي موديل من الموديلات الموجوده , طلب تصميم نفس القاعدة بالأكسس و ذلك من خلال الضغط على زر Ask Me For An Access Datatbase يصلك على ايميلك تصميم لقاعدة بالأكسس