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

السلام عليكم تفضل أخي الملف وبه ورقة للشرح نقل التركيز.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 ..من خلالها بحدد أسطر الكود أياً كان عدد الأسطر .. وبنقر على الأيقونة دي فتقوم تضع علامات التعليق على كل الأسطر مرة واحدة ويوجد أيقونة أخرى على يمينها تعكس العملية أي تزيل التعليقات من كل الأسطر مرة واحدة أرجو أن تعجيكم هذه الطريقة تقبلوا تحياتي

قم بتصوير خلية أو عدة خلايا واعرض الصورة في الفورم cells camera in form.rar

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

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

طريقة تصوير الشاشة من الكمبيوتر بدون برنامج من لوحة المفاتيح طبعا كلنا بتظهر لنا مشكلة في برنامج او على الجهاز او نحتاج نعمل شروحات للبرامج او الدورات من جهازنا من اجل ذلك راح اعرفكم اسهل طريقة لتصوير الشاشة بدون برامج إليكم الخطوات : 1) نفتح البرنامج الإكسل او اي شئ نحتاج تصويره على الشاشة 2) من لوحة المفاتيح نضغط علي زر print scrn موجود في اعلى لوحة المفاتيح 3) نقوم بفتح برنامج الرسام من قائمة إبدأ إبدأ > البرامج > الملحقات > الرسام start > program > accessories > paint 4) بعد فتح البرنامج من قائمة edit نختار past 5) لقص جزء من الصورة نختار اداة التحديد الموجودة في الجانب ثم نقوم برسم مربع علي المكان المراد قصه ثم نضغط عليه كليك يمين و نختار cut ثم من قائمة file نختار new ثم من قائمة edit نختار past سنجد الجزء المقطوع ظهر على برنامج الرسام 6) بعد ذلك نحفظ الصورة من قائمة file > save as 7) نختار مكان حفظ الصورة علي جهازنا و اسم الصورة و صيغة الصورة الافضل اختيار png لانها اعلى جودة في الصور المحفوظة من هذا البرنامج ثم نقوم برفع الصور علي المنتدى من خلال مركز الرفع بكل سهولة تستخدم هذه الطريقة لعمل الشروحات او عرض المشاكل التي تواجهنا علي الكمبيوتر

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

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

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

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

إصدارات فيجوال بيسك فيجوال بيسك 1 الإصدار الأول من Visual Basic كان محدود للغاية. ولم يكن موجه لتطوير التطبيقات الحقيقة لبيئة Windows. مع انه كان سهل الاستخدام ذو واجهة رسومية ولغة برمجة مرئية إلا انه كان يعتبر كلعبة مسلية للمبرمجين. فيجوال بيسك 2 الإصدار الثاني من Visual Basic لم يظهر أي جديد باستثناء إضافة القليل من الخصائص ودعم أفضل لبيئة التطوير المتكاملة IDE. لكن في تلك الفترة، ظهر مولود جديد وهو النظام Access 1.0 لقواعد البيانات العلائقية وكان كل تركيز شركة Microsoft هو الدمج بينهما. فيجوال بيسك 3 يعتبر الإصدار الثالث هو بداية طريق النجومية أو الشهرة لـ Visual Basic! حيث قدم دعم لقواعد البيانات وأصبح ذو نهاية مفتوحة بفضل الإضافات التي كنت تستطيع دمجها مثل VBX والتي تطورت فيما بعد إلى OCX. ظهرت الكثير من التحسينات في بيئة التطوير المتكاملة IDE وهاجر مئات إن لم يكن آلاف المبرمجين إلى Visual Basic. وبدأت تلك اللغة كمنافس ضعيف لتطوير البرامج الحقيقية أو التجارية لأنه كان ما زال ينقصها المزيد. فيجوال بيسك 4 كان الهدف الأساسي من الإصدار الرابع هو مرحلة انتقالية إلى Windows 95 أو إن صح التعبير، القابلية لتطوير تطبيقات من نوع 32 bit. وكان أول إصدار من إصدارات Visual Basic تولد شيفرة للعمل تحت معالجات من نوع 32Bit. ليس هذا فقط! بل أضاف الإصدار الرابع إمكانية لإنشاء مكتبات من نوع ActiveX DLL والتي زادت في شهرة Visual Basic حتى أصبحت اللغة معترفة كلغة برمجة لإنشاء تطبيقات حقيقية حيث أضاف الميزة التي انتظرها المبرمجون وهي البرمجة الكائنية التوجه OOP لكنها كانت محدودة بسبب استطاعتك بإنشاء الفئات Class فقط دون أي إمكانية إضافية كتعدد الواجهات Polymorphism أو الوراثة Inheritance. فيجوال بيسك 5 الإصدار الخامس كان بمثابة الإعلان الرسمي في أن لغة Visual Basic هي لغة برمجة لتطوير التطبيقات الحقيقية والتجارية. حيث أضاف العديد من أنواع المشاريع كـ ActiveX Controls و ActiveX Documents وغيرها.. وإضافة مزايا عديدة للتحكم بشيفرة ملف الـ EXE الذي يخيرك من تحويل الشيفرة المصدرية إلى P-Code أو Native-Code. بالإضافة إلى التحسن الحقيقي لبيئة التطوير المتكاملة IDE والدعم الإضافي لقواعد البيانات. فيجوال بيسك 6 الإصدار السادس لا يختلف عن الإصدار الخامس كثيرا لكن هناك العديد من التحسينات وعلاج للأخطاء التي كانت موجودة في الإصدار الخامس. من أهم الإضافات في الإصدار السادس هي الزيادة في أدوات قواعد البيانات والمبنية على ADO. كذلك تحسن واضح في أدوات التحكم. وهناك العديد من التطوير في لغة البرمجة كدعم أنواع البيانات المعرفة من قبل المستخدم UDT والزيادة في الدوال Functions. وإضافة المزيد من الويزارد Wizards ودعم لتطبيقات الإنترنت Internet. والكثير والكثير من التحسينات. فيجوال بيسك.نت تم إنتاج هذا الإصدار مع تغيير جذري عما سبقه من الإصدارات ولقد صدر في ظل هذه التقنية سبعة إصدارات إلى الآن فيجوال بيسك.نت 2002 فيجوال بيسك.نت 2003 فيجوال بيسك.نت 2005 فيجوال بيسك.نت 2008 فيجوال بيسك.نت 2010 فيجوال بيسك.نت 2012 فيجوال بيسك.نت 2015 بمعني ان الدوت نت يختلف عن الفيجوال 6 في معظم مراحل برمجة وتصميم البرنامج الى انها ايضا يوجد تشابه بينهم من حيث الاساسيات نوعا ما فما رايكم مع العلم ان الفيجوال دوت نت انا مجرد مبتدئ به يعني بعمل برامج وكل حاجه بس الوضع هنا هيبقي معقد حبتين؟؟؟؟؟ حد عاوز يتعقد ولا نخلينا في القديم؟؟؟؟

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

أخي الكريم محيي الدين قم بإزالة علامة الصح الموجودة بجوار الخيار Missing ثم ابحث عن الخيار Microsoft Word والرقم يختلف من نسخة أوفيس لأخرى .. 16 تعني الإصدار 2016 .. ستجد لديك نسخة مختلفة من ثم يجب اختيار المكتبة المناسبة للنسخة التي لديك دققت اكثر في الصورة فوجدت المكتبة 15 مضافة بالفعل .. يكفي أن تقوم بإزالة علامة الصح من جانب المكتبة التي بها كلمة Missing أي مفقود وغير موجود تقبل تحياتي

البركة في سعيد :) جعفر

cells camera in form.rar إن شاء الله الملف ما فيه مشاكل

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

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

السلام عليكم ورحمة الله وبركاته وجدت هذه الدالة اثناء تجولي وحبيت ان اضع عليها مثال هنا لمن قد يبحث عنها الدالة هي FILELEN وهذا ببساطة شكل الدالة FileLen( file_path ) الدالة تحضر حجم الملف بالبايت .. وبإمكاننا التحويل الى ما نريد بعد ذلك هنا طرق التحويل المعروفة للجيمع . 1 Byte = 8 Bit 1 Kilobyte = 1,024 Bytes 1 Megabyte = 1,048,576 Bytes 1 Gigabyte = 1,073,741,824 Bytes 1 Terabyte = 1,099,511,627,776 Bytes في المرفق انا حولت الى كيلوبايت .. اترككم مع المثال .. فك الضغط على الدرايف D للتجربة وبعدها بإمكانك النقل الى اي مكان كل ما عليك هو معرفة المسار والإمتداد بالتوفيق للجميع fileSizeDemo.rar

الضغط يتم باحد طريقين اما بفتح قاعدة البيانات / ادوات/ ضغط واصلاح قاعدة البيانات واما بواسطة الكود البرمجي للقاعدة البعيدة وهو ما بينته في مشاركتي السابقة بما يشبه هذا الكود DAO.DBEngine.CompactDatabase db_name, temp_name Kill db_name Name temp_name As db_name

كيف تدرج جدولاً عشوائياً بأي عدد من الصفوف و الاعمدة دون تكرار انظر الى المرفق table_rand_numebr.rar

رابط الفيجوال بيسك 6 كامل من رفعي لمن يعانون من مشاكل التنصيب يرجى تشغيلة كمسئول يعمل علي ويندوز 8 64 و7 32 واكس بي بجميع اصدراتها هذا ما تم تجربته عليه http://www.mediafire.com/download/b7r034dv0vcba0h/VB6.0+Enterprise.rar هل جربت هذه النسخة هذه التي اعمل عليها دائما

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