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

عدنا ... الارصدة : مبالغ وأصناف في الاستعلامات ، لتوظيفها في اي مكان وتجدونها في النماذج : في رأس الفاتورة يظهر رصيد المبلغ وفي تفاصيل الفاتورة عند اختيار الصنف من مربع التحرير يظهر الرصيد testPro14.rar

بدون الشرط سيتم عرض جميع السجلات اما بوضع الشرط فلن يتم الا ما يوافقه في النموذج تحياتي

وعليكم السلام ورحمة الله وبركاته قم بتعديل الكود في النموذح الى DoCmd.OpenReport "mdfoaatSub", acViewPreview وفي التقرير وفي مصدر التقرير وفي حقل id ضع الشرط التالي في المعيار [forms]![Mad]![id] تحياتي

اخي سلوم يبدوا ان الخطأ يظهر حين تغادر التفاصيل بدون ادراج بيانات او بعد الحذف والخروج ، وهذه امور فنية وهي لا شك بحاجة الى وضع لتجاوز مثل هذه الرسائل والاخطاء اخي محمود هذا السطر هو المسؤول عن جلب الرصيد ويمكنك توظيفه في اي مكان : textRseed = Nz(DLookup("Rseed", "QryArsedh", "ID_fGnt=" & Me.ID_fGnt), 0) بشرط وجود رقم العميل في الفورم او التقرير وعلى فكرة .. يجب قبل اختبار المشروع ادراج بيانات وافية وكافية وصحيحة مثلا في المثال السابق اضطررت لتصحيح البيانات ، فانتم رفعتوا المثال وهو يحتوي على بيانات غير منطقية ، فكيف يتم بيع اجهزة لم يتم شراءها بعد ؟ طبعا مثل هذه الامور بحاجة الى ضبط مسبق لا يكون للمستخدم تدخل فيه بحيث لا يمكنه بيع سلعة غير موجودة على كل حال انتظر محاولاتكم في الاستفادة والتعديل والتطوير فانتم مبرمجين وكل من يمر من هنا معكم وما زلنا نتعلم

السلام عليكم ورحمة الله وبركاته انا احد الاشخاص الذين لا يحبذ ان يستعمل الكود في تخفيف أمان الاكسس ، فقد وضعته شركة مايكروسوفت في حزمة الاوفيس حتى تحمينا من ايدي المخربين ، وفي هذا الرابط شرحت كيفية عمل مجلد موثوق به للأكسس 2007 فما فوق: http://www.officena.net/ib/topic/66450-دمج-ملف-وتشغيله-قبل-أو-مع-بدء-اكسس/#comment-432363 المشكلة في كود تخفيف الامان ، انه لا يخفض مستوى أمان الاكسس لبرنامجك فقط ، وانما يخفض مستوى أمان جميع برامج الاكسس. ولكننا كمبرمجين لدينا مشكلتنا ، في انه اذا ارسلت برنامجك الى شخص ما ، فلا بد من التواصل معه و اعطاؤه الخطوات كما في الرابط ، وإلا فالبرنامج لن يعمل ، لان البرنامج يشتمل على الماكرو والوحدات النمطية. هنا اقدم لكم طريقة لجعل برنامجي فقط يعمل بمستوى أمان أقل ، فلا تظهر لي رسالة الأمان من الاكسس. العمل كله يدور حول كود ، ويجب حفظ الكود هذا في ملف بصيغة vbs ، والذي يجب ان نفتح برنامجنا عن طريقه. الكود يعمل على برامج الاكسس بصيغة mdb و accdb ، والمفروض ان يعمل على جميع اصدارات الاكسس 2003 فما فوق ، وعلى الاكسس 32بت و64بت (انا هنا اطلب من الشباب تجربته بإصدارات الاكسس التي يعملون عليها ، وإخبارنا بالنتيجة لوسمحتوا). اليكم طريقة العمل (رجاء انزال المرفق وفكه في المسار C:\jj ، وذلك حتى يمكنكم متابعة خطواتي): رجاء وضع البرنامج المرفق Seq.mdb حسب المسار التالي: C:\jj\Seq.mdb الآن اذهب الى المجلد C:\jj وافتح البرنامج Seq.mdb بالنقر المزدوج ، عند فتحه نرى رسالة أمان الاكسس ، وهذا متوقع ، وذلك بسبب انه في مجلد غير موثوق به (رجاء لا تضف هذا المجلد كمجلد أمان ، وانما اخرج من البرنامج). . الملف الآخر المرفق Seq.vbs ، يحتوي على هذا الكود: rem http://www.accessmvp.com/jconrad/accessjunkie/macrosecurity.html rem expression.OpenCurrentDatabase(filepath required, Exclusive optional, bstrPassword optional) dim o set o=createobject ("Access.Application") o.automationsecurity=1 ' set macro security LOW. o.opencurrentdatabase "C:\jj\Seq.mdb" o.usercontrol=true set o=nothing . تستطيع ان تجعله في اي مجلد (ممكن تجرب نسخه منه في اي مجلد شئت) ، وانقر مرتين على هذا الملف بُغية تشغيله ، سترى انه فتح البرنامج Seq.mdb ، وبدون رسالة أمان الاكسس ، وهو المطلوب ------------------------------------------------------------------------------------------------------------------------------------------- هذه الخطوة إضافية ، وهي لتحويل الملف السابق من صيغة vbs الى exe ، واختيار ايقونه للملف الجديد الآن ننتقل للخطوة التالية ، وهي ، اننا لا نريد ان ايقونة vbs ، وانما نريد ايقونه خاصة لبرنامجنا. هناك طريقتين: 1. ايقونة مختصر البرنامج Shortcut: وهي ان نعمل مختصر لملف Seq.vbs ، ولكن وللأسف مختصر ملف vbs يعطينا نفس ايقونة الملف نفسه ، وما عندنا طريقة لتغييرها!! لذلك ، سنعمل مختصر لملف الاكسس ، ونغير البيانات كالصورة التاليه ، بحيث يصبح مختصر ملف vbs يحتوي على ايقونة ملف الاكسس (طبعا يمكنك ان تغير الايقونة الى اي شئ شئت): . . . . وبهذه الطريقة غيّرنا ايقونة برنامج vbs الى ايقونه اخرى مناسبة 2. تحويل ملف vbs الى ملف تنفيذي exe ، وتختار له الايقونة التي تعجبك: رجاء انزال البرنامج المجاني Vbs to Exe من الرابط التالي: http://www.f2ko.de/en/v2e.php احد اسباب اختياري لهذا البرنامج ، اننا نستطيع التحكم به عن طريق Commandline ايضا ثم نتبع الخطوات التالية: ونستطيع ان نعمل لبرنامج vbs هذا كلمة سر كذلك ، . في الخطوة 6 تستطيع ان تكتب معلومات شركتك ، ونختار الايقونه التي نريدها للبرنامج (الخطوة 5) . . وتستطيع ان تجعله على سطح مكتب كمبيوترك الميزة في هذه الطريقة ، ان المستخدم لن يعرف مكان برنامج قاعدة البيانات Seq.mdb ، ولن يعرف الكود الذي كان في Seq.vbs ارجو ممن يضع ردا على الموضوع ، ان يذكر: 1. اذا اشتغل البرنامج على كمبيوتره ، 2. نسخة الاكسس التي يستخدمها. ملاحظة: الظاهر ان بعض متصفحات الانترنت حجبت انزال المرفق Seq.zip ، وذلك بسبب احتوائه على ملف vbs ، والذي يستخدمه الكثيرون لتخريب الكمبيوتر ، لذلك ، ارفق لكم Seq_2.zip والذي يحتوي على نفس ملفات Seq.zip ، ولكني غيرت صيغة الملف Seq.vbs الى Seq.txt . بعد انزال المرفق وفك ملفاته في الكمبيوتر ، رجاء تغيير مسمى الملف Seq.txt الى Seq.vbs جعفر Seq.zip Seq_2.zip

أخواني واخواتي أعضاء صرحنا العظيم اوفيسنا **************** وجد ان موضوع مستحقات نهاية الخدمة بالاخص في السعودية يشغل بال الكثيرون من المهتمين بالمجال نظرا لما فيه من حقوق واعباء ففكرت في عمل النموذج حتي لا تضيع الحقوق علي اصحابها نتيجة خطأ في تطبيق قاعدة في قانون العمل او لائحة الشركة راعيت في النموذج قوانين مكتب العمل التي نظمت حقوق العامل عند نهاية العقد او الاستغناء عنه او الاستقالة بحالتها المختلفة 1- اذا كانت فترة العامل اقل من سنتين 2- اذا كانت فترة العامل مابين السنتين والخمس سنوات 3- اذا كانت فترة العامل مابين 5 :10 سنوات 4- اذا كانت فترة العامل اكبر من عشر سنوات وكذلك في الادخال بما يتناسب مع سياسة الشركة اوعقد العامل مثال علي ذلك بدل السكن ( بعض الشركات لاتدخله) ضمن راتب المكافأة وشركات اخري تحسبه بما يقابل راتب شهرين عن سنة واخري تحسبه بما يقابل ثلاثة شهور وكذلك راعيت بدل الاجازة السنوية (30 يوم عن كل سنة لكامل الفترة ) او( 21 يوم للخمس سنوات الاولي ومازاد عنها 30 يوم ) طرق ادخال التاريخ عن طريق الفورم لعدم الاخطاء استخدام التقويم الميلادي او الهجري - ام القري في الحساب تم تخصيص ملاحظات تحت كل حساب يظهر العمليات والقوانين التي اتبعت في الحساب وتناولت الموضوع بفكرة جديدة *********** فورم اخري اسميته الادخال السريع ********************* لضمان عدم الاخطاء في الادخال حيث ان كل مرحلة في الفورم لابد من تعبئتها ليمكنك الانتقال للخطوة التالية الي جانب طباعة النموذج بشكله النهائي الشكل الاخير بعد معالجة المدخلات كالتالي انا جعلت موضوع الفورم جزء من قاعدة شئون الموظفيين الجديدة بشكل جديد ان شاء الله قريبا سوف يتم طرحها لكم وارفقت قوانين العمل حسب مكتب العمل السعودي لتكون مرجع في حالة عدم وجود مرجع ثابت او لائحة منظمة لذلك داخل الشركة ويمكنك الاطلاع علي شروط واحكام الحساب عند ضغطك علي خيار " أحكام حساب المستحقات باسفل الفورم ) كما ان بعض الشركات لاتقوم بابرام عقود للعمال فيكون المرجع الاساسي (قانون مكتب العمل ) أدعوا الله سبحانه وتعالي ان اكون وفقت في عملي هذا (( وَمَا أَسْأَلُكُمْ عَلَيْهِ مِنْ أَجْرٍ إِنْ أَجْرِيَ إِلَّا عَلَى رَبِّ الْعَالَمِينَ )) الشعراء/109. ولكنني اطمع بصالح دعائكم بظهر الغيب مستحقات نهاية الخدمة.rar

يرجى تسمية الأقسام الجديدة التي ترون انه من المفيد أضافتها للموقع هذه بعض المقترحات التي وردتنا سابقا ، برجاء ابداء الراي : ملاحظة ليس بالضرورة اضافة كل ما سيرد ، و ليكن سيتم بحث الأمر باذن الله و اختيار ما يناسب الموقع فى الوقت الحالي مع تلبية الرغبات الواردة قدر المستطاع قسم للبحث العلمي و به الأقسام التالية: - مناهج البحث العلمي - علم الاحصاء - SPSS - R & ORange قسم للغات البرمجة .net العام - VB.net - C#.net - C++.net - Python - Delphi - VB6 تطبيقات الويب - PHP - Java Script - My SQL دعم منديات الاي بي قسم للدعم الفني للشبكات و انظمة التشغيل - أنظمة الويندوز - اللينكس - الشبكات الأمن و الجماية قسم للرسوميات و الوسائط المتعدد - ادوب فوتوشوب - ادوب ديزياين - ادوب اليستراتور - أتوكاد 3 دي ماكس

السلام عليكم اهداء لهذا المنتدى الرائع سبحان الله متحركة الكود المستخدم ....... عند عداد الوقت 1500 ...... If Me.NewRecord Then DoCmd.GoToRecord , , acFirst Else DoCmd.GoToRecord , , acNext End If سبحان الله1.rar

جعله الله بميزان حسناتك جزاك الله خير

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

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

السلام عليكم ورحمة الله وبركاته انا تأخرت كتير على هذا الموضوع الجميل انا استخدمت على ويندوز 7 - 32 بت اوفيس 2010 - 32 بت وحقا طريقة رائعة جدا اسمح لي ان ارد عليك يا @kaser906 اتفضل اليك هذا وفتحه هل وصلت للنتيجة المطلوبة ؟ jj.rar

اتفضل القي نظرتا الى مصدر كومبوبوكس الادارة db1.rar

نعم وغالبا هي microsoft Office opject library

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

استخدم الصيغة التالية Call Shell("XCOPY /Y E:\MAF\PQD_BE.accdb C:\Users\" & Environ ("UserName") &"\Dropbox\", 1)

أقدم إليكم اليوم طريقة للبحث عن أكواد الVBA في العم جوجل و ذلك بكتابة العبارة الآتية .......VBA CODE TO

عند عمل واجهة يوزر فورم بالاكسل عن طريق اسم مستخدم وكلمة مرور بعد الادخال و تشغيل برنامج الاكسيل تظهر واجهة الاكسل اولا ثم تختفي وتظهر واجه اليوزر فورم علما انني استخدمت الكودات التاليةPrivate Sub Workbook_Open()Application.Visible = Falseform1.ShowEnd Sub-----------------------------------------Private Sub CommandButton1_Click()ThisWorkbook.SaveApplication.QuitEnd SubPrivate Sub TextBox2_Afterupdate()If TextBox2.Value = "123" ThenMsgBox "open", , "open"form1.HideApplication.WindowState = xlNormalApplication.Visible = TrueElseMsgBox ("ßáãÉ ÇáÓÑ ÛíÑ ÕÍíÍÉ")End IfEnd SubPrivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)Cancel = TrueEnd Sub

السلام عليكم ورحمة الله وبركاتة أسعد الله أوقاتكم بكل خير ومحبة وسعادة أولاً أتمنى أن تقبلوني أخ لك في هذا المنتدى الرائع والذي جعلني أتصفحه بشكل يومي ولساعات كثيرة نظرا لتلبية طلبات الاعضاء والاهتمام الزائد من قبل الادارة الكريمة وخاصة الأخ ضاحي الغريب له مني شكر خاص على اهتمامه الكبير في المنتدى .. سأبدا في الموضوع لكي لا أطيل عليكم في الوقت محتاج نموذج بسيط جدا وهو عبارة عن إيداع نقدي وسحب نقدي بإختصار نموذج بنكي نظراً لأن معاملتي لدي البنك كثيرة وبشكل يومي احتاج لنموذج بنكي لكي اسجل به المبلغ الذي اودعته والمبلغ الذي سحبته شرح بسيط عن النموذج وبعض الامثلة الذي اريدها : أن يكون خيار إسمه ( قسيمة إيداع نقدي ) عندما أقوم بالضغط على هذا الخيار يظهر لي صفحة بها خانات كالتالي : تاريخ الحركة بالميلادي : 05/01/2014 رقم التلر : 1003 الوقت : 20:34:13 رقم الحساب : 0605630 الحساب المرجعي : 000/0300/003/0605630/0482 اسم المودع : *************************** المبلغ المودع : 200.00 دولار أمريكي قيمة العمولة : 00.00 دولار المجموع الكلي : 200.00 دولار امريكي فقط لا غير المبلغ بالاحرف : مئتان دولار أمريكي فقط لا غير -------------------------------------------------------------------------------------------------------------------------- خيار السحب النقدي وهو عندما اقوم بالضغط على السحب النقدي تظهر لي صفحة بامكاني ان اسجل بها المبلغ الذي سحبته والتاريخ ورقم الحساب كما ذكرت اعلاه .. الرجاء من الاخوة الذين لهم خبرة في هذا المجال مساعدتي وذكر لي المبلغ ومدة العمل وانا مستعد ادفع المبلغ المطلوب بانتظار الرد

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

يمكن إضافة ترقيم تسلسلي للقوائم في التقرير أي دائما يبدأ بالرقم 1 , 2 , 3 ...الخ على حسب عدد السجلات كما يلي: نضبف مربع نص و نكتب فيه "1=" ثم نذهب إلى خصائص و نختار قائمة بيانات و نغير قيمة مجموع تراكمي إلى "مجموعة إضافية". و إليكم المثال التالي للتوضيح أكثر. ترتيب تسلسلي.rar

السلام عليكم إخواني الكرام ... أشعر أن المنتدى كله مركز على الأسئلة والطلبات أكثر من الموضوعات التعليمية .. فإليكم درس خفيف ظريف ولن يستغرق منك في دراسته أكثر من 4 دقائق .. ************** نتحدث بشكل سريع عن استخدام دالة VLOOKUP للبحث عن جزء من النص داخل نطاق .. إليكم الملف المرفق به الشرح ، وأي استسفار أو سؤال لا تتردد واسأل ، لا تخجل من السؤال مهما بدا تافهاً لأن السؤال طريق ..طريق (وكله مطبات) بس هو طريق المعرفة .. VLOOKUP Text Inside A String.rar

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

اخي : mmjksa بعد اذن زملائي الاستاذ : دغيدي و almahf اليك الحل الاقرب لما تريد ، وقد يكون هو فعلا ما تريد ، باستخدام إحدى ميزات برنامج الاكسيل المتضمنة ، وقد استخدمتها في الوصول للنتيجة بالمرفق مع الاخذ في الاعتبار اولا : ضرورة فرز الاسماء في حالة اختلاط الاسماء اي عدم ترتيبها . ثانيا : ان يكون الجدول ذو اعمدة مسماه ( يعني العمود الاول بعنوان الاسم و الثاني المبلغ ) الميزة هي المجموع الفرعي ، وخطوة خطوة اسردها لك ، في البداية حدد الجدول ومن قائمة بيانات اختر مجموع فرعي DATE--> SUBTOTAL وعند ظهور الشاشة التالية ستجد عدة اختيارات الاول يخص .. مجموع فرعي عند كل تغير في .. وهنا اختر الاسم الاختيار الثاني يخص اختيارك للدالة التي تريد استخدامها في الوصول للنتيجة التي تريد .. وهنا اختر دالة الجمع SUM الاختيار الثالث يخص اختيارك لما تريد من دالة الجمع التي سبق لك اختيارها ان تقوم بجمعه .. وهنا اختر المبلغ في نهاية الشاشة اختر وحدد اخر مربع صغير ليضع البرنامج ملخص للجمع اسفل الجدول .. ثم موافق ستجد الجدول كما هو بالمرفق مع ملاحظة : *** وجود ثلاثة مربعات صغيرة مرقمة على يمين الجدول وتعني في حالة الضغط عليها 1- الاجمالي لكل الاسماء 2- جملة كل اسم بدون تفاصيل 3- كل الاسماء مع جملة كل اسم يعني الاسم وتفاصيل المبلغ جرب الضغط على المربعات ولاحظ التغير في النتيجة ارجو أن يكون الشرح واضح مع تحياتي حسن علي subtotal.rar

أخى الفاضل / almahf عند نهاية كل اسم متشابهه يوضع كلمة المجموع ومجموع المبالغ فى عمودين متجاورين. ملحوظة يجب أن تكون الأسماء المتشابه متجاورة . تحياتى ** دغيدى ** جمع كل مبالغ اسم متشابهه.rar

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