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

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

بسم الله الرحمن الرحمن أحبابى السلام عليكم ورحمة الله وبركاته وبعد أقدم إلى حضراتكم ملف صغيراً وبسيطاً لكنه يحتوى على كود - من وجهة نظرى المحدودة - فوق الرائع الفكرة هى أن الملف يغلق اذا لم يكن هناك مستخدم يعمل عليه الاغلاق يتم بعد ترك المستخدم له بدقائق محددة " يتم تحديد الدقائق فى المديول العادى" الكود الرئيسى يوضع فى حدث المصنف اذا رجع المستخدم الى العمل على الملف قبل نهاية المدة يتم تجاهل الكود ولا يتم الاغلاق لو حاولت تغيير عدد الدقائق رغبةً منك فى اطالة المدة فان الكود لا يعمل بالعدد الجديد الا بعد الحفظ والاغلاق واعادة فتح الملف تحياتى / مختار حسين محمود :fff: Timed Closing Of A Workbook.rar

السلام عليكم ورحمة الله وبركاته إخواني الأحباب في المنتدى المحبب إلى قلوبنا .. أقدم لكم اليوم شرح فيديو ، لكيفية عمل تصفية متقدمة Advanced Filter بالأكواد .. . والشرح مقدم في عدد 2 فيديو .. الأول لكيفية إدراج موديول وكتابة الأسطر الخاصة بتنفيذ التصفية المتقدمة ، والفيديو الثاني لكيفية تنفيذ الكود بدون أزرار بمجرد التغير في ورقة العمل أو التغير في شروط التصفية .. رابط الفيديو الأول : التصفية المتقدمة بالأكواد رابط الفيديو الثاني ومرفق لكم ملفين ..الملف الأول Advanced Filter VBA خاص بالفيديو الأول ، والملف المسمى Advanced Filter Worksheet_Change خاص بالفيديو الثاني أرجو أن ينال الدرس إعجابكم ، وتستفيدوا منه ولا أنتظر منكم سوى دعوة بظهر الغيب ، وادعوا الله لي أن يجعل أعمالنا صالحة ولوجهه خالصة ، وأن يجعل أعمالنا في ميزان حسناتنا يوم القيامة ، إنه ولي ذلك والقادر عليه كان معكم أخوكم أبو البراء من منتدى أوفيسنا (دي القفلة بتاعتي لو تلاحظوا .. مش شعبان عبد الرحيم بس اللي عنده القفلة !) حمل الملف من هنا

الاخوه الافاضل السلام عليكم ورحمة الله وبركاته مع اننى ادرك تماما ان هناك الكثير من اساليب كسر الحمايه الا اننى اصر على تقديم هذه الفكره لعلها تكون مفيده ............................................................. الموضوع ببساطه اننى قمت بوضع عده شروط لفتح الملف ................................................ الشرط الاول وهو عدم الاتصال بالانترنت وفى هذه الحاله يتم اعطاء المستخدم نسخه تجريبيه تنتهى بعد 30مره من الاستخدام ثم عند فتح الملف فى المره 31 يتم ظهور رساله تفيد بانتهاء النسخه التجريبيه وان يجب الاتصال بالانترنت لفتح الملف او الضغط على زر نعم اذا كان لديك رقم تحديث النسخه ثم عند الضغط على زر نعم يتم ظهور فورم به ارقام للدخول قم قم بضرب اول 3 ارقام من اليمين فى اخر رقمين من اليسار+249 هنا يتم اعطاءك نسخه جديده ل 30 مره ............................................................................. الشرط الثانى هو ان يكون لديك انترنت هنا تكون النسخه صالحه للاستخدام لمده سنه بعد السنه يتم ظهور الفورم للتجديد فى حالة ادخال الرقم الصيح تحصل على سنه اضافيه وهكذا وفى حالة تغير تاريخ الجهاز وعدم مزامنته مع التاريخ الفعلى تظهر رساله تفيد بانه سوف يتم غلق الجهاز لضبط على التاريخ فى حالة التلاعب بتارخ الجهاز من اجل الدخول لن تتمكن من الدخول مطلقا ............................................................................................................................................................................ ايضا تم اضافة كود يقوم باخفاء جميع الاوراق ماعد ورقه تسمى بشاشة ترحيب وذلك عند غلق الملف وعند الفتح يقوم باظهار جميع الاوراق ماعدا هذه الورقه اى انه فى حالة عدم تمكين الماكرو سوف يتم فتح الملف على ورقه واحده الا وهى شاشه الترحيب ............................................................ اسيبكم مع الملف عزرا النسخه المرفقه مقفوله ولكن سيتم ارفاق الملف مفتوحا بعد رؤيه المشاركات تقبلو تحياتى ربط الملف بالانترنت ورقم الهارد لفتحه.rar

السلام عليكم عندى فيزيو 2010 كان شغال تمام ... وفجأه توقف عن العمل (القوائم غير مفعله). مسحته وسطبته من جديد لكن نفس المشكله. حذفته ونزلت البرنامج من موقع ناتى برضه نفس الحال .. وعندى شغل كنت عامله ونفسى اكملهز ملحوظه. عندى ويندوز 7 اوفيس 2007 عربى (كان شغال معاه كويس). . .. . افيدونى بالحل افادكم الله وشكرا جزيلا مقدماً

استاذ khaled_1960 انا لم استفاد نهائيا من هذا الملف لاني حضرتك قافل ال vba بباس ورد - برجاء فتحه أو لا حاجه لرفعه اصلا لاننا مش هنستفاد ؟؟؟

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

جرب عطلة.rar

بارك الله فيك و جزاك الله خيرًا

السلام عليكم الاخ الكريم ياسر سلمت يداك عمل ممتاز

بعد إذن الأستاذ ياسر وعلشان الناس متلفش ولا تدور يمكنك كتابة اسم الملف المراد قتله داخل خلية أو داخل مربع ادخال Killer.rar

بارك الله فيك و جزاك الله خيرا

والله انتم مبدعين اعمالكم تشرح الصدر وتجبر الشخص على ان لا يغادر هذا الصرح العلمي الراقي . ادام الله عليكم الصحه والعافيه دائماً باذن الله.

جدو الحبيب شغال مع أي ملف ..بس متنساش تحدد هوية الضحية جرب الملف التالي ..ملف صورة بامتداد JPG ..أنا جربته وشغال Kill JPG.rar

وعليكم السلام ورحمة الله تفضل أخي اطلع على هذا التقرير db2-----.rar

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

بارك الله فيكم اخواني جميعاً مشاركة معكم لعدم تكرار الثلاثة حقول بالسجل و العودة الى السجل المكرر .... مع عمل بعض التعديلات في الاسماء ( الجدول و الاستعلام و الحقول المعنية ) و ايضاً التعديل في الربط بين الجدولين في الاستعلام و هذا هو الكود في حدث قبل التحديث للنموذج : Dim intId As Integer Dim rs As DAO.Recordset Set rs = Me.Recordset If DCount("*", "qry1", "[nom] ='" & Me.NOM & "' AND [nom_pere] = '" & _ Me.Nom_Pere & "' and [widget] = " & Me.Widget & "") > 0 Then intId = DLookup("id", "qry1", "[nom] ='" & Me.NOM & "' AND [nom_pere] = '" & _ Me.Nom_Pere & "' and [widget] = " & Me.Widget & "") MsgBox "مكرر في السجل رقم" & " " & intId Me.Undo rs.FindFirst "[id] = " & intId Else Exit Sub End If Set rs = Nothing المرفق بعد التعديل بالتوفيق للجميع المحيطات الفلاحية.rar

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

حياك الله اخي الكريم وجدت هذا الرابط على موقع اجنبي وكذلك قرأت في موقعين آخرين http://stackoverflow.com/questions/3730233/maximum-number-of-connections-to-network-accessed-access-database ومما فهمت انه اذا كان برنامجك للقراءة فقط اي لايكون هناك ادخال بيانات واستخراجها .. بالإمكان ان يصل عدد المستخدمين إلى 100 مستخدم واكثر .. اما اذا كان برنامجك فيه الإدخال والتعديل من قبل كل المستخدمين فالحد المنصوح به هو من 15-25 مستخدم .. وننتظر تجارب أعضاء وخبرات خبراء المنتدى الكرام ... وفقنا الله واياك ..

حياك الله اخي الكريم ضع هذا الكود في حدث عند الخروج او بعد التحديث Private Sub NOM_Exit(Cancel As Integer) text1 = Nz(DCount("[nom]", "ÇáãÚáæãÇÊ", "[nom]=forms!ÊÓÌíá!nom"), 0) If text1 > 3 Then MsgBox "åÐÇ ÇáÍÞá ãßÑÑ ËáÇË ãÑÇÊ" Me.NOM = "" Me.NOM.SetFocus End If End Sub text1 هو حقل غير منظم في النموذج ليريك المجموع بإمكانك اخفائة . وبأمكانك استخدام متغير بدلا منه . .. انصحك بإستخام المسميات الإنجليزية ... حتى للنماذج والجداول اول رمز غير ظاهر في هذا الكود هو : اسم جدول (المعلومات) والثاني نموذج( التسجيل). هذا شرح لأحد الطلبات وهو nom وبإمكانك تطبيقة على البقية. بالتوفيق ان شاء الله.

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

ممكن حضرتك تنظر وتفحص المثال التالى عسى ان تجد فيه ضالتك ان شاء الله للعلم حصلت على البرنامج من البحث فى المنتدى ☻ برنامج شئون الموظفين.rar

السلام عليكم ورحمة الله وبركاته أستاذي الفاضل / حمادة عمر أفكار أعمالك كلها رائعة جدا وفعلا أغلبنا نحتاجها في أعمالنا بارك الله فيك وجعله في ميزان حسناتك جزاك الله خيرا تلميذك / أحمد فؤاد

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

السلام عليكم الاخ الكريم / حسام مصطفي بارك الله فيك وجزيل شكري وامتناني علي كلمات الرائعة التي لا اجد من الكلمات ما ارد بها عليك واتشرف بان تكون من متابعي مواضيعي المتواضعة جزاك الله خيرا

السلام عليكم =========== اخوانى واحبائى واحب الناس الى قلبى ( اعضاء - مشرفين - مسئولى )ممنتدى اوفسينا كم تعلمت منكم وكم زادنى شرف الردود لكم وعليكم والان موعدى معكم لرد جميلكم الثقيل على كتفى خفيف على قلبى الى كل من علمنى حرفا فى هذا المنتدى وسيعلنى اهديكم هذا البرنامج داعيا الله ان يكون على المستوى اللائق واعطائى ولو درجة النجاح والنجاح فقط ميزات البرنامج ============== 1) يصلح للصفين معا فهو يتعامل مع صيغتى الاناث والذكور ( طالبات - وطلبة ) بمجرد اختيار بنين او بنات فى صفحة البيانات فمعادلاته مجهزة لذلك . 2) يتعامل مع الصفين الاول والثانى عند اختيار الصف فى صفحة البيانات فالمعادلات ايضا مجهزة لذلك 3)البرنامج يجمع فى طياته كل افكار الكنترولات السابقة فقط مع اضافة توزيع اللجان وارقام الجلوس لاى صف من الصفين دون التدخل لكتابة الصف او الجنس . 4)صفحة السرى ( لها رقم سرى لعدم الاطلاع من قبل اعضاء الكنترول والسرى هو 12) لعالمنا الجليل خبور 5)فى صفحة ف د 1 يوجد زر للكتشنة وفك الكتشنة وكانت الفكرة للاستاذ ايسم بارك الله فيه 6) يوجد فى نفس الصفحة زر للتقريب بما يتناسب مع قوانين الرفع وهو اختيارى والكود للاستاذ الكبير ابو تامر . 7)شهادة الفصل الدراسى الاول صفحة واحدة فقط وهى فقط كعملية جمالية تعمدت الا يكون الصفحة بها اكثر من شهادة وذلك لتجنب القص وغيرة ( رزمة الورق تقص فى المطبعة كما هى الى نصفين وتوضع فى الطابعة كما هى ) 8)ما اعتبره اهم ميزة هو شهادة الفصل الدراسى الثانى تكون بالدوائر . 9) ترحيل الشيت الى ناجح ودور ثانى للطباعة وايضا بالدوائر 10) لا املك اى كود فى هذا البرنامج الا كود التجهيز فقط اما باقى الاكواد قكلها موجودة فى المنتدى 11) اشكر كل من ساهم بفكرة واخص وسامحونى بالترتيب الاستاذ مجاهد اعادة الله لنا سالما العالم الجليل خبور خير الاستاذ الفذ ابو تامر اخى وصديقى ايسم واترككم مع البرنامج فى رعاية الله وفى انتظار تعليقاتكم