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

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

السلام عليكم اسمحو لي بالمداخلة لوجود التباس طريقة السؤال توحي ان المسألة جمع وطرح والمطلوب حقيقة اعداد ما عدا الاجازات استخدم الدالة DCount بدلا من DSum واستبدل id في الاكواد اعلاه الذي تفضل بها اخونا الوزير استبدلها بالقسم

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

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

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

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

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

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

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

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

وعليكم السلام ورحمة الله وبركاته قم بتعديل كود الفتح الخاص بك الى : DoCmd.OpenForm "Realisation", , , "[Opérateur]=" & Me.cboUser.Column(0) وقم بتحويل حقل Opérateur الى مربع نص بدل الكومبو لانك لن تحتاجه عند تعطيله ثم اضف في القيمة الافتراضية للحقل:Opérateur =[Forms]![frmlogin]![cboUser] ثم من خصائص بيانات النص اجعل الحقل ممكن = لا ، مؤمن = نعم الشكر والتقدير للاستاذ عبد الفتاح كيرة على هذا الشرح الرائع :: تحياتي waz-Realisation.rar

وعليكم السلام احمد عدلت على الملف المرفق..جرب و خبرنا اسم المستخدم user1 و كلمة المرور 111 تحياتي Login Form.zip

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

السلام عليكم ورحمة الله وبركاته من الله علي بطريقة لعمل Tool bar او Ribbon Bar مثل البرامج الاحترافية وهي كالتالي وأسأل الله ان تفيد الجميع عمل Tab control في رأس انموذج ثم اضافة التبويبات حسب التصنيف الذي ترغب فيه مثلا تبويب للعملاء وتضيف اليه جميع الازرار الخاصة بالنماذج والتقارير ثم تبويب اخر للموردين وتضيف اليه كذلك ما تريد من ازرار ثم بعد الانتهاء من اضافة التبويبات المطلوبة تذهب الي خصائص الTab Control وتذهب الي خاصية Back style وتجعلها Transparent وبدلا من الازرار التقليدية يمكنك اضافة صورة واضافة امر لها عند النقر ولاضافة خاصية اخري يمكنك جعل المؤشر عند المرور علي الصورة ان يظهر شكل اليد لتكون افضل شكلا مرفق مثال ومدرج به موديول خاص بتغيير شكل المؤشر لشكل اليد عند المرور علي الصورة اي استفسار انا تحت امر الجميع مع خالص الشكر لاعضاء المنتدي المحترمين واسال الله ان ينفع بهذا العمل وان يجعله خالص لوجهه الكريم مرفق المثال Test.rar

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

شاشة الدخول تاخد بيانتها من صفحة الصلاحيات لو محتاج تغير شاشة الدخول وممكن مسح كل ما بداخل الملف ووضع شيتاتك مع الحفاظ على صفحة الصلاحيات اما اذا كنت تريد الطريقة اليك الشرح داخل السلسلة للفيجوال بيسك http://www.officena.net/ib/topic/65629-سلسلة-دروس-الفيجوال-بيسك-6-والاكسيل-من-علي-مصطبة-ياسر-العربي/ اما اذا كان الموضوع شاق عليك ممكن اعملك الشاشة بالشكل اللي تحتاجه وكلمة المرور للملف التي تحتاجها حتى تحميه من الفتح مستقل انظر اولا للموضوع لتعرف الفكرة وبعدها قرر تقبل تحياتي

شكرا أستاذ خليل و أستاذ عبد الفتاح

أكرمك الله أخى الأستاذ صالح و بارك فيك

جزاك الله خيرا أستاذ عبد الفتاح

السلام عليكم انا اشتغل على ( برنامج ادارة المتدربين ) وانا مبتدئ في الاكسس وحاولت ولم افلح اذا ممكن من اعضاء المنتدى مساعدتي في بعض الامور 1- البحث بالشهر بطرقتين ا- (عن المتدربين الجدد) ب - (عن المتدربين الجدد + المتدربين اللذين لم ينتهي تدريبهم) 2- يوجد خلايا فارغة في حقل StartDate كيف يمكن تفاديها 3- النموذج (program1) احصائية عدد المتدربين لكل شهر (المتدربين الجدد + المتدربين اللذين لم ينتهي تدريبهم) تقبلوا تحياتي qq2010.rar

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

تفضل لعله المطلوب RealisationReintegration - 7.rar

السلام عليكم قم بضغط المرفق ببرنامج الضغط WinRar قبل الرفع

الاخوة الكرام كيف يتم تحويل مدخلات الى منتج تام و اخراجها فى فاتورة المبيعات علما بانه لا يوجد صنف لها فى منتج نهائى من عدة مدخلاتو كيف اجرى عليها كل عمليات المخزن

وعليكم السلام ورحمة الله وبركاته نعم اخي ابو خليل ،،، لبس علي الموضوع كما تفضلت انا ظننت انه اراد حساااب الحقول النصية زادك الله علما اخي العزيز :: تحياتي

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

وعليكم السلام ورحمة الله وبركاته لاستخدام النموذج: =DSum("[FieldNm]","[tblName]","[id]=" & "'" & [id] & "'") حيث Id ايضا حقل نصي وهنا جمع حقل نصي و Id رقم =DSum("[FieldNm]","[tblName]","[id]=" & [id]) هنا للاستعلام: Expr:DSum("[FieldNm]","[tblName]","[id]=" & "'" & [id] & "'") Expr:DSum("[FieldNm]","[tblName]","[id]=" & [id]) بنفس الطريقة تستطيع استخدام Dlookup واي شي احنا في الخدمة اخي بو نادر :: تحياتي

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

مجهود رائع اخي الكريم عامر ياسر وطالما اسمك يضم ياسر يبقي ربنا هيكرمك اخر كرم حبيت اسهل عليك بعض الامور في ترحيل البيانات خصوصا البيانات ذات الاعمدة كبيرة العددوعملت لك مثال يبسط ليك الترحيل في كام سطر كدا صغيرين بدل ماا تكتب لكل خليه سطر وتاخد مجال كبير في الكود وفي مسج الخلايا والوقت الكود Private Sub CommandButton1_Click() Dim LR As Long Dim I As Long LR = Cells(Rows.Count, 1).End(xlUp).Row + 1 For I = 1 To 20 Application.ScreenUpdating = False Cells(LR, I).Value = Me.Controls("TextBox" & I).Value Me.Controls("TextBox" & I) = "" Next Application.ScreenUpdating = True End Sub الكود بسيط باذن الله عبارة عن حلقة تكرارية من 1 الى 20 بعدد الاعمدة وعدد التكست بوكس وبدل ما نكتب ارقام الاعمدة وارقام التكست بوكس نكتفى بوضع المتغير I وهو يقوم بالمطلوب وهو الترحيل من 1 الى 20 ترحيل.rar

السلام عليكم ممتاز استاذ عامر

بارك الله فيك أخي العزيز عامر وجزيت خيراً واصل بلا فواصل ..

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

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

أخي الكريم عامر ياسر إثراءً للموضوع .. كنت قد قدمت من فترة موضوع بنفس الفكرة على الرابط التالي الرابط من هنا وقمت بعمل بعض التعديلات ليتناسب الكود مع ملفك .. إليك الكود التالي ويوضع في موديول عادي Sub SplitList() 'تعريف المتغيرات Dim shSource As Worksheet, shTarget As Worksheet Dim rList As Range, rListA As Range, rListB As Range Dim hCount As Long, tCount As Long Const colNum As Integer = 5 'عدد أعمدة النطاق المراد عمل إنشطار له 'تعيين ورقة العمل المصدر التي تحتوي القائمة الرئيسية وورقة العمل الهدف Set shSource = Sheets("البيانات") Set shTarget = Sheets("الناجحون") 'تعيين النطاق الذي يحتوي على القائمة المراد شطرها Set rList = shSource.Range("A5:A" & shSource.Cells(Rows.Count, "B").End(xlUp).Row) 'تعيين بداية النطاق للشطر الأول من القائمة Set rListA = shTarget.Range("A5") 'تعيين بداية النطاق للشطر الثاني من القائمة Set rListB = rListA.Offset(, colNum) 'تعيين قيمة المتغير ليساوي عدد خلايا النطاق المصدر tCount = rList.Cells.Count 'تعيين قيمة للمتغير ليساوي تقريب قيمة قسمة المتغير السابق ÷ 2 hCount = Round(tCount / 2, 0) 'مسح النطاق الذي ستظهر فيه النتائج للشطر الأول والشطر الثاني shTarget.Range("A4:J10000").ClearContents 'وضع نتائج الشطر الأول rListA.Resize(hCount, colNum).Value = Range(rList(1).Address(External:=True) & ":" & rList(hCount).Address(External:=True)).Resize(hCount, colNum).Value 'وضع نتائج الشطر الثاني rListB.Resize(tCount - hCount, colNum).Value = Range(rList(hCount + 1).Address(External:=True) & ":" & rList(tCount).Address(External:=True)).Resize(hCount, colNum).Value MsgBox "Done ..." & vbNewLine & "Best Regards" & Chr(10) & "YasserKhalil", 64 End Sub تقبل تحياتي

بعد اذن الاخوة الكرام تفضل المرفق وبه طريقة تفعيل الماكرو بدون تتدخل من المستخدم وحماية للملف بكلمة مرور من الخارج ولا تفتح الا من داخل الشاشة الافتتاحية فقط مع فورم تسجيل الدخول ايضا كلمة المرور لفورم التسجيل اسم المستخدم Yasser كلمة المرور 123 كلمة مرور ملف الاكسيل المحمي 01097192367 تقبلو تحياتي اجبار الماكرو على العمل.rar

أستاذي الكبير ومعلمي الفاضل أبو تامر بارك الله فيك وجزيت خير الجزاء على هذه الدرر التي حرمنا منها كثيراً ولكن مشئية الله أرادت لنا الخير بعد طول انتظار جربت الملف المرفق واطلعت على الأكواد ووجدت أن اسم المصنف الحالي يدرج في قائمة الملفات ولتفادي المشكلة (حيث يتسبب في تهنيج برنامج الإكسيل) قمت بعمل إضافة بسيطة جداً لعدم إدراج اسم المصنف الحالي .. وذلك بعد سطر الحلقة التكرارية في الإجراء الفرعي المسمى Sub ListMy_Files(Path, Sub_Folder As Boolean) حيث قمت بإضافة السطر التالي If My_File.Name <> ThisWorkbook.Name Then ........... End If وذلك ما بين سطري الحلقة التكرارية For Each My_File In My_Source.Files ......... Next My_File وفي الإجراء المسئول عن عملية البحث عن الملف قمت بإضافة سطر في حالة لم يتم اختيار ملف من الخلية A2 File_Name = Range("A2") If IsEmpty(File_Name) Then MsgBox "No File To Search!", vbExclamation: Exit Sub تقبل وافر تقديري واحترامي

شاهد هذا 90 بالمائة مما تريد آسف ليس هذا بل هذا

الأخ الكريم بوب2016 تم تنفيذ المطلوب abo_abary_تصميم شيت1.rar

وعليكم السلام ورحمة الله وبركاته حياك الله اخوي ابو نادر اذا تم حفظ السجل فيجب ان نقوم بحذفه لانه اصبح سجلا. اما اذا لم يتم حفظه فيمكننا عمل زر امر تراجع : Me.undo ويجب ان يكون الزر في نفس النموذج. ارفق مثالاً بسيطا وسوف يتم المطلوب ان شاء الله :: تحياتي

اذا كان مصدر التقرير استعلام فالمسألة يسيرة جدا ففي حقل جديد في الاستعلام تكتب هذا الكود باعتبار ان الحقل الذي يحمل القيمة -1 اسمه fld1 expr1:iif ([fld1]=-1;"غ";"") لاحظ انك ستجعل الحقل expr1 هو مصدر الـــ غ في التقرير

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

if me.frtxt<14 and me.frtxt>27 then msgbox"السلام عليكم و رحمة الله و بركاته" end if في مكان السطر الثاني تكتب الأمر الذي تريده

الاخ صلاح الصغير قائمة الفلدرات كانت لللتوضيح فقط من قبل الاخ aladdien ولكن عند اضافة اي ملف يظهر ففيي القائمة المنسلة

السلام عليكم ورحمة الله وبركاته أحسنت أستاذي العزيز على هذه الفكرة لأنها تواجهني بكثرة وأضفت إلى الكود هذه الفقرة لأنها تواجه من ينسخ الكلام من متصفحات الانترنت ' استبدال فاصل الأسطر اليدوي بعلامة الفقرة Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^l" .Replacement.Text = "^p" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll

الاخ aladdien شاهد المرفق All Files.rar

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

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

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

اخواني الكرام بعد التوكل على الله ثم الاستشارة وحسب رغبة بعض الاخوة نبداء على بركة الله هذه الدورة شروط الدورة: تقتصر الدورة على شرح الفيجول بيسك للتطبيقات VBA ولا علاقة للمعادلات بهذه الدورة لذا نرجو ان يقتصر السؤال والاستفسار حول الاكواد فقط. عدم إضافة عبارة الشكر (نشكر الجميع على تقدير الجهود) حتى لا يحتاج الموضوع الى تنقيح فإن أعجبك شرح أو رد يمكنك تقييمه من خيار أعجبني شكراً. ان يكون موعد الاستفسارات حول الجزء المطروح للشرح خلال 24 ساعة فقط ويتم الانتقال الى جزء أخر لتعميم الفائدة. سيكون الشرح بشقين كتابي ومرئي. على الاساتذة الذين يشاركون في الشرح اخذ الشرط الثالث بالاعتبار (مشكورين). * سيتم حذف أي مشاركة لا يتم التقيد فيها بالشروط. == تم نقل جميع مشاركات النقاش الى هنا =============================== دروس الدورة ============================= الدرس الاول1 الدرس الاول2 الدرس الثاني الدرس الثالث الدرس الرابع 1 الدرس الرابع 2 الدرس الرابع 3 اساسيات لغة VBA كلغة برمجة (نظري) الفصل الثالث ج1 الفصل الثالث ج2 اسئلة الدورة (الجزء الاول)

السلام عليكم