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

السلام عليكم ورحمة الله وبركاتة هذا البرنامج كان احد الاعضاء قد وجده في احد المنتديات الاجنبية وهو لقاعدة بيانات وتم التعديل والاضافة والتنقيح وكانت النتيجة الاتي :: عناوين السجلات في اليوزر فورم تعمل اتوموتيكيا عند تغيرها في الشيت اضافة صورة لكل سجل و يتم اضافة الصور الي الفلدر All_Pic بالأسم الاول للسجل اضافة سجل جديد تعديل السجل الحالي حذف السجل الحالي البحث في الاعمدة التي تم تعليم التشك بوكس لها في هيدر العناوين وتظهر هذه العناوين فقط في كومبو بوكس البحث يشمل الملف علي ثلاث صفحات الصفحة الاولي لقاعدة البيانات الصفحة الثانية لقاعدة البيانات اخري مصغرة لتوضيح الية عناوين اليوزر فورم الصفحة الثالثة تقرير بالسجلات التي تم اختيارها اصل الملف قبل التعديل New Userform Example_1.rar الملف بعد التعديل قاعدة بيانات بالصور_2.rar

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

sumdebit: DSum("[debit]","entry","[code] like '" & [code] & "*'")

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

السلام عليكم اخي الكريم محمد افتح التقرير ثم افتح الاستعلام الذي هو مصدر التقرير ثم اضف العمود vew وفي مكان الشرط اكتب 1 أو true سيظهر في التقرير كل السجلات التي تحتوي على اشارة صح أما اذا كتبت 0 أو كلمة false سيظهر في التقرير كل السجلات التي لا تحوي اشارة صح طبعا انا قمت بالتعديل على التقرير اليك المرفق معمل (1).rar

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

السلام عليكم ورحمة الله وبركاتة فكرة البرنامج كانت مقدمة من احد الاخوة الاعضاء وقد اعجبتني فكرة الموضوع فكانت النتيجة هذا البرنامج Omar_3.rar

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

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

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

الاخ احمد ديدو تم التعديل ملحوظة هامة انت اضفت رقم المسلسل 16 بدلا من رقم الكود 6 يجب مراعات تسلسل الكود او يمكن ان يكون رقم الكود اتوموتيكيا لا يتحكم فيه المستخدم Omar_2.rar

وعليكم السلام جرب أخي الدالة المعرفة التالية رابط الدالة المعرفة من هنا بعد وضع الدالة في موديول عادي .. اذهب لورقة العمل واكتب المعادلة التالية في الخلية B1 (بفرض أن التاريخ الهجري في الخلية A1) =ConvertDate(A1) تقبل تحياتي

تفضل اخى الكريم اتمني ان يكون هذا ما طلبت 11 Amr.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة hyeperlink تم ارفاق كود الحل من الفاضل ا / يحيى حسين و لا تنسونا من صالح الدعاء تحياتى يحيى حسين - عمل ارتباط تشعبي.rar

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

الله يعزك ويزيدك ويبارك فيك تم الحذف

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

حبيبي انا وكل ما املك تحت امرك تم التعديل تحياتي

بعد اذن اخويا الاستاذ عبد الله قدور جرب المرفق كده يا استاذ محمد سعيد رشاد لو ده اللى حضرتك محتاجة يبقى تمام ولو مش هو نحاول معاك تانى معمل -up .rar هههههههههههههههه محمد سعيد رشاد ابن السعيد لما ييسعد يجيله ردين ورا بعض فى نفس الدقيقه ههههههههههههههههههه يلا يا سيدى والاستاذ عبد الله جزاه الله خير شرح لك كل شئ وانا اضفت لك كودين فى التقرير واحد لو ما تم اختيار اى شئ يظهر رساله بدل الطباعة لعدم اهدار الورق والحبر بلا داعى والتانى يعمل لك برواز على التقرير " تحديد "

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

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

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

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

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

جزاكم الله خيراً أخي زياد على كلماتك الطيبة والحمد لله الذي بنعمته تتم الصالحات

محمد السباعي اخى الفاضل ما شاء الله عليك

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

ممتاز وفقك الله لكل خير وسددك ...

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

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

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

بارك الله فيك استاذنا .. لك اكثر والله وكل عام وانت بخير ماشاء الله عليك .. نشاط كبير كالعادة .. مااستطع الاجابة علي الاسئلة قبلك .. كانت اجابتي من باب المشاركة فقط . وفقك الله استاذنا الحبيب

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

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

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

اختي الفاضلة ومشاركة مع اخي محمد ايمن بما انه لا يوجد شروط او محددات لسجلات محددة فيمكن كتابة الجملة التالية DoCmd.RunSQL "insert into WareHouse(barcode,quantity,branch) select barcode,quantity,branch from sales" وحبيت اوضح المشكلة لديك سابقا وهي ليست مشكلة وانما خطأ منطقي فكودك السابق يضيف القيم من النموذج وعند السجل الحالي وهو السجل الذي به مؤشر محدد السجلات وهنا بالطبيعي سيتم اضافة بيانات سجل واحد وهو الحالي ولكي نستخدم نفس فكرتك ودمجا مع فكرة الاستاذ محمد ايمن يمكن الدوران وعبارة عن ان انقل محدد السجلات لاول سجل ثم الادراج والانتقال للتالي ثم الادراج وهكذا وهنا ساقوم بتعديل بسيط بكودك السابق يقوم بالادراج من اسجل الحالي وما بعد وحسب رغبتك في تحديد البدء بالادراج وذلك بنقر سجل البدء For i = CurrentRecord To Me.RecordsetClone.RecordCount DoCmd.RunSQL " INSERT INTO WareHouse ( [barcode], [Quantity], [Branch])values ( '" & Me.[barcode] & "', " & -Me.[quantity] & ", " & Me.[branch] & ");" DoCmd.GoToRecord , , acNext Next بالتوفيق

تفضل اخي الكريم جرب الزر ( امر 17) عندي سؤال صغير : ما الفكرة من ادخال نفس البيانات الى جدولين ؟؟ Database12.rar

مر حبا جرب الكود التالي Sub iCopy() Dim sh As Worksheet, wr As Worksheet, j As Double, R As Double, Ary() Set sh = Sheets("ورقة1"): Set wr = Sheets("ورقة2") If wr.Range("a" & Rows.Count).End(xlUp).Row > 1 Then _ wr.Range("A2:E" & wr.Range("a" & Rows.Count).End(xlUp).Row) = "" With sh LsRow = .Range("a" & Rows.Count).End(xlUp).Row For j = 3 To LsRow If WorksheetFunction.CountIf(.Range("a3:a" & j), .Range("a" & j)) = 1 Then R = R + 1 ReDim Preserve Ary(1 To 5, 1 To R) Ary(1, R) = .Cells(j, 1): Ary(2, R) = .Cells(j, 2): Ary(3, R) = .Cells(j, 4) Ary(4, R) = WorksheetFunction.SumIf(.Range("a3:a" & LsRow), Ary(1, R), .Range("E3:E" & LsRow)) Ary(5, R) = Ary(3, R) * Ary(4, R) End If Next If R Then wr.Range("A2").Resize(R, 5).Value = WorksheetFunction.Transpose(Ary) End With wr.Select End Sub المرفق bb33.rar

السلام عليكم كل عام وانتم بخير وبمناسبة ذكر العيد في هذا البرنامج المميز خطر على بالي السؤال التالي في البداية قلت انك يجب ان احدد ايام العطل من بداية العمل او السنة ولكن يبقى عندنا الاعياد الفطر والاضحى قد تكون ايامهم مختلفة عما سجلناه في بداية العمل او السنة بحيث نسجل ان عيد الفطر سيكون 5-6-7/ 7/ 2016 ثم كما ورد في المثال المذكور سابقا ان احد الموظفين اخذ اجازة 10 ايام من ضمنها او اخرها قبل العيد تماما او ضمنه فإذا قمنا بتغيير تاريخ العيد الى تاريخه الصحيح فهل سيؤثر ذلك على اجازة الموظف أم لا تحياتي للجميع

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

كل عام وانت وجميع الامة الاسلامية بخير

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل ا / رحمه الله_ الحسامي و لا تنسونا من صالح الدعاء تحياتى واجهة برنامج...hosami (1).rar

طيب ممكن تفتح الملف وتبدأ تدرسه .. أو ممكن لو عايز تستخدم الفورم في ملفك بسيطة جداً روح لمحرر الأكواد ( Alt + F11) هتلاقي الفورم في نافذة المشروع ..دور على كلمة UserForm1 اعمل كليك يمين عليه ثم اختر الأمر Export File . وصدره لسطح المكتب مثلاً ، حدد سطح المكتب وانقر Save خلاص اقفل الملف اللي فيه الفورم روح لملفك اللي عايز تدرج فيه الفورم وافتح وكرر نفس الخطوات تروح لمحرر الأكواد وفي نافذة المشروع في أي مكان كليك يمين والمرة دي اختار Import File وروح لسطح المكتب واستورد الملف اللي صدرته من شوية بعد كدا كليك يمين على الفورم واختار View Code وغير الاسم وكلمة السر إلى ما تريد من خلال السطر التالي If TextBox1.Value = "hosami" And TextBox2.Value = 123 Then بعد كدا ضع الكود التالي في حدث فتح المصنف ودا بيكون عن طريق دبل كليك على الكائن ThisWorkbook ثم الصق الكود التالي في حدث المصنف Private Sub Workbook_Open() UserForm1.Show End Sub احفظ ملفك واقفله .. وارجع افتح مرة تانية ومبرك عليك

الحمد لله أن تم المطلوب على خير .. والحمد لله الذي بنعمته تتم الصالحات

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

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

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

بارك الله فيك أخي الحبيب جلال على هذه الروائع بوركت وجزيت خيراً .. ولو كنت أفقه في الحسابات ، لكنت أعطيتك التقييم الصائب (لكن حظك حلو ..ولكن أترك التقييم للمختصين أمثال الأخ محمد الريفي وحسام عيسى) تقبل تحياتي

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

السلام عليكم تفضل اخى الكريم ان شاء الله هذه المعادله ستلبى طلبك ترتيب الحروف.rar