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

أخي الحبيب أبو عبد الرحمن أنا اللي مطنش ولا إنت اللي مشغول عننا .. لو إنت متابع كنت عرفت إني عملت مدونة جديدة خاصة بي ، وفيها حوالي 58 موضوع للآن .. وفيها موضوعات دسمة ومفيدة بس إنت اللي مش متابع رابط المدونة في التوقيع الخاص بي .. عموماً في انتظارك طلتك البهية على المدونة (بس مقلتش بهية مين دي !! تعرفها .. ولا أنا) تقبل تحياتي

السلام عليكم ورحمة الله وبركاته وبعد احبتي اليكم طريقة لاستخراج ارصدة الاصناف المتوفرة في المستودع وهي دالة تخرج لنا رصيد الصنف بمجرد تمرير رقم الصنف عليها اليكم الدالة مع الشرح Public Function alRaseed(ByVal vsenf As String) ' vsenf هو متغير نصي ويمكن ان يكون رقمي وهو يمثل رقم الصنف Dim shra, bai As Integer 'متغيرات رقمية shra = Nz(DSum("kmyahB", "tbl_buy", "N_mad=" & vsenf), 0) ' مجموع عدد الاصناف المشتراه من الصنف المحدد bai = Nz(DSum("kmyahS", "tbl_sales", "N_Mda=" & vsenf), 0) ' مجموع عدد الاصناف المبيعة من الصنف نفسه alRaseed = shra - bai ' الرصيد المتبقي End Function 'وفي النموذج ا Private Sub Cmd1_Click() text1 = alRaseed("0000121") 'الرقم بين القوسين يمثل معرف الصنف 'ويمكن ان نضع داخله اسم حقل الصنف End Sub اذا الشرح غير كافي يمكنني زيادة الايضاح

السلام عليكم بعد اذن اساتذة المنتدى الكرام هذه اول مشاركة لى بملف على هذا المنتدى العظيم .قمت يالتعديل والأضافة على بعض الشيتات الخاصة بالكنترول للصف الثانى الثانوى لما وجدت من بعض القصور فقمت ببعض الأضافات وأهمها ( ضم القسم العلمى والأدبى بكل فروعهم فى شيت واحد - كما ضميت كذلك طلبه المنازل ) ( تقريب الكسور فى المجموع الكلى للدرجة ) واتوجة بالشكر الى كل الأساتذة الموجودين بالمنتدى الذين تعلمت منهم الكثير وأخص بالذكر الأستاذ رجب جاويش على افكارة الرائعة فى الشيت كنترول الخاص بالثانوى العام التى اخذت منها الكثير واضفته للبرنامج وكذلك الأستاذ سامى الهادى وكذلك الأستاذ العلامة عبدالله باقشير الذى افادنى كثيرا فى تفقيط مجموع الطالب وهذه نسخة اولية ارجو التفضل بابداء ملاحظاتكم عليها. كلمة السر 123 ونظرا لكبر حجم الملف قمت بوضعه على هذا الرابط http://www.mediafire.com/download/l4lg47ckt7zobb8/%D8%A7%D9%84%D8%AB%D8%A7%D9%86%D9%89.rar

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

برنامج قاعدة شئون العاملين مميزة وبشكل جديد وتحتوى على: 1 - الاستعلام بلاسم على الموظف 2 - ادخال بيانات الموظف وتحديد رقم لكل ادارة 3 - القوائم ومنها نختار الموظفين لكل ادارة 4 - الإدارة وبها عدد الموظفين 5 - المؤهلات الدراسية عدد كلا منها 6 - التقارير + صورة الموظف 7 - حساب مكافأة نهاية الخدمة 8 - المجموعة النوعية التخصصية للدرجة 9 - الصور http://www.mediafire.com/download/wrcnxp72tc8dy9y/%D9%82%D8%A7%D8%B9%D8%AF%D8%A9_%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA_%D8%B4%D8%A6%D9%88%D9%86_%D8%A7%D9%84%D8%B9%D8%A7%D9%85%D9%84%D9%8A%D9%86.rar

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، جرب الملف المرفق التالي بعد تعديل بسيط على كود PDF_SALAM... تم إضافة كود Printing إلى الملف مع تعديله الجديد... أخوك بن علية Manafist Tarek 2016.rar

فرنسية وانجليزية الدوال.rar

تماما اخى العزيز طبعا كل الفضل يرجع لهذا المنتدى وكل فريق الموقع الذين لا يبخلون بأى معلومة لآى شخص مختاجها وانا كنت من الناس دى الى اتعلموا بالمنتدى البرنامج عبارة عن كم معلومات عن الموظف المفروض تكون في شئون العاملين لتقديمها لمتخذ القرار عن اى شيء تخص المصلحة او الإدارة او الموظف شرح البرنامج 1 - ادخال البيانات وهى اهم صفحة لآنها تجمع بها البيانات وهو مبنى عليه البرنامج كله والصفحات الأخرى بتأخذ البيانات منها وهى عبارة عن استكمال البيانات بدقة 2 - حانة القايمة بها قائمة منسدلة لآختيار رقم يمثل ادرة من الادارات 3 - صفحة القوائم من اعلي الصفحة يوجد قائمة منسدلة نختار رقم منها وهو يمثل إدارة من الإدارات وسوف يظهر العاملين الذين يشغلون الادارة 4 - صفحة الادارات وهى عبارة عن اسم كل الإدارات وعدد العاملين بكل ادارة 5 - المؤهلات الدراسية وهى حصر بكل الشهادات الدراسية الموجودة بالنوع والعدد 6 - المجموعة التخصصية للدرجة وهى توضيح بالمسمى الوظيفى للموظف نوع الوظيفة المعين عليها حصر اسم الوظيفة وعدعها 7 - التقرير وهو بيان حالة الموظف وكل مايخصه من معلومات ( بطاقة وصف للموظف + صورتة ) وهذا بأختيار اسم الموظف من القائمة المنسدلة ملحوظة البرنامج مبني علي معادلات بحث وهي التي تم الاستعانة بها مثل : للبحث VLOOKUP للقوائم INDEX للاعداد CONTIF للصور INDIRECT وشكرا لعل وعسي ان أكون وفيت المطلوب

كنت اقصد روابط من منتدانا او منتدى عربي بعدين عاتب عليك حيث ظل طلبي في تعديل العنوان فتره طويله لم يعدل شكرا على المرور

استاذنا الفاضل ياسر اعتقد ان كلامك صحيح .. المشكلة ليست في الاندر سكور .. المشكلة ان اسم الموديول نفس اسم الفنكشن تحياتي

السلام عليكم قد يكون الموضوع مش جديد وعلى المبتدئين ! ولكن يمكن ان يكون من نوع السهل الممتنع ! الموضوع : عند اضافة بيانات لحقل معين اريد ان يشيك اولا هل هو موجود فيذهب لذلك السجل او يستمر في الاضافة عند عدم وجود المكرر ان ما جعلني اكتب هذا الموضوع هو ان احد الاخوة طرح هذا السؤال وهو شخص اعرف ان مستواه جيدا فقمت بالبحث في اماكن عدة فلم اجد جوابا شافيا ! ويكثر الطلب عليه دائما ! وضعت هنا طريقتين وعند الحدث قبل التحديث للحقل: 1. وهي المطبقة في المرفق: Private Sub Id_BeforeUpdate(Cancel As Integer) Set rs = Me.RecordsetClone rs.FindFirst "id=" & Me.Id If Not rs.NoMatch Then Undo Me.Bookmark = rs.Bookmark MsgBox ("موجود هنا") End If End Sub 2. Private Sub Id_BeforeUpdate(Cancel As Integer) idx = Me.Id If DCount("*", "persons", "id=" & idx) Then Undo DoCmd.FindRecord idx MsgBox ("مكرر هنا") End If End Sub تحياتي متمنيا الفائدة ومستقبلا التعقيب وراغبا في المشاركة بافكار اخرى check_before_ins_upd.rar

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

تمام وفكرة جميلة أخي ناصر أن تقوم بتغيير الاسم الافتراضي للموديول لأنني أميل إلى ذلك ، ولكن عود نفسك أن يبدأ الاسم بحروف mod للدلالة على أنه موديول ، فهذا أفضل في التذكر خصوصاً مع كبر البرنامج ووجود موديولات كثيرة بداخله وهذه صورة توضيحية لأحد البرامج التي قمت بعملها توضح مقصدي

وعليكم السلام ورحمة الله وبركاته أخي الكريم عبد الرحمن يرجى تغيير اسم الظهور للغة العربية هل تقصد إظهار رسالة للمستخدم أم عمل فورم يقوم مقام الرسالة ؟ الأمر مختلف يرجى التوضيح وإرفاق ملف للتوضيح تقبل تحياتي

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

اخي ابوحمادة لا افضل استخدام الرسائل الا في عند الضرورة ولكي تبين شئ مهم .. مارائك بان يتم اخفاء الاوبشن بوتن كما في الكود الاتي Sub VisUnVis() OptionButton1 = False OptionButton2 = False OptionButton3 = False OptionButton4 = False OptionButton5 = False If CheckBox1 = False And CheckBox2 = False And CheckBox3 = False Then OptionButton1.Visible = False OptionButton2.Visible = False OptionButton3.Visible = False OptionButton4.Visible = False OptionButton5.Visible = False Else OptionButton1.Visible = True OptionButton2.Visible = True OptionButton3.Visible = True OptionButton4.Visible = True OptionButton5.Visible = True End If End Sub

أحسنت وبارك الله فيك ...

اسف اخي .. قمت بالتعديل الان .. جرب تعديل كود_4.rar

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

وأحرز أخونا عبد السلام هدفاً رائعاً ..يا له من هدف ممتع ..لقد أمتعني بشكل كبير جداً حقاً إنك لرائع ، وملحوظة قوية جداً .. لم أنتبه على الإطلاق لاسم الموديول فلم أعتاد أن يسمي الناس الموديولات الخاصة بهم ، ولهذا لم أفكر بالأمر رغم أنني في تصميم البرامج لا أترك الاسم الافتراضي للموديول بل أقوم بتسميته باسم معبر عن الهدف منه وعادةً أبدأ التسمية بكلمة mod اختصار كلمة module ومن ثم رجوعاً إلى الملف الأصلي في المشاركة في الموضوع على الأخ ناصر أن يقوم بالتالي الذهاب لمحرر الأكواد Alt+ F11 الذهاب لنافذة المشروع والنقر على اسم الموديول Kh_Mustowa ثم الذهاب إلى نافذة الخصائص وتغيير اسم الموديول إلى مثلاً Mod_Kh_Mustowa

جرب التعديل التالي أخي العزيز Sub Test() Application.Calculation = xlManual With Sheets("اللجان") .Calculate For J = [am3] To [an3] Step 20 [I2] = IIf(J <= [an3], J, ""): [R2] = IIf(J + 1 <= [an3], J + 1, ""): [aa2] = IIf(J + 2 <= [an3], J + 2, ""): [aj2] = IIf(J + 3 <= [an3], J + 3, "") [I7] = IIf(J + 4 <= [an3], J + 4, ""): [R7] = IIf(J + 5 <= [an3], J + 5, ""): [aa7] = IIf(J + 6 <= [an3], J + 6, ""): [aj7] = IIf(J + 7 <= [an3], J + 7, "") [I12] = IIf(J + 8 <= [an3], J + 8, ""): [R12] = IIf(J + 9 <= [an3], J + 9, ""): [aa12] = IIf(J + 10 <= [an3], J + 10, ""): [aj12] = IIf(J + 11 <= [an3], J + 11, "") [I17] = IIf(J + 12 <= [an3], J + 12, ""): [R17] = IIf(J + 13 <= [an3], J + 13, ""): [aa17] = IIf(J + 14 <= [an3], J + 14, ""): [aj17] = IIf(J + 15 <= [an3], J + 15, "") [I22] = IIf(J + 16 <= [an3], J + 16, ""): [R22] = IIf(J + 17 <= [an3], J + 17, ""): [aa22] = IIf(J + 18 <= [an3], J + 18, ""): [aj22] = IIf(J + 19 <= [an3], J + 19, "") With .PageSetup .LeftHeader = "اللجنة " & Sheet2.Range("Q5").Value & vbCrLf & "القاعة " & Sheet2.Range("Q6").Value .CenterHeader = "امتحانات الطلبة" & vbCrLf & "للعام " & Sheet2.Range("Q7").Value .RightHeader = Sheet2.Range("Q3").Value & vbCrLf & Sheet2.Range("Q4").Value End With .Calculate ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next J End With Application.Calculation = xlAutomatic End Sub تقبل تحياتي

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

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

متشكر جدا اخ/ ياسر خليل هذا من فضل الله اولا وافضلكم علينا ثانيا وهذة ثمرة مجهودكم معانا

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

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

السلام عليكم ورحمة الله وبركاته اشكر لك مداخلتك اخي كرار كلام صحيح

تم التعديل اخي .. جرب ان تختار احد الاوبشن بدون ماتختار التشك بوكس

بعد اذن الاستاذ ياسر جرب salary finished.rar

هذه الروابط لعموم الفائدة هذا من عام &nbsp;2001 وهذا من عام &nbsp;2007 هنا الكود من عام 2008 وهذا من عام &nbsp;2010 وهذا من عام &nbsp;2012 وهذا من ميكروسوفت حديث

اخ مومن عندما كتبت الموضوع التالي كنت اعرف اهميته وهو اعتقد لطلبك بالتمام واعتقد ان عنوان الموضوع يختلف عن المضمون ! بالتوفيق

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

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

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

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

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

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

جميل جدا

تم تطبيق الدالة على المثال هنا التطبيق في حقل الرصيد في نموذج المبيعات

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

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

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

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

سؤال عدد ايام السنة الهجرية 354 ؟ لو كانت الاجابة نعم فهذا البرنامج يفيدك تاريخ التقاعد.rar

تفضل ... Database41-02.rar

تفضل في حالة عدم وجود الرقم يفتح سجل جديد Private Sub text1_AfterUpdate() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[Emp_No] = " & [text1] If Not rs.NoMatch Then Me.Bookmark = rs.Bookmark Else DoCmd.GoToRecord , , acNewRec End If End Sub

العفو أخي الكريم 1 - كود جعل التاكست بوكس لا يقبل الحروف : Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[!0-9]" Then KeyAscii = 0 End Sub 2 - التّرقيم التّلقائي ..ستجد بالملف المرفق .. 2 أنواع من الأكواد بطريقة مبسطة .. إختر الكود الأول أو الكود الثاني بالتّوفيق إن شاء الله الترقيم التسلسلي بالفورم.rar

يا لطيف 7 شهور .. الحق انك مناضل تفضل : باعتبار اسم الحقل والذي نوعه رقمي في الجدول والذي تبحث عن طريقه اسمه id اعمل مربع نص غير منضم في النموذج واجعل اسمه text1 افتح على التصميم وفي حدث بعد التحديث لمربع النص المذكور الصق هذا الكود Private Sub text1_AfterUpdate() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[id] = " & Me![text1] If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub ان كان نوع الحقل في الجدول نصيا ستحتاج الى تغيير بسيط في الكود

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