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

بسم الله الرحمن الرحيم وبه نستعين المرفق التالى تطبيقا لنص فقرة من قانون أردت وضعه هنا للإفادة تقبلوا وافر تقديرى واحترامى **** وجزاكم الله خيرا إجماليات أكثر من قيمة لنفس الاسماء المماثلة بالمصنف.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://safariexamples.informit.com/0672325500/Examples/ موقع فى اكثرمن210 مشروع اكسس

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

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

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

السلام عليكم انا اشتغل على ( برنامج ادارة المتدربين ) وانا مبتدئ في الاكسس وحاولت ولم افلح اذا ممكن من اعضاء المنتدى مساعدتي في بعض الامور 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

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

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

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

وعليكم السلام على فرضية ان الحقل 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

جرب الكود التالي في حدث ورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then If Target.Value <> 2 Then Application.EnableEvents = False Target.ClearContents Application.EnableEvents = True End If End If End Sub

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

وعليكم السلام ورحمة الله ... فيما يظهر لي أن ذلك موجود في الشرح الأول في أول الموضوع ..

حياكم الله أجمعين وأعتذر لانقطاعي والحمد لله ... مرفق المطلوب طريقة البحث في النموذج الفرعي.rar

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

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

طريقة ثانية : البحث في النموذج الفرعي نفرض أن لدينا مكتبة في جدول باسم Book تحوي اسم الكتاب والمؤلف والناشر وتاريخ النشر ونرغب في عمل مربع بحث مشترك بحيث عند الكتابة فيه يبحث في أي خانة مباشرة سواء كان اسم الكتاب أو المؤلف أو الناشر ... فالعمل على النحو التالي : 1) ننشئ جدولا باسم Book ونضمنه الحقول المطلوبة من اسم الكتاب والمؤلف والناشر ... إلخ. 2)ننشئ نموذجا مرتبطًا بالجدول (نماذج مستمرة) ونسميه FoBook. 3) ننشئ نموذجا آخر من جديد ثم طريقة عرض التصميم . 4) في رأس النموذج نضع مربعي نص الأول نسميه Text1 والآخر text2 5) في مربع النص text1 من الخصائص حدث عند التغيير نضع الكود التالي Dim x x = Text1.Text text2 = x Me.FoBook.Requery حيث text1 اسم مربع النص الأول و text2 اسم مربع النص الثاني وFobook هو اسم النموذج الذي تم عمله كما في الفقرة 2. 6) من خصائص مربع النص text2 تنسيق مرئي (لا). 7) في خانة التفصيل من هذا النموذج ندرج نموذج فرعي ونختار استخدام نموذج موجود ثم نختار نموذج FoBook. 8) نغلق النموذج ونقوم بحفظه باسم FoormBook 9) نعود للنموذج FoBook (الذي تم عمله في الفقرة 2) ومن خصائص النموذج بيانات مصدر السجل ثم نضغط على النقاط الثلاث ثم يطلب هل تريد عمل استعلام ثم موافق يفتح لك استعلام أدرج فيه حقول الجدول كافة. 10) وفي هذا الاستعلام ضع الكود التالي تحت كل حقل تريد البحث فيه في خانة معيار مع ملاحظة تدرجة في كل مرة في أو كما في المثال ثم اغلق واحفظ عملك Like "*" & [Forms]![Foormbook]![Text2] & "*" 11) ارجع إلى النموذج FoormBook واكتب في مربع النص الظاهر أمامك وتجد آليه البحث قد عملت.. أ والله الموفق طريقة البحث في النموذج الفرعي.rar

حيااك الله أبا آدم وسعدت بمرورك ولا نستغني بعد الله عن توجيهاتك