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

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

يا أستاذ ياسر أنا مش فاكر الباسورد ومش عارف هو كبير ولا صغير وأرقام بس ولا أرقام وحروف أنا مش فاكره فعلا بس ساعات باعمله أرقام وحروف وعلى فكرة جربت برنامج EXCEL PASSWORD RECOVERY وقعد حوالي 3 أيام وماوصلش لحاجة والبرنامج بيتم تفعيله بسهولة على ويندوز 10 بس مصطفى كامل الله يرحمه قال ( لا حياة مع اليأس ولا يأس مع من تنادي) وسعد زغلول قال ( مفيش فايدة ) أنا بقى هاقول ( إلحقووووووووووووووووووووووووووووووووني )

السّلام عليكم و رحمة الله و بركاته أخي الكريم " صلاح الدين سعيد " أنصحك لوجه الله .. إذا لم يحل لك المشكلة الأخ الغالي " ياسر العربي " .. فمن الصعب .. أقول من الصعب .. تحل المشكل بسهولة إذن عليك ..بياسر العربي .. خالص إحتراماتي

وده اجتهدت وغيرت فيه بما يتوافق مع احتياجي يمكنك الاستعانة بما يخدم عملك وغير ما يلزم Mov Details Husary.rar

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

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

استبدل الكود بهذا (لا يسمح بتحديد الخلايا التي تحتوي غلى معادلة- لعدم العيث بها عن طريق الخطأ) Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row >= 5 And Target.Column <= 11 And Target.Count = 1 Then _ Target.Offset(0, 1).Select If Target.Column = 9 Then Target.Offset(0, 2).Select If Target.Column = 11 Then Target.Offset(1, -9).Select End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 10 Then If Target.Row >= 4 Or Target.Row <= 15 Then Target.Offset(0, 1).Select End If End Sub

أخي الغالي ياسر العربي .. مالك قافش ليه .. Take It Easy يا عزيزي لا تلقيح ولا تنقيح .. ولا تأنيب ولا أنابيب .. لا يوجد أي من هذه الأفكار التي تدور برأسك وافر تقديري واحترامي

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

اخي الكريم يرجى توضيح الحماية علي ايه بالتحديد اذا كانت على محرر الاكواد او علي اوراق العمل فدي امرها سهل اما اذا كانت على الملف من الخارج فهتبقي صعبة علينا الا اذا كان الملف بامتداد xls مثلا ممكن افك حمايته ولكن المساحة تشترط ان تكون صغيرة وانت ذكرت 40 ميجا؟!!! وضح المطلوب واي حماية؟؟ وهذه مواضيع فك الحماية لاوراق العمل محرر الاكواد http://www.officena.net/ib/topic/66742-فك-حماية-محرر-الاكواد-وحماية-اوراق-العمل/ http://www.officena.net/ib/topic/66951-فك-حماية-محرر-الاكواد-xlsm-xlsb-بدون-تحويل-الملفات-ل-xls/ دي ثقة كبيرة حبيبي الغالي عبد العزيز اعتز بها ومن الممكن ان نجد من هو افضل مني في مجال تكسير وضرب ملفات الاكسيل تقبل فائق احترامي

طيب انا مشارك معاكم بس يا ابو اسيل قلنا هتشتغل على اصدار كام وحط الرابط بتاعه علشان ننزله ونتعلم سوا ملحوظه انا عاندى vb.net 2012 وياريت نوحد وقت معين نتجمع فيه سويا حتى نكون مع بعض فى نفس اللحظه ونشارك بعض ولو انى افضل برنامج محادثه يضم الاعضاء المشاركه ونضع هذه الدروس والتجارب هنا حتى يتعلم من ياتى بعد ذلك ولا تقف عند حد معين فما رايمك اخوانى الافاضل ملحوظه اخرى هل سيتم افتتاح قسم للفيجوال بيزك دوت نت هنا باوفيسنا ولا سيتم وضع الموضوع هنا عن نفسى اود فتح قسم خاص به حتى ينضم الينا اكبر عدد ممن يشاركون بهذا المجال منهم سنستفيد ومنهم سيستفيد تقبلوا منى مرورى وتحياتى لكم اجمعين

حبيب الكل وفاكهة المنتدى.. استاذ ياسر خليل بارك الله فيك وفي من عندك تشرفنا بمعسول كلماتك

القديم عفا عليه الزمن وإن لم نواكب الجديد الآن فمتى نواكبه ؟! هذا مجرد رأي وننتظر بقية الآراء من إخواننا الكرام

بدأت تطلع قماش !! بارك الله فيك أخي وحبيبي أبو القبطان وجزاكم الله خير الجزاء تقبل تحياتي

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

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

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

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

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

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

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

جزاكم الله خير الجزاء للمتابعه والردود الكريمه فعلا التصميم بيظهر في اختيارات 2007 شكرا جدا

السّلام عليكم و رحمة الله و بركاته هذا ما فهمته .. IF YOU TRUST ...SELECT OK إذا كنت تثق في ....... إضغط على OK لن تخسر شيء أخي الغالي إذا جرّبت الضغط على OK .. لترى ما نتيجة ذلك .. و بعدها يحلها ألف حلاّل إن شاء الله خالص إحتراماتي

السّلام عليكم و رحمة الله و بركاته أخي الحبيب الغالي " أحمد الفلاحجي " ألف شكر لمجهوداتك و شروحاتك المميّزة أخي العزيز الغالي " محمّد حسن المحمد " .. الصورة التي رفعتَها أنتَ تمثل الفيجوال بيسك دوت نات أمّا الرابط الذي وضعته هو رابط الفيجوال بيسك 6 التي عملتُ بها أنا و أنتَ مع الأخ الحبيب الغالي " ياسر العربي " في الأيام الخوالي أتمنى عودتها و عودة أحبابنا الذين ألّف الله بين قلوبنا على طاعته إحتراماتي

أخي الحبيب / ياسر بارك الله فيك وجعلني عند حسن ظنكم أعذرني ، بل اعذروني جميعا للإنقطاع أنا متابع خفيف فقط هذه الأيام لانشغالي شبه الدائم لو تيسر وقت أدخل طبعا وأشارك

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

وعليكم السلام و رحمة الله و بركاته ... If DCount("*", "tp") = 0 Or DLast("[id]", "tp") = 11 Then txt1 = 1 Else txt1 = DLast("[id]", "tp") + 2 txt1.Requery End If . . . كرار ...

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

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

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

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

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

معذرة أخي تفضل حيث قمنا بتغيير مسمى itemid في النموذج الفرعي إلى itemidx وأصبح الكود هكذا Dim x x = DLookup("[itemid]", "tab_item", "[itemid]=[itemidx]") If Not IsNull(x) = True Then MsgBox "كود الصنف المدخل" & " ( " & [itemid] & " ) " & "مسجلاً من قبل.. من فضلك أدخل رقم آخر", vbCritical, "تنبيه" Undo Else: Exit Sub: End If برنامج الصيدلية - Copy.rar

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

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

شكرا لردكم الكريم ولاكن الطريقه موجوده في 2013 ايضا جرب حضرتك تنشاء نموذج جديد باسم جهات الاتصال بيظهر بنفس الشكل

البركة فيك استاذ جعفر عموما اخي الكريم استخدم الكود التالي كماهو غير فقط اسم الحقل واسم الجدول بما يناسبها لديك On Error GoTo myerr Me.ab = Nz(DFirst("fld1", "tbl1"), 0) myerr: If Err.Number = 3024 Then MsgBox "عفوا .. لايوجد اتصال بقاعدة البيانات", vbExclamation, "تنبيـــه" End If ab : هو مربع نص يكون في النموذج لديك مثلا. fld1: هو اسم الحقل من داخل الجدول tbl1 : هو اسم الجدول ضع الشرط هذا مثلا ... في حدث الحفظ للبيانات ... بمعنى قبل لا يحفظ البيانات يتأكد ان كان فيه اتصال اولا .. ونرجع لنصيحة الأستاذ جعفر بعدم استخدام الوايرلس .. اذكر جربت الطريقة هذي في مكتب فيه ثلاثة اجهزة لا تبعد عن بعضها المترين .. والشبكة كانت ذات سرعة عالية بين فترة واخرى كان يظهر خطاء بتوقف البرنامج عن العمل ... قمنا بتغييرها الى شبكة محلية عادية. بالتوفيق

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

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

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

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

مامنعني سوي ظروف العمل لكني نويت العوده وبقوه ان شاء الله الايام القادمه وان شاء الله هاوصل سلامك للاسايطه كللاتهم

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

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

وتماما للفائدة أحب أن أقدم تفاصيل التجربة لتعم الفائدة وأشارك الأساتذة الكرام بالأجر أولا - استخدام نسخة الأكسس الانكليزية عند تصميم البرنامج سيحد من حدوث هذه المشكلة التى عانيت منها لذا أنصح باستخدامها اخوتى المبتدئين أمثالى - ومن أراد التحول الى النسخة الانجليزية فلا داعى لتسطيب النسخة من جديد بل كل ما عليك فعله تغير اعدادات اللغة بالأكسس من العربية <افتراضى> الى الانجليزية <افتراضى> ثانيا - وهو الخيار الصعب اذا كنت قد قمت بتصميم البرنامج ثم لم يعمل معك على جهاز آخر _ أو أنك تريد العمل على النسخة العربية من الأكسس فلا بد من أن لا يكون أحد عناصر التحكم اسمه بحروف عربية وأعنى بكلمة اسمه خاصية Name وليس Caption فلا يضر ان كانت خاصية Caption تحوى حروف عربية ........ وكذلك لا بد من تغير اسم عنصر التحكم سواء كان خلفه كود أو لم يكن وكذلك أسماء الجداول - الاستعلامات - النماذج - التقارير - الماكرو - الوحدات النمطية - .. لا بد أن تكون هى ومكوناتها مسماة بحروف غير عربية - للأسف - وقد صنعت أداة بدائية لتغير أسماء عناصر التحكم بالنماذج والتقارير بشكل سريع لتوفير العناء بهذه المرحلة وكذلك لا يجب أن يحوى محرر الفجوال بسك على حروف عربية كنصوص الرسائل وغيرها وقد استخدمت أداة لصناعة الرسائل الفضل يعود فى صناعتها لله ثم للأستاذ جعفر وبامكانك استخدامها ببرامجك المختلفة فهى سهلة الاستخدام كل ما عليك فعله هو تصدير الفورم و الجدول الى برنامجك وفقط وكل ما عليك فعله بعد حفظ الرسائل من خلال الفورم ومعرفة رقم الرسالة هو أن تستدعيها بهذا الأمر MakeMsg(1) ' 'أو If MakeMsg(1) = VbYes then ثالثا - وهذه المعضلة التى واجهتها فى النهاية وقد من الله على بهذا الحل وهو: أن تنشأ ملف أكسس جديد فارغ ثم تستورد اليه كل مكونات برنامجك القديم - فإن محرر الفجول يحتفظ بأسماء عناصر التحكم القيمة حتى بعد تغيرها ولا أدرى لماذا ولم تفلح معه عملية الضغط والاصلاح ولكن انتهت المشكلة بعد ععملية الاستيراد والحمد لله هذه تفاصيل التجربة لعل الله أن ينفع بها وآسف على الاطالة

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

ذكرتني بمثال عندي يحسب حجم البيانات داخل قاعدة البيانات حجم البيانات في البرنامج.rar

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

السلام عليكم جزاكم الله خيرا سأقوم بتنزيله غدا إن شاء الله تعالى شكرا جزيلا

السّلام عليكم و رحمة الله و بركاته الشّكر موصول للأخ الغالي " ياسر العربي " لفتحه الأبواب لنا على مصْراعيْها للنّقاش المثمر و الحوار المتواصل أدعو الله أن يفتح له أبواب الجنّة على مصراعيْها إن شاء الله المولى العزيز القدير الأخ القدير و الأستاذ الحبيب " أبو يوسف " رفعت لك هذه النّسخة التي إشتغلت عليها لحد الآن و لم تصادفني مشاكل إلاّ التي تحدث عن سوء فهمي لها و جهلي بها .. نسخة الفيجوال بيسك البروفيسيونال بصيغة إيزو .. جرّب من باب زيادة الخير خيريْن لعلها تنفع .. لا ندري سأحاول رفع الآن نسخة الويندوز 7 للأستاذ القدير " إبراهيم أبو ليله" .. فقط شويّة صبر .. فالسلحفاة أسرع من الأنترنت عندي تفضّل الرّابط : http://www.4shared.com/file/pj0Btorlce/VBPRO.html